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

libgfortran/ChangeLog

+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

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 != ' ')
 	{