OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

arith.c (arith_power): Use mpc_pow_z.

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

From-SVN: r152544
This commit is contained in:
Kaveh R. Ghazi 2009-10-07 23:40:25 +00:00 committed by Kaveh Ghazi
parent 4bedf19ae7
commit 2d5a82c1df
3 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

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

5
gcc/fortran/arith.c
View File

@ -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());

1
gcc/fortran/gfortran.h
View File

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