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