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 /libgfortran/io/write.c | |
| 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 'libgfortran/io/write.c')
| -rw-r--r-- | libgfortran/io/write.c | 4 |
1 files changed, 2 insertions, 2 deletions
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: |