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
+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.
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
+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
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: