From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Tue, 10 Feb 2015 02:49:58 +0000 (+0000)
Subject: re PR fortran/57822 (I/O: "(g0)" wrongly prints "E+0000")
X-Git-Tag: releases/gcc-5.1.0~1047
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=94ce26f1b70ae1c06ef6ec71537e5b3495a49dd0;p=thirdparty%2Fgcc.git

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

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
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index d3b8f8f6e48e..61de246a1497 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -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>
 
 	PR libgfortran/60956
diff --git a/libgfortran/io/write_float.def b/libgfortran/io/write_float.def
index 1bcd8159a220..434c3dfd0698 100644
--- a/libgfortran/io/write_float.def
+++ b/libgfortran/io/write_float.def
@@ -724,7 +724,7 @@ output_float (st_parameter_dt *dtp, const fnode *f, char *buffer, size_t size,
     }
 
   /* Output the exponent.  */
-  if (expchar)
+  if (expchar && !(dtp->u.p.g0_no_blanks && e == 0))
     {
       if (expchar != ' ')
 	{