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