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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [nearest_1.f90] - Diff between revs 149 and 154

Rev 149	Rev 154
`! { dg-do run }`	`! { dg-do run }`
`! { dg-options "-O0 -ffloat-store" }`	`! { dg-options "-O0 -ffloat-store" }`
`! PR fortran/27021`	`! PR fortran/27021`
`! Original code submitted by Dominique d'Humieres`	`! Original code submitted by Dominique d'Humieres`
`! Converted to Dejagnu for the testsuite by Steven G. Kargl`	`! Converted to Dejagnu for the testsuite by Steven G. Kargl`
`program chop`	`program chop`
`integer ix, iy`	`integer ix, iy`
`real o, t, td, tu, x, y`	`real o, t, td, tu, x, y`
`o = 1.`	`o = 1.`
`t = tiny(o)`	`t = tiny(o)`
`td = nearest(t,-1.0)`	`td = nearest(t,-1.0)`
`x = td/2.0`	`x = td/2.0`
`y = nearest(tiny(o),-1.0)/2.0`	`y = nearest(tiny(o),-1.0)/2.0`
`ix = transfer(x,ix)`	`ix = transfer(x,ix)`
`iy = transfer(y,iy)`	`iy = transfer(y,iy)`
`if (ix /= iy) call abort`	`if (ix /= iy) call abort`
`end program chop`	`end program chop`