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