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/] [nearest_4.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! PR33296 nearest(huge(1.0),1.0) gives an error`	`! PR33296 nearest(huge(1.0),1.0) gives an error`
`real x`	`real x`
`x = nearest(-huge(1.0),-1.0)`	`x = nearest(-huge(1.0),-1.0)`
`print *, x`	`print *, x`
`end`	`end`