diff options
author | thevenyp <thevenyp@211d60ee-9f03-0410-a15a-8952a2c7a4e4> | 2009-03-17 17:23:41 +0000 |
---|---|---|
committer | thevenyp <thevenyp@211d60ee-9f03-0410-a15a-8952a2c7a4e4> | 2009-03-17 17:23:41 +0000 |
commit | 960f02dc3261c73558e179af2d0be839a75aa885 (patch) | |
tree | c4a9e61ccc5c6e4577f7c9a619813ddea86b8f76 /tests/tmul_i.c | |
parent | 07f353af30b60f3adf1aa55418a1fa185b937b07 (diff) | |
download | mpc-960f02dc3261c73558e179af2d0be839a75aa885.tar.gz |
Modify #include chain so as to support DLL creation on Cygwin
git-svn-id: svn://scm.gforge.inria.fr/svn/mpc/trunk@457 211d60ee-9f03-0410-a15a-8952a2c7a4e4
Diffstat (limited to 'tests/tmul_i.c')
-rw-r--r-- | tests/tmul_i.c | 195 |
1 files changed, 97 insertions, 98 deletions
diff --git a/tests/tmul_i.c b/tests/tmul_i.c index e72d901..9fb4797 100644 --- a/tests/tmul_i.c +++ b/tests/tmul_i.c @@ -1,98 +1,97 @@ -/* tmul_i -- test file for mpc_mul_i. - -Copyright (C) 2008 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" -#include "mpc-impl.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;
+}
|