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