| program updatecallsitewithorder ! Tests that the position of the parameter is correctly set. | |
| implicit none | |
| call sub(2,0) | |
| end program updatecallsitewithorder | |
| subroutine sub(z,y) !<<<<< 5, 1, 5, 5, integer; intent(in) :: y, 1, 0, pass | |
| integer, intent(in) :: y | |
| integer, intent(in) :: z | |
| end subroutine |