Skip to main content
summaryrefslogtreecommitdiffstats
blob: 30a772245c6b3584dd55255a60a8a33d0f893bb8 (plain) (blame)
1
2
3
4
5
6
7
8
program variablenameaddedincallsite ! Tests that when y is added, the call site adds y=0
    implicit none
    call sub(z=2,y=0)
end program variablenameaddedincallsite
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

Back to the top