1  /* Test of isnand() substitute.
       2     Copyright (C) 2007-2023 Free Software Foundation, Inc.
       3  
       4     This program is free software: you can redistribute it and/or modify
       5     it under the terms of the GNU General Public License as published by
       6     the Free Software Foundation, either version 3 of the License, or
       7     (at your option) any later version.
       8  
       9     This program is distributed in the hope that it will be useful,
      10     but WITHOUT ANY WARRANTY; without even the implied warranty of
      11     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
      12     GNU General Public License for more details.
      13  
      14     You should have received a copy of the GNU General Public License
      15     along with this program.  If not, see <https://www.gnu.org/licenses/>.  */
      16  
      17  /* Written by Bruno Haible <bruno@clisp.org>, 2007.  */
      18  
      19  #include <limits.h>
      20  
      21  #include "minus-zero.h"
      22  #include "infinity.h"
      23  #include "nan.h"
      24  #include "snan.h"
      25  #include "macros.h"
      26  
      27  int
      28  main ()
      29  {
      30    /* Finite values.  */
      31    ASSERT (!isnand (3.141));
      32    ASSERT (!isnand (3.141e30));
      33    ASSERT (!isnand (3.141e-30));
      34    ASSERT (!isnand (-2.718));
      35    ASSERT (!isnand (-2.718e30));
      36    ASSERT (!isnand (-2.718e-30));
      37    ASSERT (!isnand (0.0));
      38    ASSERT (!isnand (minus_zerod));
      39    /* Infinite values.  */
      40    ASSERT (!isnand (Infinityd ()));
      41    ASSERT (!isnand (- Infinityd ()));
      42    /* Quiet NaN.  */
      43    ASSERT (isnand (NaNd ()));
      44  #if HAVE_SNAND
      45    /* Signalling NaN.  */
      46    ASSERT (isnand (SNaNd ()));
      47  #endif
      48    return 0;
      49  }