gcc/testsuite/gfortran.dg/subnormal_1.f90

   1 ! { dg-do run }
   2 ! { dg-options "-Wno-underflow" }
   3 ! Check that the chopping of bits of subnormal numbers works.
   4 !
   5 program chop
   6   real x
   7   x = 1.
   8   if (tiny(x)/2. /= tiny(x)/2. - (nearest(tiny(x),1.) - tiny(x))/2.) then
   9     call abort
  10   end if
  11 end program chop