You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
20 lines
352 B
20 lines
352 B
! RUN: %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
|