mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-25 17:16:16 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/47567 (Wrong output for small absolute values with F editing)

Browse Source 
2011-02-23  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/47567
	* io/write_float.def (output_float): Remove special case handling of
	zero with width 1.

From-SVN: r170458
This commit is contained in:
Jerry DeLisle 2011-02-24 04:52:00 +00:00
parent cd34c84360
commit 5a30f819c7
2 changed files with 6 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2011-02-23 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/47567
* io/write_float.def (output_float): Remove special case handling of
zero with width 1.
2011-02-23 Janne Blomqvist <jb@gcc.gnu.org>
Jerry DeLisle <jvdelisle@gcc.gnu.org>

19
libgfortran/io/write_float.def
View File

@ -117,25 +117,6 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
/* Handle special cases. */
if (w == 0)
w = d + (sign != S_NONE ? 2 : 1) + (d == 0 ? 1 : 0);
/* For this one we choose to not output a decimal point.
F95 10.5.1.2.1 */
if (w == 1 && ft == FMT_F)
{
out = write_block (dtp, w);
if (out == NULL)
return FAILURE;
if (unlikely (is_char4_unit (dtp)))
{
gfc_char4_t *out4 = (gfc_char4_t *) out;
*out4 = '0';
return SUCCESS;
}
*out = '0';
return SUCCESS;
}
}
/* Normalize the fractional component. */