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