1! RUN: %S/test_errors.sh %s %t %f18
2!C1119
3
4subroutine test1(a, i)
5  integer i
6  real a(10)
7  critical
8    if (a(i) < 0.0) then
9      a(i) = 20.20
10      !ERROR: Control flow escapes from CRITICAL
11      goto 20
12    end if
13  end critical
1420 a(i) = -a(i)
15end subroutine test1
16
17subroutine test2(i)
18  integer i
19  critical
20    !ERROR: Control flow escapes from CRITICAL
21    if (i) 10, 10, 20
22    10 i = i + 1
23  end critical
2420 i = i - 1
25end subroutine test2
26
27subroutine test3(i)
28  integer i
29  critical
30    !ERROR: Control flow escapes from CRITICAL
31    goto (10, 10, 20) i
32    10 i = i + 1
33  end critical
3420 i = i - 1
35end subroutine test3
36