diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-01-18 21:43:08 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-01-18 21:43:08 +0000 |
| commit | 42ffbc56203d144e61e5106fc9a90bb571773b02 (patch) | |
| tree | 487f6e05907279cf6ec7a24142558c5e458691ea /libgfortran | |
| parent | 00f5ac71af3a4fd88749daea8c03b459d5506b5c (diff) | |
| download | gcc-42ffbc56203d144e61e5106fc9a90bb571773b02.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131639 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/write.c | 4 |
2 files changed, 7 insertions, 2 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 11b798f9b73..3a81decfc8e 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -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 diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 84b695fa883..d1a3d7ad828 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: |