diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-05-29 14:44:37 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-05-29 12:44:37 +0000 |
| commit | 6778b96ce1fa7ca57bb6d95fb40e769abd02734b (patch) | |
| tree | 0dba1a684b0b4298d2dea17f82715a2180696fe5 /gcc | |
| parent | 95af2a1f7b191b38bf3809ee4dcd1c5696e831ee (diff) | |
| download | gcc-6778b96ce1fa7ca57bb6d95fb40e769abd02734b.zip gcc-6778b96ce1fa7ca57bb6d95fb40e769abd02734b.tar.gz gcc-6778b96ce1fa7ca57bb6d95fb40e769abd02734b.tar.bz2 | |
* gfortran.dg/output_exponents_1.f90: New test.
From-SVN: r100319
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/output_exponents_1.f90 | 13 |
2 files changed, 17 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 1c7fcd5..cbdd397 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,9 @@ 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. 2005-05-28 Mark Mitchell <mark@codesourcery.com> diff --git a/gcc/testsuite/gfortran.dg/output_exponents_1.f90 b/gcc/testsuite/gfortran.dg/output_exponents_1.f90 new file mode 100644 index 0000000..b645e62 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/output_exponents_1.f90 @@ -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 |