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