* io/format.c (write_real): Don't include padding in format.

From-SVN: r81922

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 2b897dd81d791b9495dd917d0e38221cd74fba53..46126647fc470e20afd5e9a0f02969335c1600e8 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+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.

diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c
index 8e5a3204d86c8be3a2f54c22cfd277ef9996926a..0719f88ff1dee4ff24d1f30a232eee9c86811d46 100644 (file)
--- 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;
     }