URL
https://opencores.org/ocsvn/scarts/scarts/trunk
Subversion Repositories scarts
[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [19990218-0.f] - Rev 12
Compare with Previous | Blame | View Log
c { dg-do compile } program test double precision a,b,c data a,b/1.0d-46,1.0d0/ c=fun(a,b) print*,'in main: fun=',c end double precision function fun(a,b) double precision a,b print*,'in sub: a,b=',a,b fun=a*b print*,'in sub: fun=',fun return end