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

re PR fortran/57822 (I/O: "(g0)" wrongly prints "E+0000")

Browse Source 
2015-02-09  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/57822
	* io/write_float.def (output_float): If doing g0 editing and
	exponent is zero, do not emit exponent.

From-SVN: r220564
This commit is contained in:
Jerry DeLisle 2015-02-10 02:49:58 +00:00
parent 940652d50f
commit 94ce26f1b7
2 changed files with 7 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 @@
2015-02-09 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/57822
* io/write_float.def (output_float): If doing g0 editing and
exponent is zero, do not emit exponent.
2015-02-07 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2015-02-07 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/60956 PR libgfortran/60956

2
libgfortran/io/write_float.def
View File

@ -724,7 +724,7 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
} }
/* Output the exponent. */ /* Output the exponent. */
if (expchar) if (expchar && !(dtp->u.p.g0_no_blanks && e == 0))
{ {
if (expchar != ' ') if (expchar != ' ')
{ {