1! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s
2! CHECK-NOT: Control flow escapes from CRITICAL
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      goto 20
11    end if
1220 a(i) = -a(i)
13  end critical
14end subroutine test1
15
16subroutine test2(i)
17  integer i
18  critical
19    if (i) 10, 10, 20
2010  i = i + 1
2120  i = i - 1
22  end critical
23end subroutine test2
24
25subroutine test3(i)
26  integer i
27  critical
28    goto (10, 10, 20) i
2910  i = i + 1
3020  i = i - 1
31  end critical
32end subroutine test3
33