gcc/testsuite/gfortran.dg/tiny_2.f90

   1 ! { dg-do run }
   2 program tiny2
   3   real(4) x4
   4   real(8) x8
   5   x4 = tiny(x4)
   6   x8 = tiny(x8)
   7   if (minexponent(x4) /= exponent(x4)) call abort
   8   if (minexponent(x8) /= exponent(x8)) call abort
   9 end program tiny2