org.eclipse.photran.core.vpg.tests/refactoring-test-code/extract-procedure/test01-simple.f90.result

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