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.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [isnan_1.f90] - Rev 516
Compare with Previous | Blame | View Log
! Test for the ISNAN intrinsic
!
! { dg-do run }
! { dg-add-options ieee }
! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
!
implicit none
real :: x
x = -1.0
x = sqrt(x)
if (.not. isnan(x)) call abort
x = 0.0
x = x / x
if (.not. isnan(x)) call abort
x = 5.0
if (isnan(x)) call abort
x = huge(x)
x = 2*x
if (isnan(x)) call abort
end