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 ! PR47293 NAN not correctly read
   6 character(len=200) :: str
   7 real(16) :: r
   8 integer(16) :: k2
   9 integer(16), parameter :: quietnan = 170099645085600953110659059745250344960
  10 r = 1.0
  11 str = 'NAN' ; read(str,*) r
  12 k2 = transfer(r,k2)
  13 k2 = iand(k2, z'fff80000000000000000000000000000')
  14 if (k2.ne.quietnan) call abort
  15 end