From 6d3e9d84546050e45a24a63b5bab723f513d75ce Mon Sep 17 00:00:00 2001 From: Paul Brook Date: Sun, 16 May 2004 20:17:04 +0000 Subject: [PATCH] * 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(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 2b897dd81d7..46126647fc4 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,7 @@ +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. diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 8e5a3204d86..0719f88ff1d 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; } -- 2.30.2