.

[glibc/history.git] / math / test-misc.c

/* Miscellaneous tests which don't fit anywhere else.
   Copyright (C) 2000, 2001, 2004, 2005 Free Software Foundation, Inc.
   This file is part of the GNU C Library.

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

   The GNU C 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 C Library; if not, write to the Free
   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
   02111-1307 USA.  */

#include <fenv.h>
#include <float.h>
#include <ieee754.h>
#include <math.h>
#include <stdio.h>
#include <string.h>


int
main (void)
{
  int result = 0;

#ifndef NO_LONG_DOUBLE
  {
    long double x = 0x100000001ll + (long double) 0.5;
    long double q;
    long double r;

    r = modfl (x, &q);
    if (q != (long double) 0x100000001ll || r != 0.5)
      {
        printf ("modfl (%Lg, ...) failed\n", x);
        result = 1;
      }
  }

# if __GNUC__ >= 3 || __GNUC_MINOR__ >= 96
  {
    long double x;
    long double m;
    long double r;
    int e;
    int i;

#  if LDBL_MANT_DIG == 64
    m = 0xf.fffffffffffffffp-4L;
#  elif LDBL_MANT_DIG == 106
    /* This has to match the mantissa of LDBL_MAX which actually does have a
       missing bit in the middle.  */
    m = 0x1.fffffffffffff7ffffffffffff8p-1L;
#  elif LDBL_MANT_DIG == 113
    m = 0x1.ffffffffffffffffffffffffffffp-1L;
#  else
#   error "Please adjust"
#  endif

    for (i = LDBL_MAX_EXP, x = LDBL_MAX; i >= LDBL_MIN_EXP; --i, x /= 2.0L)
      {
        printf ("2^%d: ", i);

        r = frexpl (x, &e);
        if (r != m)
          {
            printf ("mantissa incorrect: %.20La\n", r);
            result = 1;
            continue;
          }
        if (e != i)
          {
            printf ("exponent wrong %d (%.20Lg)\n", e, x);
            result = 1;
            continue;
          }
        puts ("ok");
      }

    for (i = LDBL_MIN_EXP, x = LDBL_MIN; i >= LDBL_MIN_EXP - LDBL_MANT_DIG + 1;
         --i, x /= 2.0L)
      {
        printf ("2^%d: ", i);

        r = frexpl (x, &e);
        if (r != 0.5L)
          {
            printf ("mantissa incorrect: %.20La\n", r);
            result = 1;
            continue;
          }
        if (e != i)
          {
            printf ("exponent wrong %d (%.20Lg)\n", e, x);
            result = 1;
            continue;
          }
        puts ("ok");
      }

  }
# endif

#if 0
  {
    int e;
    long double r = frexpl (LDBL_MIN * LDBL_EPSILON, &e);

    if (r != 0.5)
      {
        printf ("frexpl (LDBL_MIN * LDBL_EPSILON, ...): mantissa wrong: %Lg\n",
                r);
        result = 1;
      }
    else if (e != -16444)
      {
        printf ("frexpl (LDBL_MIN * LDBL_EPSILON, ...): exponent wrong: %d\n",
                e);
        result = 1;
      }
  }
#endif
#endif

  {
    double x = 0x100000001ll + (double) 0.5;
    double q;
    double r;

    r = modf (x, &q);
    if (q != (double) 0x100000001ll || r != 0.5)
      {
        printf ("modf (%g, ...) failed\n", x);
        result = 1;
      }
  }

  {
    union ieee754_float v1;
    union ieee754_float v2;
    float f;

    v1.f = f = FLT_MIN;
    if (fpclassify (f) != FP_NORMAL)
      {
        printf ("fpclassify (FLT_MIN) failed: %d\n", fpclassify (f));
        result = 1;
      }
    f = nextafterf (f, FLT_MIN / 2.0f);
    if (fpclassify (f) != FP_SUBNORMAL)
      {
        printf ("fpclassify (FLT_MIN-epsilon) failed: %d\n", fpclassify (f));
        result = 1;
      }
    v2.f = f = nextafterf (f, FLT_MIN);
    if (fpclassify (f) != FP_NORMAL)
      {
        printf ("fpclassify (FLT_MIN-epsilon+epsilon) failed: %d\n",
                fpclassify (f));
        result = 1;
      }

    if (v1.ieee.mantissa != v2.ieee.mantissa)
      {
        printf ("FLT_MIN: mantissa differs: %8x vs %8x\n",
                v1.ieee.mantissa, v2.ieee.mantissa);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("FLT_MIN: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("FLT_MIN: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    v1.f = f = -FLT_MIN;
    if (fpclassify (f) != FP_NORMAL)
      {
        printf ("fpclassify (-FLT_MIN) failed: %d\n", fpclassify (f));
        result = 1;
      }
    f = nextafterf (f, -FLT_MIN / 2.0f);
    if (fpclassify (f) != FP_SUBNORMAL)
      {
        printf ("fpclassify (-FLT_MIN-epsilon) failed: %d\n", fpclassify (f));
        result = 1;
      }
    v2.f = f = nextafterf (f, -FLT_MIN);
    if (fpclassify (f) != FP_NORMAL)
      {
        printf ("fpclassify (-FLT_MIN-epsilon+epsilon) failed: %d\n",
                fpclassify (f));
        result = 1;
      }

    if (v1.ieee.mantissa != v2.ieee.mantissa)
      {
        printf ("-FLT_MIN: mantissa differs: %8x vs %8x\n",
                v1.ieee.mantissa, v2.ieee.mantissa);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("-FLT_MIN: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("-FLT_MIN: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    f = FLT_MAX;
    if (fpclassify (f) != FP_NORMAL)
      {
        printf ("fpclassify (FLT_MAX) failed: %d\n", fpclassify (f));
        result = 1;
      }
    f = nextafterf (f, INFINITY);
    if (fpclassify (f) != FP_INFINITE)
      {
        printf ("fpclassify (FLT_MAX+epsilon) failed: %d\n", fpclassify (f));
        result = 1;
      }

    f = -FLT_MAX;
    if (fpclassify (f) != FP_NORMAL)
      {
        printf ("fpclassify (-FLT_MAX) failed: %d\n", fpclassify (f));
        result = 1;
      }
    f = nextafterf (f, -INFINITY);
    if (fpclassify (f) != FP_INFINITE)
      {
        printf ("fpclassify (-FLT_MAX-epsilon) failed: %d\n", fpclassify (f));
        result = 1;
      }

    v1.f = f = 0.0625;
    f = nextafterf (f, 0.0);
    v2.f = f = nextafterf (f, 1.0);

    if (v1.ieee.mantissa != v2.ieee.mantissa)
      {
        printf ("0.0625f down: mantissa differs: %8x vs %8x\n",
                v1.ieee.mantissa, v2.ieee.mantissa);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("0.0625f down: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("0.0625f down: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    v1.f = f = 0.0625;
    f = nextafterf (f, 1.0);
    v2.f = f = nextafterf (f, 0.0);

    if (v1.ieee.mantissa != v2.ieee.mantissa)
      {
        printf ("0.0625f up: mantissa differs: %8x vs %8x\n",
                v1.ieee.mantissa, v2.ieee.mantissa);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("0.0625f up: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("0.0625f up: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    v1.f = f = -0.0625;
    f = nextafterf (f, 0.0);
    v2.f = f = nextafterf (f, -1.0);

    if (v1.ieee.mantissa != v2.ieee.mantissa)
      {
        printf ("-0.0625f up: mantissa differs: %8x vs %8x\n",
                v1.ieee.mantissa, v2.ieee.mantissa);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("-0.0625f up: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("-0.0625f up: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    v1.f = f = -0.0625;
    f = nextafterf (f, -1.0);
    v2.f = f = nextafterf (f, 0.0);

    if (v1.ieee.mantissa != v2.ieee.mantissa)
      {
        printf ("-0.0625f down: mantissa differs: %8x vs %8x\n",
                v1.ieee.mantissa, v2.ieee.mantissa);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("-0.0625f down: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("-0.0625f down: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    v1.f = f = 0.0f;
    f = nextafterf (f, 1.0);
    v2.f = nextafterf (f, -1.0);

    if (v1.ieee.mantissa != v2.ieee.mantissa)
      {
        printf ("0.0f up: mantissa differs: %8x vs %8x\n",
                v1.ieee.mantissa, v2.ieee.mantissa);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("0.0f up: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (0 != v2.ieee.negative)
      {
        printf ("0.0f up: negative differs: 0 vs %d\n",
                v2.ieee.negative);
        result = 1;
      }

    v1.f = f = 0.0f;
    f = nextafterf (f, -1.0);
    v2.f = nextafterf (f, 1.0);

    if (v1.ieee.mantissa != v2.ieee.mantissa)
      {
        printf ("0.0f down: mantissa differs: %8x vs %8x\n",
                v1.ieee.mantissa, v2.ieee.mantissa);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("0.0f down: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (1 != v2.ieee.negative)
      {
        printf ("0.0f down: negative differs: 1 vs %d\n",
                v2.ieee.negative);
        result = 1;
      }

    if (nextafterf (0.0f, INFINITY) != nextafterf (0.0f, 1.0f)
        || nextafterf (-0.0f, INFINITY) != nextafterf (-0.0f, 1.0f)
        || nextafterf (0.0f, -INFINITY) != nextafterf (0.0f, -1.0f)
        || nextafterf (-0.0f, -INFINITY) != nextafterf (-0.0f, -1.0f))
      {
        printf ("nextafterf (+-0, +-Inf) != nextafterf (+-0, +-1)\n");
        result = 1;
      }

    if (nexttowardf (0.0f, INFINITY) != nexttowardf (0.0f, 1.0f)
        || nexttowardf (-0.0f, INFINITY) != nexttowardf (-0.0f, 1.0f)
        || nexttowardf (0.0f, -INFINITY) != nexttowardf (0.0f, -1.0f)
        || nexttowardf (-0.0f, -INFINITY) != nexttowardf (-0.0f, -1.0f))
      {
        printf ("nexttowardf (+-0, +-Inf) != nexttowardf (+-0, +-1)\n");
        result = 1;
      }
  }

  {
    union ieee754_double v1;
    union ieee754_double v2;
    double d;

    v1.d = d = DBL_MIN;
    if (fpclassify (d) != FP_NORMAL)
      {
        printf ("fpclassify (DBL_MIN) failed: %d\n", fpclassify (d));
        result = 1;
      }
    d = nextafter (d, DBL_MIN / 2.0);
    if (fpclassify (d) != FP_SUBNORMAL)
      {
        printf ("fpclassify (DBL_MIN-epsilon) failed: %d\n", fpclassify (d));
        result = 1;
      }
    v2.d = d = nextafter (d, DBL_MIN);
    if (fpclassify (d) != FP_NORMAL)
      {
        printf ("fpclassify (DBL_MIN-epsilon+epsilon) failed: %d\n",
                fpclassify (d));
        result = 1;
      }

    if (v1.ieee.mantissa0 != v2.ieee.mantissa0)
      {
        printf ("DBL_MIN: mantissa0 differs: %8x vs %8x\n",
                v1.ieee.mantissa0, v2.ieee.mantissa0);
        result = 1;
      }
    if (v1.ieee.mantissa1 != v2.ieee.mantissa1)
      {
        printf ("DBL_MIN: mantissa1 differs: %8x vs %8x\n",
                v1.ieee.mantissa1, v2.ieee.mantissa1);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("DBL_MIN: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("DBL_MIN: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    v1.d = d = -DBL_MIN;
    if (fpclassify (d) != FP_NORMAL)
      {
        printf ("fpclassify (-DBL_MIN) failed: %d\n", fpclassify (d));
        result = 1;
      }
    d = nextafter (d, -DBL_MIN / 2.0);
    if (fpclassify (d) != FP_SUBNORMAL)
      {
        printf ("fpclassify (-DBL_MIN-epsilon) failed: %d\n", fpclassify (d));
        result = 1;
      }
    v2.d = d = nextafter (d, -DBL_MIN);
    if (fpclassify (d) != FP_NORMAL)
      {
        printf ("fpclassify (-DBL_MIN-epsilon+epsilon) failed: %d\n",
                fpclassify (d));
        result = 1;
      }

    if (v1.ieee.mantissa0 != v2.ieee.mantissa0)
      {
        printf ("-DBL_MIN: mantissa0 differs: %8x vs %8x\n",
                v1.ieee.mantissa0, v2.ieee.mantissa0);
        result = 1;
      }
    if (v1.ieee.mantissa1 != v2.ieee.mantissa1)
      {
        printf ("-DBL_MIN: mantissa1 differs: %8x vs %8x\n",
                v1.ieee.mantissa1, v2.ieee.mantissa1);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("-DBL_MIN: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("-DBL_MIN: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    d = DBL_MAX;
    if (fpclassify (d) != FP_NORMAL)
      {
        printf ("fpclassify (DBL_MAX) failed: %d\n", fpclassify (d));
        result = 1;
      }
    d = nextafter (d, INFINITY);
    if (fpclassify (d) != FP_INFINITE)
      {
        printf ("fpclassify (DBL_MAX+epsilon) failed: %d\n", fpclassify (d));
        result = 1;
      }

    d = -DBL_MAX;
    if (fpclassify (d) != FP_NORMAL)
      {
        printf ("fpclassify (-DBL_MAX) failed: %d\n", fpclassify (d));
        result = 1;
      }
    d = nextafter (d, -INFINITY);
    if (fpclassify (d) != FP_INFINITE)
      {
        printf ("fpclassify (-DBL_MAX-epsilon) failed: %d\n", fpclassify (d));
        result = 1;
      }

    v1.d = d = 0.0625;
    d = nextafter (d, 0.0);
    v2.d = d = nextafter (d, 1.0);

    if (v1.ieee.mantissa0 != v2.ieee.mantissa0)
      {
        printf ("0.0625 down: mantissa0 differs: %8x vs %8x\n",
                v1.ieee.mantissa0, v2.ieee.mantissa0);
        result = 1;
      }
    if (v1.ieee.mantissa1 != v2.ieee.mantissa1)
      {
        printf ("0.0625 down: mantissa1 differs: %8x vs %8x\n",
                v1.ieee.mantissa1, v2.ieee.mantissa1);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("0.0625 down: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("0.0625 down: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    v1.d = d = 0.0625;
    d = nextafter (d, 1.0);
    v2.d = d = nextafter (d, 0.0);

    if (v1.ieee.mantissa0 != v2.ieee.mantissa0)
      {
        printf ("0.0625 up: mantissa0 differs: %8x vs %8x\n",
                v1.ieee.mantissa0, v2.ieee.mantissa0);
        result = 1;
      }
    if (v1.ieee.mantissa1 != v2.ieee.mantissa1)
      {
        printf ("0.0625 up: mantissa1 differs: %8x vs %8x\n",
                v1.ieee.mantissa1, v2.ieee.mantissa1);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("0.0625 up: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("0.0625 up: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    v1.d = d = -0.0625;
    d = nextafter (d, 0.0);
    v2.d = d = nextafter (d, -1.0);

    if (v1.ieee.mantissa0 != v2.ieee.mantissa0)
      {
        printf ("-0.0625 up: mantissa0 differs: %8x vs %8x\n",
                v1.ieee.mantissa0, v2.ieee.mantissa0);
        result = 1;
      }
    if (v1.ieee.mantissa1 != v2.ieee.mantissa1)
      {
        printf ("-0.0625 up: mantissa1 differs: %8x vs %8x\n",
                v1.ieee.mantissa1, v2.ieee.mantissa1);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("-0.0625 up: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("-0.0625 up: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    v1.d = d = -0.0625;
    d = nextafter (d, -1.0);
    v2.d = d = nextafter (d, 0.0);

    if (v1.ieee.mantissa0 != v2.ieee.mantissa0)
      {
        printf ("-0.0625 down: mantissa0 differs: %8x vs %8x\n",
                v1.ieee.mantissa0, v2.ieee.mantissa0);
        result = 1;
      }
    if (v1.ieee.mantissa1 != v2.ieee.mantissa1)
      {
        printf ("-0.0625 down: mantissa1 differs: %8x vs %8x\n",
                v1.ieee.mantissa1, v2.ieee.mantissa1);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("-0.0625 down: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("-0.0625 down: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    v1.d = d = 0.0;
    d = nextafter (d, 1.0);
    v2.d = nextafter (d, -1.0);

    if (v1.ieee.mantissa0 != v2.ieee.mantissa0)
      {
        printf ("0.0 up: mantissa0 differs: %8x vs %8x\n",
                v1.ieee.mantissa0, v2.ieee.mantissa0);
        result = 1;
      }
    if (v1.ieee.mantissa1 != v2.ieee.mantissa1)
      {
        printf ("0.0 up: mantissa1 differs: %8x vs %8x\n",
                v1.ieee.mantissa1, v2.ieee.mantissa1);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("0.0 up: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (0 != v2.ieee.negative)
      {
        printf ("0.0 up: negative differs: 0 vs %d\n",
                v2.ieee.negative);
        result = 1;
      }

    v1.d = d = 0.0;
    d = nextafter (d, -1.0);
    v2.d = nextafter (d, 1.0);

    if (v1.ieee.mantissa0 != v2.ieee.mantissa0)
      {
        printf ("0.0 down: mantissa0 differs: %8x vs %8x\n",
                v1.ieee.mantissa0, v2.ieee.mantissa0);
        result = 1;
      }
    if (v1.ieee.mantissa1 != v2.ieee.mantissa1)
      {
        printf ("0.0 down: mantissa1 differs: %8x vs %8x\n",
                v1.ieee.mantissa1, v2.ieee.mantissa1);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("0.0 down: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (1 != v2.ieee.negative)
      {
        printf ("0.0 down: negative differs: 1 vs %d\n",
                v2.ieee.negative);
        result = 1;
      }

    if (nextafter (0.0, INFINITY) != nextafter (0.0, 1.0)
        || nextafter (-0.0, INFINITY) != nextafter (-0.0, 1.0)
        || nextafter (0.0, -INFINITY) != nextafter (0.0, -1.0)
        || nextafter (-0.0, -INFINITY) != nextafter (-0.0, -1.0))
      {
        printf ("nextafter (+-0, +-Inf) != nextafter (+-0, +-1)\n");
        result = 1;
      }

    if (nexttoward (0.0, INFINITY) != nexttoward (0.0, 1.0)
        || nexttoward (-0.0, INFINITY) != nexttoward (-0.0, 1.0)
        || nexttoward (0.0, -INFINITY) != nexttoward (0.0, -1.0)
        || nexttoward (-0.0, -INFINITY) != nexttoward (-0.0, -1.0))
      {
        printf ("nexttoward (+-0, +-Inf) != nexttoward (+-0, +-1)\n");
        result = 1;
      }
  }

#ifndef NO_LONG_DOUBLE
  {
    union ieee854_long_double v1;
    union ieee854_long_double v2;
    long double ld;

    v1.d = ld = LDBL_MIN;
    if (fpclassify (ld) != FP_NORMAL)
      {
        printf ("fpclassify (LDBL_MIN) failed: %d\n", fpclassify (ld));
        result = 1;
      }
    ld = nextafterl (ld, LDBL_MIN / 2.0);
    if (fpclassify (ld) != FP_SUBNORMAL)
      {
        printf ("fpclassify (LDBL_MIN-epsilon) failed: %d (%La)\n",
                fpclassify (ld), ld);
        result = 1;
      }
    v2.d = ld = nextafterl (ld, LDBL_MIN);
    if (fpclassify (ld) != FP_NORMAL)
      {
        printf ("fpclassify (LDBL_MIN-epsilon+epsilon) failed: %d (%La)\n",
                fpclassify (ld), ld);
        result = 1;
      }

    if (v1.ieee.mantissa0 != v2.ieee.mantissa0)
      {
        printf ("LDBL_MIN: mantissa0 differs: %8x vs %8x\n",
                v1.ieee.mantissa0, v2.ieee.mantissa0);
        result = 1;
      }
    if (v1.ieee.mantissa1 != v2.ieee.mantissa1)
      {
        printf ("LDBL_MIN: mantissa1 differs: %8x vs %8x\n",
                v1.ieee.mantissa1, v2.ieee.mantissa1);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("LDBL_MIN: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("LDBL_MIN: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    v1.d = ld = -LDBL_MIN;
    if (fpclassify (ld) != FP_NORMAL)
      {
        printf ("fpclassify (-LDBL_MIN) failed: %d\n", fpclassify (ld));
        result = 1;
      }
    ld = nextafterl (ld, -LDBL_MIN / 2.0);
    if (fpclassify (ld) != FP_SUBNORMAL)
      {
        printf ("fpclassify (-LDBL_MIN-epsilon) failed: %d (%La)\n",
                fpclassify (ld), ld);
        result = 1;
      }
    v2.d = ld = nextafterl (ld, -LDBL_MIN);
    if (fpclassify (ld) != FP_NORMAL)
      {
        printf ("fpclassify (-LDBL_MIN-epsilon+epsilon) failed: %d (%La)\n",
                fpclassify (ld), ld);
        result = 1;
      }

    if (v1.ieee.mantissa0 != v2.ieee.mantissa0)
      {
        printf ("-LDBL_MIN: mantissa0 differs: %8x vs %8x\n",
                v1.ieee.mantissa0, v2.ieee.mantissa0);
        result = 1;
      }
    if (v1.ieee.mantissa1 != v2.ieee.mantissa1)
      {
        printf ("-LDBL_MIN: mantissa1 differs: %8x vs %8x\n",
                v1.ieee.mantissa1, v2.ieee.mantissa1);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("-LDBL_MIN: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("-LDBL_MIN: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    ld = LDBL_MAX;
    if (fpclassify (ld) != FP_NORMAL)
      {
        printf ("fpclassify (LDBL_MAX) failed: %d\n", fpclassify (ld));
        result = 1;
      }
    ld = nextafterl (ld, INFINITY);
    if (fpclassify (ld) != FP_INFINITE)
      {
        printf ("fpclassify (LDBL_MAX+epsilon) failed: %d\n", fpclassify (ld));
        result = 1;
      }

    ld = -LDBL_MAX;
    if (fpclassify (ld) != FP_NORMAL)
      {
        printf ("fpclassify (-LDBL_MAX) failed: %d\n", fpclassify (ld));
        result = 1;
      }
    ld = nextafterl (ld, -INFINITY);
    if (fpclassify (ld) != FP_INFINITE)
      {
        printf ("fpclassify (-LDBL_MAX-epsilon) failed: %d\n",
                fpclassify (ld));
        result = 1;
      }

    v1.d = ld = 0.0625;
    ld = nextafterl (ld, 0.0);
    v2.d = ld = nextafterl (ld, 1.0);

    if (v1.ieee.mantissa0 != v2.ieee.mantissa0)
      {
        printf ("0.0625L down: mantissa0 differs: %8x vs %8x\n",
                v1.ieee.mantissa0, v2.ieee.mantissa0);
        result = 1;
      }
    if (v1.ieee.mantissa1 != v2.ieee.mantissa1)
      {
        printf ("0.0625L down: mantissa1 differs: %8x vs %8x\n",
                v1.ieee.mantissa1, v2.ieee.mantissa1);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("0.0625L down: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("0.0625L down: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    v1.d = ld = 0.0625;
    ld = nextafterl (ld, 1.0);
    v2.d = ld = nextafterl (ld, 0.0);

    if (v1.ieee.mantissa0 != v2.ieee.mantissa0)
      {
        printf ("0.0625L up: mantissa0 differs: %8x vs %8x\n",
                v1.ieee.mantissa0, v2.ieee.mantissa0);
        result = 1;
      }
    if (v1.ieee.mantissa1 != v2.ieee.mantissa1)
      {
        printf ("0.0625L up: mantissa1 differs: %8x vs %8x\n",
                v1.ieee.mantissa1, v2.ieee.mantissa1);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("0.0625L up: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("0.0625L up: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    v1.d = ld = -0.0625;
    ld = nextafterl (ld, 0.0);
    v2.d = ld = nextafterl (ld, -1.0);

    if (v1.ieee.mantissa0 != v2.ieee.mantissa0)
      {
        printf ("-0.0625L up: mantissa0 differs: %8x vs %8x\n",
                v1.ieee.mantissa0, v2.ieee.mantissa0);
        result = 1;
      }
    if (v1.ieee.mantissa1 != v2.ieee.mantissa1)
      {
        printf ("-0.0625L up: mantissa1 differs: %8x vs %8x\n",
                v1.ieee.mantissa1, v2.ieee.mantissa1);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("-0.0625L up: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("-0.0625L up: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    v1.d = ld = -0.0625;
    ld = nextafterl (ld, -1.0);
    v2.d = ld = nextafterl (ld, 0.0);

    if (v1.ieee.mantissa0 != v2.ieee.mantissa0)
      {
        printf ("-0.0625L down: mantissa0 differs: %8x vs %8x\n",
                v1.ieee.mantissa0, v2.ieee.mantissa0);
        result = 1;
      }
    if (v1.ieee.mantissa1 != v2.ieee.mantissa1)
      {
        printf ("-0.0625L down: mantissa1 differs: %8x vs %8x\n",
                v1.ieee.mantissa1, v2.ieee.mantissa1);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("-0.0625L down: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (v1.ieee.negative != v2.ieee.negative)
      {
        printf ("-0.0625L down: negative differs: %d vs %d\n",
                v1.ieee.negative, v2.ieee.negative);
        result = 1;
      }

    v1.d = ld = 0.0;
    ld = nextafterl (ld, 1.0);
    v2.d = nextafterl (ld, -1.0);

    if (v1.ieee.mantissa0 != v2.ieee.mantissa0)
      {
        printf ("0.0L up: mantissa0 differs: %8x vs %8x\n",
                v1.ieee.mantissa0, v2.ieee.mantissa0);
        result = 1;
      }
    if (v1.ieee.mantissa1 != v2.ieee.mantissa1)
      {
        printf ("0.0L up: mantissa1 differs: %8x vs %8x\n",
                v1.ieee.mantissa1, v2.ieee.mantissa1);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("0.0L up: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (0 != v2.ieee.negative)
      {
        printf ("0.0L up: negative differs: 0 vs %d\n",
                v2.ieee.negative);
        result = 1;
      }

    v1.d = ld = 0.0;
    ld = nextafterl (ld, -1.0);
    v2.d = nextafterl (ld, 1.0);

    if (v1.ieee.mantissa0 != v2.ieee.mantissa0)
      {
        printf ("0.0L down: mantissa0 differs: %8x vs %8x\n",
                v1.ieee.mantissa0, v2.ieee.mantissa0);
        result = 1;
      }
    if (v1.ieee.mantissa1 != v2.ieee.mantissa1)
      {
        printf ("0.0L down: mantissa1 differs: %8x vs %8x\n",
                v1.ieee.mantissa1, v2.ieee.mantissa1);
        result = 1;
      }
    if (v1.ieee.exponent != v2.ieee.exponent)
      {
        printf ("0.0L down: exponent differs: %4x vs %4x\n",
                v1.ieee.exponent, v2.ieee.exponent);
        result = 1;
      }
    if (1 != v2.ieee.negative)
      {
        printf ("0.0L down: negative differs: 1 vs %d\n",
                v2.ieee.negative);
        result = 1;
      }

    if (nextafterl (0.0, INFINITY) != nextafterl (0.0, 1.0)
        || nextafterl (-0.0, INFINITY) != nextafterl (-0.0, 1.0)
        || nextafterl (0.0, -INFINITY) != nextafterl (0.0, -1.0)
        || nextafterl (-0.0, -INFINITY) != nextafterl (-0.0, -1.0))
      {
        printf ("nextafterl (+-0, +-Inf) != nextafterl (+-0, +-1)\n");
        result = 1;
      }

    if (nexttowardl (0.0L, INFINITY) != nexttowardl (0.0L, 1.0L)
        || nexttowardl (-0.0L, INFINITY) != nexttowardl (-0.0L, 1.0L)
        || nexttowardl (0.0L, -INFINITY) != nexttowardl (0.0L, -1.0L)
        || nexttowardl (-0.0L, -INFINITY) != nexttowardl (-0.0L, -1.0L))
      {
        printf ("nexttowardl (+-0, +-Inf) != nexttowardl (+-0, +-1)\n");
        result = 1;
      }
  }
#endif

  if (! isnormal (FLT_MIN))
    {
      puts ("isnormal (FLT_MIN) failed");
      result = 1;
    }
  if (! isnormal (DBL_MIN))
    {
      puts ("isnormal (DBL_MIN) failed");
      result = 1;
    }
#ifndef NO_LONG_DOUBLE
  if (! isnormal (LDBL_MIN))
    {
      puts ("isnormal (LDBL_MIN) failed");
      result = 1;
    }
#endif

#ifdef __i386__
  /* This is a test for the strange long doubles in x86 FPUs.  */
  {
    union
    {
      char b[10];
      long double d;
    } u =
      { .b = { 0, 0, 0, 0, 0, 0, 0, 0x80, 0, 0 } };

    if (fpclassify (u.d) != FP_NORMAL)
      {
        printf ("fpclassify (0x00008000000000000000) failed: %d (%Lg)\n",
                fpclassify (u.d), u.d);
        result = 1;
      }
  }

  /* Special NaNs in x86 long double.  Test for scalbl.  */
  {
    union
    {
      char b[10];
      long double d;
    } u =
      { .b = { 0, 1, 0, 0, 0, 0, 0, 0xc0, 0xff, 0x7f } };
    long double r;

    r = scalbl (u.d, 0.0);
    if (!isnan (r))
      {
        puts ("scalbl(NaN, 0) does not return NaN");
        result = 1;
      }
    else if (memcmp (&r, &u.d, sizeof (double)) != 0)
      {
        puts ("scalbl(NaN, 0) does not return the same NaN");
        result = 1;
      }
  }
#endif

#ifndef NO_LONG_DOUBLE
  {
    long double r;

    feclearexcept (FE_ALL_EXCEPT);
    r = scalbl (LDBL_MIN, 2147483647);
    if (! isinf (r))
      {
        puts ("scalbl (LDBL_MIN, 2147483647) does not return Inf");
        result = 1;
      }
    else if (signbit (r) != 0)
      {
        puts ("scalbl (LDBL_MIN, 2147483647) returns -Inf");
        result = 1;
      }
    else if (fetestexcept (FE_UNDERFLOW))
      {
        puts ("scalbl(NaN, 0) raises underflow exception");
        result = 1;
      }

    feclearexcept (FE_ALL_EXCEPT);
    r = scalbl (LDBL_MAX, -2147483647);
    if (r != 0.0)
      {
        puts ("scalbl (LDBL_MAX, -2147483647) does not return 0");
        result = 1;
      }
    else if (signbit (r) != 0)
      {
        puts ("scalbl (LDBL_MAX, -2147483647) returns -Inf");
        result = 1;
      }
    else if (fetestexcept (FE_OVERFLOW))
      {
        puts ("scalbl(NaN, 0) raises overflow exception");
        result = 1;
      }
  }
#endif

  /* The tests here are very similar to tests earlier in this file,
     the important difference is just that there are no intervening
     union variables that cause some GCC versions to hide possible
     bugs in nextafter* implementation.  */
  if (nextafterf (nextafterf (FLT_MIN, FLT_MIN / 2.0), FLT_MIN) != FLT_MIN)
    {
      puts ("nextafterf FLT_MIN test failed");
      result = 1;
    }
  if (nextafterf (nextafterf (-FLT_MIN, -FLT_MIN / 2.0), -FLT_MIN)
      != -FLT_MIN)
    {
      puts ("nextafterf -FLT_MIN test failed");
      result = 1;
    }
  if (nextafter (nextafter (DBL_MIN, DBL_MIN / 2.0), DBL_MIN) != DBL_MIN)
    {
      puts ("nextafter DBL_MIN test failed");
      result = 1;
    }
  if (nextafter (nextafter (-DBL_MIN, -DBL_MIN / 2.0), -DBL_MIN) != -DBL_MIN)
    {
      puts ("nextafter -DBL_MIN test failed");
      result = 1;
    }
#ifndef NO_LONG_DOUBLE
  if (nextafterl (nextafterl (LDBL_MIN, LDBL_MIN / 2.0), LDBL_MIN)
      != LDBL_MIN)
    {
      puts ("nextafterl LDBL_MIN test failed");
      result = 1;
    }
  if (nextafterl (nextafterl (-LDBL_MIN, -LDBL_MIN / 2.0), -LDBL_MIN)
      != -LDBL_MIN)
    {
      puts ("nextafterl -LDBL_MIN test failed");
      result = 1;
    }
#endif

  return result;
}