Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
03f542c15d8e3281a0840028a704b36e992b6bc0
/
.
/
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