From 6d3e9d84546050e45a24a63b5bab723f513d75ce Mon Sep 17 00:00:00 2001
From: Paul Brook <paul@codesourcery.com>
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/io/write.c | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'libgfortran/io')

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