lib/msun/test-invtrig.c

83 #define test2(func, y, x, result, excepts)				\
157 		test2(atan2f, 0.0, ldexpf(z, e), 0.0, 0);
158 		test2(atan2f, -0.0, ldexpf(z, e), -0.0, 0);
159 		test2(atan2f, 0.0, ldexpf(-z, e), (float)pi, FE_INEXACT);
160 		test2(atan2f, -0.0, ldexpf(-z, e), (float)-pi, FE_INEXACT);
161 		test2(atan2f, ldexpf(z, e), 0.0, (float)pi / 2, FE_INEXACT);
162 		test2(atan2f, ldexpf(z, e), -0.0, (float)pi / 2, FE_INEXACT);
163 		test2(atan2f, ldexpf(-z, e), 0.0, (float)-pi / 2, FE_INEXACT);
164 		test2(atan2f, ldexpf(-z, e), -0.0, (float)-pi / 2, FE_INEXACT);
167 		test2(atan2, 0.0, ldexp(z, e), 0.0, 0);
168 		test2(atan2, -0.0, ldexp(z, e), -0.0, 0);
169 		test2(atan2, 0.0, ldexp(-z, e), (double)pi, FE_INEXACT);
170 		test2(atan2, -0.0, ldexp(-z, e), (double)-pi, FE_INEXACT);
171 		test2(atan2, ldexp(z, e), 0.0, (double)pi / 2, FE_INEXACT);
172 		test2(atan2, ldexp(z, e), -0.0, (double)pi / 2, FE_INEXACT);
173 		test2(atan2, ldexp(-z, e), 0.0, (double)-pi / 2, FE_INEXACT);
174 		test2(atan2, ldexp(-z, e), -0.0, (double)-pi / 2, FE_INEXACT);
177 		test2(atan2l, 0.0, ldexpl(z, e), 0.0, 0);
178 		test2(atan2l, -0.0, ldexpl(z, e), -0.0, 0);
179 		test2(atan2l, 0.0, ldexpl(-z, e), pi, FE_INEXACT);
180 		test2(atan2l, -0.0, ldexpl(-z, e), -pi, FE_INEXACT);
181 		test2(atan2l, ldexpl(z, e), 0.0, pi / 2, FE_INEXACT);
182 		test2(atan2l, ldexpl(z, e), -0.0, pi / 2, FE_INEXACT);
183 		test2(atan2l, ldexpl(-z, e), 0.0, -pi / 2, FE_INEXACT);
184 		test2(atan2l, ldexpl(-z, e), -0.0, -pi / 2, FE_INEXACT);
189 		test2(atan2f, ldexpf(z, e), INFINITY, 0.0, 0);
190 		test2(atan2f, ldexpf(-z,e), INFINITY, -0.0, 0);
191 		test2(atan2f, ldexpf(z, e), -INFINITY, (float)pi, FE_INEXACT);
192 		test2(atan2f, ldexpf(-z,e), -INFINITY, (float)-pi, FE_INEXACT);
193 		test2(atan2f, INFINITY, ldexpf(z,e), (float)pi/2, FE_INEXACT);
194 		test2(atan2f, INFINITY, ldexpf(-z,e), (float)pi/2, FE_INEXACT);
195 		test2(atan2f, -INFINITY, ldexpf(z,e), (float)-pi/2,FE_INEXACT);
196 		test2(atan2f, -INFINITY, ldexpf(-z,e),(float)-pi/2,FE_INEXACT);
199 		test2(atan2, ldexp(z, e), INFINITY, 0.0, 0);
200 		test2(atan2, ldexp(-z,e), INFINITY, -0.0, 0);
201 		test2(atan2, ldexp(z, e), -INFINITY, (double)pi, FE_INEXACT);
202 		test2(atan2, ldexp(-z,e), -INFINITY, (double)-pi, FE_INEXACT);
203 		test2(atan2, INFINITY, ldexp(z,e), (double)pi/2, FE_INEXACT);
204 		test2(atan2, INFINITY, ldexp(-z,e), (double)pi/2, FE_INEXACT);
205 		test2(atan2, -INFINITY, ldexp(z,e), (double)-pi/2,FE_INEXACT);
206 		test2(atan2, -INFINITY, ldexp(-z,e),(double)-pi/2,FE_INEXACT);
209 		test2(atan2l, ldexpl(z, e), INFINITY, 0.0, 0);
210 		test2(atan2l, ldexpl(-z,e), INFINITY, -0.0, 0);
211 		test2(atan2l, ldexpl(z, e), -INFINITY, pi, FE_INEXACT);
212 		test2(atan2l, ldexpl(-z,e), -INFINITY, -pi, FE_INEXACT);
213 		test2(atan2l, INFINITY, ldexpl(z, e), pi / 2, FE_INEXACT);
214 		test2(atan2l, INFINITY, ldexpl(-z, e), pi / 2, FE_INEXACT);
215 		test2(atan2l, -INFINITY, ldexpl(z, e), -pi / 2, FE_INEXACT);
216 		test2(atan2l, -INFINITY, ldexpl(-z, e), -pi / 2, FE_INEXACT);
299 	test2(atan2f, 0x1.0p-100, 0x1.0p100, 0.0, FE_INEXACT | FE_UNDERFLOW);
300 	test2(atan2, 0x1.0p-1000, 0x1.0p1000, 0.0, FE_INEXACT | FE_UNDERFLOW);
301 	test2(atan2l, ldexpl(1.0, 100 - LDBL_MAX_EXP),
303 	test2(atan2f, -0x1.0p-100, 0x1.0p100, -0.0, FE_INEXACT | FE_UNDERFLOW);
304 	test2(atan2, -0x1.0p-1000, 0x1.0p1000, -0.0, FE_INEXACT | FE_UNDERFLOW);
305 	test2(atan2l, -ldexpl(1.0, 100 - LDBL_MAX_EXP),
307 	test2(atan2f, 0x1.0p-100, -0x1.0p100, (float)pi, FE_INEXACT);
308 	test2(atan2, 0x1.0p-1000, -0x1.0p1000, (double)pi, FE_INEXACT);
309 	test2(atan2l, ldexpl(1.0, 100 - LDBL_MAX_EXP),
311 	test2(atan2f, -0x1.0p-100, -0x1.0p100, (float)-pi, FE_INEXACT);
312 	test2(atan2, -0x1.0p-1000, -0x1.0p1000, (double)-pi, FE_INEXACT);
313 	test2(atan2l, -ldexpl(1.0, 100 - LDBL_MAX_EXP),
329 	test2(atan2f, 0x1.0p100, 0x1.0p-100, (float)pi / 2, FE_INEXACT);
330 	test2(atan2, 0x1.0p1000, 0x1.0p-1000, (double)pi / 2, FE_INEXACT);
331 	test2(atan2l, ldexpl(1.0, LDBL_MAX_EXP - 100),
333 	test2(atan2f, -0x1.0p100, 0x1.0p-100, (float)-pi / 2, FE_INEXACT);
334 	test2(atan2, -0x1.0p1000, 0x1.0p-1000, (double)-pi / 2, FE_INEXACT);
335 	test2(atan2l, -ldexpl(1.0, LDBL_MAX_EXP - 100),
338 	test2(atan2f, 0x1.0p100, -0x1.0p-100, (float)pi / 2, FE_INEXACT);
339 	test2(atan2, 0x1.0p1000, -0x1.0p-1000, (double)pi / 2, FE_INEXACT);
340 	test2(atan2l, ldexpl(1.0, LDBL_MAX_EXP - 100),
342 	test2(atan2f, -0x1.0p100, -0x1.0p-100, (float)-pi / 2, FE_INEXACT);
343 	test2(atan2, -0x1.0p1000, -0x1.0p-1000, (double)-pi / 2, FE_INEXACT);
344 	test2(atan2l, -ldexpl(1.0, LDBL_MAX_EXP - 100),