diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-10-02 23:27:51 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-10-02 23:27:51 +0000 |
| commit | 3b294b67663b62f2b6a447fd501ed2ad7141222d (patch) | |
| tree | 767bdfcddd456c6be1acfc00b498e2be8ecea53f /libgfortran | |
| parent | 8ed30379d0bd9df6c86a2487c8df3511a0624471 (diff) | |
| download | ppe42-gcc-3b294b67663b62f2b6a447fd501ed2ad7141222d.tar.gz ppe42-gcc-3b294b67663b62f2b6a447fd501ed2ad7141222d.zip | |
PR libfortran/33469
* io/write.c (write_real): Widen the default formats.
* gfortran.dg/default_format_1.f90: New test.
* gfortran.dg/default_format_2.f90: New test.
* gfortran.dg/namelist_print_1.f: Adjust expected output.
* gfortran.dg/real_const_3.f90: Adjust expected output.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@128967 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/write.c | 12 |
2 files changed, 11 insertions, 6 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index aaa37a4a503..7392997e2af 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2007-10-02 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR fortran/33469 + * io/write.c (write_real): Widen the default formats. + 2007-09-28 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libfortran/33400 diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 4792a222b9a..84b695fa883 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -698,18 +698,18 @@ write_real (st_parameter_dt *dtp, const char *source, int length) switch (length) { case 4: - f.u.real.w = 14; - f.u.real.d = 7; + f.u.real.w = 15; + f.u.real.d = 8; f.u.real.e = 2; break; case 8: - f.u.real.w = 23; - f.u.real.d = 15; + f.u.real.w = 25; + f.u.real.d = 17; f.u.real.e = 3; break; case 10: - f.u.real.w = 28; - f.u.real.d = 19; + f.u.real.w = 29; + f.u.real.d = 20; f.u.real.e = 4; break; case 16: |
