Remove commented out debug printf:s

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@185444 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def
index 7882c90..07437f0 100644 (file)
--- a/libgfortran/io/write_float.def
+++ b/libgfortran/io/write_float.def
@@ -186,7 +186,6 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
          nbefore--;
          ndigits--;
        }
-      //printf("nbefore: %d, digits: %s\n", nbefore, digits);
       if (p != 0)
        {
          if (p > 0)
@@ -200,7 +199,6 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
                nafter = 0;
              nafter = d;
              nzero = nzero_real = 0;
-             //printf("digits: %s\n", digits);
            }
          else /* p < 0  */
            {
@@ -237,7 +235,6 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
       if (dtp->u.p.current_unit->round_status != ROUND_UNSPECIFIED
          && dtp->u.p.current_unit->round_status != ROUND_PROCDEFINED)
        memmove (digits + nbefore, digits + nbefore + 1, ndigits - nbefore);
-      //printf("nbefore after p handling: %d, digits: %s\n", nbefore, digits);
       break;
 
     case FMT_E:
@@ -344,7 +341,6 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
        /* Round compatible unless there is a tie. A tie is a 5 with
           all trailing zero's.  */
        i = nafter + nbefore;
-       //printf("I = %d, digits = %s, nbefore = %d\n", i, digits, nbefore);
        if (digits[i] == '5')
          {
            for(i++ ; i < ndigits; i++)
@@ -404,7 +400,6 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
   else if (nbefore + nafter < ndigits)
     {
       i = ndigits = nbefore + nafter;
-      //printf("i: %d, digits: %s, nbefore: %d, nafter: %d\n", i, digits, nbefore, nafter);
       if (digits[i] >= rchar)
        {
          /* Propagate the carry.  */