program test

x=1.0
y=2.0
z=3.0
call sub(x,y,z)
write(*,*) A
end

subroutine sub(x,y,z)
A=x+y+z
return
end