diff options
author | enge <enge@211d60ee-9f03-0410-a15a-8952a2c7a4e4> | 2008-12-08 18:31:21 +0000 |
---|---|---|
committer | enge <enge@211d60ee-9f03-0410-a15a-8952a2c7a4e4> | 2008-12-08 18:31:21 +0000 |
commit | d1e5e840f5ee9f3c472a3142141e22afa2bb8fb2 (patch) | |
tree | b2b095e50d421b1ee5d7119716db4e551ad97390 /tests/tcosh.c | |
parent | 79aefabea7f3fb6160b7f5f3a58f3c81323e0e94 (diff) | |
download | mpc-d1e5e840f5ee9f3c472a3142141e22afa2bb8fb2.tar.gz |
added return value to cosh
included check53 for cosh into the data file
git-svn-id: svn://scm.gforge.inria.fr/svn/mpc/trunk@386 211d60ee-9f03-0410-a15a-8952a2c7a4e4
Diffstat (limited to 'tests/tcosh.c')
-rw-r--r-- | tests/tcosh.c | 28 |
1 files changed, 1 insertions, 27 deletions
diff --git a/tests/tcosh.c b/tests/tcosh.c index b14e3c3..3e757e2 100644 --- a/tests/tcosh.c +++ b/tests/tcosh.c @@ -129,35 +129,10 @@ pure_imaginary_argument (void) mpc_clear (u); } -static void -check_53 (void) -{ - mpc_t z; - mpc_t cosh_z; - mpc_t c; - - mpc_init2 (z, 53); - mpc_init2 (cosh_z, 53); - mpc_init2 (c, 53); - - /* cosh(z) is near (1+2^(-53)) *(0.5+i) */ - mpfr_set_str (MPC_RE (z), "1DA2E1BD2C9EBCp-53", 16, GMP_RNDN); - mpfr_set_str (MPC_IM (z), "138AADEA15829Fp-52", 16, GMP_RNDN); - mpfr_set_str (MPC_RE (c), "10000000000001p-53", 16, GMP_RNDN); - mpfr_set_str (MPC_IM (c), "10000000000001p-52", 16, GMP_RNDN); - mpc_cosh (cosh_z, z, MPC_RNDNN); - if (mpc_cmp (cosh_z, c) != 0) - test_failed (z, cosh_z, c); - - mpc_clear (c); - mpc_clear (cosh_z); - mpc_clear (z); -} - int main (void) { - DECL_FUNC(V_CC, f,mpc_cosh); + DECL_FUNC(CC, f,mpc_cosh); test_start (); @@ -166,7 +141,6 @@ main (void) pure_real_argument (); pure_imaginary_argument (); - check_53 (); test_end (); |