OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Tobias Schlüter 2005-02-27 17:17:56 +01:00 committed by Tobias Schlüter
parent ac5c8be21e
commit 34d6d42fb4
4 changed files with 22 additions and 1 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-02-27 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* gfortran.dg/e_d_fmt.f90: New test.
2005-02-27 Kazu Hirata <kazu@cs.umass.edu>
* gcc.dg/asm-b.c: Fix comment typos.

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

@ -0,0 +1,13 @@
! { dg-do run }
! Verify that the D format uses 'D' as the exponent character.
! " " " E " " 'E' " " " "
CHARACTER*10 c1, c2
REAL*8 r
r = 1.0
write(c1,"(e9.2)") r
write(c2,"(d9.2)") r
if (trim(adjustl(c1)) .ne. "0.10E+01") call abort()
if (trim(adjustl(c2)) .ne. "0.10D+01") call abort()
END

4
libgfortran/ChangeLog
View File

@ -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>

2
libgfortran/io/write.c
View File

@ -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';