org.eclipse.photran.core.vpg.tests/refactoring-test-code/add-subroutine-parameter/test7-basicarray/add_subroutine_parameter_7.f90 - ptp/org.eclipse.photran - Git at Google

 program basicarray ! Tests that arrays can be passed.

 end program basicarray
 subroutine sub(z) !<<<<< 4, 1, 4, 5, integer; intent(in); dimension(2) :: y, 0, (/ 2; 3 /), pass
     integer, intent(in) :: z
 end subroutine
	program basicarray ! Tests that arrays can be passed.

	end program basicarray
	subroutine sub(z) !<<<<< 4, 1, 4, 5, integer; intent(in); dimension(2) :: y, 0, (/ 2; 3 /), pass
	integer, intent(in) :: z
	end subroutine