OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

write_float.def (output_float): Remove inadvertent test code from previous patch. 

2014-01-20  Jerry DeLisle  <jvdelisle@gcc.gnu>
	    Dominique d'Humieres  <dominiq@lps.ens.fr>

	* io/write_float.def (output_float): Remove inadvertent test
	code from previous patch.

Co-Authored-By: Dominique d'Humieres <dominiq@lps.ens.fr>

From-SVN: r206865
This commit is contained in:
Jerry DeLisle 2014-01-21 02:39:53 +00:00
parent b6c5c31b03
commit 91d45414d8
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,9 @@
2014-01-20 Jerry DeLisle <jvdelisle@gcc.gnu>
Dominique d'Humieres <dominiq@lps.ens.fr>
* io/write_float.def (output_float): Remove inadvertent test
code from previous patch.
2014-01-19 Jerry DeLisle <jvdelisle@gcc.gnu>
Dominique d'Humieres <dominiq@lps.ens.fr>

4
libgfortran/io/write_float.def
View File

@ -373,7 +373,7 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
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 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
/* 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;