write.c (output_float): Fix typo in condition.

libgfortran/
* io/write.c (output_float): Fix typo in condition.

gcc/testsuite/
* gfortran.dg/e_d_fmt.f90: New test.

From-SVN: r95615

gcc/testsuite/ChangeLog

+2005-02-27  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	* gfortran.dg/e_d_fmt.f90: New test.
+
 2005-02-27  Kazu Hirata  <kazu@cs.umass.edu>
 
 	* gcc.dg/asm-b.c: Fix comment typos.

gcc/testsuite/gfortran.dg/e_d_fmt.f90

+! { dg-do run }
+! Verify that the D format uses 'D' as the exponent character.
+!   "     "    "  E   "     "   'E' "   "     "         " 
+CHARACTER*10 c1, c2
+REAL*8 r
+r = 1.0
+write(c1,"(e9.2)") r
+write(c2,"(d9.2)") r
+
+if (trim(adjustl(c1)) .ne. "0.10E+01") call abort()
+if (trim(adjustl(c2)) .ne. "0.10D+01") call abort()
+
+END

libgfortran/ChangeLog

+2004-02-27  Tobias Schl"uter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	* io/write.c (output_float): Fix typo in condition.
+
 2005-02-25  Peter O'Gorman  <peter@pogman.com>
             Toon Moene  <toon@moene.indiv.nluug.nl>
 

libgfortran/io/write.c

@@ -395,7 +395,7 @@ output_float (fnode *f, double value, int len)
 	  nafter = d;
 	}
 
-      if (ft = FMT_E)
+      if (ft == FMT_E)
 	expchar = 'E';
       else
 	expchar = 'D';