mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-04 08:40:33 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR libfortran/79540 (FAIL: gfortran.dg/fmt_fw_d.f90 -O0 execution test)

Browse Source 
PR libgfortran/79540
	* io/write_float.def (build_float_string): Don't copy digits when
	ndigits is negative.

From-SVN: r269911
This commit is contained in:
John David Anglin 2019-03-25 11:48:36 +00:00
parent a260f36938
commit b7ca376ae9
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2019-03-25 John David Anglin <danglin@gcc.gnu.org>
PR libgfortran/79540
* io/write_float.def (build_float_string): Don't copy digits when
ndigits is negative.
2019-03-05 Jakub Jelinek <jakub@redhat.com>
PR libgfortran/89593

5
libgfortran/io/write_float.def
View File

@ -620,14 +620,15 @@ build_float_string (st_parameter_dt *dtp, const fnode *f, char *buffer,
}
/* Set digits after the decimal point, padding with zeros. */
if (nafter > 0)
if (ndigits >= 0 && nafter > 0)
{
if (nafter > ndigits)
i = ndigits;
else
i = nafter;
memcpy (put, digits, i);
if (i > 0)
memcpy (put, digits, i);
while (i < nafter)
put[i++] = '0';