1  /* Test totalorderl and totalordermagl for ldbl-128ibm.
       2     Copyright (C) 2016-2023 Free Software Foundation, Inc.
       3     This file is part of the GNU C Library.
       4  
       5     The GNU C Library is free software; you can redistribute it and/or
       6     modify it under the terms of the GNU Lesser General Public
       7     License as published by the Free Software Foundation; either
       8     version 2.1 of the License, or (at your option) any later version.
       9  
      10     The GNU C Library is distributed in the hope that it will be useful,
      11     but WITHOUT ANY WARRANTY; without even the implied warranty of
      12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      13     Lesser General Public License for more details.
      14  
      15     You should have received a copy of the GNU Lesser General Public
      16     License along with the GNU C Library; if not, see
      17     <https://www.gnu.org/licenses/>.  */
      18  
      19  #include <math.h>
      20  #include <math_ldbl.h>
      21  #include <stdbool.h>
      22  #include <stdio.h>
      23  
      24  struct test
      25  {
      26    double hi, lo1, lo2;
      27  };
      28  
      29  static const struct test tests[] =
      30    {
      31      { __builtin_nan (""), 1, __builtin_nans ("") },
      32      { -__builtin_nan (""), 1, __builtin_nans ("") },
      33      { __builtin_nans (""), 1, __builtin_nan ("") },
      34      { -__builtin_nans (""), 1, __builtin_nan ("") },
      35      { __builtin_inf (), 0.0, -0.0 },
      36      { -__builtin_inf (), 0.0, -0.0 },
      37      { 1.5, 0.0, -0.0 },
      38    };
      39  
      40  static int
      41  do_test (void)
      42  {
      43    int result = 0;
      44  
      45    for (size_t i = 0; i < sizeof (tests) / sizeof (tests[0]); i++)
      46      {
      47        long double ldx = ldbl_pack (tests[i].hi, tests[i].lo1);
      48        long double ldy = ldbl_pack (tests[i].hi, tests[i].lo2);
      49        bool to1 = totalorderl (&ldx, &ldy);
      50        bool to2 = totalorderl (&ldy, &ldx);
      51        if (to1 && to2)
      52  	printf ("PASS: test %zu\n", i);
      53        else
      54  	{
      55  	  printf ("FAIL: test %zu\n", i);
      56  	  result = 1;
      57  	}
      58        to1 = totalordermagl (&ldx, &ldy);
      59        to2 = totalordermagl (&ldy, &ldx);
      60        if (to1 && to2)
      61  	printf ("PASS: test %zu (totalordermagl)\n", i);
      62        else
      63  	{
      64  	  printf ("FAIL: test %zu (totalordermagl)\n", i);
      65  	  result = 1;
      66  	}
      67      }
      68  
      69    return result;
      70  }
      71  
      72  #define TEST_FUNCTION do_test ()
      73  #include "../test-skeleton.c"