Commit 6778b96c by Francois-Xavier Coudert Committed by François-Xavier Coudert

* gfortran.dg/output_exponents_1.f90: New test.

From-SVN: r100319
parent 95af2a1f
2005-05-29 Francois-Xavier Coudert <coudert@clipper.ens.fr> 2005-05-29 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* gfortran.dg/output_exponents_1.f90: New test.
2005-05-29 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* gfortran.dg/dollar_edit_descriptor-1.f: New test. * gfortran.dg/dollar_edit_descriptor-1.f: New test.
2005-05-28 Mark Mitchell <mark@codesourcery.com> 2005-05-28 Mark Mitchell <mark@codesourcery.com>
......
! { 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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment