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