gcc/testsuite/gfortran.dg/nan_7.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fno-range-check" }
   3 ! { dg-require-effective-target fortran_real_16 }
   4 ! { dg-require-effective-target fortran_integer_16 }
   5 ! { dg-skip-if "" { "powerpc*le-*-*" } { "*" } { "" } }
   6 ! PR47293 NAN not correctly read
   7 character(len=200) :: str
   8 real(16) :: r
   9 integer(16) :: k2
  10 integer(16), parameter :: quietnan = 170099645085600953110659059745250344960
  11 r = 1.0
  12 str = 'NAN' ; read(str,*) r
  13 k2 = transfer(r,k2)
  14 k2 = iand(k2, z'fff80000000000000000000000000000')
  15 if (k2.ne.quietnan) call abort
  16 end