diff options
Diffstat (limited to 'tests/tcoth.c')
-rw-r--r-- | tests/tcoth.c | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/tests/tcoth.c b/tests/tcoth.c index be2373bd5..5ab4ee204 100644 --- a/tests/tcoth.c +++ b/tests/tcoth.c @@ -37,7 +37,7 @@ check_specials (void) mpfr_init2 (y, 123L); mpfr_set_nan (x); - mpfr_coth (y, x, GMP_RNDN); + mpfr_coth (y, x, MPFR_RNDN); if (! mpfr_nan_p (y)) { printf ("Error: coth(NaN) != NaN\n"); @@ -45,7 +45,7 @@ check_specials (void) } mpfr_set_inf (x, 1); - mpfr_coth (y, x, GMP_RNDN); + mpfr_coth (y, x, MPFR_RNDN); if (mpfr_cmp_ui (y, 1)) { printf ("Error: coth(Inf) != 1\n"); @@ -53,7 +53,7 @@ check_specials (void) } mpfr_set_inf (x, -1); - mpfr_coth (y, x, GMP_RNDN); + mpfr_coth (y, x, MPFR_RNDN); if (mpfr_cmp_si (y, -1)) { printf ("Error: coth(-Inf) != -1\n"); @@ -61,15 +61,15 @@ check_specials (void) } /* cot(+/-0) = +/-0 */ - mpfr_set_ui (x, 0, GMP_RNDN); - mpfr_coth (y, x, GMP_RNDN); + mpfr_set_ui (x, 0, MPFR_RNDN); + mpfr_coth (y, x, MPFR_RNDN); if (! (mpfr_zero_p (y) && MPFR_SIGN (y) > 0)) { printf ("Error: coth(+0) != +0\n"); exit (1); } - mpfr_neg (x, x, GMP_RNDN); - mpfr_coth (y, x, GMP_RNDN); + mpfr_neg (x, x, MPFR_RNDN); + mpfr_coth (y, x, MPFR_RNDN); if (! (mpfr_zero_p (y) && MPFR_SIGN (y) < 0)) { printf ("Error: coth(-0) != -0\n"); @@ -89,9 +89,9 @@ check_bugs (void) mpfr_init (y); /* bug found by Rob (Sisyphus) on 16 Sep 2005 */ - mpfr_set_ui (x, 2, GMP_RNDN); + mpfr_set_ui (x, 2, MPFR_RNDN); mpfr_set_prec (y, 2); - mpfr_coth (y, x, GMP_RNDN); + mpfr_coth (y, x, MPFR_RNDN); if (mpfr_cmp_ui (y, 1)) { printf ("Error for coth(2), expected 1, got "); @@ -102,25 +102,25 @@ check_bugs (void) mpfr_set_prec (x, 53); mpfr_set_prec (y, 53); - mpfr_set_str (x, "18.368400284838550", 10, GMP_RNDN); - mpfr_set_str (y, "1.0000000000000002", 10, GMP_RNDN); - mpfr_coth (x, x, GMP_RNDN); + mpfr_set_str (x, "18.368400284838550", 10, MPFR_RNDN); + mpfr_set_str (y, "1.0000000000000002", 10, MPFR_RNDN); + mpfr_coth (x, x, MPFR_RNDN); if (mpfr_cmp (x, y) != 0) { printf ("Error for coth(18.368400284838550)\n"); exit (1); } - mpfr_set_str (x, "18.714973875118520", 10, GMP_RNDN); - mpfr_coth (x, x, GMP_RNDN); + mpfr_set_str (x, "18.714973875118520", 10, MPFR_RNDN); + mpfr_coth (x, x, MPFR_RNDN); if (mpfr_cmp (x, y) != 0) { printf ("Error for coth(18.714973875118520)\n"); exit (1); } - mpfr_set_str (x, "18.714973875118524", 10, GMP_RNDN); - mpfr_coth (x, x, GMP_RNDN); + mpfr_set_str (x, "18.714973875118524", 10, MPFR_RNDN); + mpfr_coth (x, x, MPFR_RNDN); if (mpfr_cmp_ui (x, 1) != 0) { printf ("Error for coth(18.714973875118524)\n"); @@ -158,11 +158,11 @@ underflowed_cothinf (void) i, mpfr_print_rnd_mode ((mp_rnd_t) rnd)); err = 1; } - mpfr_set_si (y, (i < 0 && (rnd == GMP_RNDD || rnd == GMP_RNDA)) || - (i > 0 && (rnd == GMP_RNDU || rnd == GMP_RNDA)) - ? 2 : 0, GMP_RNDN); + mpfr_set_si (y, (i < 0 && (rnd == MPFR_RNDD || rnd == MPFR_RNDA)) || + (i > 0 && (rnd == MPFR_RNDU || rnd == MPFR_RNDA)) + ? 2 : 0, MPFR_RNDN); if (i < 0) - mpfr_neg (y, y, GMP_RNDN); + mpfr_neg (y, y, MPFR_RNDN); if (! (mpfr_equal_p (x, y) && MPFR_MULT_SIGN (MPFR_SIGN (x), MPFR_SIGN (y)) > 0)) { @@ -174,16 +174,16 @@ underflowed_cothinf (void) printf (".\n"); err = 1; } - if ((rnd == GMP_RNDD || - (i > 0 && (rnd == GMP_RNDN || rnd == GMP_RNDZ))) && inex >= 0) + if ((rnd == MPFR_RNDD || + (i > 0 && (rnd == MPFR_RNDN || rnd == MPFR_RNDZ))) && inex >= 0) { printf ("Error in underflowed_cothinf (i = %d, rnd = %s):\n" " The inexact value must be negative.\n", i, mpfr_print_rnd_mode ((mp_rnd_t) rnd)); err = 1; } - if ((rnd == GMP_RNDU || - (i < 0 && (rnd == GMP_RNDN || rnd == GMP_RNDZ))) && inex <= 0) + if ((rnd == MPFR_RNDU || + (i < 0 && (rnd == MPFR_RNDN || rnd == MPFR_RNDZ))) && inex <= 0) { printf ("Error in underflowed_cothinf (i = %d, rnd = %s):\n" " The inexact value must be positive.\n", |