* io/format.c (write_real): Don't include padding in format.
From-SVN: r81922
This commit is contained in:
parent
9152dcf43e
commit
6d3e9d8454
|
@ -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>
|
2004-05-16 Paul Brook <paul@codesourcery.com>
|
||||||
|
|
||||||
* io/format.c (format_lex): Make c an int.
|
* io/format.c (format_lex): Make c an int.
|
||||||
|
|
|
@ -986,8 +986,7 @@ write_character (const char *source, int length)
|
||||||
|
|
||||||
|
|
||||||
/* Output the Real number with default format.
|
/* Output the Real number with default format.
|
||||||
According to DEC fortran LRM, default format for
|
REAL(4) is 1PG14.7E2, and REAL(8) is 1PG23.15E3 */
|
||||||
REAL(4) is 1PG15.7E2, and for REAL(8) is 1PG25.15E3 */
|
|
||||||
|
|
||||||
static void
|
static void
|
||||||
write_real (const char *source, int length)
|
write_real (const char *source, int length)
|
||||||
|
@ -998,13 +997,13 @@ write_real (const char *source, int length)
|
||||||
g.scale_factor = 1;
|
g.scale_factor = 1;
|
||||||
if (length < 8)
|
if (length < 8)
|
||||||
{
|
{
|
||||||
f.u.real.w = 15;
|
f.u.real.w = 14;
|
||||||
f.u.real.d = 7;
|
f.u.real.d = 7;
|
||||||
f.u.real.e = 2;
|
f.u.real.e = 2;
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
f.u.real.w = 24;
|
f.u.real.w = 23;
|
||||||
f.u.real.d = 15;
|
f.u.real.d = 15;
|
||||||
f.u.real.e = 3;
|
f.u.real.e = 3;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue