1! RUN: %python %S/test_errors.py %s %flang_fc1 2! Tests implemented for this standard: 3! Block Construct 4! C1109 5 6subroutine s5_c1109 7 b1:block 8 !ERROR: BLOCK construct name mismatch 9 end block b2 10end 11 12