1! RUN: %flang_fc1 -fdebug-unparse-with-symbols %s 2>&1 | FileCheck %s 2! CHECK: branch into loop body from outside 3! CHECK: the loop branched into 4 5subroutine s(a) 6 integer i 7 real a(10) 8 do 10 i = 1,10 9 if (a(i) < 0.0) then 10 goto 20 11 end if 1230 continue 13 a(i) = 1.0 1410 end do 15 goto 40 1620 a(i) = -a(i) 17 goto 30 1840 continue 19end subroutine s 20