summaryrefslogtreecommitdiff
path: root/tests/tacos.c
diff options
context:
space:
mode:
authorpelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4>2004-03-12 13:17:53 +0000
committerpelissip <pelissip@280ebfd0-de03-0410-8827-d642c229c3f4>2004-03-12 13:17:53 +0000
commitd6568c76d7e653f2335aee4aeeaa9f80e35d4c4f (patch)
tree4949e5f949b63e063dd7bdee69c44f83ec3d9c48 /tests/tacos.c
parent49fe0fbfb5609bc3cf91dece29f9b3148ea059c6 (diff)
downloadmpfr-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/tacos.c')
-rw-r--r--tests/tacos.c11
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);