Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
refs/tags/v201105302313
/
.
/
org.eclipse.photran.core.vpg.tests
/
control-flow-test-code
/
test-assigned-goto
/
test-assigned-goto.f90
blob: 3a45586d5c8898de1cc4740045f12f027e50d642 [
file
] [
log
] [
blame
]
program testassignedgoto
integer
::
return_label
assign
200
to return_label
goto
return_label
print
*,
"I will never be printed..."
200
print
*,
"but I will!"
end
program testassignedgoto
!<<<<<
12