URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [minmaxval_1.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! Tests the fix for PR37836 in which the specification expressions for`	`! Tests the fix for PR37836 in which the specification expressions for`
`! y were not simplified because there was no simplifier for minval and`	`! y were not simplified because there was no simplifier for minval and`
`! maxval.`	`! maxval.`
`!`	`!`
`! Contributed by Tobias Burnus`	`! Contributed by Tobias Burnus`
`!`	`!`
`! nint(exp(3.0)) is equal to 20 :-)`	`! nint(exp(3.0)) is equal to 20 :-)`
`!`	`!`
`function fun4a()`	`function fun4a()`
`integer fun4a`	`integer fun4a`
`real y(minval([25, nint(exp(3.0)), 15]))`	`real y(minval([25, nint(exp(3.0)), 15]))`

`fun4a = size (y, 1)`	`fun4a = size (y, 1)`
`end function fun4a`	`end function fun4a`

`function fun4b()`	`function fun4b()`
`integer fun4b`	`integer fun4b`
`real y(maxval([25, nint(exp(3.0)), 15]))`	`real y(maxval([25, nint(exp(3.0)), 15]))`
`save`	`save`

`fun4b = size (y, 1)`	`fun4b = size (y, 1)`
`end function fun4b`	`end function fun4b`

`EXTERNAL fun4a, fun4b`	`EXTERNAL fun4a, fun4b`
`integer fun4a, fun4b`	`integer fun4a, fun4b`
`if (fun4a () .ne. 15) call abort`	`if (fun4a () .ne. 15) call abort`
`if (fun4b () .ne. 25) call abort`	`if (fun4b () .ne. 25) call abort`
`end`	`end`