FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR libfortran/35862 ([F2003] Implement new rounding modes for run time)

Browse source 
2009-10-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/35862
	* write_float.def (outout_float): Fix handling of special case where no
	digits after the decimal point and values less than 1.0. Adjust index
	into digits string. (WRITE_FLOAT): Remove special case code from macro.

From-SVN: r152483
This commit is contained in:
Jerry DeLisle 2009-10-06 03:08:20 +00:00
parent 1c8afa72df
commit 0e8fc1857d
2 changed files with 16 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
libgfortran/ChangeLog
View file

@ -1,3 +1,10 @@
2009-10-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/35862
* write_float.def (outout_float): Fix handling of special case where no
digits after the decimal point and values less than 1.0. Adjust index
into digits string. (WRITE_FLOAT): Remove special case code from macro.
2009-09-28 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2009-09-28 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/35862 PR libgfortran/35862

19
libgfortran/io/write_float.def
View file

@ -141,6 +141,13 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
switch (ft) switch (ft)
{ {
case FMT_F: case FMT_F:
if (d == 0 && e <= 0 && dtp->u.p.scale_factor == 0)
{
memmove (digits + 1, digits, ndigits - 1);
digits[0] = '0';
e++;
}
nbefore = e + dtp->u.p.scale_factor; nbefore = e + dtp->u.p.scale_factor;
if (nbefore < 0) if (nbefore < 0)
{ {
@ -255,7 +262,7 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
case ROUND_NEAREST: case ROUND_NEAREST:
/* Round compatible unless there is a tie. A tie is a 5 with /* Round compatible unless there is a tie. A tie is a 5 with
all trailing zero's. */ all trailing zero's. */
i = nafter + 1; i = nafter + nbefore;
if (digits[i] == '5') if (digits[i] == '5')
{ {
for(i++ ; i < ndigits; i++) for(i++ ; i < ndigits; i++)
@ -264,7 +271,7 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
goto do_rnd; goto do_rnd;
} }
/* It is a tie so round to even. */ /* It is a tie so round to even. */
switch (digits[nafter]) switch (digits[nafter + nbefore - 1])
{ {
case '1': case '1':
case '3': case '3':
@ -818,14 +825,6 @@ sprintf (buffer, "%+-#" STR(MIN_FIELD_WIDTH) ".*" \
return;\ return;\
}\ }\
tmp = sign_bit ? -tmp : tmp;\ tmp = sign_bit ? -tmp : tmp;\
if (f->u.real.d == 0 && f->format == FMT_F\
&& dtp->u.p.scale_factor == 0)\
{\
if (tmp < 0.5)\
tmp = 0.0;\
else if (tmp < 1.0)\
tmp = 1.0;\
}\
zero_flag = (tmp == 0.0);\ zero_flag = (tmp == 0.0);\
\ \
DTOA ## y\ DTOA ## y\