OpenCores

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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [entry_11.f90] - Diff between revs 303 and 338

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

Rev 303	Rev 338
`! 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.