write.c (write_real): Increase default precision for

2008-01-18  Tobias Burnus  <burnus@net-b.de>

        * io/write.c (write_real): Increase default precision for
        * REAL(16) by one.

2008-01-18  Tobias Burnus  <burnus@net-b.de>

        * gfortran.dg/large_real_kind_form_io_1.f90: Enlarge string for
        * internal I/O.

From-SVN: r131639

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 87212ee1ff83064303d9bf41a9f72ad60b8c975a..592c509d7175a88a82aef2288c5ee915dfaba9bf 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2008-01-18  Tobias Burnus  <burnus@net-b.de>
+
+       * gfortran.dg/large_real_kind_form_io_1.f90: Enlarge string for internal I/O.
+
 2008-01-18  Jonathan Wakely  <jwakely.gcc@gmail.com>
 
        * gcc/testsuite/g++.dg/lookup/two-stage2.C: fix comment.

diff --git a/gcc/testsuite/gfortran.dg/large_real_kind_form_io_1.f90 b/gcc/testsuite/gfortran.dg/large_real_kind_form_io_1.f90
index c6fb76b7d1069c6073c2ace660345cbddbe053b9..3e49dc1928290c57e15ba34bc09f2495e0c002bf 100644 (file)
--- a/gcc/testsuite/gfortran.dg/large_real_kind_form_io_1.f90
+++ b/gcc/testsuite/gfortran.dg/large_real_kind_form_io_1.f90
@@ -6,7 +6,7 @@ program large_real_kind_form_io_1
   integer, parameter :: k = selected_real_kind (precision (0.0_8) + 1)
   real(kind=k) :: a,b(2), c, eps
   complex(kind=k) :: d, e, f(2), g
-  character(len=180) :: tmp
+  character(len=200) :: tmp
   ! Test real(k) scalar and array formatted IO
   eps = 10 * spacing (2.0_k) ! 10 ulp precision is enough.
   b(:) = 2.0_k

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 11b798f9b7388e32d9ec183a6ddb222c9e37f84c..3a81decfc8e4e85060433ddc30ecc868362a4a5b 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2008-01-18  Tobias Burnus  <burnus@net-b.de>
+
+       * io/write.c (write_real): Increase default precision
+       for REAL(16) by one.
+
 2008-01-16  Steven Bosscher  <steven@gcc.gnu.org>
 
        PR libfortran/34669

diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c
index 84b695fa883bd09e3e20e97572585fe9846dd0e3..d1a3d7ad828b3f4b5fc4fdceb0cda98057d300ea 100644 (file)
--- a/libgfortran/io/write.c
+++ b/libgfortran/io/write.c
@@ -713,8 +713,8 @@ write_real (st_parameter_dt *dtp, const char *source, int length)
       f.u.real.e = 4;
       break;
     case 16:
-      f.u.real.w = 43;
-      f.u.real.d = 34;
+      f.u.real.w = 44;
+      f.u.real.d = 35;
       f.u.real.e = 4;
       break;
     default: