20 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s2! CHECK: branch into loop body from outside3! CHECK: the loop branched into4 5subroutine s(a)6 integer i7 real a(10)8 do 10 i = 1,109 if (a(i) < 0.0) then10 goto 2011 end if1230 continue13 a(i) = 1.01410 end do15 goto 401620 a(i) = -a(i)17 goto 301840 continue19end subroutine s20