Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
a21b85c92aeb0491365dd3fefba9574145955477
/
.
/
org.eclipse.photran.core.vpg.tests
/
var-access-test-code
/
test-assigned-goto
/
test-assigned-goto.f90
blob: 1ee544cfd7ae7a8c3c6aadb099956aed521b6a63 [
file
] [
log
] [
blame
]
program testassignedgoto
integer
::
return_label
assign
200
to return_label
!<<<<<
4
,
19
,
WRITE
goto
return_label
!<<<<<
7
,
10
,
READ
print
*,
"I will never be printed..."
200
print
*,
"but I will!"
end
program testassignedgoto