36 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12!C11193 4subroutine test1(a, i)5 integer i6 real a(10)7 critical8 if (a(i) < 0.0) then9 a(i) = 20.2010 !ERROR: Control flow escapes from CRITICAL11 goto 2012 end if13 end critical1420 a(i) = -a(i)15end subroutine test116 17subroutine test2(i)18 integer i19 critical20 !ERROR: Control flow escapes from CRITICAL21 if (i) 10, 10, 2022 10 i = i + 123 end critical2420 i = i - 125end subroutine test226 27subroutine test3(i)28 integer i29 critical30 !ERROR: Control flow escapes from CRITICAL31 goto (10, 10, 20) i32 10 i = i + 133 end critical3420 i = i - 135end subroutine test336