org.eclipse.photran.core.vpg.tests/refactoring-test-code/extract-procedure/test05-parameter.f90 - ptp/org.eclipse.photran - Git at Google

 subroutine prob
         integer, parameter :: SIZE = 5
         real :: matrix(SIZE, SIZE)
         matrix(:, :) = 0.0          !<<<<<START !<<<<<END
         print *, matrix
 end subroutine

 program main; call prob; call flush; stop; end program
	subroutine prob
	integer, parameter :: SIZE = 5
	real :: matrix(SIZE, SIZE)
	matrix(:, :) = 0.0 !<<<<<START !<<<<<END
	print *, matrix
	end subroutine

	program main; call prob; call flush; stop; end program