OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* io/format.c (write_real): Don't include padding in format. 

From-SVN: r81922
This commit is contained in:
Paul Brook 2004-05-16 20:17:04 +00:00 committed by Paul Brook
parent 9152dcf43e
commit 6d3e9d8454
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libgfortran/ChangeLog
View File

@ -1,3 +1,7 @@
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.

7
libgfortran/io/write.c
View File

@ -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;
}