Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
e5f6fab10b208de0002e882eee13cb3914e0f532
/
.
/
org.eclipse.photran.core.vpg.tests
/
control-flow-test-code
/
test-computed-goto
/
test-computed-goto.f90
blob: 75e7817b74c64c9437b516b17ef0a0383fb4c589 [
file
] [
log
] [
blame
]
program test20
integer
::
x
=
2
go to
(
10
,
20
)
x
print
*,
"0"
10
print
*,
"1"
return
20
print
*,
"2"
end
program test20
!<<<<<
14