re PR middle-end/32935 (internal compiler error: in emit_move_insn, at expr.c:3316)

2007-08-03  Andrew Pinski  <andrew_pinski@playstation.sony.com>
 
        PR middle-end/32935
        * fold-convert.c (fold_negate_expr <NOP_EXPR>): Convert back to the 
         correct type the negate expression.

2007-08-03  Andrew Pinski  <andrew_pinski@playstation.sony.com>

        PR middle-end/32935
        * gfortran.fortran-torture/compile/complex_1.f90: New test.

From-SVN: r127190

gcc/ChangeLog

+2007-08-03  Andrew Pinski  <andrew_pinski@playstation.sony.com>
+
+	PR middle-end/32935
+	* fold-convert.c (fold_negate_expr <NOP_EXPR>): Convert back to the
+	 correct type the negate expression.
+
 2007-08-03  Jan Hubicka  <jh@suse.cz>
 
 	* i386.c (setup_incoming_varargs_64): Tolerate 64bit preferred

gcc/fold-const.c

@@ -1382,7 +1382,7 @@ fold_negate_expr (tree t)
 	{
 	  tem = strip_float_extensions (t);
 	  if (tem != t && negate_expr_p (tem))
-	    return negate_expr (tem);
+	    return fold_convert (type, negate_expr (tem));
 	}
       break;
 

gcc/testsuite/ChangeLog

+2007-08-03  Andrew Pinski  <andrew_pinski@playstation.sony.com>
+
+	PR middle-end/32935
+	* gfortran.fortran-torture/compile/complex_1.f90: New test.
+
 2007-08-03  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
 	PR fortran/32955

gcc/testsuite/gfortran.fortran-torture/compile/complex_1.f90

+program test_gfortran2
+ Complex(8) :: g, zh
+ Real(8)    :: g_q
+ g =   zh - zh/cmplx(0.0_8,-g_q)
+end