diff options
author | thevenyp <thevenyp@211d60ee-9f03-0410-a15a-8952a2c7a4e4> | 2009-03-17 17:50:22 +0000 |
---|---|---|
committer | thevenyp <thevenyp@211d60ee-9f03-0410-a15a-8952a2c7a4e4> | 2009-03-17 17:50:22 +0000 |
commit | aa5cf4f74446601e854f3841a0aab74e9fa229f5 (patch) | |
tree | cd05037f157f0df5b14c0c45873128960d3c8be2 /tests/tmul_i.c | |
parent | 9dd0f23159d01367a93776126415607fd52decd9 (diff) | |
download | mpc-aa5cf4f74446601e854f3841a0aab74e9fa229f5.tar.gz |
revert to UNIX format (r457 changed every file to DOS format).
git-svn-id: svn://scm.gforge.inria.fr/svn/mpc/trunk@459 211d60ee-9f03-0410-a15a-8952a2c7a4e4
Diffstat (limited to 'tests/tmul_i.c')
-rw-r--r-- | tests/tmul_i.c | 194 |
1 files changed, 97 insertions, 97 deletions
diff --git a/tests/tmul_i.c b/tests/tmul_i.c index 9fb4797..26834b1 100644 --- a/tests/tmul_i.c +++ b/tests/tmul_i.c @@ -1,97 +1,97 @@ -/* tmul_i -- test file for mpc_mul_i.
-
-Copyright (C) 2008, 2009 Philippe Theveny
-
-This file is part of the MPC Library.
-
-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.
-
-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 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()
-{
- /* check reuse when real and imaginary part have different precisions. */
- mpc_t z, expected, got;
- int res;
-
- mpc_init2(z, 128);
- mpc_init2(expected, 128);
- mpc_init2(got, 128);
-
- /* change precision of one part */
- 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_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_INEX_RE(res) != 0 || MPC_INEX_IM(res) >=0)
- {
- printf("Wrong inexact flag for mpc_mul_i(z, z, n)\n"
- " got (re=%2d, im=%2d)\nexpected (re= 0, im=-1)\n",
- MPC_INEX_RE(res), MPC_INEX_IM(res));
- exit(1);
- }
- if (mpc_cmp(got, expected) != 0)
- {
- printf ("Error for mpc_mul_i(z, z, n) for\n");
- OUT (z);
- printf ("n=+1\n");
- OUT (expected);
- OUT (got);
-
- exit (1);
- }
-
- mpc_neg (expected, expected, MPC_RNDNN);
- mpc_set (got, z, MPC_RNDNN);
- 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");
- OUT (z);
- printf ("n=-1\n");
- OUT (expected);
- OUT (got);
-
- exit (1);
- }
-
- mpc_clear (z);
- mpc_clear (expected);
- mpc_clear (got);
-}
-
-int
-main (void)
-{
- DECL_FUNC (CCI, f, mpc_mul_i);
-
- test_start ();
-
- check_different_precisions ();
- tgeneric (f, 2, 1024, 7, -1);
-
- test_end ();
-
- return 0;
-}
+/* tmul_i -- test file for mpc_mul_i. + +Copyright (C) 2008, 2009 Philippe Theveny + +This file is part of the MPC Library. + +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. + +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 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() +{ + /* check reuse when real and imaginary part have different precisions. */ + mpc_t z, expected, got; + int res; + + mpc_init2(z, 128); + mpc_init2(expected, 128); + mpc_init2(got, 128); + + /* change precision of one part */ + 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_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_INEX_RE(res) != 0 || MPC_INEX_IM(res) >=0) + { + printf("Wrong inexact flag for mpc_mul_i(z, z, n)\n" + " got (re=%2d, im=%2d)\nexpected (re= 0, im=-1)\n", + MPC_INEX_RE(res), MPC_INEX_IM(res)); + exit(1); + } + if (mpc_cmp(got, expected) != 0) + { + printf ("Error for mpc_mul_i(z, z, n) for\n"); + OUT (z); + printf ("n=+1\n"); + OUT (expected); + OUT (got); + + exit (1); + } + + mpc_neg (expected, expected, MPC_RNDNN); + mpc_set (got, z, MPC_RNDNN); + 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"); + OUT (z); + printf ("n=-1\n"); + OUT (expected); + OUT (got); + + exit (1); + } + + mpc_clear (z); + mpc_clear (expected); + mpc_clear (got); +} + +int +main (void) +{ + DECL_FUNC (CCI, f, mpc_mul_i); + + test_start (); + + check_different_precisions (); + tgeneric (f, 2, 1024, 7, -1); + + test_end (); + + return 0; +} |