diff mbox

[libgfortran] Some minor fix-ups committed

Message ID 52DDE070.80905@charter.net
State New
Headers show

Commit Message

Jerry DeLisle Jan. 21, 2014, 2:50 a.m. UTC
I have committed for Dominiq some followup minor cleanup.



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
diff mbox

Patch

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;