Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
a21b85c92aeb0491365dd3fefba9574145955477
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
remove-computed-goto
/
test2
/
test2.f90
blob: d73050051639c0b6a75405867916f011ed78be02 [
file
] [
log
] [
blame
]
program test2
implicit
none
integer
::
n
n
=
1
goto
(
10
,
20
,
30
)
n
*
2
!<<<<<
8
,
5
,
8
,
30
,
pass
print
*,
"It wasn't handled"
stop
10
print
*,
"It was one"
stop
20
print
*,
"It was two"
stop
30
print
*,
"It was three"
stop
end
program test2