I have committed for Dominiq some followup minor cleanup.
Index: io/write_float.def
===================================================================
--- io/write_float.def (revision 206864)
+++ io/write_float.def (working copy)
@@ -373,7 +373,7 @@
updown:
rchar = '0';
- if (ft != FMT_F && nbefore == 0 && w > 0 && d == 0 && p == 0)
+ if (ft != FMT_F && w > 0 && d == 0 && p == 0)
nbefore = 1;
/* Scan for trailing zeros to see if we really need to round it. */
for(i = nbefore + nafter; i < ndigits; i++)
@@ -389,7 +389,7 @@
/* Handle the case Fw.0 and value < 1.0 */
{
ndigits = 0;
- if (nzero_real == d && digits[0] >= rchar)
+ if (digits[0] >= rchar)
{
/* We rounded to zero but shouldn't have */
nbefore = 1;
Remove some test code:
Sending ChangeLog
Sending io/write_float.def
Transmitting file data ..
Committed revision 206865.
Some more test cases:
Sending ChangeLog
Sending gfortran.dg/round_3.f08
Transmitting file data ..
Committed revision 206866.
Regards,
Jerry
