33 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s2! CHECK-NOT: Control flow escapes from CRITICAL3 4subroutine test1(a, i)5 integer i6 real a(10)7 critical8 if (a(i) < 0.0) then9 a(i) = 20.2010 goto 2011 end if1220 a(i) = -a(i)13 end critical14end subroutine test115 16subroutine test2(i)17 integer i18 critical19 if (i) 10, 10, 202010 i = i + 12120 i = i - 122 end critical23end subroutine test224 25subroutine test3(i)26 integer i27 critical28 goto (10, 10, 20) i2910 i = i + 13020 i = i - 131 end critical32end subroutine test333