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