URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [entry_9.f90] - Rev 816
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