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

re PR fortran/38285 (Wrong I/O output: Interaction between F and P for output)

Browse Source 
2008-12-04  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/38285
	* write_float.def (WRITE_FLOAT): Zero the float value for special case
	only if	scale_factor = 0.

From-SVN: r142455
This commit is contained in:
Jerry DeLisle 2008-12-05 04:07:45 +00:00
parent cd8235c00e
commit e318b7602b
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libgfortran/ChangeLog
View File

@ -1,3 +1,9 @@
2008-12-04 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/38285
* write_float.def (WRITE_FLOAT): Zero the float value for special case
only if scale_factor = 0.
2008-11-23 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/38234

3
libgfortran/io/write_float.def
View File

@ -760,7 +760,8 @@ sprintf (buffer, "%+-#" STR(MIN_FIELD_WIDTH) ".*" \
return;\
}\
tmp = sign_bit ? -tmp : tmp;\
if (f->u.real.d == 0 && f->format == FMT_F)\
if (f->u.real.d == 0 && f->format == FMT_F\
&& dtp->u.p.scale_factor == 0)\
{\
if (tmp < 0.5)\
tmp = 0.0;\