diff options
author | pelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4> | 2004-03-12 13:17:53 +0000 |
---|---|---|
committer | pelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4> | 2004-03-12 13:17:53 +0000 |
commit | d6568c76d7e653f2335aee4aeeaa9f80e35d4c4f (patch) | |
tree | 4949e5f949b63e063dd7bdee69c44f83ec3d9c48 /tests | |
parent | 49fe0fbfb5609bc3cf91dece29f9b3148ea059c6 (diff) | |
download | mpfr-d6568c76d7e653f2335aee4aeeaa9f80e35d4c4f.tar.gz |
Fix bug of inexact flag for acos(0).
git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@2838 280ebfd0-de03-0410-8827-d642c229c3f4
Diffstat (limited to 'tests')
-rw-r--r-- | tests/tacos.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/tests/tacos.c b/tests/tacos.c index f566de22d..2bbe6ebbb 100644 --- a/tests/tacos.c +++ b/tests/tacos.c @@ -32,6 +32,7 @@ static void special (void) { mpfr_t x, y; + int inex1, inex2; mpfr_init2 (x, 32); mpfr_init2 (y, 32); @@ -54,6 +55,16 @@ special (void) mpfr_print_binary (y); printf ("\n"); exit (1); } + + mpfr_set_prec (x, 2); + mpfr_set_ui (x, 0, GMP_RNDN); + inex1 = mpfr_acos (x, x, GMP_RNDN); /* Pi/2 */ + inex2 = mpfr_const_pi (x, GMP_RNDN); + if (inex1 != inex2) + { + printf ("Error in mpfr_acos (3) for prec=2\n"); + exit (1); + } mpfr_clear (y); mpfr_clear (x); |