From 42ffbc56203d144e61e5106fc9a90bb571773b02 Mon Sep 17 00:00:00 2001 From: burnus Date: Fri, 18 Jan 2008 21:43:08 +0000 Subject: [PATCH] 2008-01-18 Tobias Burnus * io/write.c (write_real): Increase default precision for * REAL(16) by one. 2008-01-18 Tobias Burnus * gfortran.dg/large_real_kind_form_io_1.f90: Enlarge string for * internal I/O. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131639 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.dg/large_real_kind_form_io_1.f90 | 2 +- libgfortran/ChangeLog | 5 +++++ libgfortran/io/write.c | 4 ++-- 4 files changed, 12 insertions(+), 3 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 87212ee..592c509 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2008-01-18 Tobias Burnus + + * gfortran.dg/large_real_kind_form_io_1.f90: Enlarge string for internal I/O. + 2008-01-18 Jonathan Wakely * 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 c6fb76b..3e49dc1 100644 --- 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 11b798f..3a81dec 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2008-01-18 Tobias Burnus + + * io/write.c (write_real): Increase default precision + for REAL(16) by one. + 2008-01-16 Steven Bosscher PR libfortran/34669 diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 84b695f..d1a3d7a 100644 --- 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: -- 2.7.4