From: Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
Date: Wed, 7 Oct 2009 23:40:25 +0000 (+0000)
Subject: arith.c (arith_power): Use mpc_pow_z.
X-Git-Tag: releases/gcc-4.5.0~3047
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=2d5a82c1df296140d489f6afa339c902a6c718c4;p=thirdparty%2Fgcc.git

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
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5035c1b7d575..9fac2a773226 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+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
diff --git a/gcc/fortran/arith.c b/gcc/fortran/arith.c
index dddf7e003ced..82a43ad71785 100644
--- a/gcc/fortran/arith.c
+++ b/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());
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index 72f012646301..d6ad992dda7f 100644
--- a/gcc/fortran/gfortran.h
+++ b/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)