diff options
| author | Andreas Enge <andreas.enge@inria.fr> | 2012-09-19 11:17:49 +0000 |
|---|---|---|
| committer | Andreas Enge <andreas.enge@inria.fr> | 2012-09-19 11:17:49 +0000 |
| commit | 9d1fd17d4081b2a0ac2de5f1c86d1bc81427a5f9 (patch) | |
| tree | 5d9efd557b23ca31a5921219c05f41b00f9c7932 /tests/tsqr.c | |
| parent | 75e6da9bb997ede499e9e282317f0c0b3fc92bbd (diff) | |
| download | mpc-git-rootsunity.tar.gz | |
merge trunk into branch rootsunityrootsunity
git-svn-id: svn+ssh://scm.gforge.inria.fr/svnroot/mpc/branches/rootsunity@1273 211d60ee-9f03-0410-a15a-8952a2c7a4e4
Diffstat (limited to 'tests/tsqr.c')
| -rw-r--r-- | tests/tsqr.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/tsqr.c b/tests/tsqr.c index 02fea7e..2ec2099 100644 --- a/tests/tsqr.c +++ b/tests/tsqr.c @@ -1,6 +1,6 @@ /* tsqr -- test file for mpc_sqr. -Copyright (C) 2002, 2005, 2008, 2010, 2011 INRIA +Copyright (C) 2002, 2005, 2008, 2010, 2011, 2012 INRIA This file is part of GNU MPC. @@ -148,9 +148,9 @@ reuse_bug (void) /* reuse bug found by Paul Zimmermann 20081021 */ mpc_init2 (z1, 2); /* RE (z1^2) overflows, IM(z^2) = -0 */ - mpfr_set_str (mpc_realref (z1), "0.11", 2, GMP_RNDN); - mpfr_mul_2si (mpc_realref (z1), mpc_realref (z1), mpfr_get_emax (), GMP_RNDN); - mpfr_set_ui (mpc_imagref (z1), 0, GMP_RNDN); + mpfr_set_str (mpc_realref (z1), "0.11", 2, MPFR_RNDN); + mpfr_mul_2si (mpc_realref (z1), mpc_realref (z1), mpfr_get_emax (), MPFR_RNDN); + mpfr_set_ui (mpc_imagref (z1), 0, MPFR_RNDN); mpc_conj (z1, z1, MPC_RNDNN); mpc_sqr (z1, z1, MPC_RNDNN); if (!mpfr_inf_p (mpc_realref (z1)) || mpfr_signbit (mpc_realref (z1)) |