diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2005-02-27 17:17:56 +0100 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2005-02-27 17:17:56 +0100 |
| commit | 34d6d42fb48c22c2a17b948019c5fd162b74ff4a (patch) | |
| tree | 73554e7745fbe1b6cd6e22f610aa28c5b83fbe40 /libgfortran | |
| parent | ac5c8be21e3b5fc0f224b86de1f7a508295b9e41 (diff) | |
| download | gcc-34d6d42fb48c22c2a17b948019c5fd162b74ff4a.zip gcc-34d6d42fb48c22c2a17b948019c5fd162b74ff4a.tar.gz gcc-34d6d42fb48c22c2a17b948019c5fd162b74ff4a.tar.bz2 | |
write.c (output_float): Fix typo in condition.
libgfortran/
* io/write.c (output_float): Fix typo in condition.
gcc/testsuite/
* gfortran.dg/e_d_fmt.f90: New test.
From-SVN: r95615
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 4 | ||||
| -rw-r--r-- | libgfortran/io/write.c | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 03793e8..c7b5821 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,7 @@ +2004-02-27 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> + + * io/write.c (output_float): Fix typo in condition. + 2005-02-25 Peter O'Gorman <peter@pogman.com> Toon Moene <toon@moene.indiv.nluug.nl> diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 19744d2..d4ee605 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -395,7 +395,7 @@ output_float (fnode *f, double value, int len) nafter = d; } - if (ft = FMT_E) + if (ft == FMT_E) expchar = 'E'; else expchar = 'D'; |