From eee5a9ff84bb1c033d1233b1bbde73aca98df5cd Mon Sep 17 00:00:00 2001
From: fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sun, 5 Feb 2006 23:04:07 +0000
Subject: [PATCH] PR libfortran/24685
* io/write.c (write_real): Widen the default format for real(10)
variables output.
* gfortran.dg/large_real_kind_form_io_2.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@110627 138bc75d-0d04-0410-961f-82ee72b054a4
---
gcc/testsuite/ChangeLog | 5 +++
.../gfortran.dg/large_real_kind_form_io_2.f90 | 33 +++++++++++++++++++
libgfortran/ChangeLog | 6 ++++
libgfortran/io/write.c | 4 +--
4 files changed, 46 insertions(+), 2 deletions(-)
create mode 100644 gcc/testsuite/gfortran.dg/large_real_kind_form_io_2.f90
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d21d5a778b70..34202b710436 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-06 Francois-Xavier Coudert <coudert@clipper.ens.fr>
+
+ PR libfortran/24685
+ * gfortran.dg/large_real_kind_form_io_2.f90: New test.
+
2006-02-05 Andrew Pinski <pinskia@physics.uc.edu>
PR tree-opt/25251
diff --git a/gcc/testsuite/gfortran.dg/large_real_kind_form_io_2.f90 b/gcc/testsuite/gfortran.dg/large_real_kind_form_io_2.f90
new file mode 100644
index 000000000000..d48e3d57d487
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/large_real_kind_form_io_2.f90
@@ -0,0 +1,33 @@
+! { dg-do run }
+! { dg-require-effective-target fortran_large_real }
+! PR libfortran/24685
+program large_real_kind_form_io_2
+ ! This should be 10 or 16 on systems that support kind=10 or kind=16
+ integer, parameter :: k = selected_real_kind (precision (0.0_8) + 1)
+ real(kind=k) :: a,b(2), c
+ character(len=180) :: tmp
+
+ b(:) = huge(0.0_k)
+ write (tmp, *) b
+ read (tmp, *) a, c
+ if (a /= b(1)) call abort ()
+ if (c /= b(2)) call abort ()
+
+ b(:) = -huge(0.0_k)
+ write (tmp, *) b
+ read (tmp, *) a, c
+ if (a /= b(1)) call abort ()
+ if (c /= b(2)) call abort ()
+
+ b(:) = tiny(0.0_k)
+ write (tmp, *) b
+ read (tmp, *) a, c
+ if (a /= b(1)) call abort ()
+ if (c /= b(2)) call abort ()
+
+ b(:) = -tiny(0.0_k)
+ write (tmp, *) b
+ read (tmp, *) a, c
+ if (a /= b(1)) call abort ()
+ if (c /= b(2)) call abort ()
+end program large_real_kind_form_io_2
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 04d68f0b0c17..ef4db4f60be7 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2006-02-06 Francois-Xavier Coudert <coudert@clipper.ens.fr>
+
+ PR libfortran/24685
+ * io/write.c (write_real): Widen the default format for real(10)
+ variables output.
+
2006-01-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25835
diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c
index d6323f4a695b..d7ce6c56807d 100644
--- a/libgfortran/io/write.c
+++ b/libgfortran/io/write.c
@@ -1373,8 +1373,8 @@ write_real (st_parameter_dt *dtp, const char *source, int length)
f.u.real.e = 3;
break;
case 10:
- f.u.real.w = 24;
- f.u.real.d = 15;
+ f.u.real.w = 28;
+ f.u.real.d = 19;
f.u.real.e = 4;
break;
case 16:
--
GitLab