OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

write.c (write_real): Increase default precision for

Browse Source 
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
This commit is contained in:
Tobias Burnus 2008-01-18 22:43:08 +01:00 committed by Tobias Burnus
parent a4c2b85784
commit 810143349d
4 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -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.

2
gcc/testsuite/gfortran.dg/large_real_kind_form_io_1.f90
View File

@ -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

5
libgfortran/ChangeLog
View File

@ -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

4
libgfortran/io/write.c
View File

@ -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: