OSDN Git Service

fc0a3d0d873324ed18f2478a95fe4b38d8fc196c
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / isnan_1.f90
1 ! Test for the ISNAN intrinsic
2 !
3 ! { dg-do run }
4   implicit none
5   real :: x
6   x = -1.0
7   x = sqrt(x)
8   if (.not. isnan(x)) call abort
9   x = 0.0
10   x = x / x
11   if (.not. isnan(x)) call abort
12
13   x = 5.0
14   if (isnan(x)) call abort
15   x = huge(x)
16   x = 2*x
17   if (isnan(x)) call abort
18 end