diff options
| -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; } |