arith.c (arith_power): Use mpc_pow_z.

	* arith.c (arith_power): Use mpc_pow_z.
	* gfortran.h (HAVE_mpc_pow_z): Define.

From-SVN: r152544

gcc/fortran/ChangeLog

+2009-10-07  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+	* arith.c (arith_power): Use mpc_pow_z.
+	* gfortran.h (HAVE_mpc_pow_z): Define.
+
 2009-10-07  Daniel Kraft  <d@domob.eu>
 
 	PR fortran/41615

gcc/fortran/arith.c

@@ -1111,7 +1111,10 @@ arith_power (gfc_expr *op1, gfc_expr *op2, gfc_expr **resultp)
 
 	    case BT_COMPLEX:
 	      {
-#ifdef HAVE_mpc_pow
+#ifdef HAVE_mpc_pow_z
+		mpc_pow_z (result->value.complex, op1->value.complex,
+			   op2->value.integer, GFC_MPC_RND_MODE);
+#elif defined(HAVE_mpc_pow)
 		mpc_t apower;
 		gfc_set_model (mpc_realref (op1->value.complex));
 		mpc_init2 (apower, mpfr_get_default_prec());

gcc/fortran/gfortran.h

@@ -1629,6 +1629,7 @@ gfc_class_esym_list;
 # endif
 # if MPC_VERSION >= MPC_VERSION_NUM(0,7,1)
 #  define HAVE_mpc_arc
+#  define HAVE_mpc_pow_z
 # endif
 #else
 #define mpc_realref(X) ((X).r)