Message ID | 77487ad6-1434-28aa-ad4f-dd25e44ac86f@bell.net |
---|---|
State | New |
Headers | show |
Series | [committed] Fix PR libgfortran/79540 | expand |
Index: io/write_float.def =================================================================== --- io/write_float.def (revision 269890) +++ io/write_float.def (working copy) @@ -620,7 +620,7 @@ } /* Set digits after the decimal point, padding with zeros. */ - if (nafter > 0) + if (ndigits >= 0 && nafter > 0) { if (nafter > ndigits) i = ndigits; @@ -627,7 +627,8 @@ else i = nafter; - memcpy (put, digits, i); + if (i > 0) + memcpy (put, digits, i); while (i < nafter) put[i++] = '0';