1! RUN: %S/test_errors.sh %s %t %f18 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