OSDN Git Service

Add NIOS2 support. Code from SourceyG++.
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / isnan_1.f90
1 ! Test for the ISNAN intrinsic
2 !
3 ! { dg-do run }
4 ! { dg-add-options ieee }
5 ! { dg-skip-if "NaN not supported" { spu-*-* } { "*" } { "" } }
6 !
7   implicit none
8   real :: x
9   x = -1.0
10   x = sqrt(x)
11   if (.not. isnan(x)) call abort
12   x = 0.0
13   x = x / x
14   if (.not. isnan(x)) call abort
15
16   x = 5.0
17   if (isnan(x)) call abort
18   x = huge(x)
19   x = 2*x
20   if (isnan(x)) call abort
21 end