fork download
  1. program test
  2.  
  3. x=1.0
  4. y=2.0
  5. z=3.0
  6. call sub(x,y,z)
  7. write(*,*) A
  8. end
  9.  
  10. subroutine sub(x,y,z)
  11. A=x+y+z
  12. return
  13. end
Success #stdin #stdout 0.02s 2620KB
stdin
Standard input is empty
stdout
 -1.52001940E-05