Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
593589609418861e91dcd3762759becc183564b1
/
.
/
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