1! RUN: %B/test/Semantics/test_errors.sh %s %flang %t
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