gcc/testsuite/gfortran.dg/output_exponents_1.f90

   1 ! { dg-do run }
   2 ! PR 21376
   3 ! we used to take the logarithm of zero in this special case
   4   character*10 c
   5   write (c,'(e10.4)') 1.0
   6   if(c /= "0.1000E+01") call abort
   7   write (c,'(e10.4)') 0.0
   8   if(c /= "0.0000E+00") call abort
   9   write (c,'(e10.4)') 1.0d100
  10   if(c /= "0.1000+101") call abort
  11   write (c,'(e10.4)') 1.0d-102
  12   if(c /= "0.1000-101") call abort
  13 end