git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

PR libfortran/52608 Move the removal of initial zeros. 

2012-03-17  Janne Blomqvist  <jb@gcc.gnu.org>

	PR libfortran/52608
	* io/write_float.def (output_float): Move removal of initial zeros
	until after the scale factor has been applied.

From-SVN: r185486
This commit is contained in:
Janne Blomqvist 2012-03-17 19:19:49 +02:00
parent 4dc86aa8aa
commit 789ebabf1d
2 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2012-03-17 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/52608
* io/write_float.def (output_float): Move removal of initial zeros
until after the scale factor has been applied.
2012-03-16 Janne Blomqvist <jb@gcc.gnu.org> 2012-03-16 Janne Blomqvist <jb@gcc.gnu.org>
* io/unix.h (struct stream): Rename to stream_vtable. * io/unix.h (struct stream): Rename to stream_vtable.

13
libgfortran/io/write_float.def
View File

@ -180,12 +180,6 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
/* Make sure the decimal point is a '.'; depending on the /* Make sure the decimal point is a '.'; depending on the
locale, this might not be the case otherwise. */ locale, this might not be the case otherwise. */
digits[nbefore] = '.'; digits[nbefore] = '.';
if (digits[0] == '0' && nbefore == 1)
{
digits++;
nbefore--;
ndigits--;
}
if (p != 0) if (p != 0)
{ {
if (p > 0) if (p > 0)
@ -229,6 +223,13 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
nafter = d; nafter = d;
} }
while (digits[0] == '0' && nbefore > 0)
{
digits++;
nbefore--;
ndigits--;
}
expchar = 0; expchar = 0;
/* If we need to do rounding ourselves, get rid of the dot by /* If we need to do rounding ourselves, get rid of the dot by
moving the fractional part. */ moving the fractional part. */