[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / flang / test / Semantics / blockconstruct03.f90
blob75ffcadbb93cdd329b439697884a7c34b0c53a8e
1 ! RUN: %python %S/test_errors.py %s %flang_fc1
2 ! Tests implemented for this standard:
3 ! Block Construct
4 ! C1109
6 subroutine s5_c1109
7 b1:block
8 !ERROR: BLOCK construct name mismatch
9 end block b2
10 end