/* tmul_i -- test file for mpc_mul_i.
-Copyright (C) 2008, 2009, 2010, 2011 INRIA
+Copyright (C) 2008, 2009 Philippe Theveny
-This file is part of GNU MPC.
+This file is part of the MPC Library.
-GNU MPC is free software; you can redistribute it and/or modify it under
-the terms of the GNU Lesser General Public License as published by the
-Free Software Foundation; either version 3 of the License, or (at your
+The MPC Library is free software; you can redistribute it and/or modify
+it under the terms of the GNU Lesser General Public License as published by
+the Free Software Foundation; either version 2.1 of the License, or (at your
option) any later version.
-GNU MPC is distributed in the hope that it will be useful, but WITHOUT ANY
-WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
-FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for
-more details.
+The MPC Library is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
+License for more details.
You should have received a copy of the GNU Lesser General Public License
-along with this program. If not, see http://www.gnu.org/licenses/ .
-*/
+along with the MPC Library; see the file COPYING.LIB. If not, write to
+the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+MA 02111-1307, USA. */
#include "mpc-tests.h"
static void
-check_different_precisions(void)
+check_different_precisions()
{
/* check reuse when real and imaginary part have different precisions. */
- mpc_t z, expected, got;
+ mpc_t z, expected, got;
int res;
mpc_init2(z, 128);
mpc_init2(got, 128);
/* change precision of one part */
- mpfr_set_prec (mpc_imagref (z), 32);
- mpfr_set_prec (mpc_imagref (expected), 32);
- mpfr_set_prec (mpc_imagref (got), 32);
+ mpfr_set_prec (MPC_IM (z), 32);
+ mpfr_set_prec (MPC_IM (expected), 32);
+ mpfr_set_prec (MPC_IM (got), 32);
- mpfr_set_str (mpc_realref (z), "0x100000000fp-32", 16, GMP_RNDN);
- mpfr_set_str (mpc_imagref (z), "-1", 2, GMP_RNDN);
- mpfr_set_str (mpc_realref (expected), "+1", 2, GMP_RNDN);
- mpfr_set_str (mpc_imagref (expected), "0x100000000fp-32", 16, GMP_RNDN);
+ mpfr_set_str (MPC_RE (z), "0x100000000fp-32", 16, GMP_RNDN);
+ mpfr_set_str (MPC_IM (z), "-1", 2, GMP_RNDN);
+ mpfr_set_str (MPC_RE (expected), "+1", 2, GMP_RNDN);
+ mpfr_set_str (MPC_IM (expected), "0x100000000fp-32", 16, GMP_RNDN);
mpc_set (got, z, MPC_RNDNN);
res = mpc_mul_i (got, got, +1, MPC_RNDNN);
if (mpc_cmp(got, expected) != 0)
{
printf ("Error for mpc_mul_i(z, z, n) for\n");
- MPC_OUT (z);
+ OUT (z);
printf ("n=+1\n");
- MPC_OUT (expected);
- MPC_OUT (got);
+ OUT (expected);
+ OUT (got);
exit (1);
}
if (mpc_cmp(got, expected) != 0)
{
printf ("Error for mpc_mul_i(z, z, n) for\n");
- MPC_OUT (z);
+ OUT (z);
printf ("n=-1\n");
- MPC_OUT (expected);
- MPC_OUT (got);
+ OUT (expected);
+ OUT (got);
exit (1);
}