| 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 |