1 // RUN: %clang_builtins %s %librt -o %t && %run %t
2 // REQUIRES: librt_has_floatuntitf
3
4 #define QUAD_PRECISION
5 #include "fp_lib.h"
6 #include "int_lib.h"
7 #include <float.h>
8 #include <stdio.h>
9
10 // The testcase currently assumes IEEE TF format, once that has been
11 // fixed the defined(CRT_HAS_IEEE_TF) guard can be removed to enable it for
12 // IBM 128 floats as well.
13 #if defined(CRT_HAS_IEEE_TF)
14
15 # include "fp_test.h"
16
17 /* Returns: convert a tu_int to a tf_float, rounding toward even. */
18
19 /* Assumption: tf_float is a IEEE 128 bit floating point type
20 * tu_int is a 128 bit integral type
21 */
22
23 /* seee eeee eeee eeee mmmm mmmm mmmm mmmm | mmmm mmmm mmmm mmmm mmmm mmmm mmmm mmmm |
24 * mmmm mmmm mmmm mmmm mmmm mmmm mmmm mmmm | mmmm mmmm mmmm mmmm mmmm mmmm mmmm mmmm
25 */
26
27 COMPILER_RT_ABI tf_float __floatuntitf(tu_int a);
28
_test__floatuntitf(int line,tu_int a,tf_float expected)29 int _test__floatuntitf(int line, tu_int a, tf_float expected) {
30 tf_float x = __floatuntitf(a);
31 if (x != expected) {
32 utwords at;
33 at.all = a;
34 __uint128_t expected_rep = toRep128(expected);
35 __uint128_t res_rep = toRep128(x);
36 printf("%s:%d: error in __floatuntitf(0x%.16llX%.16llX) = "
37 "0x%.16llX%.16llX, expected 0x%.16llX%.16llX\n",
38 __FILE__, line, at.s.high, at.s.low, (uint64_t)(res_rep >> 64),
39 (uint64_t)res_rep, (uint64_t)(expected_rep >> 64),
40 (uint64_t)expected_rep);
41 }
42 return x != expected;
43 }
44 # define test__floatuntitf(a, e) _test__floatuntitf(__LINE__, a, e)
45
46 char assumption_1[sizeof(tu_int) == 2 * sizeof(du_int)] = {0};
47 char assumption_2[sizeof(tu_int) * CHAR_BIT == 128] = {0};
48 char assumption_3[sizeof(tf_float) * CHAR_BIT == 128] = {0};
49
50 #endif
51
main()52 int main() {
53 #if defined(CRT_HAS_IEEE_TF)
54 if (test__floatuntitf(0, TF_C(0.0)))
55 return 1;
56
57 if (test__floatuntitf(1, TF_C(1.0)))
58 return 1;
59 if (test__floatuntitf(2, TF_C(2.0)))
60 return 1;
61 if (test__floatuntitf(20, TF_C(20.0)))
62 return 1;
63
64 if (test__floatuntitf(0x7FFFFF8000000000ULL, TF_C(0x1.FFFFFEp+62)))
65 return 1;
66 if (test__floatuntitf(0x7FFFFFFFFFFFF800ULL, TF_C(0x1.FFFFFFFFFFFFEp+62)))
67 return 1;
68 if (test__floatuntitf(0x7FFFFF0000000000ULL, TF_C(0x1.FFFFFCp+62)))
69 return 1;
70 if (test__floatuntitf(0x7FFFFFFFFFFFF000ULL, TF_C(0x1.FFFFFFFFFFFFCp+62)))
71 return 1;
72 if (test__floatuntitf(0x7FFFFFFFFFFFFFFFULL, TF_C(0xF.FFFFFFFFFFFFFFEp+59)))
73 return 1;
74 if (test__floatuntitf(0xFFFFFFFFFFFFFFFEULL, TF_C(0xF.FFFFFFFFFFFFFFEp+60)))
75 return 1;
76 if (test__floatuntitf(0xFFFFFFFFFFFFFFFFULL, TF_C(0xF.FFFFFFFFFFFFFFFp+60)))
77 return 1;
78
79 if (test__floatuntitf(0x8000008000000000ULL, TF_C(0x8.000008p+60)))
80 return 1;
81 if (test__floatuntitf(0x8000000000000800ULL, TF_C(0x8.0000000000008p+60)))
82 return 1;
83 if (test__floatuntitf(0x8000010000000000ULL, TF_C(0x8.00001p+60)))
84 return 1;
85 if (test__floatuntitf(0x8000000000001000ULL, TF_C(0x8.000000000001p+60)))
86 return 1;
87
88 if (test__floatuntitf(0x8000000000000000ULL, TF_C(0x8p+60)))
89 return 1;
90 if (test__floatuntitf(0x8000000000000001ULL, TF_C(0x8.000000000000001p+60)))
91 return 1;
92
93 if (test__floatuntitf(0x0007FB72E8000000LL, TF_C(0x1.FEDCBAp+50)))
94 return 1;
95
96 if (test__floatuntitf(0x0007FB72EA000000LL, TF_C(0x1.FEDCBA8p+50)))
97 return 1;
98 if (test__floatuntitf(0x0007FB72EB000000LL, TF_C(0x1.FEDCBACp+50)))
99 return 1;
100 if (test__floatuntitf(0x0007FB72EBFFFFFFLL, TF_C(0x1.FEDCBAFFFFFFCp+50)))
101 return 1;
102 if (test__floatuntitf(0x0007FB72EC000000LL, TF_C(0x1.FEDCBBp+50)))
103 return 1;
104 if (test__floatuntitf(0x0007FB72E8000001LL, TF_C(0x1.FEDCBA0000004p+50)))
105 return 1;
106
107 if (test__floatuntitf(0x0007FB72E6000000LL, TF_C(0x1.FEDCB98p+50)))
108 return 1;
109 if (test__floatuntitf(0x0007FB72E7000000LL, TF_C(0x1.FEDCB9Cp+50)))
110 return 1;
111 if (test__floatuntitf(0x0007FB72E7FFFFFFLL, TF_C(0x1.FEDCB9FFFFFFCp+50)))
112 return 1;
113 if (test__floatuntitf(0x0007FB72E4000001LL, TF_C(0x1.FEDCB90000004p+50)))
114 return 1;
115 if (test__floatuntitf(0x0007FB72E4000000LL, TF_C(0x1.FEDCB9p+50)))
116 return 1;
117
118 if (test__floatuntitf(0x023479FD0E092DC0LL, TF_C(0x1.1A3CFE870496Ep+57)))
119 return 1;
120 if (test__floatuntitf(0x023479FD0E092DA1LL, TF_C(0x1.1A3CFE870496D08p+57)))
121 return 1;
122 if (test__floatuntitf(0x023479FD0E092DB0LL, TF_C(0x1.1A3CFE870496D8p+57)))
123 return 1;
124 if (test__floatuntitf(0x023479FD0E092DB8LL, TF_C(0x1.1A3CFE870496DCp+57)))
125 return 1;
126 if (test__floatuntitf(0x023479FD0E092DB6LL, TF_C(0x1.1A3CFE870496DBp+57)))
127 return 1;
128 if (test__floatuntitf(0x023479FD0E092DBFLL, TF_C(0x1.1A3CFE870496DF8p+57)))
129 return 1;
130 if (test__floatuntitf(0x023479FD0E092DC1LL, TF_C(0x1.1A3CFE870496E08p+57)))
131 return 1;
132 if (test__floatuntitf(0x023479FD0E092DC7LL, TF_C(0x1.1A3CFE870496E38p+57)))
133 return 1;
134 if (test__floatuntitf(0x023479FD0E092DC8LL, TF_C(0x1.1A3CFE870496E4p+57)))
135 return 1;
136 if (test__floatuntitf(0x023479FD0E092DCFLL, TF_C(0x1.1A3CFE870496E78p+57)))
137 return 1;
138 if (test__floatuntitf(0x023479FD0E092DD0LL, TF_C(0x1.1A3CFE870496E8p+57)))
139 return 1;
140 if (test__floatuntitf(0x023479FD0E092DD1LL, TF_C(0x1.1A3CFE870496E88p+57)))
141 return 1;
142 if (test__floatuntitf(0x023479FD0E092DD8LL, TF_C(0x1.1A3CFE870496ECp+57)))
143 return 1;
144 if (test__floatuntitf(0x023479FD0E092DDFLL, TF_C(0x1.1A3CFE870496EF8p+57)))
145 return 1;
146 if (test__floatuntitf(0x023479FD0E092DE0LL, TF_C(0x1.1A3CFE870496Fp+57)))
147 return 1;
148
149 if (test__floatuntitf(make_ti(0x023479FD0E092DC0LL, 0),
150 TF_C(0x1.1A3CFE870496Ep+121)))
151 return 1;
152 if (test__floatuntitf(make_ti(0x023479FD0E092DA1LL, 1),
153 TF_C(0x1.1A3CFE870496D08p+121)))
154 return 1;
155 if (test__floatuntitf(make_ti(0x023479FD0E092DB0LL, 2),
156 TF_C(0x1.1A3CFE870496D8p+121)))
157 return 1;
158 if (test__floatuntitf(make_ti(0x023479FD0E092DB8LL, 3),
159 TF_C(0x1.1A3CFE870496DCp+121)))
160 return 1;
161 if (test__floatuntitf(make_ti(0x023479FD0E092DB6LL, 4),
162 TF_C(0x1.1A3CFE870496DBp+121)))
163 return 1;
164 if (test__floatuntitf(make_ti(0x023479FD0E092DBFLL, 5),
165 TF_C(0x1.1A3CFE870496DF8p+121)))
166 return 1;
167 if (test__floatuntitf(make_ti(0x023479FD0E092DC1LL, 6),
168 TF_C(0x1.1A3CFE870496E08p+121)))
169 return 1;
170 if (test__floatuntitf(make_ti(0x023479FD0E092DC7LL, 7),
171 TF_C(0x1.1A3CFE870496E38p+121)))
172 return 1;
173 if (test__floatuntitf(make_ti(0x023479FD0E092DC8LL, 8),
174 TF_C(0x1.1A3CFE870496E4p+121)))
175 return 1;
176 if (test__floatuntitf(make_ti(0x023479FD0E092DCFLL, 9),
177 TF_C(0x1.1A3CFE870496E78p+121)))
178 return 1;
179 if (test__floatuntitf(make_ti(0x023479FD0E092DD0LL, 0),
180 TF_C(0x1.1A3CFE870496E8p+121)))
181 return 1;
182 if (test__floatuntitf(make_ti(0x023479FD0E092DD1LL, 11),
183 TF_C(0x1.1A3CFE870496E88p+121)))
184 return 1;
185 if (test__floatuntitf(make_ti(0x023479FD0E092DD8LL, 12),
186 TF_C(0x1.1A3CFE870496ECp+121)))
187 return 1;
188 if (test__floatuntitf(make_ti(0x023479FD0E092DDFLL, 13),
189 TF_C(0x1.1A3CFE870496EF8p+121)))
190 return 1;
191 if (test__floatuntitf(make_ti(0x023479FD0E092DE0LL, 14),
192 TF_C(0x1.1A3CFE870496Fp+121)))
193 return 1;
194
195 if (test__floatuntitf(make_ti(0, 0xFFFFFFFFFFFFFFFFLL),
196 TF_C(0x1.FFFFFFFFFFFFFFFEp+63)))
197 return 1;
198
199 if (test__floatuntitf(make_ti(0xFFFFFFFFFFFFFFFFLL, 0x0000000000000000LL),
200 TF_C(0x1.FFFFFFFFFFFFFFFEp+127)))
201 return 1;
202 if (test__floatuntitf(make_ti(0xFFFFFFFFFFFFFFFFLL, 0xFFFFFFFFFFFFFFFFLL),
203 TF_C(0x1.0000000000000000p+128)))
204 return 1;
205
206 if (test__floatuntitf(make_ti(0x123456789ABCDEF0LL, 0x123456789ABC2801LL),
207 TF_C(0x1.23456789ABCDEF0123456789ABC3p+124)))
208 return 1;
209 if (test__floatuntitf(make_ti(0x123456789ABCDEF0LL, 0x123456789ABC3000LL),
210 TF_C(0x1.23456789ABCDEF0123456789ABC3p+124)))
211 return 1;
212 if (test__floatuntitf(make_ti(0x123456789ABCDEF0LL, 0x123456789ABC37FFLL),
213 TF_C(0x1.23456789ABCDEF0123456789ABC3p+124)))
214 return 1;
215 if (test__floatuntitf(make_ti(0x123456789ABCDEF0LL, 0x123456789ABC3800LL),
216 TF_C(0x1.23456789ABCDEF0123456789ABC4p+124)))
217 return 1;
218 if (test__floatuntitf(make_ti(0x123456789ABCDEF0LL, 0x123456789ABC4000LL),
219 TF_C(0x1.23456789ABCDEF0123456789ABC4p+124)))
220 return 1;
221 if (test__floatuntitf(make_ti(0x123456789ABCDEF0LL, 0x123456789ABC47FFLL),
222 TF_C(0x1.23456789ABCDEF0123456789ABC4p+124)))
223 return 1;
224 if (test__floatuntitf(make_ti(0x123456789ABCDEF0LL, 0x123456789ABC4800LL),
225 TF_C(0x1.23456789ABCDEF0123456789ABC4p+124)))
226 return 1;
227 if (test__floatuntitf(make_ti(0x123456789ABCDEF0LL, 0x123456789ABC4801LL),
228 TF_C(0x1.23456789ABCDEF0123456789ABC5p+124)))
229 return 1;
230 if (test__floatuntitf(make_ti(0x123456789ABCDEF0LL, 0x123456789ABC57FFLL),
231 TF_C(0x1.23456789ABCDEF0123456789ABC5p+124)))
232 return 1;
233 #else
234 printf("skipped\n");
235 #endif
236 return 0;
237 }
238