diff options
| author | Paul Brook <pbrook@gcc.gnu.org> | 2004-09-06 16:33:52 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-09-06 16:33:52 +0000 |
| commit | 2cada022f179388388297111dbc6f7c4510c5648 (patch) | |
| tree | 188a0f8ad81aae6b1573cefb38f836c86d98ae1d /gcc | |
| parent | c802a85924bc0e9810267e36ce0363feccc077bb (diff) | |
| download | gcc-2cada022f179388388297111dbc6f7c4510c5648.zip gcc-2cada022f179388388297111dbc6f7c4510c5648.tar.gz gcc-2cada022f179388388297111dbc6f7c4510c5648.tar.bz2 | |
[multiple changes]
2004-09-06 Steven G. Kargl <kargls@comcast.net>
* io/write.c (output_float): Typo in comment. Remove debugging
printf. Fix format for FP of form 1e10.
2004-09-06 Paul Brook <paul@codesourcery.com>
* gfortran.dg/edit_real_1.f90: Add new test.
From-SVN: r87119
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/edit_real_1.f90 | 4 |
3 files changed, 13 insertions, 0 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index b5ebb4f..fe5e531 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +2004-09-06 Steven G. Kargl <kargls@comcast.net> + + * io/write.c (output_float): Typo in comment. Remove debugging + printf. Fix format for FP of form 1e10. + 2004-09-06 Mohan Embar <gnustuff@thisiscool.com> * Makefile.in (rtl.o): Remove -DGENERATOR_FILE. diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a968825..076bbf5 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2004-09-06 Paul Brook <paul@codesourcery.com> + + * gfortran.dg/edit_real_1.f90: Add new test. + 2004-09-05 Zdenek Dvorak <rakdver@atrey.karlin.mff.cuni.cz> * gcc.dg/tree-ssa/loop-2.c: New test. diff --git a/gcc/testsuite/gfortran.dg/edit_real_1.f90 b/gcc/testsuite/gfortran.dg/edit_real_1.f90 index dc8eee1..3ac7cb4 100644 --- a/gcc/testsuite/gfortran.dg/edit_real_1.f90 +++ b/gcc/testsuite/gfortran.dg/edit_real_1.f90 @@ -70,5 +70,9 @@ program edit_real_1 s = x write (s, '(-2PE10.4,A)') 1.25, "z" if (s .ne. '0.0013E+03z') call abort + ! E format, single digit precision + s = x + write (s, '(E10.1,A)') 1.1, "z" + if (s .ne. ' 0.1E+01z') call abort end |