kmx git

/* Tests of quiet not-a-number.
   Copyright (C) 2023-2025 Free Software Foundation, Inc.

   This program is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation, either version 3 of the License, or
   (at your option) any later version.

   This program 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 General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program.  If not, see <https://www.gnu.org/licenses/>.  */

/* Written by Bruno Haible <bruno@clisp.org>, 2023.  */

#include <config.h>

/* Specification.  */
#include "nan.h"

#if defined __GLIBC__ && defined __arm__ && defined __SOFTFP__

# include <stdio.h>

/* The arm software floating-point emulation (used e.g. on armv5) does not set
   the floating-point exception bits.  */

int
main ()
{
  fputs ("Skipping test: software floating-point emulation\n", stderr);
  return 77;
}

#else

# include <fenv.h>

# include "macros.h"

float volatile resultf;
double volatile resultd;
long double volatile resultl;

int
main ()
{
  /* Fetch the NaN values before we start watching out for FE_INVALID
     exceptions, because the division 0.0 / 0.0 itself also raises an
     FE_INVALID exception.
     The use of 'volatile' prevents the compiler from doing constant-folding
     optimizations on these values.  An alternative, for GCC only, would be
     the command-line option '-fsignaling-nans'.  */
  float volatile nanf = NaNf ();
  double volatile nand = NaNd ();
  long double volatile nanl = NaNl ();

  /* Check that the values are really quiet.  */
  {
    feclearexcept (FE_INVALID);
    resultf = nanf + 42.0f;
    ASSERT (!fetestexcept (FE_INVALID));
  }
  {
    feclearexcept (FE_INVALID);
    resultd = nand + 42.0;
    ASSERT (!fetestexcept (FE_INVALID));
  }
  {
    feclearexcept (FE_INVALID);
    resultl = nanl + 42.0L;
    ASSERT (!fetestexcept (FE_INVALID));
  }

  return test_exit_status;
}

#endif
kc3-lang/gnulib/tests/test-nan-1.c

Commit

tests/test-nan-1.c
