diff options
| author | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-16 20:17:04 +0000 |
|---|---|---|
| committer | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-05-16 20:17:04 +0000 |
| commit | a2557d6434df9f5d4602c931488b0e96458bd628 (patch) | |
| tree | fbe01f6d077690a4c808299e3bedb0ae885cfb39 | |
| parent | 313b6b03d4e139eb1b7b4748b9e59b6ad702e0d2 (diff) | |
| download | gcc-a2557d6434df9f5d4602c931488b0e96458bd628.tar.gz | |
* io/format.c (write_real): Don't include padding in format.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@81922 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | libgfortran/ChangeLog | 4 | ||||
| -rw-r--r-- | libgfortran/io/write.c | 7 |
2 files changed, 7 insertions, 4 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 2b897dd81d7..46126647fc4 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,5 +1,9 @@ 2004-05-16 Paul Brook <paul@codesourcery.com> + * io/format.c (write_real): Don't include padding in format. + +2004-05-16 Paul Brook <paul@codesourcery.com> + * io/format.c (format_lex): Make c an int. 2004-05-16 Janne Blomqvist <jblomqvi@cc.hut.fi> diff --git a/libgfortran/io/write.c b/libgfortran/io/write.c index 8e5a3204d86..0719f88ff1d 100644 --- a/libgfortran/io/write.c +++ b/libgfortran/io/write.c @@ -986,8 +986,7 @@ write_character (const char *source, int length) /* Output the Real number with default format. - According to DEC fortran LRM, default format for - REAL(4) is 1PG15.7E2, and for REAL(8) is 1PG25.15E3 */ + REAL(4) is 1PG14.7E2, and REAL(8) is 1PG23.15E3 */ static void write_real (const char *source, int length) @@ -998,13 +997,13 @@ write_real (const char *source, int length) g.scale_factor = 1; if (length < 8) { - f.u.real.w = 15; + f.u.real.w = 14; f.u.real.d = 7; f.u.real.e = 2; } else { - f.u.real.w = 24; + f.u.real.w = 23; f.u.real.d = 15; f.u.real.e = 3; } |