sysdeps/ieee754/ldbl-128ibm/test-totalorderl-ldbl-128ibm.c

   1 /* Test totalorderl and totalordermagl for ldbl-128ibm.
   2    Copyright (C) 2016-2018 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    <http://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"