| program basic ! basic test, adding an integer with intent in, default value 0, at position 0. | |
| end program basic | |
| subroutine sub(y,z) !<<<<< 4, 1, 4, 5, integer; intent(in) :: y, 0, 0, pass | |
| integer, intent(in) :: y | |
| integer, intent(in) :: z | |
| end subroutine |