From: Paul Brook <paul@codesourcery.com>
Date: Sun, 16 May 2004 20:17:04 +0000 (+0000)
Subject: * io/format.c (write_real): Don't include padding in format.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=6d3e9d84546050e45a24a63b5bab723f513d75ce;p=gcc.git

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

From-SVN: r81922
---

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