mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-15 23:11:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
From-SVN: r100319
This commit is contained in:
Francois-Xavier Coudert 2005-05-29 14:44:37 +02:00 committed by François-Xavier Coudert
parent 95af2a1f7b
commit 6778b96ce1
2 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
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.

13
gcc/testsuite/gfortran.dg/output_exponents_1.f90 Normal file
View File

@ -0,0 +1,13 @@
! { 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