arith.c (gfc_arith_power): Complex number raised to 0 power is 1.

2004-05-17  Steve Kargl  <kargls@comcast.net>

* arith.c (gfc_arith_power): Complex number raised to 0 power is 1.

From-SVN: r81959

gcc/fortran/ChangeLog

 2004-05-17  Steve Kargl  <kargls@comcast.net>
 
+	* arith.c (gfc_arith_power): Complex number raised to 0 power is 1.
+
+2004-05-17  Steve Kargl  <kargls@comcast.net>
+
 	* arith.c (gfc_real2complex): Range checking wrong part of complex
         number. 
 	

gcc/fortran/arith.c

@@ -1584,7 +1584,7 @@ gfc_arith_power (gfc_expr * op1, gfc_expr * op2, gfc_expr ** resultp)
 	  else
 	    {
 	      mpf_set_ui (result->value.complex.r, 1);
-	      mpf_set_ui (result->value.complex.r, 0);
+	      mpf_set_ui (result->value.complex.i, 0);
 	    }
 
 	  break;