Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
4862e0ef11eafa53a5da758a3f72723b17450d71
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
extract-procedure
/
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