1 /* Test totalorderl and totalordermagl for ldbl-128ibm.
2 Copyright (C) 2016-2022 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
do_test(void)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"
74