diff options
| author | Paul Brook <paul@codesourcery.com> | 2004-05-16 20:17:04 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-05-16 20:17:04 +0000 |
| commit | 6d3e9d84546050e45a24a63b5bab723f513d75ce (patch) | |
| tree | fbe01f6d077690a4c808299e3bedb0ae885cfb39 /libgfortran | |
| parent | 9152dcf43e3972bb029c9bc252d26e909d1b8891 (diff) | |
| download | gcc-6d3e9d84546050e45a24a63b5bab723f513d75ce.zip gcc-6d3e9d84546050e45a24a63b5bab723f513d75ce.tar.gz gcc-6d3e9d84546050e45a24a63b5bab723f513d75ce.tar.bz2 | |
* io/format.c (write_real): Don't include padding in format.
From-SVN: r81922
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 4 | ||||
| -rw-r--r-- | libgfortran/io/write.c | 7 |
2 files changed, 7 insertions, 4 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 2b897dd..4612664 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,5 +1,9 @@ 2004-05-16 Paul Brook <paul@codesourcery.com> + * io/format.c (write_real): Don't include padding in format. + +2004-05-16 Paul Brook <paul@codesourcery.com> + * io/format.c (format_lex): Make c an int. 2004-05-16 Janne Blomqvist <jblomqvi@cc.hut.fi> diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 8e5a320..0719f88 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -986,8 +986,7 @@ write_character (const char *source, int length) /* Output the Real number with default format. - According to DEC fortran LRM, default format for - REAL(4) is 1PG15.7E2, and for REAL(8) is 1PG25.15E3 */ + REAL(4) is 1PG14.7E2, and REAL(8) is 1PG23.15E3 */ static void write_real (const char *source, int length) @@ -998,13 +997,13 @@ write_real (const char *source, int length) g.scale_factor = 1; if (length < 8) { - f.u.real.w = 15; + f.u.real.w = 14; f.u.real.d = 7; f.u.real.e = 2; } else { - f.u.real.w = 24; + f.u.real.w = 23; f.u.real.d = 15; f.u.real.e = 3; } |