OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [entry_9.f90] - Rev 303

Compare with Previous | Blame | View Log

! Test alternate entry points for functions when the result types
! of all entry points match

        function f1 (a)
        integer a, f1, e1
        f1 = 15 + a
        return
        entry e1
        e1 = 42
        end function
        function f2 ()
        real f2, e2
        entry e2
        e2 = 45
        end function

        program entrytest
        integer f1, e1
        real f2, e2
        if (f1 (6) .ne. 21) call abort ()
        if (e1 () .ne. 42) call abort ()
        if (f2 () .ne. 45) call abort ()
        if (e2 () .ne. 45) call abort ()
        end

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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