program test x=1.0y=2.0z=3.0call sub(x,y,z)write(*,*) Aend subroutine sub(x,y,z)A=x+y+zreturnend
Standard input is empty
-1.52001940E-05
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!