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