OpenCores
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] - Blame information for rev 12

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 12 jlechner
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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.