URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [entry_9.f90] - Blame information for rev 774

Go to most recent revision | Details | Compare with Previous | 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

Line No.	Rev	Author	Line
1	695	jeremybenn	`! Test alternate entry points for functions when the result types`
2			`! of all entry points match`
3
4			`function f1 (a)`
5			`integer a, f1, e1`
6			`f1 = 15 + a`
7			`return`
8			`entry e1`
9			`e1 = 42`
10			`end function`
11			`function f2 ()`
12			`real f2, e2`
13			`entry e2`
14			`e2 = 45`
15			`end function`
16
17			`program entrytest`
18			`integer f1, e1`
19			`real f2, e2`
20			`if (f1 (6) .ne. 21) call abort ()`
21			`if (e1 () .ne. 42) call abort ()`
22			`if (f2 () .ne. 45) call abort ()`
23			`if (e2 () .ne. 45) call abort ()`
24			`end`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [entry_9.f90] - Blame information for rev 774