procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

PR 48488 Fix comments

Browse source 
From-SVN: r173169
This commit is contained in:
Janne Blomqvist 2011-04-29 18:58:20 +03:00
parent f4c31037a2
commit d785f6a394
2 changed files with 16 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
libgfortran/ChangeLog
View file

@ -1,3 +1,8 @@
2011-04-29 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/48488
* io/write.c (write_real, write_real_g0): Update comments.
2011-04-29 Jerry DeLisle <jvdelisle@gcc.gnu.org>
Janne Blomqvist <jb@gcc.gnu.org>

15
libgfortran/io/write.c
View file

@ -1456,10 +1456,15 @@ set_fnode_default (st_parameter_dt *dtp, fnode *f, int length)
break;
}
}
/* Output a real number with default format.
This is 1PG14.7E2 for REAL(4), 1PG23.15E3 for REAL(8),
1PG28.19E4 for REAL(10) and 1PG43.34E4 for REAL(16). */
// FX -- FIXME: should we change the default format for __float128-real(16)?
/* Output a real number with default format. This is 1PG16.9E2 for
REAL(4), 1PG25.17E3 for REAL(8), 1PG30.21E4 for REAL(10) and
1PG45.36E4 for REAL(16). The exception is that the Fortran standard
requires outputting an extra digit when the scale factor is 1 and
when the magnitude of the value is such that E editing is
used. However, gfortran compensates for this, and thus for list
formatted the same number of significant digits is generated both
when using F and E editing. */
void
write_real (st_parameter_dt *dtp, const char *source, int length)
@ -1472,6 +1477,8 @@ write_real (st_parameter_dt *dtp, const char *source, int length)
dtp->u.p.scale_factor = org_scale;
}
/* Similar to list formatted REAL output, for kPG0 where k > 0 we
compensate for the extra digit. */
void
write_real_g0 (st_parameter_dt *dtp, const char *source, int length, int d)