mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-11-27 22:03:57 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

re PR libfortran/48589 (Invalid G0/G0.d editing for NaN/infinity)

Browse Source 
2011-04-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/48589
	* io/write_float.def (write_infnan): Set width properly for G0.

From-SVN: r172502
This commit is contained in:
Jerry DeLisle 2011-04-15 16:29:44 +00:00
parent b3b66298b8
commit 0b0a0c945f
2 changed files with 8 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,8 @@
2011-04-15 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/48589
* io/write_float.def (write_infnan): Set width properly for G0.
2011-04-15 Tobias Burnus <burnus@net-b.de>
PR fortran/18918
@ -15,6 +20,7 @@
* intrinsics/system_clock.c: Use weakrefs only when needed and
supported.
>>>>>>> .r172501
2011-04-12 Janne Blomqvist <jb@gcc.gnu.org>
* configure.ac: Use AC_TYPE_* to make sure we have (u)intptr_t,

4
libgfortran/io/write_float.def
View File

@ -654,11 +654,11 @@ write_infnan (st_parameter_dt *dtp, const fnode *f, int isnan_flag, int sign_bit
mark = (sign == S_PLUS || sign == S_MINUS) ? 8 : 7;
nb = f->u.real.w;
/* If the field width is zero, the processor must select a width
not zero. 4 is chosen to allow output of '-Inf' or '+Inf' */
if (nb == 0)
if ((nb == 0) || dtp->u.p.g0_no_blanks)
{
if (isnan_flag)
nb = 3;