From 6d3e9d84546050e45a24a63b5bab723f513d75ce Mon Sep 17 00:00:00 2001 From: Paul Brook Date: Sun, 16 May 2004 20:17:04 +0000 Subject: * io/format.c (write_real): Don't include padding in format. From-SVN: r81922 --- libgfortran/ChangeLog | 4 ++++ libgfortran/io/write.c | 7 +++---- 2 files changed, 7 insertions(+), 4 deletions(-) (limited to 'libgfortran') 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 + * io/format.c (write_real): Don't include padding in format. + +2004-05-16 Paul Brook + * io/format.c (format_lex): Make c an int. 2004-05-16 Janne Blomqvist 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; } -- cgit v1.1