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