msun/tests/invtrig_test.c

90 #define test2(func, y, x, result, excepts)				\
172 		test2(atan2f, 0.0, ldexpf(z, e), 0.0, 0);
173 		test2(atan2f, -0.0, ldexpf(z, e), -0.0, 0);
174 		test2(atan2f, 0.0, ldexpf(-z, e), (float)pi, FE_INEXACT);
175 		test2(atan2f, -0.0, ldexpf(-z, e), (float)-pi, FE_INEXACT);
176 		test2(atan2f, ldexpf(z, e), 0.0, (float)pi / 2, FE_INEXACT);
177 		test2(atan2f, ldexpf(z, e), -0.0, (float)pi / 2, FE_INEXACT);
178 		test2(atan2f, ldexpf(-z, e), 0.0, (float)-pi / 2, FE_INEXACT);
179 		test2(atan2f, ldexpf(-z, e), -0.0, (float)-pi / 2, FE_INEXACT);
182 		test2(atan2, 0.0, ldexp(z, e), 0.0, 0);
183 		test2(atan2, -0.0, ldexp(z, e), -0.0, 0);
184 		test2(atan2, 0.0, ldexp(-z, e), (double)pi, FE_INEXACT);
185 		test2(atan2, -0.0, ldexp(-z, e), (double)-pi, FE_INEXACT);
186 		test2(atan2, ldexp(z, e), 0.0, (double)pi / 2, FE_INEXACT);
187 		test2(atan2, ldexp(z, e), -0.0, (double)pi / 2, FE_INEXACT);
188 		test2(atan2, ldexp(-z, e), 0.0, (double)-pi / 2, FE_INEXACT);
189 		test2(atan2, ldexp(-z, e), -0.0, (double)-pi / 2, FE_INEXACT);
192 		test2(atan2l, 0.0, ldexpl(z, e), 0.0, 0);
193 		test2(atan2l, -0.0, ldexpl(z, e), -0.0, 0);
194 		test2(atan2l, 0.0, ldexpl(-z, e), pi, FE_INEXACT);
195 		test2(atan2l, -0.0, ldexpl(-z, e), -pi, FE_INEXACT);
196 		test2(atan2l, ldexpl(z, e), 0.0, pi / 2, FE_INEXACT);
197 		test2(atan2l, ldexpl(z, e), -0.0, pi / 2, FE_INEXACT);
198 		test2(atan2l, ldexpl(-z, e), 0.0, -pi / 2, FE_INEXACT);
199 		test2(atan2l, ldexpl(-z, e), -0.0, -pi / 2, FE_INEXACT);
204 		test2(atan2f, ldexpf(z, e), INFINITY, 0.0, 0);
205 		test2(atan2f, ldexpf(-z,e), INFINITY, -0.0, 0);
206 		test2(atan2f, ldexpf(z, e), -INFINITY, (float)pi, FE_INEXACT);
207 		test2(atan2f, ldexpf(-z,e), -INFINITY, (float)-pi, FE_INEXACT);
208 		test2(atan2f, INFINITY, ldexpf(z,e), (float)pi/2, FE_INEXACT);
209 		test2(atan2f, INFINITY, ldexpf(-z,e), (float)pi/2, FE_INEXACT);
210 		test2(atan2f, -INFINITY, ldexpf(z,e), (float)-pi/2,FE_INEXACT);
211 		test2(atan2f, -INFINITY, ldexpf(-z,e),(float)-pi/2,FE_INEXACT);
214 		test2(atan2, ldexp(z, e), INFINITY, 0.0, 0);
215 		test2(atan2, ldexp(-z,e), INFINITY, -0.0, 0);
216 		test2(atan2, ldexp(z, e), -INFINITY, (double)pi, FE_INEXACT);
217 		test2(atan2, ldexp(-z,e), -INFINITY, (double)-pi, FE_INEXACT);
218 		test2(atan2, INFINITY, ldexp(z,e), (double)pi/2, FE_INEXACT);
219 		test2(atan2, INFINITY, ldexp(-z,e), (double)pi/2, FE_INEXACT);
220 		test2(atan2, -INFINITY, ldexp(z,e), (double)-pi/2,FE_INEXACT);
221 		test2(atan2, -INFINITY, ldexp(-z,e),(double)-pi/2,FE_INEXACT);
224 		test2(atan2l, ldexpl(z, e), INFINITY, 0.0, 0);
225 		test2(atan2l, ldexpl(-z,e), INFINITY, -0.0, 0);
226 		test2(atan2l, ldexpl(z, e), -INFINITY, pi, FE_INEXACT);
227 		test2(atan2l, ldexpl(-z,e), -INFINITY, -pi, FE_INEXACT);
228 		test2(atan2l, INFINITY, ldexpl(z, e), pi / 2, FE_INEXACT);
229 		test2(atan2l, INFINITY, ldexpl(-z, e), pi / 2, FE_INEXACT);
230 		test2(atan2l, -INFINITY, ldexpl(z, e), -pi / 2, FE_INEXACT);
231 		test2(atan2l, -INFINITY, ldexpl(-z, e), -pi / 2, FE_INEXACT);
314 	test2(atan2f, 0x1.0p-100, 0x1.0p100, 0.0, FE_INEXACT | FE_UNDERFLOW);
315 	test2(atan2, 0x1.0p-1000, 0x1.0p1000, 0.0, FE_INEXACT | FE_UNDERFLOW);
316 	test2(atan2l, ldexpl(1.0, 100 - LDBL_MAX_EXP),
318 	test2(atan2f, -0x1.0p-100, 0x1.0p100, -0.0, FE_INEXACT | FE_UNDERFLOW);
319 	test2(atan2, -0x1.0p-1000, 0x1.0p1000, -0.0, FE_INEXACT | FE_UNDERFLOW);
320 	test2(atan2l, -ldexpl(1.0, 100 - LDBL_MAX_EXP),
322 	test2(atan2f, 0x1.0p-100, -0x1.0p100, (float)pi, FE_INEXACT);
323 	test2(atan2, 0x1.0p-1000, -0x1.0p1000, (double)pi, FE_INEXACT);
324 	test2(atan2l, ldexpl(1.0, 100 - LDBL_MAX_EXP),
326 	test2(atan2f, -0x1.0p-100, -0x1.0p100, (float)-pi, FE_INEXACT);
327 	test2(atan2, -0x1.0p-1000, -0x1.0p1000, (double)-pi, FE_INEXACT);
328 	test2(atan2l, -ldexpl(1.0, 100 - LDBL_MAX_EXP),
344 	test2(atan2f, 0x1.0p100, 0x1.0p-100, (float)pi / 2, FE_INEXACT);
345 	test2(atan2, 0x1.0p1000, 0x1.0p-1000, (double)pi / 2, FE_INEXACT);
346 	test2(atan2l, ldexpl(1.0, LDBL_MAX_EXP - 100),
348 	test2(atan2f, -0x1.0p100, 0x1.0p-100, (float)-pi / 2, FE_INEXACT);
349 	test2(atan2, -0x1.0p1000, 0x1.0p-1000, (double)-pi / 2, FE_INEXACT);
350 	test2(atan2l, -ldexpl(1.0, LDBL_MAX_EXP - 100),
353 	test2(atan2f, 0x1.0p100, -0x1.0p-100, (float)pi / 2, FE_INEXACT);
354 	test2(atan2, 0x1.0p1000, -0x1.0p-1000, (double)pi / 2, FE_INEXACT);
355 	test2(atan2l, ldexpl(1.0, LDBL_MAX_EXP - 100),
357 	test2(atan2f, -0x1.0p100, -0x1.0p-100, (float)-pi / 2, FE_INEXACT);
358 	test2(atan2, -0x1.0p1000, -0x1.0p-1000, (double)-pi / 2, FE_INEXACT);
359 	test2(atan2l, -ldexpl(1.0, LDBL_MAX_EXP - 100),