1// SPDX-License-Identifier: GPL-2.0+
2/*
3 * Copyright (C) 2007
4 * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
5 */
6/*
7 * Test for correctness of composite floating-point comparisons.
8 * Written by Paolo Bonzini, 26th May 2004.
9 * This file is originally a part of the GCC testsuite.
10 */
11
12#include <common.h>
13
14#include <post.h>
15
16GNU_FPOST_ATTR
17
18#if CFG_POST & CFG_SYS_POST_FPU
19
20static int failed;
21
22#define TEST(c) if ((c) != ok) failed++
23#define ORD(a, b) (!__builtin_isunordered ((a), (b)))
24#define UNORD(a, b) (__builtin_isunordered ((a), (b)))
25#define UNEQ(a, b) (__builtin_isunordered ((a), (b)) || ((a) == (b)))
26#define UNLT(a, b) (__builtin_isunordered ((a), (b)) || ((a) < (b)))
27#define UNLE(a, b) (__builtin_isunordered ((a), (b)) || ((a) <= (b)))
28#define UNGT(a, b) (__builtin_isunordered ((a), (b)) || ((a) > (b)))
29#define UNGE(a, b) (__builtin_isunordered ((a), (b)) || ((a) >= (b)))
30#define LTGT(a, b) (__builtin_islessgreater ((a), (b)))
31
32static float pinf;
33static float ninf;
34static float NaN;
35
36static void iuneq (float x, float y, int ok)
37{
38	TEST (UNEQ (x, y));
39	TEST (!LTGT (x, y));
40	TEST (UNLE (x, y) && UNGE (x,y));
41}
42
43static void ieq (float x, float y, int ok)
44{
45	TEST (ORD (x, y) && UNEQ (x, y));
46}
47
48static void iltgt (float x, float y, int ok)
49{
50	TEST (!UNEQ (x, y)); /* Not optimizable. */
51	TEST (LTGT (x, y)); /* Same, __builtin_islessgreater does not trap. */
52	TEST (ORD (x, y) && (UNLT (x, y) || UNGT (x,y)));
53}
54
55static void ine (float x, float y, int ok)
56{
57	TEST (UNLT (x, y) || UNGT (x, y));
58}
59
60static void iunlt (float x, float y, int ok)
61{
62	TEST (UNLT (x, y));
63	TEST (UNORD (x, y) || (x < y));
64}
65
66static void ilt (float x, float y, int ok)
67{
68	TEST (ORD (x, y) && UNLT (x, y)); /* Not optimized */
69	TEST ((x <= y) && (x != y));
70	TEST ((x <= y) && (y != x));
71	TEST ((x != y) && (x <= y)); /* Not optimized */
72	TEST ((y != x) && (x <= y)); /* Not optimized */
73}
74
75static void iunle (float x, float y, int ok)
76{
77	TEST (UNLE (x, y));
78	TEST (UNORD (x, y) || (x <= y));
79}
80
81static void ile (float x, float y, int ok)
82{
83	TEST (ORD (x, y) && UNLE (x, y)); /* Not optimized */
84	TEST ((x < y) || (x == y));
85	TEST ((y > x) || (x == y));
86	TEST ((x == y) || (x < y)); /* Not optimized */
87	TEST ((y == x) || (x < y)); /* Not optimized */
88}
89
90static void iungt (float x, float y, int ok)
91{
92	TEST (UNGT (x, y));
93	TEST (UNORD (x, y) || (x > y));
94}
95
96static void igt (float x, float y, int ok)
97{
98	TEST (ORD (x, y) && UNGT (x, y)); /* Not optimized */
99	TEST ((x >= y) && (x != y));
100	TEST ((x >= y) && (y != x));
101	TEST ((x != y) && (x >= y)); /* Not optimized */
102	TEST ((y != x) && (x >= y)); /* Not optimized */
103}
104
105static void iunge (float x, float y, int ok)
106{
107	TEST (UNGE (x, y));
108	TEST (UNORD (x, y) || (x >= y));
109}
110
111static void ige (float x, float y, int ok)
112{
113	TEST (ORD (x, y) && UNGE (x, y)); /* Not optimized */
114	TEST ((x > y) || (x == y));
115	TEST ((y < x) || (x == y));
116	TEST ((x == y) || (x > y)); /* Not optimized */
117	TEST ((y == x) || (x > y)); /* Not optimized */
118}
119
120int fpu_post_test_math6 (void)
121{
122	pinf = __builtin_inf ();
123	ninf = -__builtin_inf ();
124	NaN = __builtin_nan ("");
125
126	iuneq (ninf, pinf, 0);
127	iuneq (NaN, NaN, 1);
128	iuneq (pinf, ninf, 0);
129	iuneq (1, 4, 0);
130	iuneq (3, 3, 1);
131	iuneq (5, 2, 0);
132
133	ieq (1, 4, 0);
134	ieq (3, 3, 1);
135	ieq (5, 2, 0);
136
137	iltgt (ninf, pinf, 1);
138	iltgt (NaN, NaN, 0);
139	iltgt (pinf, ninf, 1);
140	iltgt (1, 4, 1);
141	iltgt (3, 3, 0);
142	iltgt (5, 2, 1);
143
144	ine (1, 4, 1);
145	ine (3, 3, 0);
146	ine (5, 2, 1);
147
148	iunlt (NaN, ninf, 1);
149	iunlt (pinf, NaN, 1);
150	iunlt (pinf, ninf, 0);
151	iunlt (pinf, pinf, 0);
152	iunlt (ninf, ninf, 0);
153	iunlt (1, 4, 1);
154	iunlt (3, 3, 0);
155	iunlt (5, 2, 0);
156
157	ilt (1, 4, 1);
158	ilt (3, 3, 0);
159	ilt (5, 2, 0);
160
161	iunle (NaN, ninf, 1);
162	iunle (pinf, NaN, 1);
163	iunle (pinf, ninf, 0);
164	iunle (pinf, pinf, 1);
165	iunle (ninf, ninf, 1);
166	iunle (1, 4, 1);
167	iunle (3, 3, 1);
168	iunle (5, 2, 0);
169
170	ile (1, 4, 1);
171	ile (3, 3, 1);
172	ile (5, 2, 0);
173
174	iungt (NaN, ninf, 1);
175	iungt (pinf, NaN, 1);
176	iungt (pinf, ninf, 1);
177	iungt (pinf, pinf, 0);
178	iungt (ninf, ninf, 0);
179	iungt (1, 4, 0);
180	iungt (3, 3, 0);
181	iungt (5, 2, 1);
182
183	igt (1, 4, 0);
184	igt (3, 3, 0);
185	igt (5, 2, 1);
186
187	iunge (NaN, ninf, 1);
188	iunge (pinf, NaN, 1);
189	iunge (ninf, pinf, 0);
190	iunge (pinf, pinf, 1);
191	iunge (ninf, ninf, 1);
192	iunge (1, 4, 0);
193	iunge (3, 3, 1);
194	iunge (5, 2, 1);
195
196	ige (1, 4, 0);
197	ige (3, 3, 1);
198	ige (5, 2, 1);
199
200	if (failed) {
201		post_log ("Error in FPU math6 test\n");
202		return -1;
203	}
204	return 0;
205}
206
207#endif /* CFG_POST & CFG_SYS_POST_FPU */
208