| program updatecallsite ! Tests that the call site is updated appropriately - basic. | |
| implicit none | |
| call sub(0,2) | |
| end program updatecallsite | |
| subroutine sub(y,z) !<<<<< 5, 1, 5, 5, integer; intent(in) :: y, 0, 0, pass | |
| integer, intent(in) :: y | |
| integer, intent(in) :: z | |
| end subroutine |