1! RUN: %S/test_errors.sh %s %t %flang_fc1
2! REQUIRES: shell
3!C1117
4
5subroutine test1(a, i)
6  integer i
7  real a(10)
8  one: critical
9    if (a(i) < 0.0) then
10      a(i) = 20.20
11    end if
12  !ERROR: CRITICAL construct name mismatch
13  end critical two
14end subroutine test1
15
16subroutine test2(a, i)
17  integer i
18  real a(10)
19  critical
20    if (a(i) < 0.0) then
21      a(i) = 20.20
22    end if
23  !ERROR: CRITICAL construct name unexpected
24  end critical two
25end subroutine test2
26