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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@81922 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 3 insertions, 4 deletions

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