forked from OSchip/llvm-project
21 lines
393 B
Fortran
21 lines
393 B
Fortran
! RUN: %S/test_any.sh %s %flang %t
|
|
! EXEC: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
|
|
! CHECK: branch into loop body from outside
|
|
! CHECK: the loop branched into
|
|
|
|
subroutine s(a)
|
|
integer i
|
|
real a(10)
|
|
do 10 i = 1,10
|
|
if (a(i) < 0.0) then
|
|
goto 20
|
|
end if
|
|
30 continue
|
|
a(i) = 1.0
|
|
10 end do
|
|
goto 40
|
|
20 a(i) = -a(i)
|
|
goto 30
|
|
40 continue
|
|
end subroutine s
|