Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
6dfe5951886ef9c86e7db8063b28eeeacec78431
/
.
/
org.eclipse.photran.core.vpg.tests
/
extract-proc-test-code
/
test01-simple.f90.result
blob: d85423319f14973192925d49ed36bb8a083b80ae [
file
] [
log
] [
blame
]
subroutine
sub
call new_procedure
()
end
subroutine
subroutine new_procedure
()
implicit
none
print
*,
"Hello"
!<<<<<
START
!<<<<<
END
end
subroutine
program main
;
call
sub
;
call flush
;
stop
;
end
program