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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [subnormal_1.f90] - Diff between revs 154 and 816

Rev 154	Rev 816
`! { dg-do run }`	`! { dg-do run }`
`! { dg-options "-Wno-underflow" }`	`! { dg-options "-Wno-underflow" }`
`! Check that the chopping of bits of subnormal numbers works.`	`! Check that the chopping of bits of subnormal numbers works.`
`!`	`!`
`program chop`	`program chop`
`real x`	`real x`
`x = 1.`	`x = 1.`
`if (tiny(x)/2. /= tiny(x)/2. - (nearest(tiny(x),1.) - tiny(x))/2.) then`	`if (tiny(x)/2. /= tiny(x)/2. - (nearest(tiny(x),1.) - tiny(x))/2.) then`
`call abort`	`call abort`
`end if`	`end if`
`end program chop`	`end program chop`