diff options
| author | Tobias Burnus <burnus@net-b.de> | 2008-01-18 22:43:08 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2008-01-18 22:43:08 +0100 |
| commit | 810143349de3834a6b52455b209da75e3f0db9ca (patch) | |
| tree | 487f6e05907279cf6ec7a24142558c5e458691ea /gcc | |
| parent | a4c2b85784e5b8d22181218c9737dbef8f0f6de3 (diff) | |
| download | gcc-810143349de3834a6b52455b209da75e3f0db9ca.zip gcc-810143349de3834a6b52455b209da75e3f0db9ca.tar.gz gcc-810143349de3834a6b52455b209da75e3f0db9ca.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/large_real_kind_form_io_1.f90 | 2 |
2 files changed, 5 insertions, 1 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 <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 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 |