gcc/testsuite/gfortran.dg/g77/19990218-0.f

   1 c { dg-do compile }
   2         program test
   3         double precision a,b,c
   4         data a,b/1.0d-46,1.0d0/
   5         c=fun(a,b)
   6         print*,'in main: fun=',c
   7         end
   8         double precision function fun(a,b)
   9         double precision a,b
  10         print*,'in sub: a,b=',a,b
  11         fun=a*b
  12         print*,'in sub: fun=',fun
  13         return
  14         end