tests/reuse.c - master - githubmirror/mpfr

tests/reuse.c
739 строк24 KB
Vincent Lefevre
Updated the "Contributed" lines.
02 фев 2025, 02:39
02 фев 2025, 02:39a774f60
/* Test file for in-place operations.

Copyright 2000-2025 Free Software Foundation, Inc.
Contributed by the Pascaline and Caramba projects, INRIA.

This file is part of the GNU MPFR Library.

The GNU MPFR 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 3 of the License, or (at your
option) any later version.

The GNU MPFR 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 GNU MPFR Library; see the file COPYING.LESSER.
If not, see <https://www.gnu.org/licenses/>. */

#include "mpfr-test.h"

#define DISP(s,t)                                       \
  do                                                    \
    {                                                   \
      printf (s);                                       \
      mpfr_out_str (stdout, 2, 0, t, MPFR_RNDN);        \
    }                                                   \
  while (0)

#define DISP2(s,t) do { DISP(s,t); putchar ('\n'); } while (0)

#define SPECIAL_MAX 12

static void
set_special (mpfr_ptr x, unsigned int select)
{
  MPFR_ASSERTN (select < SPECIAL_MAX);
  switch (select)
    {
    case 0:
      MPFR_SET_NAN (x);
      break;
    case 1:
      MPFR_SET_INF (x);
      MPFR_SET_POS (x);
      break;
    case 2:
      MPFR_SET_INF (x);
      MPFR_SET_NEG (x);
      break;
    case 3:
      MPFR_SET_ZERO (x);
      MPFR_SET_POS  (x);
      break;
    case 4:
      MPFR_SET_ZERO (x);
      MPFR_SET_NEG  (x);
      break;
    case 5:
      mpfr_set_str_binary (x, "1");
      break;
    case 6:
      mpfr_set_str_binary (x, "-1");
      break;
    case 7:
      mpfr_set_str_binary (x, "1e-1");
      break;
    case 8:
      mpfr_set_str_binary (x, "1e+1");
      break;
    case 9:
      mpfr_const_pi (x, MPFR_RNDN);
      break;
    case 10:
      mpfr_const_pi (x, MPFR_RNDN);
      MPFR_SET_EXP (x, MPFR_GET_EXP (x)-1);
      break;
    case 11:
      mpfr_urandomb (x, RANDS);
      if (RAND_BOOL ())
        mpfr_neg (x, x, MPFR_RNDN);
      break;
    default:
      MPFR_ASSERTN (0);
    }
}

static void
test3 (int (*testfunc)(mpfr_ptr, mpfr_srcptr, mpfr_srcptr, mpfr_rnd_t),
       const char *foo, mpfr_prec_t prec, mpfr_rnd_t rnd)
{
  mpfr_t ref1, ref2, ref3;
  mpfr_t res1;
  int i;

#ifdef MPFR_DEBUG
  printf ("checking %s\n", foo);
#endif
  mpfr_init2 (ref1, prec);
  mpfr_init2 (ref2, prec);
  mpfr_init2 (ref3, prec);
  mpfr_init2 (res1, prec);

  /* for each variable, consider each of the following 6 possibilities:
     NaN, +Infinity, -Infinity, +0, -0 or a random number */
  for (i = 0; i < SPECIAL_MAX * SPECIAL_MAX; i++)
    {
      set_special (ref2, i % SPECIAL_MAX);
      set_special (ref3, i / SPECIAL_MAX);

      /* reference call: foo(a, b, c) */
      testfunc (ref1, ref2, ref3, rnd);

      /* foo(a, a, c) */
      mpfr_set (res1, ref2, rnd); /* exact operation */
      testfunc (res1, res1, ref3, rnd);

      if (! SAME_VAL (res1, ref1))
        {
          printf ("Error for %s(a, a, c) with %s for ", foo,
                  mpfr_print_rnd_mode (rnd));
          DISP("a=", ref2); DISP2(", c=", ref3);
          printf ("expected "); mpfr_dump (ref1);
          printf ("got      "); mpfr_dump (res1);
          exit (1);
        }

      /* foo(a, b, a) */
      mpfr_set (res1, ref3, rnd);
      testfunc (res1, ref2, res1, rnd);
      if (! SAME_VAL (res1, ref1))
        {
          printf ("Error for %s(a, b, a) for ", foo);
          DISP("b=", ref2); DISP2(", a=", ref3);
          printf ("expected "); mpfr_dump (ref1);
          printf ("got      "); mpfr_dump (res1);
          exit (1);
        }

      /* foo(a, a, a) */
      mpfr_set (ref3, ref2, rnd);
      testfunc (ref1, ref2, ref3, rnd);
      mpfr_set (res1, ref2, rnd);
      testfunc (res1, res1, res1, rnd);

      if (! SAME_VAL (res1, ref1))
        {
          printf ("Error for %s(a, a, a) for ", foo);
          DISP2("a=", ref2);
          printf ("expected "); mpfr_dump (ref1);
          printf ("got      "); mpfr_dump (res1);
          exit (1);
        }
    }

  mpfr_clear (ref1);
  mpfr_clear (ref2);
  mpfr_clear (ref3);
  mpfr_clear (res1);
}

static void
test4 (int (*testfunc)(mpfr_ptr, mpfr_srcptr, mpfr_srcptr, mpfr_srcptr,
                       mpfr_rnd_t),
       const char *foo, mpfr_rnd_t rnd)
{
  mpfr_t op1, op2, op3, ref1, ref2, ref3, res1, res2, res3;
  mpfr_prec_t p[4];
  int i, j, k, inex;

#ifdef MPFR_DEBUG
  printf ("checking %s\n", foo);
#endif

  /* Testing mpfr_fms with arguments having different precisions
     is important, as some branches might be affected by an aliased
     argument z (which is negated via MPFR_TMP_INIT_NEG). And we
     also need to test these functions when the precisions are the
     same, due to potentially specific code for this case. That's
     why the precisions are chosen just below, before the loops of
     the tests. */
  for (i = 0; i < 4; i++)
    {
      /* (i%4)+1 limb(s), with a random number of trailing bits. */
      p[i] = GMP_NUMB_BITS * ((i % 4) + 1) - (randlimb () % GMP_NUMB_BITS);
      if (p[i] < MPFR_PREC_MIN)
        p[i] = MPFR_PREC_MIN;
    }

  /* for each variable, consider each of the following 6 possibilities:
     NaN, +Infinity, -Infinity, +0, -0 or a random number */

  for (i = 0; i < 4 * SPECIAL_MAX; i++)
    {
      mpfr_inits2 (p[i % 4], op1, ref1, res1, (mpfr_ptr) 0);
      set_special (op1, i / 4);

      for (j = 0; j < 4 * SPECIAL_MAX; j++)
        {
          mpfr_inits2 (p[j % 4], op2, ref2, res2, (mpfr_ptr) 0);
          set_special (op2, j / 4);

          for (k = 0; k < 4 * SPECIAL_MAX; k++)
            {
              mpfr_inits2 (p[j % 4], op3, ref3, res3, (mpfr_ptr) 0);
              set_special (op3, k / 4);

              /* foo(a, a, b, c) */
              testfunc (ref1, op1, op2, op3, rnd);
              inex = mpfr_set (res1, op1, rnd); /* exact operation */
              MPFR_ASSERTN (inex == 0);
              testfunc (res1, res1, op2, op3, rnd);

              if (! SAME_VAL (res1, ref1))
                {
                  printf ("Error for %s(a, a, b, c) for ", foo);
                  DISP("a=", op1); DISP(", b=", op2); DISP2(", c=", op3);
                  printf ("expected "); mpfr_dump (ref1);
                  printf ("got      "); mpfr_dump (res1);
                  exit (1);
                }

              /* foo(b, a, b, c) */
              testfunc (ref2, op1, op2, op3, rnd);
              inex = mpfr_set (res2, op2, rnd); /* exact operation */
              MPFR_ASSERTN (inex == 0);
              testfunc (res2, op1, res2, op3, rnd);

              if (! SAME_VAL (res2, ref2))
                {
                  printf ("Error for %s(b, a, b, c) for ", foo);
                  DISP("a=", op1); DISP(", b=", op2); DISP2(", c=", op3);
                  printf ("expected "); mpfr_dump (ref2);
                  printf ("got      "); mpfr_dump (res2);
                  exit (1);
                }

              /* foo(c, a, b, c) */
              testfunc (ref3, op1, op2, op3, rnd);
              inex = mpfr_set (res3, op3, rnd); /* exact operation */
              MPFR_ASSERTN (inex == 0);
              testfunc (res3, op1, op2, res3, rnd);

              if (! SAME_VAL (res3, ref3))
                {
                  printf ("Error for %s(c, a, b, c) for ", foo);
                  DISP("a=", op1); DISP(", b=", op2); DISP2(", c=", op3);
                  printf ("expected "); mpfr_dump (ref3);
                  printf ("got      "); mpfr_dump (res3);
                  exit (1);
                }

              /* foo(a, a, a, c) */
              if (j == 0)  /* op2 not used, test only 1 iteration of op2 */
                {
                  testfunc (ref1, op1, op1, op3, rnd);
                  inex = mpfr_set (res1, op1, rnd); /* exact operation */
                  MPFR_ASSERTN (inex == 0);
                  testfunc (res1, res1, res1, op3, rnd);
                  if (! SAME_VAL (res1, ref1))
                    {
                      printf ("Error for %s(a, a, a, c) for ", foo);
                      DISP("a=", op1); DISP(", a=", op2); DISP2(", c=", op3);
                      printf ("expected "); mpfr_dump (ref1);
                      printf ("got      "); mpfr_dump (res1);
                      exit (1);
                    }
                }

              /* foo(a, a, b, a) */
              if (k == 0)  /* op3 not used, test only 1 iteration of op3 */
                {
                  testfunc (ref1, op1, op2, op1, rnd);
                  inex = mpfr_set (res1, op1, rnd); /* exact operation */
                  MPFR_ASSERTN (inex == 0);
                  testfunc (res1, res1, op2, res1, rnd);
                  if (! SAME_VAL (res1, ref1))
                    {
                      printf ("Error for %s(a, a, b, a) for ", foo);
                      DISP("a=", op1); DISP(", a=", op2); DISP2(", c=", op3);
                      printf ("expected "); mpfr_dump (ref1);
                      printf ("got      "); mpfr_dump (res1);
                      exit (1);
                    }
                }

              /* foo(b, a, b, b) */
              if (k == 0)  /* op3 not used, test only 1 iteration of op3 */
                {
                  testfunc (ref2, op1, op2, op2, rnd);
                  inex = mpfr_set (res2, op2, rnd); /* exact operation */
                  MPFR_ASSERTN (inex == 0);
                  testfunc (res2, op1, res2, res2, rnd);
                  if (! SAME_VAL (res2, ref2))
                    {
                      printf ("Error for %s(b, a, b, b) for ", foo);
                      DISP("a=", op1); DISP(", a=", op2); DISP2(", c=", op3);
                      printf ("expected "); mpfr_dump (ref2);
                      printf ("got      "); mpfr_dump (res2);
                      exit (1);
                    }
                }

              /* foo (a, a, a, a) */
              if (j == 0 && k == 0)  /* op2 and op3 not used */
                {
                  testfunc (ref1, op1, op1, op1, rnd);
                  inex = mpfr_set (res1, op1, rnd); /* exact operation */
                  MPFR_ASSERTN (inex == 0);
                  testfunc (res1, res1, res1, res1, rnd);
                  if (! SAME_VAL (res1, ref1))
                    {
                      printf ("Error for %s(a, a, a, a) for ", foo);
                      DISP2("a=", op1);
                      printf ("expected "); mpfr_dump (ref1);
                      printf ("got      "); mpfr_dump (res1);
                      exit (1);
                    }
                }

              mpfr_clears (op3, ref3, res3, (mpfr_ptr) 0);
            }
          mpfr_clears (op2, ref2, res2, (mpfr_ptr) 0);
        }
      mpfr_clears (op1, ref1, res1, (mpfr_ptr) 0);
    }
}

static void
test2ui (int (*testfunc)(mpfr_ptr, mpfr_srcptr, unsigned long int, mpfr_rnd_t),
         const char *foo, mpfr_prec_t prec, mpfr_rnd_t rnd)
{
  mpfr_t ref1, ref2;
  unsigned int ref3;
  mpfr_t res1;
  int i;

#ifdef MPFR_DEBUG
  printf ("checking %s\n", foo);
#endif
  mpfr_init2 (ref1, prec);
  mpfr_init2 (ref2, prec);
  mpfr_init2 (res1, prec);

  /* ref2 can be NaN, +Inf, -Inf, +0, -0 or any number
     ref3 can be 0 or any number */
  for (i = 0; i < SPECIAL_MAX * 2; i++)
    {
      set_special (ref2, i % SPECIAL_MAX);
      ref3 = i / SPECIAL_MAX == 0 ? 0 : randlimb ();

      /* reference call: foo(a, b, c) */
      testfunc (ref1, ref2, ref3, rnd);

      /* foo(a, a, c) */
      mpfr_set (res1, ref2, rnd); /* exact operation */
      testfunc (res1, res1, ref3, rnd);

      if (! SAME_VAL (res1, ref1))
        {
          printf ("Error for %s(a, a, c) for c=%u\n", foo, ref3);
          DISP2("a=", ref2);
          printf ("expected "); mpfr_dump (ref1);
          printf ("got      "); mpfr_dump (res1);
          exit (1);
        }
    }

  mpfr_clear (ref1);
  mpfr_clear (ref2);
  mpfr_clear (res1);
}

static void
testui2 (int (*testfunc)(mpfr_ptr, unsigned long int, mpfr_srcptr, mpfr_rnd_t),
         const char *foo, mpfr_prec_t prec, mpfr_rnd_t rnd)
{
  mpfr_t ref1, ref3;
  unsigned int ref2;
  mpfr_t res1;
  int i;

#ifdef MPFR_DEBUG
  printf ("checking %s\n", foo);
#endif
  mpfr_init2 (ref1, prec);
  mpfr_init2 (ref3, prec);
  mpfr_init2 (res1, prec);

  for (i = 0; i < SPECIAL_MAX * 2; i++)
    {
      set_special (ref3, i % SPECIAL_MAX);
      ref2 = i / SPECIAL_MAX == 0 ? 0 : randlimb ();

      /* reference call: foo(a, b, c) */
      testfunc (ref1, ref2, ref3, rnd);

      /* foo(a, b, a) */
      mpfr_set (res1, ref3, rnd); /* exact operation */
      testfunc (res1, ref2, res1, rnd);
      if (! SAME_VAL (res1, ref1))
        {
          printf ("Error for %s(a, b, a) for b=%u \n", foo, ref2);
          DISP2("a=", ref3);
          DISP("expected", ref1); DISP2(", got ", res1);
          exit (1);
        }
    }

  mpfr_clear (ref1);
  mpfr_clear (ref3);
  mpfr_clear (res1);
}

/* foo(mpfr_ptr, mpfr_srcptr, mp_rndt) */
static void
test2 (int (*testfunc)(mpfr_ptr, mpfr_srcptr, mpfr_rnd_t),
       const char *foo, mpfr_prec_t prec, mpfr_rnd_t rnd)
{
  mpfr_t ref1, ref2;
  mpfr_t res1;
  int i;

#ifdef MPFR_DEBUG
  printf ("checking %s\n", foo);
#endif
  mpfr_init2 (ref1, prec);
  mpfr_init2 (ref2, prec);
  mpfr_init2 (res1, prec);

  for (i = 0; i < SPECIAL_MAX; i++)
    {
      set_special (ref2, i);

      /* reference call: foo(a, b) */
      testfunc (ref1, ref2, rnd);

      /* foo(a, a) */
      mpfr_set (res1, ref2, rnd); /* exact operation */
      testfunc (res1, res1, rnd);
      if (! SAME_VAL (res1, ref1))
        {
          printf ("Error for %s(a, a) for ", foo);
          DISP2("a=", ref2);
          DISP("expected", ref1); DISP2(", got ", res1);
          exit (1);
        }
    }

  mpfr_clear (ref1);
  mpfr_clear (ref2);
  mpfr_clear (res1);
}

/* foo(mpfr_ptr, mpfr_srcptr) */
static void
test2a (int (*testfunc)(mpfr_ptr, mpfr_srcptr),
        const char *foo, mpfr_prec_t prec)
{
  mpfr_t ref1, ref2;
  mpfr_t res1;
  int i;

#ifdef MPFR_DEBUG
  printf ("checking %s\n", foo);
#endif
  mpfr_init2 (ref1, prec);
  mpfr_init2 (ref2, prec);
  mpfr_init2 (res1, prec);

  for (i = 0; i < SPECIAL_MAX; i++)
    {
      set_special (ref2, i);

      /* reference call: foo(a, b) */
      testfunc (ref1, ref2);

      /* foo(a, a) */
      mpfr_set (res1, ref2, MPFR_RNDN); /* exact operation */
      testfunc (res1, res1);
      if (! SAME_VAL (res1, ref1))
        {
          printf ("Error for %s(a, a) for ", foo);
          DISP2("a=", ref2);
          DISP("expected", ref1); DISP2(", got ", res1);
          exit (1);
        }
    }

  mpfr_clear (ref1);
  mpfr_clear (ref2);
  mpfr_clear (res1);
}

/* one operand, two results */
static void
test3a (int (*testfunc)(mpfr_ptr, mpfr_ptr, mpfr_srcptr, mpfr_rnd_t),
        const char *foo, mpfr_prec_t prec, mpfr_rnd_t rnd)
{
  mpfr_t ref1, ref2, ref3;
  mpfr_t res1, res2;
  int i;

#ifdef MPFR_DEBUG
  printf ("checking %s\n", foo);
#endif
  mpfr_init2 (ref1, prec);
  mpfr_init2 (ref2, prec);
  mpfr_init2 (ref3, prec);
  mpfr_init2 (res1, prec);
  mpfr_init2 (res2, prec);

  for (i = 0; i < SPECIAL_MAX; i++)
    {
      set_special (ref3, i);

      /* reference call: foo(a, b, c) */
      testfunc (ref1, ref2, ref3, rnd);

      /* foo(a, b, a) */
      mpfr_set (res1, ref3, rnd); /* exact operation */
      testfunc (res1, res2, res1, rnd);
      if (! SAME_VAL (res1, ref1) || ! SAME_VAL (res2, ref2))
        {
          printf ("Error for %s(a, b, a) for rnd=%s, ", foo,
                  mpfr_print_rnd_mode (rnd));
          DISP2("a=", ref3);
          DISP("expected (", ref1); DISP(",", ref2);
          DISP("), got (", res1); DISP(",", res2); printf(")\n");
          exit (1);
        }

      /* foo(a, b, b) */
      mpfr_set (res2, ref3, rnd); /* exact operation */
      testfunc (res1, res2, res2, rnd);
      if (! SAME_VAL (res1, ref1) || ! SAME_VAL (res2, ref2))
        {
          printf ("Error for %s(a, b, b) for ", foo);
          DISP2("b=", ref3);
          DISP("expected (", ref1); DISP(",", ref2);
          DISP("), got (", res1); DISP(",", res2); printf(")\n");
          exit (1);
        }
    }

  mpfr_clear (ref1);
  mpfr_clear (ref2);
  mpfr_clear (ref3);
  mpfr_clear (res1);
  mpfr_clear (res2);
}

static int
reldiff_wrapper (mpfr_ptr a, mpfr_srcptr b, mpfr_srcptr c, mpfr_rnd_t rnd_mode)
{
  mpfr_reldiff (a, b, c, rnd_mode);
  return 0;
}

static void
pow_int (mpfr_rnd_t rnd)
{
  mpfr_t ref1, ref2, ref3;
  mpfr_t res1;
  int i;

#ifdef MPFR_DEBUG
  printf ("pow_int\n");
#endif
  mpfr_inits2 ((randlimb () % 200) + MPFR_PREC_MIN,
               ref1, ref2, res1, (mpfr_ptr) 0);
  mpfr_init2 (ref3, 1005);

  for (i = 0; i <= 15; i++)
    {
      mpfr_urandomb (ref2, RANDS);
      if (i & 1)
        mpfr_neg (ref2, ref2, MPFR_RNDN);
      mpfr_set_ui (ref3, 20, MPFR_RNDN);
      /* We need to test huge integers because different algorithms/codes
         are used for not-too-large integers (mpfr_pow_z) and for general
         cases, in particular huge integers (mpfr_pow_general). [r7606] */
      if (i & 2)
        mpfr_mul_2ui (ref3, ref3, 1000, MPFR_RNDN);
      if (i & 4)
        mpfr_add_ui (ref3, ref3, 1, MPFR_RNDN);  /* odd integer */

      /* reference call: pow(a, b, c) */
      mpfr_pow (ref1, ref2, ref3, rnd);

      /* pow(a, a, c) */
      mpfr_set (res1, ref2, rnd); /* exact operation */
      mpfr_pow (res1, res1, ref3, rnd);

      if (! SAME_VAL (res1, ref1))
        {
          printf ("Error for pow_int(a, a, c) for ");
          DISP("a=", ref2); DISP2(", c=", ref3);
          printf ("expected "); mpfr_dump (ref1);
          printf ("got      "); mpfr_dump (res1);
          exit (1);
        }
    }

  mpfr_clears (ref1, ref2, ref3, res1, (mpfr_ptr) 0);
}

int
main (void)
{
  int i, rnd;
  mpfr_prec_t p;

  tests_start_mpfr ();

  RND_LOOP (rnd)
    {
      for (i = 1; i <= 5; i++)
        {
          /* Test on i limb(s), with a random number of trailing bits. */
          p = GMP_NUMB_BITS * i - (randlimb () % GMP_NUMB_BITS);
          if (p < MPFR_PREC_MIN)
            p = MPFR_PREC_MIN;

          test2a (mpfr_round, "mpfr_round", p);
          test2a (mpfr_ceil, "mpfr_ceil", p);
          test2a (mpfr_floor, "mpfr_floor", p);
          test2a (mpfr_trunc, "mpfr_trunc", p);

          test2ui (mpfr_add_ui, "mpfr_add_ui", p, (mpfr_rnd_t) rnd);
          test2ui (mpfr_div_2exp, "mpfr_div_2exp", p, (mpfr_rnd_t) rnd);
          test2ui (mpfr_div_2ui, "mpfr_div_2ui", p, (mpfr_rnd_t) rnd);
          test2ui (mpfr_div_ui, "mpfr_div_ui", p, (mpfr_rnd_t) rnd);
          test2ui (mpfr_mul_2exp, "mpfr_mul_2exp", p, (mpfr_rnd_t) rnd);
          test2ui (mpfr_mul_2ui, "mpfr_mul_2ui", p, (mpfr_rnd_t) rnd);
          test2ui (mpfr_mul_ui, "mpfr_mul_ui", p, (mpfr_rnd_t) rnd);
          test2ui (mpfr_pow_ui, "mpfr_pow_ui", p, (mpfr_rnd_t) rnd);
          test2ui (mpfr_sub_ui, "mpfr_sub_ui", p, (mpfr_rnd_t) rnd);

          testui2 (mpfr_ui_div, "mpfr_ui_div", p, (mpfr_rnd_t) rnd);
          testui2 (mpfr_ui_sub, "mpfr_ui_sub", p, (mpfr_rnd_t) rnd);
          testui2 (mpfr_ui_pow, "mpfr_ui_pow", p, (mpfr_rnd_t) rnd);

          test2 (mpfr_sqr, "mpfr_sqr", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_sqrt, "mpfr_sqrt", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_abs, "mpfr_abs", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_neg, "mpfr_neg", p, (mpfr_rnd_t) rnd);

          test2 (mpfr_log, "mpfr_log", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_log2, "mpfr_log2", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_log10, "mpfr_log10", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_log1p, "mpfr_log1p", p, (mpfr_rnd_t) rnd);

          test2 (mpfr_exp, "mpfr_exp", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_exp2, "mpfr_exp2", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_exp10, "mpfr_exp10", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_expm1, "mpfr_expm1", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_eint, "mpfr_eint", p, (mpfr_rnd_t) rnd);

          test2 (mpfr_sinh, "mpfr_sinh", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_cosh, "mpfr_cosh", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_tanh, "mpfr_tanh", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_asinh, "mpfr_asinh", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_acosh, "mpfr_acosh", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_atanh, "mpfr_atanh", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_sech, "mpfr_sech", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_csch, "mpfr_csch", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_coth, "mpfr_coth", p, (mpfr_rnd_t) rnd);

          test2 (mpfr_asin, "mpfr_asin", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_acos, "mpfr_acos", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_atan, "mpfr_atan", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_cos, "mpfr_cos", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_sin, "mpfr_sin", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_tan, "mpfr_tan", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_sec, "mpfr_sec", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_csc, "mpfr_csc", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_cot, "mpfr_cot", p, (mpfr_rnd_t) rnd);

          test2 (mpfr_erf,  "mpfr_erf",  p, (mpfr_rnd_t) rnd);
          test2 (mpfr_erfc, "mpfr_erfc", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_j0,   "mpfr_j0",   p, (mpfr_rnd_t) rnd);
          test2 (mpfr_j1,   "mpfr_j1",   p, (mpfr_rnd_t) rnd);
          test2 (mpfr_y0,   "mpfr_y0",   p, (mpfr_rnd_t) rnd);
          test2 (mpfr_y1,   "mpfr_y1",   p, (mpfr_rnd_t) rnd);
          test2 (mpfr_zeta, "mpfr_zeta", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_gamma, "mpfr_gamma", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_lngamma, "mpfr_lngamma", p, (mpfr_rnd_t) rnd);

          test2 (mpfr_rint, "mpfr_rint", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_rint_ceil, "mpfr_rint_ceil", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_rint_floor, "mpfr_rint_floor", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_rint_round, "mpfr_rint_round", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_rint_trunc, "mpfr_rint_trunc", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_frac, "mpfr_frac", p, (mpfr_rnd_t) rnd);

          test3 (mpfr_add, "mpfr_add", p, (mpfr_rnd_t) rnd);
          test3 (mpfr_sub, "mpfr_sub", p, (mpfr_rnd_t) rnd);
          /* the following will generate a call to mpn_mul_n with
             identical arguments */
          test3 (mpfr_mul, "mpfr_mul", p, (mpfr_rnd_t) rnd);
          test3 (mpfr_div, "mpfr_div", p, (mpfr_rnd_t) rnd);

          test3 (mpfr_agm, "mpfr_agm", p, (mpfr_rnd_t) rnd);
          test3 (mpfr_min, "mpfr_min", p, (mpfr_rnd_t) rnd);
          test3 (mpfr_max, "mpfr_max", p, (mpfr_rnd_t) rnd);

          test3 (reldiff_wrapper, "mpfr_reldiff", p, (mpfr_rnd_t) rnd);
          test3 (mpfr_dim, "mpfr_dim", p, (mpfr_rnd_t) rnd);

          test3 (mpfr_remainder, "mpfr_remainder", p, (mpfr_rnd_t) rnd);
          test3 (mpfr_pow, "mpfr_pow", p, (mpfr_rnd_t) rnd);
          pow_int ((mpfr_rnd_t) rnd);
          test3 (mpfr_atan2, "mpfr_atan2", p, (mpfr_rnd_t) rnd);
          test3 (mpfr_hypot, "mpfr_hypot", p, (mpfr_rnd_t) rnd);

          test3a (mpfr_sin_cos, "mpfr_sin_cos", p, (mpfr_rnd_t) rnd);

          test2 (mpfr_li2, "mpfr_li2",  p, (mpfr_rnd_t) rnd);
          test2 (mpfr_rec_sqrt, "mpfr_rec_sqrt",  p, (mpfr_rnd_t) rnd);
          test3 (mpfr_fmod, "mpfr_fmod", p, (mpfr_rnd_t) rnd);
          test3a (mpfr_modf, "mpfr_modf", p, (mpfr_rnd_t) rnd);
          test3a (mpfr_sinh_cosh, "mpfr_sinh_cosh", p, (mpfr_rnd_t) rnd);

#if MPFR_VERSION >= MPFR_VERSION_NUM(3,0,0)
          test2 (mpfr_ai, "mpfr_ai", p, (mpfr_rnd_t) rnd);
          test2 (mpfr_digamma, "mpfr_digamma", p, (mpfr_rnd_t) rnd);
#endif
        }

      test4 (mpfr_fma, "mpfr_fma", (mpfr_rnd_t) rnd);
      test4 (mpfr_fms, "mpfr_fms", (mpfr_rnd_t) rnd);
    }

  tests_end_mpfr ();
  return 0;
}