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