sample.f90

program Mem

integer :: la, lb, lc, ld, le, lf
real c(0:5)
real e(0:5)

la = 0
lb = 1
lc = 2
ld = 3
le = 4
lf = 5

c(la) = c(lb)
c(lb) = 1
c(ld) = 2
c(lf) = 3
c(lc) = 4
c(le) = 5

call foo(c(la), c(lb))
call foo2(c(ld), c(lf), e(la), e(lb), lb, la)
call foo3(c(lc), c(le))

contains

subroutine foo(a, b)
  integer :: a, b
  a = a + b
end subroutine

subroutine foo2(d, f, b, a)
  integer :: d, f, b, a
end subroutine

subroutine foo3(c, e)
  integer :: c, e
end subroutine


end program Mem