path: root/org.eclipse.photran.core.vpg.tests/refactoring-test-code/add-subroutine-parameter/test22-basicpointer/add_subroutine_parameter_22.f90.result

program basicpointer ! Tests that pointers can be passed as a parameter.

end program basicpointer
subroutine sub(y,z) !<<<<< 4, 1, 4, 5, integer; intent(in); pointer :: y, 0, null, pass
    integer, intent(in), pointer :: y
    integer, intent(in) :: z
end subroutine