12 lines
215 B
Fortran
12 lines
215 B
Fortran
|
! RUN: %python %S/test_errors.py %s %flang_fc1
|
||
|
|
! Tests implemented for this standard:
|
||
|
|
! Block Construct
|
||
|
|
! C1109
|
||
|
|
|
||
|
|
subroutine s5_c1109
|
||
|
|
b1:block
|
||
|
|
!ERROR: BLOCK construct name mismatch
|
||
|
|
end block b2
|
||
|
|
end
|
||
|
|
|