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

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

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

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