OpenCores

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_11.f90] - Diff between revs 154 and 816

Only display areas with differences | Details | Blame | View Log

Rev 154	Rev 816
`! PR fortran/23663`	`! PR fortran/23663`
`function i (n)`	`function i (n)`
`i = n`	`i = n`
`i = max (i, 6)`	`i = max (i, 6)`
`return`	`return`
`entry j (n)`	`entry j (n)`
`j = n`	`j = n`
`j = max (j, 3)`	`j = max (j, 3)`
`end`	`end`

`program entrytest`	`program entrytest`
`if (i (8).ne.8) call abort`	`if (i (8).ne.8) call abort`
`if (i (4).ne.6) call abort`	`if (i (4).ne.6) call abort`
`if (j (0).ne.3) call abort`	`if (j (0).ne.3) call abort`
`if (j (7).ne.7) call abort`	`if (j (7).ne.7) call abort`
`end`	`end`

powered by: WebSVN 2.1.0

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