URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [entry_11.f90] - Rev 323
Go to most recent revision | Compare with Previous | Blame | View Log
! PR fortran/23663
function i (n)
i = n
i = max (i, 6)
return
entry j (n)
j = n
j = max (j, 3)
end
program entrytest
if (i (8).ne.8) call abort
if (i (4).ne.6) call abort
if (j (0).ne.3) call abort
if (j (7).ne.7) call abort
end
Go to most recent revision | Compare with Previous | Blame | View Log