]> git.ipfire.org Git - thirdparty/glibc.git/blame - math/libm-test.inc
projects / thirdparty / glibc.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Use static initializers for constant variables in libm-test.inc.
[thirdparty/glibc.git] / math / libm-test.inc
CommitLineData
568035b7 1/* Copyright (C) 1997-2013 Free Software Foundation, Inc.
8847214f 2 This file is part of the GNU C Library.
18394a08 3 Contributed by Andreas Jaeger <aj@suse.de>, 1997.
8847214f
UD		 4
5 The GNU C Library is free software; you can redistribute it and/or
41bdb6e2
AJ		 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.
8847214f
UD		 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
41bdb6e2 13 Lesser General Public License for more details.
8847214f 14
41bdb6e2 15 You should have received a copy of the GNU Lesser General Public
59ba27a6
PE		 16 License along with the GNU C Library; if not, see
17 <http://www.gnu.org/licenses/>. */
8847214f
UD		 18
19/* Part of testsuite for libm.
20
21 This file is processed by a perl script. The resulting file has to
22 be included by a master file that defines:
23
f964490f 24 Macros:
8847214f
UD		 25 FUNC(function): converts general function name (like cos) to
26 name with correct suffix (e.g. cosl or cosf)
27 MATHCONST(x): like FUNC but for constants (e.g convert 0.0 to 0.0L)
28 FLOAT: floating point type to test
29 - TEST_MSG: informal message to be displayed
30 CHOOSE(Clongdouble,Cdouble,Cfloat,Cinlinelongdouble,Cinlinedouble,Cinlinefloat):
31 chooses one of the parameters as delta for testing
32 equality
33 PRINTF_EXPR Floating point conversion specification to print a variable
34 of type FLOAT with printf. PRINTF_EXPR just contains
35 the specifier, not the percent and width arguments,
36 e.g. "f".
37 PRINTF_XEXPR Like PRINTF_EXPR, but print in hexadecimal format.
38 PRINTF_NEXPR Like PRINTF_EXPR, but print nice. */
39
40/* This testsuite has currently tests for:
41 acos, acosh, asin, asinh, atan, atan2, atanh,
42 cbrt, ceil, copysign, cos, cosh, erf, erfc, exp, exp10, exp2, expm1,
ef1bb361 43 fabs, fdim, finite, floor, fma, fmax, fmin, fmod, fpclassify,
8847214f 44 frexp, gamma, hypot,
57267616 45 ilogb, isfinite, isinf, isnan, isnormal, issignaling,
0e8e0c1c 46 isless, islessequal, isgreater, isgreaterequal, islessgreater, isunordered,
8847214f
UD		 47 j0, j1, jn,
48 ldexp, lgamma, log, log10, log1p, log2, logb,
28234b07 49 modf, nearbyint, nextafter, nexttoward,
8847214f
UD		 50 pow, remainder, remquo, rint, lrint, llrint,
51 round, lround, llround,
52 scalb, scalbn, scalbln, signbit, sin, sincos, sinh, sqrt, tan, tanh, tgamma, trunc,
e9c7764e 53 y0, y1, yn, significand
8847214f
UD		 54
55 and for the following complex math functions:
56 cabs, cacos, cacosh, carg, casin, casinh, catan, catanh,
28234b07
JM		 57 ccos, ccosh, cexp, cimag, clog, clog10, conj, cpow, cproj, creal,
58 csin, csinh, csqrt, ctan, ctanh.
8847214f 59
28234b07
JM		 60 At the moment the following functions and macros aren't tested:
61 drem (alias for remainder),
28234b07
JM		 62 lgamma_r,
63 nan,
64 pow10 (alias for exp10).
8847214f
UD		 65
66 Parameter handling is primitive in the moment:
67 --verbose=[0..3] for different levels of output:
68 0: only error count
69 1: basic report on failed tests (default)
70 2: full report on all tests
71 -v for full output (equals --verbose=3)
72 -u for generation of an ULPs file
73 */
74
75/* "Philosophy":
76
77 This suite tests some aspects of the correct implementation of
78 mathematical functions in libm. Some simple, specific parameters
79 are tested for correctness but there's no exhaustive
80 testing. Handling of specific inputs (e.g. infinity, not-a-number)
81 is also tested. Correct handling of exceptions is checked
82 against. These implemented tests should check all cases that are
ec751a23 83 specified in ISO C99.
8847214f 84
80bad0cc
JM		 85 Exception testing: At the moment only divide-by-zero, invalid,
86 overflow and underflow exceptions are tested. Inexact exceptions
8847214f
UD		 87 aren't checked at the moment.
88
89 NaN values: There exist signalling and quiet NaNs. This implementation
57267616
TS		 90 only uses quiet NaN as parameter. Where the sign of a NaN is
91 significant, this is not tested. The payload of NaNs is not examined.
8847214f
UD		 92
93 Inline functions: Inlining functions should give an improvement in
94 speed - but not in precission. The inlined functions return
95 reasonable values for a reasonable range of input values. The
96 result is not necessarily correct for all values and exceptions are
97 not correctly raised in all cases. Problematic input and return
98 values are infinity, not-a-number and minus zero. This suite
99 therefore does not check these specific inputs and the exception
100 handling for inlined mathematical functions - just the "reasonable"
101 values are checked.
102
103 Beware: The tests might fail for any of the following reasons:
104 - Tests are wrong
105 - Functions are wrong
106 - Floating Point Unit not working properly
107 - Compiler has errors
108
109 With e.g. gcc 2.7.2.2 the test for cexp fails because of a compiler error.
33996419
AJ		 110
111
112 To Do: All parameter should be numbers that can be represented as
2550dfe9
AJ		 113 exact floating point values. Currently some values cannot be
114 represented exactly and therefore the result is not the expected
115 result. For this we will use 36 digits so that numbers can be
116 represented exactly. */
8847214f
UD		 117
118#ifndef _GNU_SOURCE
119# define _GNU_SOURCE
120#endif
121
122#include "libm-test-ulps.h"
123#include <complex.h>
124#include <math.h>
125#include <float.h>
126#include <fenv.h>
601d2942 127#include <limits.h>
8847214f
UD		 128
129#include <errno.h>
130#include <stdlib.h>
131#include <stdio.h>
bdf09fab 132#include <string.h>
8847214f 133#include <argp.h>
ef82f4da 134#include <tininess.h>
8847214f 135
0af797de
CM		 136/* Allow platforms without all rounding modes to test properly,
137 assuming they provide an __FE_UNDEFINED in <bits/fenv.h> which
138 causes fesetround() to return failure. */
139#ifndef FE_TONEAREST
140# define FE_TONEAREST __FE_UNDEFINED
141#endif
142#ifndef FE_TOWARDZERO
143# define FE_TOWARDZERO __FE_UNDEFINED
144#endif
145#ifndef FE_UPWARD
146# define FE_UPWARD __FE_UNDEFINED
147#endif
148#ifndef FE_DOWNWARD
149# define FE_DOWNWARD __FE_UNDEFINED
150#endif
151
8847214f
UD		 152/* Possible exceptions */
153#define NO_EXCEPTION 0x0
154#define INVALID_EXCEPTION 0x1
155#define DIVIDE_BY_ZERO_EXCEPTION 0x2
c135cc1b 156#define OVERFLOW_EXCEPTION 0x4
80bad0cc 157#define UNDERFLOW_EXCEPTION 0x8
8847214f 158/* The next flags signals that those exceptions are allowed but not required. */
80bad0cc
JM		 159#define INVALID_EXCEPTION_OK 0x10
160#define DIVIDE_BY_ZERO_EXCEPTION_OK 0x20
161#define OVERFLOW_EXCEPTION_OK 0x40
162#define UNDERFLOW_EXCEPTION_OK 0x80
8847214f 163#define EXCEPTIONS_OK INVALID_EXCEPTION_OK+DIVIDE_BY_ZERO_EXCEPTION_OK
80bad0cc
JM		 164/* Some special test flags, passed together with exceptions. */
165#define IGNORE_ZERO_INF_SIGN 0x100
f2da7793
JM		 166/* Indicate errno settings required or disallowed. */
167#define ERRNO_UNCHANGED 0x200
168#define ERRNO_EDOM 0x400
169#define ERRNO_ERANGE 0x800
80bad0cc
JM		 170
171/* Values underflowing only for float. */
172#ifdef TEST_FLOAT
173# define UNDERFLOW_EXCEPTION_FLOAT UNDERFLOW_EXCEPTION
174# define UNDERFLOW_EXCEPTION_OK_FLOAT UNDERFLOW_EXCEPTION_OK
175#else
176# define UNDERFLOW_EXCEPTION_FLOAT 0
177# define UNDERFLOW_EXCEPTION_OK_FLOAT 0
178#endif
179/* Values underflowing only for double or types with a larger least
180 positive normal value. */
181#if defined TEST_FLOAT || defined TEST_DOUBLE \
182 || (defined TEST_LDOUBLE && LDBL_MIN_EXP >= DBL_MIN_EXP)
183# define UNDERFLOW_EXCEPTION_DOUBLE UNDERFLOW_EXCEPTION
ccc8cadf 184# define UNDERFLOW_EXCEPTION_OK_DOUBLE UNDERFLOW_EXCEPTION_OK
80bad0cc
JM		 185#else
186# define UNDERFLOW_EXCEPTION_DOUBLE 0
ccc8cadf 187# define UNDERFLOW_EXCEPTION_OK_DOUBLE 0
80bad0cc
JM		 188#endif
189/* Values underflowing only for IBM long double or types with a larger least
190 positive normal value. */
191#if defined TEST_FLOAT || (defined TEST_LDOUBLE && LDBL_MIN_EXP > DBL_MIN_EXP)
192# define UNDERFLOW_EXCEPTION_LDOUBLE_IBM UNDERFLOW_EXCEPTION
193#else
194# define UNDERFLOW_EXCEPTION_LDOUBLE_IBM 0
195#endif
ef82f4da
JM		 196/* Values underflowing on architectures detecting tininess before
197 rounding, but not on those detecting tininess after rounding. */
198#define UNDERFLOW_EXCEPTION_BEFORE_ROUNDING (TININESS_AFTER_ROUNDING \
199 ? 0 \
200 : UNDERFLOW_EXCEPTION)
8847214f
UD		 201
202/* Various constants (we must supply them precalculated for accuracy). */
42be70d4
UD		 203#define M_PI_6l .52359877559829887307710723054658383L
204#define M_E2l 7.389056098930650227230427460575008L
205#define M_E3l 20.085536923187667740928529654581719L
206#define M_2_SQRT_PIl 3.5449077018110320545963349666822903L /* 2 sqrt (M_PIl) */
207#define M_SQRT_PIl 1.7724538509055160272981674833411451L /* sqrt (M_PIl) */
3c6cad26
UD		 208#define M_LOG_SQRT_PIl 0.57236494292470008707171367567652933L /* log(sqrt(M_PIl)) */
209#define M_LOG_2_SQRT_PIl 1.265512123484645396488945797134706L /* log(2*sqrt(M_PIl)) */
8847214f
UD		 210#define M_PI_34l (M_PIl - M_PI_4l) /* 3*pi/4 */
211#define M_PI_34_LOG10El (M_PIl - M_PI_4l) * M_LOG10El
212#define M_PI2_LOG10El M_PI_2l * M_LOG10El
213#define M_PI4_LOG10El M_PI_4l * M_LOG10El
214#define M_PI_LOG10El M_PIl * M_LOG10El
72c7a71d 215#define M_SQRT_2_2 0.70710678118654752440084436210484903L /* sqrt (2) / 2 */
8847214f 216
26510bdd
CD		 217#define ulps_file_name "ULPs" /* Name of the ULPs file. */
218static FILE *ulps_file; /* File to document difference. */
219static int output_ulps; /* Should ulps printed? */
220static char *output_dir; /* Directory where generated files will be written. */
8847214f
UD		 221
222static int noErrors; /* number of errors */
223static int noTests; /* number of tests (without testing exceptions) */
224static int noExcTests; /* number of tests for exception flags */
f2da7793 225static int noErrnoTests;/* number of tests for errno values */
8847214f
UD		 226static int noXFails; /* number of expected failures. */
227static int noXPasses; /* number of unexpected passes. */
228
229static int verbose;
230static int output_max_error; /* Should the maximal errors printed? */
231static int output_points; /* Should the single function results printed? */
cd33623e 232static int ignore_max_ulp; /* Should we ignore max_ulp? */
8847214f 233
a7548d41
JM		 234static const FLOAT plus_zero = CHOOSE (0.0L, 0.0, 0.0f,
235 0.0L, 0.0, 0.0f);
236static const FLOAT minus_zero = CHOOSE (-0.0L, -0.0, -0.0f,
237 -0.0L, -0.0, -0.0f);
238static const FLOAT plus_infty = CHOOSE (HUGE_VALL, HUGE_VAL, HUGE_VALF,
239 HUGE_VALL, HUGE_VAL, HUGE_VALF);
240static const FLOAT minus_infty = CHOOSE (-HUGE_VALL, -HUGE_VAL, -HUGE_VALF,
241 -HUGE_VALL, -HUGE_VAL, -HUGE_VALF);
242static const FLOAT qnan_value = FUNC (__builtin_nan) ("");
243static const FLOAT max_value = CHOOSE (LDBL_MAX, DBL_MAX, FLT_MAX,
244 LDBL_MAX, DBL_MAX, FLT_MAX);
245static const FLOAT min_value = CHOOSE (LDBL_MIN, DBL_MIN, FLT_MIN,
246 LDBL_MIN, DBL_MIN, FLT_MIN);
247static const FLOAT min_subnorm_value = CHOOSE (__LDBL_DENORM_MIN__,
248 __DBL_DENORM_MIN__,
249 __FLT_DENORM_MIN__,
250 __LDBL_DENORM_MIN__,
251 __DBL_DENORM_MIN__,
252 __FLT_DENORM_MIN__);
8847214f 253
6815fabc 254static FLOAT max_error, real_max_error, imag_max_error;
8847214f
UD		 255
256
257#define BUILD_COMPLEX(real, imag) \
258 ({ __complex__ FLOAT __retval; \
259 __real__ __retval = (real); \
260 __imag__ __retval = (imag); \
261 __retval; })
262
6815fabc
UD		 263#define BUILD_COMPLEX_INT(real, imag) \
264 ({ __complex__ int __retval; \
265 __real__ __retval = (real); \
266 __imag__ __retval = (imag); \
267 __retval; })
268
8847214f
UD		 269
270#define MANT_DIG CHOOSE ((LDBL_MANT_DIG-1), (DBL_MANT_DIG-1), (FLT_MANT_DIG-1), \
bf582445 271 (LDBL_MANT_DIG-1), (DBL_MANT_DIG-1), (FLT_MANT_DIG-1))
8847214f
UD		 272
273static void
274init_max_error (void)
275{
276 max_error = 0;
6815fabc
UD		 277 real_max_error = 0;
278 imag_max_error = 0;
aaca11d8 279 feclearexcept (FE_ALL_EXCEPT);
f2da7793 280 errno = 0;
8847214f
UD		 281}
282
283static void
6815fabc 284set_max_error (FLOAT current, FLOAT *curr_max_error)
8847214f 285{
6815fabc
UD		 286 if (current > *curr_max_error)
287 *curr_max_error = current;
8847214f
UD		 288}
289
290
57267616
TS		 291/* Print a FLOAT. */
292static void
293print_float (FLOAT f)
294{
295 /* As printf doesn't differ between a sNaN and a qNaN, do this manually. */
296 if (issignaling (f))
297 printf ("sNaN\n");
298 else if (isnan (f))
299 printf ("qNaN\n");
300 else
301 printf ("% .20" PRINTF_EXPR " % .20" PRINTF_XEXPR "\n", f, f);
302}
303
8847214f
UD		 304/* Should the message print to screen? This depends on the verbose flag,
305 and the test status. */
306static int
307print_screen (int ok, int xfail)
308{
309 if (output_points
310 && (verbose > 1
15daa639 311 || (verbose == 1 && ok == xfail)))
8847214f
UD		 312 return 1;
313 return 0;
314}
315
316
317/* Should the message print to screen? This depends on the verbose flag,
318 and the test status. */
319static int
320print_screen_max_error (int ok, int xfail)
321{
322 if (output_max_error
323 && (verbose > 1
324 || ((verbose == 1) && (ok == xfail))))
325 return 1;
326 return 0;
327}
328
329/* Update statistic counters. */
330static void
331update_stats (int ok, int xfail)
332{
333 ++noTests;
334 if (ok && xfail)
335 ++noXPasses;
336 else if (!ok && xfail)
337 ++noXFails;
338 else if (!ok && !xfail)
339 ++noErrors;
340}
341
342static void
343print_ulps (const char *test_name, FLOAT ulp)
344{
345 if (output_ulps)
346 {
347 fprintf (ulps_file, "Test \"%s\":\n", test_name);
303f1335 348 fprintf (ulps_file, "%s: %.0" PRINTF_NEXPR "\n",
8847214f 349 CHOOSE("ldouble", "double", "float",
303f1335
AS		 350 "ildouble", "idouble", "ifloat"),
351 FUNC(ceil) (ulp));
8847214f
UD		 352 }
353}
354
355static void
356print_function_ulps (const char *function_name, FLOAT ulp)
357{
358 if (output_ulps)
359 {
6815fabc 360 fprintf (ulps_file, "Function: \"%s\":\n", function_name);
303f1335 361 fprintf (ulps_file, "%s: %.0" PRINTF_NEXPR "\n",
8847214f 362 CHOOSE("ldouble", "double", "float",
303f1335
AS		 363 "ildouble", "idouble", "ifloat"),
364 FUNC(ceil) (ulp));
8847214f
UD		 365 }
366}
367
368
6815fabc
UD		 369static void
370print_complex_function_ulps (const char *function_name, FLOAT real_ulp,
371 FLOAT imag_ulp)
372{
373 if (output_ulps)
374 {
375 if (real_ulp != 0.0)
376 {
377 fprintf (ulps_file, "Function: Real part of \"%s\":\n", function_name);
303f1335 378 fprintf (ulps_file, "%s: %.0" PRINTF_NEXPR "\n",
6815fabc 379 CHOOSE("ldouble", "double", "float",
303f1335
AS		 380 "ildouble", "idouble", "ifloat"),
381 FUNC(ceil) (real_ulp));
6815fabc
UD		 382 }
383 if (imag_ulp != 0.0)
384 {
385 fprintf (ulps_file, "Function: Imaginary part of \"%s\":\n", function_name);
303f1335 386 fprintf (ulps_file, "%s: %.0" PRINTF_NEXPR "\n",
6815fabc 387 CHOOSE("ldouble", "double", "float",
303f1335
AS		 388 "ildouble", "idouble", "ifloat"),
389 FUNC(ceil) (imag_ulp));
6815fabc 390 }
15daa639
UD		 391
392
6815fabc
UD		 393 }
394}
395
396
8847214f
UD		 397
398/* Test if Floating-Point stack hasn't changed */
399static void
400fpstack_test (const char *test_name)
401{
64487e12 402#if defined (__i386__) || defined (__x86_64__)
8847214f
UD		 403 static int old_stack;
404 int sw;
405
406 asm ("fnstsw" : "=a" (sw));
407 sw >>= 11;
408 sw &= 7;
409
410 if (sw != old_stack)
411 {
412 printf ("FP-Stack wrong after test %s (%d, should be %d)\n",
413 test_name, sw, old_stack);
414 ++noErrors;
415 old_stack = sw;
416 }
417#endif
418}
419
420
421static void
422print_max_error (const char *func_name, FLOAT allowed, int xfail)
423{
8847214f
UD		 424 int ok = 0;
425
cd33623e 426 if (max_error == 0.0 || (max_error <= allowed && !ignore_max_ulp))
8847214f
UD		 427 {
428 ok = 1;
429 }
430
431 if (!ok)
432 print_function_ulps (func_name, max_error);
433
434
435 if (print_screen_max_error (ok, xfail))
436 {
6815fabc 437 printf ("Maximal error of `%s'\n", func_name);
303f1335
AS		 438 printf (" is : %.0" PRINTF_NEXPR " ulp\n", FUNC(ceil) (max_error));
439 printf (" accepted: %.0" PRINTF_NEXPR " ulp\n", FUNC(ceil) (allowed));
8847214f
UD		 440 }
441
442 update_stats (ok, xfail);
443}
444
445
6815fabc
UD		 446static void
447print_complex_max_error (const char *func_name, __complex__ FLOAT allowed,
448 __complex__ int xfail)
449{
450 int ok = 0;
451
303f1335
AS		 452 if ((real_max_error == 0 && imag_max_error == 0)
453 || (real_max_error <= __real__ allowed
454 && imag_max_error <= __imag__ allowed
455 && !ignore_max_ulp))
6815fabc
UD		 456 {
457 ok = 1;
458 }
459
460 if (!ok)
461 print_complex_function_ulps (func_name, real_max_error, imag_max_error);
462
463
464 if (print_screen_max_error (ok, xfail))
465 {
466 printf ("Maximal error of real part of: %s\n", func_name);
303f1335
AS		 467 printf (" is : %.0" PRINTF_NEXPR " ulp\n",
468 FUNC(ceil) (real_max_error));
469 printf (" accepted: %.0" PRINTF_NEXPR " ulp\n",
470 FUNC(ceil) (__real__ allowed));
6815fabc 471 printf ("Maximal error of imaginary part of: %s\n", func_name);
303f1335
AS		 472 printf (" is : %.0" PRINTF_NEXPR " ulp\n",
473 FUNC(ceil) (imag_max_error));
474 printf (" accepted: %.0" PRINTF_NEXPR " ulp\n",
475 FUNC(ceil) (__imag__ allowed));
6815fabc
UD		 476 }
477
478 update_stats (ok, xfail);
479}
480
481
8847214f
UD		 482/* Test whether a given exception was raised. */
483static void
484test_single_exception (const char *test_name,
485 int exception,
486 int exc_flag,
487 int fe_flag,
488 const char *flag_name)
489{
490#ifndef TEST_INLINE
491 int ok = 1;
492 if (exception & exc_flag)
493 {
494 if (fetestexcept (fe_flag))
495 {
496 if (print_screen (1, 0))
497 printf ("Pass: %s: Exception \"%s\" set\n", test_name, flag_name);
498 }
499 else
500 {
501 ok = 0;
502 if (print_screen (0, 0))
503 printf ("Failure: %s: Exception \"%s\" not set\n",
504 test_name, flag_name);
505 }
506 }
507 else
508 {
509 if (fetestexcept (fe_flag))
510 {
511 ok = 0;
512 if (print_screen (0, 0))
513 printf ("Failure: %s: Exception \"%s\" set\n",
514 test_name, flag_name);
515 }
516 else
517 {
518 if (print_screen (1, 0))
519 printf ("%s: Exception \"%s\" not set\n", test_name,
520 flag_name);
521 }
522 }
523 if (!ok)
524 ++noErrors;
525
526#endif
527}
528
529
530/* Test whether exceptions given by EXCEPTION are raised. Ignore thereby
531 allowed but not required exceptions.
532*/
533static void
534test_exceptions (const char *test_name, int exception)
535{
536 ++noExcTests;
537#ifdef FE_DIVBYZERO
538 if ((exception & DIVIDE_BY_ZERO_EXCEPTION_OK) == 0)
539 test_single_exception (test_name, exception,
540 DIVIDE_BY_ZERO_EXCEPTION, FE_DIVBYZERO,
541 "Divide by zero");
542#endif
543#ifdef FE_INVALID
544 if ((exception & INVALID_EXCEPTION_OK) == 0)
545 test_single_exception (test_name, exception, INVALID_EXCEPTION, FE_INVALID,
546 "Invalid operation");
c135cc1b
JM		 547#endif
548#ifdef FE_OVERFLOW
549 if ((exception & OVERFLOW_EXCEPTION_OK) == 0)
550 test_single_exception (test_name, exception, OVERFLOW_EXCEPTION,
551 FE_OVERFLOW, "Overflow");
80bad0cc
JM		 552#endif
553#ifdef FE_UNDERFLOW
554 if ((exception & UNDERFLOW_EXCEPTION_OK) == 0)
555 test_single_exception (test_name, exception, UNDERFLOW_EXCEPTION,
556 FE_UNDERFLOW, "Underflow");
8847214f
UD		 557#endif
558 feclearexcept (FE_ALL_EXCEPT);
559}
560
f2da7793
JM		 561/* Test whether errno for TEST_NAME, set to ERRNO_VALUE, has value
562 EXPECTED_VALUE (description EXPECTED_NAME). */
563static void
564test_single_errno (const char *test_name, int errno_value,
565 int expected_value, const char *expected_name)
566{
567 if (errno_value == expected_value)
568 {
569 if (print_screen (1, 0))
570 printf ("Pass: %s: errno set to %d (%s)\n", test_name, errno_value,
571 expected_name);
572 }
573 else
574 {
575 ++noErrors;
576 if (print_screen (0, 0))
577 printf ("Failure: %s: errno set to %d, expected %d (%s)\n",
578 test_name, errno_value, expected_value, expected_name);
579 }
580}
581
582/* Test whether errno (value ERRNO_VALUE) has been for TEST_NAME set
583 as required by EXCEPTIONS. */
584static void
585test_errno (const char *test_name, int errno_value, int exceptions)
586{
587 ++noErrnoTests;
588 if (exceptions & ERRNO_UNCHANGED)
589 test_single_errno (test_name, errno_value, 0, "unchanged");
590 if (exceptions & ERRNO_EDOM)
591 test_single_errno (test_name, errno_value, EDOM, "EDOM");
592 if (exceptions & ERRNO_ERANGE)
593 test_single_errno (test_name, errno_value, ERANGE, "ERANGE");
594}
8847214f
UD		 595
596static void
6815fabc
UD		 597check_float_internal (const char *test_name, FLOAT computed, FLOAT expected,
598 FLOAT max_ulp, int xfail, int exceptions,
599 FLOAT *curr_max_error)
8847214f
UD		 600{
601 int ok = 0;
602 int print_diff = 0;
603 FLOAT diff = 0;
604 FLOAT ulp = 0;
f2da7793 605 int errno_value = errno;
8847214f
UD		 606
607 test_exceptions (test_name, exceptions);
f2da7793 608 test_errno (test_name, errno_value, exceptions);
57267616
TS		 609 if (issignaling (computed) && issignaling (expected))
610 ok = 1;
611 else if (issignaling (computed) || issignaling (expected))
612 ok = 0;
613 else if (isnan (computed) && isnan (expected))
8847214f
UD		 614 ok = 1;
615 else if (isinf (computed) && isinf (expected))
616 {
617 /* Test for sign of infinities. */
ba3752d5
UD		 618 if ((exceptions & IGNORE_ZERO_INF_SIGN) == 0
619 && signbit (computed) != signbit (expected))
8847214f
UD		 620 {
621 ok = 0;
622 printf ("infinity has wrong sign.\n");
623 }
624 else
625 ok = 1;
626 }
57267616
TS		 627 /* Don't calculate ULPs for infinities or any kind of NaNs. */
628 else if (isinf (computed) || isnan (computed)
629 || isinf (expected) || isnan (expected))
8847214f
UD		 630 ok = 0;
631 else
632 {
633 diff = FUNC(fabs) (computed - expected);
e6b29af8
UD		 634 switch (fpclassify (expected))
635 {
636 case FP_ZERO:
637 /* ilogb (0) isn't allowed. */
638 ulp = diff / FUNC(ldexp) (1.0, - MANT_DIG);
639 break;
640 case FP_NORMAL:
641 ulp = diff / FUNC(ldexp) (1.0, FUNC(ilogb) (expected) - MANT_DIG);
642 break;
643 case FP_SUBNORMAL:
6c23e11c
JM		 644 /* 1ulp for a subnormal value, shifted by MANT_DIG, is the
645 least normal value. */
646 ulp = (FUNC(ldexp) (diff, MANT_DIG) / min_value);
e6b29af8
UD		 647 break;
648 default:
649 /* It should never happen. */
650 abort ();
651 break;
652 }
6815fabc 653 set_max_error (ulp, curr_max_error);
8847214f 654 print_diff = 1;
ba3752d5
UD		 655 if ((exceptions & IGNORE_ZERO_INF_SIGN) == 0
656 && computed == 0.0 && expected == 0.0
657 && signbit(computed) != signbit (expected))
3a8e65a0 658 ok = 0;
f964490f 659 else if (ulp <= 0.5 || (ulp <= max_ulp && !ignore_max_ulp))
8847214f
UD		 660 ok = 1;
661 else
662 {
663 ok = 0;
664 print_ulps (test_name, ulp);
665 }
666
667 }
668 if (print_screen (ok, xfail))
669 {
670 if (!ok)
671 printf ("Failure: ");
672 printf ("Test: %s\n", test_name);
673 printf ("Result:\n");
57267616
TS		 674 printf (" is: ");
675 print_float (computed);
676 printf (" should be: ");
677 print_float (expected);
8847214f
UD		 678 if (print_diff)
679 {
680 printf (" difference: % .20" PRINTF_EXPR " % .20" PRINTF_XEXPR
681 "\n", diff, diff);
682 printf (" ulp : % .4" PRINTF_NEXPR "\n", ulp);
683 printf (" max.ulp : % .4" PRINTF_NEXPR "\n", max_ulp);
684 }
685 }
686 update_stats (ok, xfail);
687
688 fpstack_test (test_name);
f2da7793 689 errno = 0;
8847214f
UD		 690}
691
692
693static void
6815fabc
UD		 694check_float (const char *test_name, FLOAT computed, FLOAT expected,
695 FLOAT max_ulp, int xfail, int exceptions)
696{
697 check_float_internal (test_name, computed, expected, max_ulp, xfail,
698 exceptions, &max_error);
699}
700
701
702static void
703check_complex (const char *test_name, __complex__ FLOAT computed,
704 __complex__ FLOAT expected,
705 __complex__ FLOAT max_ulp, __complex__ int xfail,
706 int exception)
8847214f 707{
6815fabc
UD		 708 FLOAT part_comp, part_exp, part_max_ulp;
709 int part_xfail;
2fd89785
MS		 710 char *str;
711
712 if (asprintf (&str, "Real part of: %s", test_name) == -1)
713 abort ();
8847214f 714
8847214f
UD		 715 part_comp = __real__ computed;
716 part_exp = __real__ expected;
6815fabc
UD		 717 part_max_ulp = __real__ max_ulp;
718 part_xfail = __real__ xfail;
15daa639 719
6815fabc
UD		 720 check_float_internal (str, part_comp, part_exp, part_max_ulp, part_xfail,
721 exception, &real_max_error);
2fd89785
MS		 722 free (str);
723
724 if (asprintf (&str, "Imaginary part of: %s", test_name) == -1)
725 abort ();
8847214f 726
8847214f
UD		 727 part_comp = __imag__ computed;
728 part_exp = __imag__ expected;
6815fabc
UD		 729 part_max_ulp = __imag__ max_ulp;
730 part_xfail = __imag__ xfail;
15daa639 731
f2da7793 732 /* Don't check again for exceptions or errno, just pass through the
8847214f 733 zero/inf sign test. */
6815fabc
UD		 734 check_float_internal (str, part_comp, part_exp, part_max_ulp, part_xfail,
735 exception & IGNORE_ZERO_INF_SIGN,
736 &imag_max_error);
2fd89785 737 free (str);
8847214f
UD		 738}
739
740
741/* Check that computed and expected values are equal (int values). */
742static void
743check_int (const char *test_name, int computed, int expected, int max_ulp,
744 int xfail, int exceptions)
745{
746 int diff = computed - expected;
747 int ok = 0;
f2da7793 748 int errno_value = errno;
8847214f
UD		 749
750 test_exceptions (test_name, exceptions);
f2da7793 751 test_errno (test_name, errno_value, exceptions);
8847214f
UD		 752 noTests++;
753 if (abs (diff) <= max_ulp)
754 ok = 1;
755
756 if (!ok)
757 print_ulps (test_name, diff);
758
759 if (print_screen (ok, xfail))
760 {
761 if (!ok)
762 printf ("Failure: ");
763 printf ("Test: %s\n", test_name);
764 printf ("Result:\n");
765 printf (" is: %d\n", computed);
766 printf (" should be: %d\n", expected);
767 }
768
769 update_stats (ok, xfail);
770 fpstack_test (test_name);
f2da7793 771 errno = 0;
8847214f
UD		 772}
773
774
775/* Check that computed and expected values are equal (long int values). */
776static void
777check_long (const char *test_name, long int computed, long int expected,
778 long int max_ulp, int xfail, int exceptions)
779{
780 long int diff = computed - expected;
781 int ok = 0;
f2da7793 782 int errno_value = errno;
8847214f
UD		 783
784 test_exceptions (test_name, exceptions);
f2da7793 785 test_errno (test_name, errno_value, exceptions);
8847214f
UD		 786 noTests++;
787 if (labs (diff) <= max_ulp)
788 ok = 1;
789
790 if (!ok)
791 print_ulps (test_name, diff);
792
793 if (print_screen (ok, xfail))
794 {
795 if (!ok)
796 printf ("Failure: ");
797 printf ("Test: %s\n", test_name);
798 printf ("Result:\n");
799 printf (" is: %ld\n", computed);
800 printf (" should be: %ld\n", expected);
801 }
802
803 update_stats (ok, xfail);
804 fpstack_test (test_name);
f2da7793 805 errno = 0;
8847214f
UD		 806}
807
808
809/* Check that computed value is true/false. */
810static void
811check_bool (const char *test_name, int computed, int expected,
812 long int max_ulp, int xfail, int exceptions)
813{
814 int ok = 0;
f2da7793 815 int errno_value = errno;
8847214f
UD		 816
817 test_exceptions (test_name, exceptions);
f2da7793 818 test_errno (test_name, errno_value, exceptions);
8847214f
UD		 819 noTests++;
820 if ((computed == 0) == (expected == 0))
821 ok = 1;
822
823 if (print_screen (ok, xfail))
824 {
825 if (!ok)
826 printf ("Failure: ");
827 printf ("Test: %s\n", test_name);
828 printf ("Result:\n");
829 printf (" is: %d\n", computed);
830 printf (" should be: %d\n", expected);
831 }
832
833 update_stats (ok, xfail);
834 fpstack_test (test_name);
f2da7793 835 errno = 0;
8847214f
UD		 836}
837
838
839/* check that computed and expected values are equal (long int values) */
840static void
841check_longlong (const char *test_name, long long int computed,
842 long long int expected,
843 long long int max_ulp, int xfail,
844 int exceptions)
845{
846 long long int diff = computed - expected;
847 int ok = 0;
f2da7793 848 int errno_value = errno;
8847214f
UD		 849
850 test_exceptions (test_name, exceptions);
f2da7793 851 test_errno (test_name, errno_value, exceptions);
8847214f
UD		 852 noTests++;
853 if (llabs (diff) <= max_ulp)
854 ok = 1;
855
856 if (!ok)
857 print_ulps (test_name, diff);
858
859 if (print_screen (ok, xfail))
860 {
861 if (!ok)
862 printf ("Failure:");
863 printf ("Test: %s\n", test_name);
864 printf ("Result:\n");
865 printf (" is: %lld\n", computed);
866 printf (" should be: %lld\n", expected);
867 }
868
869 update_stats (ok, xfail);
870 fpstack_test (test_name);
f2da7793 871 errno = 0;
8847214f
UD		 872}
873
874
875
876/* This is to prevent messages from the SVID libm emulation. */
877int
878matherr (struct exception *x __attribute__ ((unused)))
879{
880 return 1;
881}
882
883
884/****************************************************************************
885 Tests for single functions of libm.
886 Please keep them alphabetically sorted!
887****************************************************************************/
888
889static void
890acos_test (void)
891{
e6d3c4a7
AJ		 892 errno = 0;
893 FUNC(acos) (0);
894 if (errno == ENOSYS)
895 /* Function not implemented. */
896 return;
897
8847214f
UD		 898 START (acos);
899
67e971f1
TS		 900 TEST_f_f (acos, plus_infty, qnan_value, INVALID_EXCEPTION);
901 TEST_f_f (acos, minus_infty, qnan_value, INVALID_EXCEPTION);
902 TEST_f_f (acos, qnan_value, qnan_value);
8847214f
UD		 903
904 /* |x| > 1: */
67e971f1
TS		 905 TEST_f_f (acos, 1.125L, qnan_value, INVALID_EXCEPTION);
906 TEST_f_f (acos, -1.125L, qnan_value, INVALID_EXCEPTION);
907 TEST_f_f (acos, max_value, qnan_value, INVALID_EXCEPTION);
908 TEST_f_f (acos, -max_value, qnan_value, INVALID_EXCEPTION);
8847214f
UD		 909
910 TEST_f_f (acos, 0, M_PI_2l);
911 TEST_f_f (acos, minus_zero, M_PI_2l);
912 TEST_f_f (acos, 1, 0);
913 TEST_f_f (acos, -1, M_PIl);
914 TEST_f_f (acos, 0.5, M_PI_6l*2.0);
915 TEST_f_f (acos, -0.5, M_PI_6l*4.0);
2550dfe9 916 TEST_f_f (acos, 0.75L, 0.722734247813415611178377352641333362L);
b6550497 917 TEST_f_f (acos, 2e-17L, 1.57079632679489659923132169163975144L);
96d10bdf 918 TEST_f_f (acos, 0.0625L, 1.50825556499840522843072005474337068L);
adfbc8ac
JM		 919 TEST_f_f (acos, 0x0.ffffffp0L, 3.4526698471620358760324948263873649728491e-4L);
920 TEST_f_f (acos, -0x0.ffffffp0L, 3.1412473866050770348750401337968641476999L);
921#ifndef TEST_FLOAT
922 TEST_f_f (acos, 0x0.ffffffff8p0L, 1.5258789062648029736620564947844627548516e-5L);
923 TEST_f_f (acos, -0x0.ffffffff8p0L, 3.1415773948007305904329067627145550395696L);
924 TEST_f_f (acos, 0x0.ffffffffffffp0L, 8.4293697021788088529885473244391795127130e-8L);
925 TEST_f_f (acos, -0x0.ffffffffffffp0L, 3.1415925692960962166745548533940296398054L);
926#endif
927#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64
928 TEST_f_f (acos, 0x0.ffffffffffffffffp0L, 3.2927225399135962333718255320079907245059e-10L);
929 TEST_f_f (acos, -0x0.ffffffffffffffffp0L, 3.1415926532605209844712837599423203309964L);
930#endif
8847214f
UD		 931 END (acos);
932}
933
5ba3cc69
JM		 934
935static void
936acos_test_tonearest (void)
937{
938 int save_round_mode;
939 errno = 0;
940 FUNC(acos) (0);
941 if (errno == ENOSYS)
942 /* Function not implemented. */
943 return;
944
945 START (acos_tonearest);
946
947 save_round_mode = fegetround ();
948
949 if (!fesetround (FE_TONEAREST))
950 {
951 TEST_f_f (acos, 0, M_PI_2l);
952 TEST_f_f (acos, minus_zero, M_PI_2l);
953 TEST_f_f (acos, 1, 0);
954 TEST_f_f (acos, -1, M_PIl);
955 TEST_f_f (acos, 0.5, M_PI_6l*2.0);
956 TEST_f_f (acos, -0.5, M_PI_6l*4.0);
957 }
958
959 fesetround (save_round_mode);
960
961 END (acos_tonearest);
962}
963
964
965static void
966acos_test_towardzero (void)
967{
968 int save_round_mode;
969 errno = 0;
970 FUNC(acos) (0);
971 if (errno == ENOSYS)
972 /* Function not implemented. */
973 return;
974
975 START (acos_towardzero);
976
977 save_round_mode = fegetround ();
978
979 if (!fesetround (FE_TOWARDZERO))
980 {
981 TEST_f_f (acos, 0, M_PI_2l);
982 TEST_f_f (acos, minus_zero, M_PI_2l);
983 TEST_f_f (acos, 1, 0);
984 TEST_f_f (acos, -1, M_PIl);
985 TEST_f_f (acos, 0.5, M_PI_6l*2.0);
986 TEST_f_f (acos, -0.5, M_PI_6l*4.0);
987 }
988
989 fesetround (save_round_mode);
990
991 END (acos_towardzero);
992}
993
994
995static void
996acos_test_downward (void)
997{
998 int save_round_mode;
999 errno = 0;
1000 FUNC(acos) (0);
1001 if (errno == ENOSYS)
1002 /* Function not implemented. */
1003 return;
1004
1005 START (acos_downward);
1006
1007 save_round_mode = fegetround ();
1008
1009 if (!fesetround (FE_DOWNWARD))
1010 {
1011 TEST_f_f (acos, 0, M_PI_2l);
1012 TEST_f_f (acos, minus_zero, M_PI_2l);
1013 TEST_f_f (acos, 1, 0);
1014 TEST_f_f (acos, -1, M_PIl);
1015 TEST_f_f (acos, 0.5, M_PI_6l*2.0);
1016 TEST_f_f (acos, -0.5, M_PI_6l*4.0);
1017 }
1018
1019 fesetround (save_round_mode);
1020
1021 END (acos_downward);
1022}
1023
1024
1025static void
1026acos_test_upward (void)
1027{
1028 int save_round_mode;
1029 errno = 0;
1030 FUNC(acos) (0);
1031 if (errno == ENOSYS)
1032 /* Function not implemented. */
1033 return;
1034
1035 START (acos_upward);
1036
1037 save_round_mode = fegetround ();
1038
1039 if (!fesetround (FE_UPWARD))
1040 {
1041 TEST_f_f (acos, 0, M_PI_2l);
1042 TEST_f_f (acos, minus_zero, M_PI_2l);
1043 TEST_f_f (acos, 1, 0);
1044 TEST_f_f (acos, -1, M_PIl);
1045 TEST_f_f (acos, 0.5, M_PI_6l*2.0);
1046 TEST_f_f (acos, -0.5, M_PI_6l*4.0);
1047 }
1048
1049 fesetround (save_round_mode);
1050
1051 END (acos_upward);
1052}
1053
8847214f
UD		 1054static void
1055acosh_test (void)
1056{
aaca11d8
UD		 1057 errno = 0;
1058 FUNC(acosh) (7);
1059 if (errno == ENOSYS)
1060 /* Function not implemented. */
1061 return;
1062
8847214f
UD		 1063 START (acosh);
1064
1065 TEST_f_f (acosh, plus_infty, plus_infty);
67e971f1 1066 TEST_f_f (acosh, minus_infty, qnan_value, INVALID_EXCEPTION);
64d063b8 1067 TEST_f_f (acosh, qnan_value, qnan_value);
8847214f
UD		 1068
1069 /* x < 1: */
67e971f1
TS		 1070 TEST_f_f (acosh, -1.125L, qnan_value, INVALID_EXCEPTION);
1071 TEST_f_f (acosh, -max_value, qnan_value, INVALID_EXCEPTION);
8847214f
UD		 1072
1073 TEST_f_f (acosh, 1, 0);
2550dfe9 1074 TEST_f_f (acosh, 7, 2.63391579384963341725009269461593689L);
8847214f
UD		 1075
1076 END (acosh);
1077}
1078
1079static void
1080asin_test (void)
1081{
e6d3c4a7
AJ		 1082 errno = 0;
1083 FUNC(asin) (0);
1084 if (errno == ENOSYS)
1085 /* Function not implemented. */
1086 return;
8847214f
UD		 1087
1088 START (asin);
1089
67e971f1
TS		 1090 TEST_f_f (asin, plus_infty, qnan_value, INVALID_EXCEPTION);
1091 TEST_f_f (asin, minus_infty, qnan_value, INVALID_EXCEPTION);
1092 TEST_f_f (asin, qnan_value, qnan_value);
8847214f 1093
67e971f1
TS		 1094 /* asin x == qNaN plus invalid exception for |x| > 1. */
1095 TEST_f_f (asin, 1.125L, qnan_value, INVALID_EXCEPTION);
1096 TEST_f_f (asin, -1.125L, qnan_value, INVALID_EXCEPTION);
1097 TEST_f_f (asin, max_value, qnan_value, INVALID_EXCEPTION);
1098 TEST_f_f (asin, -max_value, qnan_value, INVALID_EXCEPTION);
8847214f
UD		 1099
1100 TEST_f_f (asin, 0, 0);
1101 TEST_f_f (asin, minus_zero, minus_zero);
1102 TEST_f_f (asin, 0.5, M_PI_6l);
1103 TEST_f_f (asin, -0.5, -M_PI_6l);
1104 TEST_f_f (asin, 1.0, M_PI_2l);
1105 TEST_f_f (asin, -1.0, -M_PI_2l);
2550dfe9 1106 TEST_f_f (asin, 0.75L, 0.848062078981481008052944338998418080L);
adfbc8ac
JM		 1107 TEST_f_f (asin, 0x0.ffffffp0L, 1.5704510598101804156437184421571127056013L);
1108 TEST_f_f (asin, -0x0.ffffffp0L, -1.5704510598101804156437184421571127056013L);
1109#ifndef TEST_FLOAT
1110 TEST_f_f (asin, 0x0.ffffffff8p0L, 1.5707810680058339712015850710748035974710L);
1111 TEST_f_f (asin, -0x0.ffffffff8p0L, -1.5707810680058339712015850710748035974710L);
1112 TEST_f_f (asin, 0x0.ffffffffffffp0L, 1.5707962425011995974432331617542781977068L);
1113 TEST_f_f (asin, -0x0.ffffffffffffp0L, -1.5707962425011995974432331617542781977068L);
1114#endif
1115#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64
1116 TEST_f_f (asin, 0x0.ffffffffffffffffp0L, 1.5707963264656243652399620683025688888978L);
1117 TEST_f_f (asin, -0x0.ffffffffffffffffp0L, -1.5707963264656243652399620683025688888978L);
1118#endif
8847214f
UD		 1119
1120 END (asin);
1121}
1122
5ba3cc69
JM		 1123
1124static void
1125asin_test_tonearest (void)
1126{
1127 int save_round_mode;
1128 errno = 0;
1129 FUNC(asin) (0);
1130 if (errno == ENOSYS)
1131 /* Function not implemented. */
1132 return;
1133
1134 START (asin_tonearest);
1135
1136 save_round_mode = fegetround ();
1137
1138 if (!fesetround (FE_TONEAREST))
1139 {
1140 TEST_f_f (asin, 0, 0);
1141 TEST_f_f (asin, minus_zero, minus_zero);
1142 TEST_f_f (asin, 0.5, M_PI_6l);
1143 TEST_f_f (asin, -0.5, -M_PI_6l);
1144 TEST_f_f (asin, 1.0, M_PI_2l);
1145 TEST_f_f (asin, -1.0, -M_PI_2l);
1146 }
1147
1148 fesetround (save_round_mode);
1149
1150 END (asin_tonearest);
1151}
1152
1153
1154static void
1155asin_test_towardzero (void)
1156{
1157 int save_round_mode;
1158 errno = 0;
1159 FUNC(asin) (0);
1160 if (errno == ENOSYS)
1161 /* Function not implemented. */
1162 return;
1163
1164 START (asin_towardzero);
1165
1166 save_round_mode = fegetround ();
1167
1168 if (!fesetround (FE_TOWARDZERO))
1169 {
1170 TEST_f_f (asin, 0, 0);
1171 TEST_f_f (asin, minus_zero, minus_zero);
1172 TEST_f_f (asin, 0.5, M_PI_6l);
1173 TEST_f_f (asin, -0.5, -M_PI_6l);
1174 TEST_f_f (asin, 1.0, M_PI_2l);
1175 TEST_f_f (asin, -1.0, -M_PI_2l);
1176 }
1177
1178 fesetround (save_round_mode);
1179
1180 END (asin_towardzero);
1181}
1182
1183
1184static void
1185asin_test_downward (void)
1186{
1187 int save_round_mode;
1188 errno = 0;
1189 FUNC(asin) (0);
1190 if (errno == ENOSYS)
1191 /* Function not implemented. */
1192 return;
1193
1194 START (asin_downward);
1195
1196 save_round_mode = fegetround ();
1197
1198 if (!fesetround (FE_DOWNWARD))
1199 {
1200 TEST_f_f (asin, 0, 0);
1201 TEST_f_f (asin, minus_zero, minus_zero);
1202 TEST_f_f (asin, 0.5, M_PI_6l);
1203 TEST_f_f (asin, -0.5, -M_PI_6l);
1204 TEST_f_f (asin, 1.0, M_PI_2l);
1205 TEST_f_f (asin, -1.0, -M_PI_2l);
1206 }
1207
1208 fesetround (save_round_mode);
1209
1210 END (asin_downward);
1211}
1212
1213
1214static void
1215asin_test_upward (void)
1216{
1217 int save_round_mode;
1218 errno = 0;
1219 FUNC(asin) (0);
1220 if (errno == ENOSYS)
1221 /* Function not implemented. */
1222 return;
1223
1224 START (asin_upward);
1225
1226 save_round_mode = fegetround ();
1227
1228 if (!fesetround (FE_UPWARD))
1229 {
1230 TEST_f_f (asin, 0, 0);
1231 TEST_f_f (asin, minus_zero, minus_zero);
1232 TEST_f_f (asin, 0.5, M_PI_6l);
1233 TEST_f_f (asin, -0.5, -M_PI_6l);
1234 TEST_f_f (asin, 1.0, M_PI_2l);
1235 TEST_f_f (asin, -1.0, -M_PI_2l);
1236 }
1237
1238 fesetround (save_round_mode);
1239
1240 END (asin_upward);
1241}
1242
8847214f
UD		 1243static void
1244asinh_test (void)
1245{
aaca11d8 1246 errno = 0;
3c6cad26 1247 FUNC(asinh) (0.7L);
aaca11d8
UD		 1248 if (errno == ENOSYS)
1249 /* Function not implemented. */
1250 return;
1251
8847214f
UD		 1252 START (asinh);
1253
1254 TEST_f_f (asinh, 0, 0);
1255 TEST_f_f (asinh, minus_zero, minus_zero);
15daa639 1256#ifndef TEST_INLINE
8847214f
UD		 1257 TEST_f_f (asinh, plus_infty, plus_infty);
1258 TEST_f_f (asinh, minus_infty, minus_infty);
15daa639 1259#endif
67e971f1 1260 TEST_f_f (asinh, qnan_value, qnan_value);
2550dfe9 1261 TEST_f_f (asinh, 0.75L, 0.693147180559945309417232121458176568L);
8847214f
UD		 1262
1263 END (asinh);
1264}
1265
1266static void
1267atan_test (void)
1268{
e6d3c4a7
AJ		 1269 errno = 0;
1270 FUNC(atan) (0);
1271 if (errno == ENOSYS)
1272 /* Function not implemented. */
1273 return;
8847214f
UD		 1274
1275 START (atan);
1276
1277 TEST_f_f (atan, 0, 0);
1278 TEST_f_f (atan, minus_zero, minus_zero);
1279
1280 TEST_f_f (atan, plus_infty, M_PI_2l);
1281 TEST_f_f (atan, minus_infty, -M_PI_2l);
67e971f1 1282 TEST_f_f (atan, qnan_value, qnan_value);
6d33cc9d
DM		 1283 TEST_f_f (atan, max_value, M_PI_2l);
1284 TEST_f_f (atan, -max_value, -M_PI_2l);
8847214f
UD		 1285
1286 TEST_f_f (atan, 1, M_PI_4l);
1287 TEST_f_f (atan, -1, -M_PI_4l);
1288
2550dfe9 1289 TEST_f_f (atan, 0.75L, 0.643501108793284386802809228717322638L);
8847214f 1290
0a42601f
JM		 1291 TEST_f_f (atan, 0x1p-100L, 0x1p-100L);
1292#ifndef TEST_FLOAT
1293 TEST_f_f (atan, 0x1p-600L, 0x1p-600L);
1294#endif
1295#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
1296 TEST_f_f (atan, 0x1p-10000L, 0x1p-10000L);
1297#endif
1298
8847214f
UD		 1299 END (atan);
1300}
1301
1302
1303
1304static void
1305atanh_test (void)
1306{
aaca11d8 1307 errno = 0;
3c6cad26 1308 FUNC(atanh) (0.7L);
aaca11d8
UD		 1309 if (errno == ENOSYS)
1310 /* Function not implemented. */
1311 return;
8847214f
UD		 1312
1313 START (atanh);
1314
1315
1316 TEST_f_f (atanh, 0, 0);
1317 TEST_f_f (atanh, minus_zero, minus_zero);
1318
1319 TEST_f_f (atanh, 1, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
1320 TEST_f_f (atanh, -1, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
67e971f1 1321 TEST_f_f (atanh, qnan_value, qnan_value);
8847214f 1322
67e971f1
TS		 1323 /* atanh (x) == qNaN plus invalid exception if |x| > 1. */
1324 TEST_f_f (atanh, 1.125L, qnan_value, INVALID_EXCEPTION);
1325 TEST_f_f (atanh, -1.125L, qnan_value, INVALID_EXCEPTION);
1326 TEST_f_f (atanh, max_value, qnan_value, INVALID_EXCEPTION);
1327 TEST_f_f (atanh, -max_value, qnan_value, INVALID_EXCEPTION);
8847214f 1328
2550dfe9 1329 TEST_f_f (atanh, 0.75L, 0.972955074527656652552676371721589865L);
8847214f
UD		 1330
1331 END (atanh);
1332}
1333
1334static void
1335atan2_test (void)
1336{
aaca11d8
UD		 1337 errno = 0;
1338 FUNC(atan2) (-0, 1);
1339 if (errno == ENOSYS)
1340 /* Function not implemented. */
1341 return;
1342
8847214f
UD		 1343 START (atan2);
1344
1345 /* atan2 (0,x) == 0 for x > 0. */
1346 TEST_ff_f (atan2, 0, 1, 0);
1347
1348 /* atan2 (-0,x) == -0 for x > 0. */
1349 TEST_ff_f (atan2, minus_zero, 1, minus_zero);
1350
1351 TEST_ff_f (atan2, 0, 0, 0);
1352 TEST_ff_f (atan2, minus_zero, 0, minus_zero);
1353
1354 /* atan2 (+0,x) == +pi for x < 0. */
1355 TEST_ff_f (atan2, 0, -1, M_PIl);
1356
1357 /* atan2 (-0,x) == -pi for x < 0. */
1358 TEST_ff_f (atan2, minus_zero, -1, -M_PIl);
1359
1360 TEST_ff_f (atan2, 0, minus_zero, M_PIl);
1361 TEST_ff_f (atan2, minus_zero, minus_zero, -M_PIl);
1362
1363 /* atan2 (y,+0) == pi/2 for y > 0. */
1364 TEST_ff_f (atan2, 1, 0, M_PI_2l);
1365
1366 /* atan2 (y,-0) == pi/2 for y > 0. */
1367 TEST_ff_f (atan2, 1, minus_zero, M_PI_2l);
1368
1369 /* atan2 (y,+0) == -pi/2 for y < 0. */
1370 TEST_ff_f (atan2, -1, 0, -M_PI_2l);
1371
1372 /* atan2 (y,-0) == -pi/2 for y < 0. */
1373 TEST_ff_f (atan2, -1, minus_zero, -M_PI_2l);
1374
1375 /* atan2 (y,inf) == +0 for finite y > 0. */
1376 TEST_ff_f (atan2, 1, plus_infty, 0);
1377
1378 /* atan2 (y,inf) == -0 for finite y < 0. */
1379 TEST_ff_f (atan2, -1, plus_infty, minus_zero);
1380
1381 /* atan2(+inf, x) == pi/2 for finite x. */
1382 TEST_ff_f (atan2, plus_infty, -1, M_PI_2l);
1383
1384 /* atan2(-inf, x) == -pi/2 for finite x. */
1385 TEST_ff_f (atan2, minus_infty, 1, -M_PI_2l);
1386
1387 /* atan2 (y,-inf) == +pi for finite y > 0. */
1388 TEST_ff_f (atan2, 1, minus_infty, M_PIl);
1389
1390 /* atan2 (y,-inf) == -pi for finite y < 0. */
1391 TEST_ff_f (atan2, -1, minus_infty, -M_PIl);
1392
1393 TEST_ff_f (atan2, plus_infty, plus_infty, M_PI_4l);
1394 TEST_ff_f (atan2, minus_infty, plus_infty, -M_PI_4l);
1395 TEST_ff_f (atan2, plus_infty, minus_infty, M_PI_34l);
1396 TEST_ff_f (atan2, minus_infty, minus_infty, -M_PI_34l);
67e971f1 1397 TEST_ff_f (atan2, qnan_value, qnan_value, qnan_value);
8847214f 1398
7726d6a9
JM		 1399 TEST_ff_f (atan2, max_value, max_value, M_PI_4l);
1400
6d33cc9d
DM		 1401 TEST_ff_f (atan2, max_value, min_value, M_PI_2l);
1402 TEST_ff_f (atan2, -max_value, -min_value, -M_PI_2l);
1403
2550dfe9
AJ		 1404 TEST_ff_f (atan2, 0.75L, 1, 0.643501108793284386802809228717322638L);
1405 TEST_ff_f (atan2, -0.75L, 1.0L, -0.643501108793284386802809228717322638L);
1406 TEST_ff_f (atan2, 0.75L, -1.0L, 2.49809154479650885165983415456218025L);
1407 TEST_ff_f (atan2, -0.75L, -1.0L, -2.49809154479650885165983415456218025L);
1408 TEST_ff_f (atan2, 0.390625L, .00029L, 1.57005392693128974780151246612928941L);
1409 TEST_ff_f (atan2, 1.390625L, 0.9296875L, 0.981498387184244311516296577615519772L);
8847214f 1410
3c8605c7 1411 TEST_ff_f (atan2, -0.00756827042671106339L, -.001792735857538728036L, -1.80338464113663849327153994379639112L);
16a0e2ec
JM		 1412#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64
1413 TEST_ff_f (atan2, 0x1.00000000000001p0L, 0x1.00000000000001p0L, M_PI_4l);
1414#endif
bb3f4825 1415
8847214f
UD		 1416 END (atan2);
1417}
1418
8847214f
UD		 1419static void
1420cabs_test (void)
1421{
aaca11d8 1422 errno = 0;
3c6cad26 1423 FUNC(cabs) (BUILD_COMPLEX (0.7L, 12.4L));
aaca11d8
UD		 1424 if (errno == ENOSYS)
1425 /* Function not implemented. */
1426 return;
1427
8847214f
UD		 1428 START (cabs);
1429
1430 /* cabs (x + iy) is specified as hypot (x,y) */
1431
1432 /* cabs (+inf + i x) == +inf. */
1433 TEST_c_f (cabs, plus_infty, 1.0, plus_infty);
1434 /* cabs (-inf + i x) == +inf. */
1435 TEST_c_f (cabs, minus_infty, 1.0, plus_infty);
1436
67e971f1
TS		 1437 TEST_c_f (cabs, minus_infty, qnan_value, plus_infty);
1438 TEST_c_f (cabs, minus_infty, qnan_value, plus_infty);
8847214f 1439
67e971f1 1440 TEST_c_f (cabs, qnan_value, qnan_value, qnan_value);
8847214f
UD		 1441
1442 /* cabs (x,y) == cabs (y,x). */
2550dfe9 1443 TEST_c_f (cabs, 0.75L, 12.390625L, 12.4133028598606664302388810868156657L);
8847214f 1444 /* cabs (x,y) == cabs (-x,y). */
2550dfe9 1445 TEST_c_f (cabs, -12.390625L, 0.75L, 12.4133028598606664302388810868156657L);
8847214f 1446 /* cabs (x,y) == cabs (-y,x). */
2550dfe9 1447 TEST_c_f (cabs, -0.75L, 12.390625L, 12.4133028598606664302388810868156657L);
8847214f 1448 /* cabs (x,y) == cabs (-x,-y). */
2550dfe9 1449 TEST_c_f (cabs, -12.390625L, -0.75L, 12.4133028598606664302388810868156657L);
8847214f 1450 /* cabs (x,y) == cabs (-y,-x). */
2550dfe9 1451 TEST_c_f (cabs, -0.75L, -12.390625L, 12.4133028598606664302388810868156657L);
8847214f 1452 /* cabs (x,0) == fabs (x). */
2550dfe9
AJ		 1453 TEST_c_f (cabs, -0.75L, 0, 0.75L);
1454 TEST_c_f (cabs, 0.75L, 0, 0.75L);
8847214f
UD		 1455 TEST_c_f (cabs, -1.0L, 0, 1.0L);
1456 TEST_c_f (cabs, 1.0L, 0, 1.0L);
1457 TEST_c_f (cabs, -5.7e7L, 0, 5.7e7L);
1458 TEST_c_f (cabs, 5.7e7L, 0, 5.7e7L);
1459
2550dfe9 1460 TEST_c_f (cabs, 0.75L, 1.25L, 1.45773797371132511771853821938639577L);
8847214f
UD		 1461
1462 END (cabs);
1463}
1464
2550dfe9 1465
8847214f
UD		 1466static void
1467cacos_test (void)
1468{
aaca11d8 1469 errno = 0;
3c6cad26 1470 FUNC(cacos) (BUILD_COMPLEX (0.7L, 1.2L));
aaca11d8
UD		 1471 if (errno == ENOSYS)
1472 /* Function not implemented. */
1473 return;
1474
8847214f
UD		 1475 START (cacos);
1476
1477
1478 TEST_c_c (cacos, 0, 0, M_PI_2l, minus_zero);
1479 TEST_c_c (cacos, minus_zero, 0, M_PI_2l, minus_zero);
1480 TEST_c_c (cacos, minus_zero, minus_zero, M_PI_2l, 0.0);
1481 TEST_c_c (cacos, 0, minus_zero, M_PI_2l, 0.0);
1482
1483 TEST_c_c (cacos, minus_infty, plus_infty, M_PI_34l, minus_infty);
1484 TEST_c_c (cacos, minus_infty, minus_infty, M_PI_34l, plus_infty);
1485
1486 TEST_c_c (cacos, plus_infty, plus_infty, M_PI_4l, minus_infty);
1487 TEST_c_c (cacos, plus_infty, minus_infty, M_PI_4l, plus_infty);
1488
1489 TEST_c_c (cacos, -10.0, plus_infty, M_PI_2l, minus_infty);
1490 TEST_c_c (cacos, -10.0, minus_infty, M_PI_2l, plus_infty);
1491 TEST_c_c (cacos, 0, plus_infty, M_PI_2l, minus_infty);
1492 TEST_c_c (cacos, 0, minus_infty, M_PI_2l, plus_infty);
3c6cad26
UD		 1493 TEST_c_c (cacos, 0.1L, plus_infty, M_PI_2l, minus_infty);
1494 TEST_c_c (cacos, 0.1L, minus_infty, M_PI_2l, plus_infty);
8847214f
UD		 1495
1496 TEST_c_c (cacos, minus_infty, 0, M_PIl, minus_infty);
1497 TEST_c_c (cacos, minus_infty, minus_zero, M_PIl, plus_infty);
1498 TEST_c_c (cacos, minus_infty, 100, M_PIl, minus_infty);
1499 TEST_c_c (cacos, minus_infty, -100, M_PIl, plus_infty);
1500
1501 TEST_c_c (cacos, plus_infty, 0, 0.0, minus_infty);
1502 TEST_c_c (cacos, plus_infty, minus_zero, 0.0, plus_infty);
1503 TEST_c_c (cacos, plus_infty, 0.5, 0.0, minus_infty);
1504 TEST_c_c (cacos, plus_infty, -0.5, 0.0, plus_infty);
1505
67e971f1
TS		 1506 TEST_c_c (cacos, plus_infty, qnan_value, qnan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
1507 TEST_c_c (cacos, minus_infty, qnan_value, qnan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
8847214f 1508
67e971f1
TS		 1509 TEST_c_c (cacos, 0, qnan_value, M_PI_2l, qnan_value);
1510 TEST_c_c (cacos, minus_zero, qnan_value, M_PI_2l, qnan_value);
8847214f 1511
67e971f1
TS		 1512 TEST_c_c (cacos, qnan_value, plus_infty, qnan_value, minus_infty);
1513 TEST_c_c (cacos, qnan_value, minus_infty, qnan_value, plus_infty);
8847214f 1514
67e971f1
TS		 1515 TEST_c_c (cacos, 10.5, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
1516 TEST_c_c (cacos, -10.5, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 1517
67e971f1
TS		 1518 TEST_c_c (cacos, qnan_value, 0.75, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
1519 TEST_c_c (cacos, qnan_value, -0.75, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 1520
67e971f1 1521 TEST_c_c (cacos, qnan_value, qnan_value, qnan_value, qnan_value);
8847214f 1522
d1d3431a
JM		 1523 TEST_c_c (cacos, plus_zero, -1.5L, M_PI_2l, 1.194763217287109304111930828519090523536L);
1524 TEST_c_c (cacos, minus_zero, -1.5L, M_PI_2l, 1.194763217287109304111930828519090523536L);
1525 TEST_c_c (cacos, plus_zero, -1.0L, M_PI_2l, 0.8813735870195430252326093249797923090282L);
1526 TEST_c_c (cacos, minus_zero, -1.0L, M_PI_2l, 0.8813735870195430252326093249797923090282L);
1527 TEST_c_c (cacos, plus_zero, -0.5L, M_PI_2l, 0.4812118250596034474977589134243684231352L);
1528 TEST_c_c (cacos, minus_zero, -0.5L, M_PI_2l, 0.4812118250596034474977589134243684231352L);
1529 TEST_c_c (cacos, plus_zero, 0.5L, M_PI_2l, -0.4812118250596034474977589134243684231352L);
1530 TEST_c_c (cacos, minus_zero, 0.5L, M_PI_2l, -0.4812118250596034474977589134243684231352L);
1531 TEST_c_c (cacos, plus_zero, 1.0L, M_PI_2l, -0.8813735870195430252326093249797923090282L);
1532 TEST_c_c (cacos, minus_zero, 1.0L, M_PI_2l, -0.8813735870195430252326093249797923090282L);
1533 TEST_c_c (cacos, plus_zero, 1.5L, M_PI_2l, -1.194763217287109304111930828519090523536L);
1534 TEST_c_c (cacos, minus_zero, 1.5L, M_PI_2l, -1.194763217287109304111930828519090523536L);
1535
1536 TEST_c_c (cacos, -1.5L, plus_zero, M_PIl, -0.9624236501192068949955178268487368462704L);
1537 TEST_c_c (cacos, -1.5L, minus_zero, M_PIl, 0.9624236501192068949955178268487368462704L);
1538 TEST_c_c (cacos, -1.0L, plus_zero, M_PIl, minus_zero);
1539 TEST_c_c (cacos, -1.0L, minus_zero, M_PIl, plus_zero);
1540 TEST_c_c (cacos, -0.5L, plus_zero, 2.094395102393195492308428922186335256131L, minus_zero);
1541 TEST_c_c (cacos, -0.5L, minus_zero, 2.094395102393195492308428922186335256131L, plus_zero);
1542 TEST_c_c (cacos, 0.5L, plus_zero, 1.047197551196597746154214461093167628066L, minus_zero);
1543 TEST_c_c (cacos, 0.5L, minus_zero, 1.047197551196597746154214461093167628066L, plus_zero);
1544 TEST_c_c (cacos, 1.0L, plus_zero, plus_zero, minus_zero);
1545 TEST_c_c (cacos, 1.0L, minus_zero, plus_zero, plus_zero);
1546 TEST_c_c (cacos, 1.5L, plus_zero, plus_zero, -0.9624236501192068949955178268487368462704L);
1547 TEST_c_c (cacos, 1.5L, minus_zero, plus_zero, 0.9624236501192068949955178268487368462704L);
1548
728d7b43
JM		 1549 TEST_c_c (cacos, 0x1p50L, 1.0L, 8.881784197001252323389053344727730248720e-16L, -3.535050620855721078027883819436720218708e1L);
1550 TEST_c_c (cacos, 0x1p50L, -1.0L, 8.881784197001252323389053344727730248720e-16L, 3.535050620855721078027883819436720218708e1L);
1551 TEST_c_c (cacos, -0x1p50L, 1.0L, 3.141592653589792350284223683154270545292L, -3.535050620855721078027883819436720218708e1L);
1552 TEST_c_c (cacos, -0x1p50L, -1.0L, 3.141592653589792350284223683154270545292L, 3.535050620855721078027883819436720218708e1L);
1553 TEST_c_c (cacos, 1.0L, 0x1p50L, 1.570796326794895731052901991514519103193L, -3.535050620855721078027883819436759661753e1L);
1554 TEST_c_c (cacos, -1.0L, 0x1p50L, 1.570796326794897507409741391764983781004L, -3.535050620855721078027883819436759661753e1L);
1555 TEST_c_c (cacos, 1.0L, -0x1p50L, 1.570796326794895731052901991514519103193L, 3.535050620855721078027883819436759661753e1L);
1556 TEST_c_c (cacos, -1.0L, -0x1p50L, 1.570796326794897507409741391764983781004L, 3.535050620855721078027883819436759661753e1L);
1557#ifndef TEST_FLOAT
1558 TEST_c_c (cacos, 0x1p500L, 1.0L, 3.054936363499604682051979393213617699789e-151L, -3.472667374605326000180332928505464606058e2L);
1559 TEST_c_c (cacos, 0x1p500L, -1.0L, 3.054936363499604682051979393213617699789e-151L, 3.472667374605326000180332928505464606058e2L);
1560 TEST_c_c (cacos, -0x1p500L, 1.0L, 3.141592653589793238462643383279502884197L, -3.472667374605326000180332928505464606058e2L);
1561 TEST_c_c (cacos, -0x1p500L, -1.0L, 3.141592653589793238462643383279502884197L, 3.472667374605326000180332928505464606058e2L);
1562 TEST_c_c (cacos, 1.0L, 0x1p500L, 1.570796326794896619231321691639751442099L, -3.472667374605326000180332928505464606058e2L);
1563 TEST_c_c (cacos, -1.0L, 0x1p500L, 1.570796326794896619231321691639751442099L, -3.472667374605326000180332928505464606058e2L);
1564 TEST_c_c (cacos, 1.0L, -0x1p500L, 1.570796326794896619231321691639751442099L, 3.472667374605326000180332928505464606058e2L);
1565 TEST_c_c (cacos, -1.0L, -0x1p500L, 1.570796326794896619231321691639751442099L, 3.472667374605326000180332928505464606058e2L);
1566#endif
1567#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
1568 TEST_c_c (cacos, 0x1p5000L, 1.0L, 7.079811261048172892385615158694057552948e-1506L, -3.466429049980286492395577839412341016946e3L);
1569 TEST_c_c (cacos, 0x1p5000L, -1.0L, 7.079811261048172892385615158694057552948e-1506L, 3.466429049980286492395577839412341016946e3L);
1570 TEST_c_c (cacos, -0x1p5000L, 1.0L, 3.141592653589793238462643383279502884197L, -3.466429049980286492395577839412341016946e3L);
1571 TEST_c_c (cacos, -0x1p5000L, -1.0L, 3.141592653589793238462643383279502884197L, 3.466429049980286492395577839412341016946e3L);
1572 TEST_c_c (cacos, 1.0L, 0x1p5000L, 1.570796326794896619231321691639751442099L, -3.466429049980286492395577839412341016946e3L);
1573 TEST_c_c (cacos, -1.0L, 0x1p5000L, 1.570796326794896619231321691639751442099L, -3.466429049980286492395577839412341016946e3L);
1574 TEST_c_c (cacos, 1.0L, -0x1p5000L, 1.570796326794896619231321691639751442099L, 3.466429049980286492395577839412341016946e3L);
1575 TEST_c_c (cacos, -1.0L, -0x1p5000L, 1.570796326794896619231321691639751442099L, 3.466429049980286492395577839412341016946e3L);
1576#endif
1577
1578 TEST_c_c (cacos, 0x1.fp127L, 0x1.fp127L, 7.853981633974483096156608458198757210493e-1L, -8.973081118419833726837456344608533993585e1L);
1579#ifndef TEST_FLOAT
1580 TEST_c_c (cacos, 0x1.fp1023L, 0x1.fp1023L, 7.853981633974483096156608458198757210493e-1L, -7.107906849659093345062145442726115449315e2L);
1581#endif
1582#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
1583 TEST_c_c (cacos, 0x1.fp16383L, 0x1.fp16383L, 7.853981633974483096156608458198757210493e-1L, -1.135753137836666928715489992987020363057e4L);
1584#endif
1585
8cf28c5e
JM		 1586 TEST_c_c (cacos, 0x1.fp-129L, 1.5L, 1.570796326794896619231321691639751442097L, -1.194763217287109304111930828519090523536L);
1587 TEST_c_c (cacos, 0x1.fp-129L, -1.5L, 1.570796326794896619231321691639751442097L, 1.194763217287109304111930828519090523536L);
1588 TEST_c_c (cacos, -0x1.fp-129L, 1.5L, 1.570796326794896619231321691639751442100L, -1.194763217287109304111930828519090523536L);
1589 TEST_c_c (cacos, -0x1.fp-129L, -1.5L, 1.570796326794896619231321691639751442100L, 1.194763217287109304111930828519090523536L);
1590 TEST_c_c (cacos, 1.5L, 0x1.fp-129L, 2.546345110742945032959687790021055102355e-39L, -9.624236501192068949955178268487368462704e-1L, UNDERFLOW_EXCEPTION_FLOAT);
1591 TEST_c_c (cacos, -1.5L, 0x1.fp-129L, 3.141592653589793238462643383279502884195L, -9.624236501192068949955178268487368462704e-1L);
1592 TEST_c_c (cacos, 1.5L, -0x1.fp-129L, 2.546345110742945032959687790021055102355e-39L, 9.624236501192068949955178268487368462704e-1L, UNDERFLOW_EXCEPTION_FLOAT);
1593 TEST_c_c (cacos, -1.5L, -0x1.fp-129L, 3.141592653589793238462643383279502884195L, 9.624236501192068949955178268487368462704e-1L);
1594#ifndef TEST_FLOAT
1595 TEST_c_c (cacos, 0x1.fp-1025L, 1.5L, 1.570796326794896619231321691639751442099L, -1.194763217287109304111930828519090523536L);
1596 TEST_c_c (cacos, 0x1.fp-1025L, -1.5L, 1.570796326794896619231321691639751442099L, 1.194763217287109304111930828519090523536L);
1597 TEST_c_c (cacos, -0x1.fp-1025L, 1.5L, 1.570796326794896619231321691639751442099L, -1.194763217287109304111930828519090523536L);
1598 TEST_c_c (cacos, -0x1.fp-1025L, -1.5L, 1.570796326794896619231321691639751442099L, 1.194763217287109304111930828519090523536L);
1599 TEST_c_c (cacos, 1.5L, 0x1.fp-1025L, 4.819934639999230680322935210539402497827e-309L, -9.624236501192068949955178268487368462704e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
1600 TEST_c_c (cacos, -1.5L, 0x1.fp-1025L, 3.141592653589793238462643383279502884197L, -9.624236501192068949955178268487368462704e-1L);
1601 TEST_c_c (cacos, 1.5L, -0x1.fp-1025L, 4.819934639999230680322935210539402497827e-309L, 9.624236501192068949955178268487368462704e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
1602 TEST_c_c (cacos, -1.5L, -0x1.fp-1025L, 3.141592653589793238462643383279502884197L, 9.624236501192068949955178268487368462704e-1L);
1603#endif
1604#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
1605 TEST_c_c (cacos, 0x1.fp-16385L, 1.5L, 1.570796326794896619231321691639751442099L, -1.194763217287109304111930828519090523536L);
1606 TEST_c_c (cacos, 0x1.fp-16385L, -1.5L, 1.570796326794896619231321691639751442099L, 1.194763217287109304111930828519090523536L);
1607 TEST_c_c (cacos, -0x1.fp-16385L, 1.5L, 1.570796326794896619231321691639751442099L, -1.194763217287109304111930828519090523536L);
1608 TEST_c_c (cacos, -0x1.fp-16385L, -1.5L, 1.570796326794896619231321691639751442099L, 1.194763217287109304111930828519090523536L);
1609 TEST_c_c (cacos, 1.5L, 0x1.fp-16385L, 7.282957076134209141226696333885150260319e-4933L, -9.624236501192068949955178268487368462704e-1L, UNDERFLOW_EXCEPTION);
1610 TEST_c_c (cacos, -1.5L, 0x1.fp-16385L, 3.141592653589793238462643383279502884197L, -9.624236501192068949955178268487368462704e-1L);
1611 TEST_c_c (cacos, 1.5L, -0x1.fp-16385L, 7.282957076134209141226696333885150260319e-4933L, 9.624236501192068949955178268487368462704e-1L, UNDERFLOW_EXCEPTION);
1612 TEST_c_c (cacos, -1.5L, -0x1.fp-16385L, 3.141592653589793238462643383279502884197L, 9.624236501192068949955178268487368462704e-1L);
1613#endif
1614
0a1b2ae6
JM		 1615 TEST_c_c (cacos, 0.5L, 1.0L, 1.221357263937683325603909865564381489366L, -9.261330313501824245501244453057873152694e-1L);
1616 TEST_c_c (cacos, 0.5L, -1.0L, 1.221357263937683325603909865564381489366L, 9.261330313501824245501244453057873152694e-1L);
1617 TEST_c_c (cacos, -0.5L, 1.0L, 1.920235389652109912858733517715121394831L, -9.261330313501824245501244453057873152694e-1L);
1618 TEST_c_c (cacos, -0.5L, -1.0L, 1.920235389652109912858733517715121394831L, 9.261330313501824245501244453057873152694e-1L);
1619 TEST_c_c (cacos, 1.0L, 0.5L, 6.748888455860063801646649673121744318756e-1L, -7.328576759736452608886724437653071523305e-1L);
1620 TEST_c_c (cacos, -1.0L, 0.5L, 2.466703808003786858297978415967328452322L, -7.328576759736452608886724437653071523305e-1L);
1621 TEST_c_c (cacos, 1.0L, -0.5L, 6.748888455860063801646649673121744318756e-1L, 7.328576759736452608886724437653071523305e-1L);
1622 TEST_c_c (cacos, -1.0L, -0.5L, 2.466703808003786858297978415967328452322L, 7.328576759736452608886724437653071523305e-1L);
1623 TEST_c_c (cacos, 0.25L, 1.0L, 1.394493894017929688812643125003661339452L, -8.924633639033482359562124741744951972772e-1L);
1624 TEST_c_c (cacos, 0.25L, -1.0L, 1.394493894017929688812643125003661339452L, 8.924633639033482359562124741744951972772e-1L);
1625 TEST_c_c (cacos, -0.25L, 1.0L, 1.747098759571863549650000258275841544745L, -8.924633639033482359562124741744951972772e-1L);
1626 TEST_c_c (cacos, -0.25L, -1.0L, 1.747098759571863549650000258275841544745L, 8.924633639033482359562124741744951972772e-1L);
1627 TEST_c_c (cacos, 1.0L, 0.25L, 4.890443302710802929202843732146540079124e-1L, -5.097911466811016354623559941115413499164e-1L);
1628 TEST_c_c (cacos, -1.0L, 0.25L, 2.652548323318712945542359010064848876285L, -5.097911466811016354623559941115413499164e-1L);
1629 TEST_c_c (cacos, 1.0L, -0.25L, 4.890443302710802929202843732146540079124e-1L, 5.097911466811016354623559941115413499164e-1L);
1630 TEST_c_c (cacos, -1.0L, -0.25L, 2.652548323318712945542359010064848876285L, 5.097911466811016354623559941115413499164e-1L);
1631 TEST_c_c (cacos, 0x1.fp-10L, 1.0L, 1.569458417435338878318763342108699202986L, -8.813742198809567991336704287826445879025e-1L);
1632 TEST_c_c (cacos, 0x1.fp-10L, -1.0L, 1.569458417435338878318763342108699202986L, 8.813742198809567991336704287826445879025e-1L);
1633 TEST_c_c (cacos, -0x1.fp-10L, 1.0L, 1.572134236154454360143880041170803681211L, -8.813742198809567991336704287826445879025e-1L);
1634 TEST_c_c (cacos, -0x1.fp-10L, -1.0L, 1.572134236154454360143880041170803681211L, 8.813742198809567991336704287826445879025e-1L);
1635 TEST_c_c (cacos, 1.0L, 0x1.fp-10L, 4.349129763101882771258049954181971959031e-2L, -4.350501469856803800217957402220976497152e-2L);
1636 TEST_c_c (cacos, -1.0L, 0x1.fp-10L, 3.098101355958774410750062883737683164607L, -4.350501469856803800217957402220976497152e-2L);
1637 TEST_c_c (cacos, 1.0L, -0x1.fp-10L, 4.349129763101882771258049954181971959031e-2L, 4.350501469856803800217957402220976497152e-2L);
1638 TEST_c_c (cacos, -1.0L, -0x1.fp-10L, 3.098101355958774410750062883737683164607L, 4.350501469856803800217957402220976497152e-2L);
1639 TEST_c_c (cacos, 0x1.fp-30L, 1.0L, 1.570796325518966635014803151387033957091L, -8.813735870195430258081932989769495326854e-1L);
1640 TEST_c_c (cacos, 0x1.fp-30L, -1.0L, 1.570796325518966635014803151387033957091L, 8.813735870195430258081932989769495326854e-1L);
1641 TEST_c_c (cacos, -0x1.fp-30L, 1.0L, 1.570796328070826603447840231892468927106L, -8.813735870195430258081932989769495326854e-1L);
1642 TEST_c_c (cacos, -0x1.fp-30L, -1.0L, 1.570796328070826603447840231892468927106L, 8.813735870195430258081932989769495326854e-1L);
1643 TEST_c_c (cacos, 1.0L, 0x1.fp-30L, 4.247867097467650115899790787875186617316e-5L, -4.247867098745151888768727039216644758847e-5L);
1644 TEST_c_c (cacos, -1.0L, 0x1.fp-30L, 3.141550174918818561961484385371624132331L, -4.247867098745151888768727039216644758847e-5L);
1645 TEST_c_c (cacos, 1.0L, -0x1.fp-30L, 4.247867097467650115899790787875186617316e-5L, 4.247867098745151888768727039216644758847e-5L);
1646 TEST_c_c (cacos, -1.0L, -0x1.fp-30L, 3.141550174918818561961484385371624132331L, 4.247867098745151888768727039216644758847e-5L);
1647 TEST_c_c (cacos, 0x1.fp-100L, 1.0L, 1.570796326794896619231321691638670687364L, -8.813735870195430252326093249797923090282e-1L);
1648 TEST_c_c (cacos, 0x1.fp-100L, -1.0L, 1.570796326794896619231321691638670687364L, 8.813735870195430252326093249797923090282e-1L);
1649 TEST_c_c (cacos, -0x1.fp-100L, 1.0L, 1.570796326794896619231321691640832196834L, -8.813735870195430252326093249797923090282e-1L);
1650 TEST_c_c (cacos, -0x1.fp-100L, -1.0L, 1.570796326794896619231321691640832196834L, 8.813735870195430252326093249797923090282e-1L);
1651 TEST_c_c (cacos, 1.0L, 0x1.fp-100L, 1.236292038260260888664514866456887257525e-15L, -1.236292038260260888664514866457202186027e-15L);
1652 TEST_c_c (cacos, -1.0L, 0x1.fp-100L, 3.141592653589792002170605123018614219682L, -1.236292038260260888664514866457202186027e-15L);
1653 TEST_c_c (cacos, 1.0L, -0x1.fp-100L, 1.236292038260260888664514866456887257525e-15L, 1.236292038260260888664514866457202186027e-15L);
1654 TEST_c_c (cacos, -1.0L, -0x1.fp-100L, 3.141592653589792002170605123018614219682L, 1.236292038260260888664514866457202186027e-15L);
1655 TEST_c_c (cacos, 0x1.fp-129L, 1.0L, 1.570796326794896619231321691639751442097L, -8.813735870195430252326093249797923090282e-1L);
1656 TEST_c_c (cacos, 0x1.fp-129L, -1.0L, 1.570796326794896619231321691639751442097L, 8.813735870195430252326093249797923090282e-1L);
1657 TEST_c_c (cacos, -0x1.fp-129L, 1.0L, 1.570796326794896619231321691639751442101L, -8.813735870195430252326093249797923090282e-1L);
1658 TEST_c_c (cacos, -0x1.fp-129L, -1.0L, 1.570796326794896619231321691639751442101L, 8.813735870195430252326093249797923090282e-1L);
1659 TEST_c_c (cacos, 1.0L, 0x1.fp-129L, 5.335635276982233498398987585285818977930e-20L, -5.335635276982233498398987585285818977933e-20L);
1660 TEST_c_c (cacos, -1.0L, 0x1.fp-129L, 3.141592653589793238409287030509680549213L, -5.335635276982233498398987585285818977933e-20L);
1661 TEST_c_c (cacos, 1.0L, -0x1.fp-129L, 5.335635276982233498398987585285818977930e-20L, 5.335635276982233498398987585285818977933e-20L);
1662 TEST_c_c (cacos, -1.0L, -0x1.fp-129L, 3.141592653589793238409287030509680549213L, 5.335635276982233498398987585285818977933e-20L);
1663#ifndef TEST_FLOAT
1664 TEST_c_c (cacos, 0x1.fp-1000L, 1.0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797923090282e-1L);
1665 TEST_c_c (cacos, 0x1.fp-1000L, -1.0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797923090282e-1L);
1666 TEST_c_c (cacos, -0x1.fp-1000L, 1.0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797923090282e-1L);
1667 TEST_c_c (cacos, -0x1.fp-1000L, -1.0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797923090282e-1L);
1668 TEST_c_c (cacos, 1.0L, 0x1.fp-1000L, 4.252291453851660175550490409247739011867e-151L, -4.252291453851660175550490409247739011867e-151L);
1669 TEST_c_c (cacos, -1.0L, 0x1.fp-1000L, 3.141592653589793238462643383279502884197L, -4.252291453851660175550490409247739011867e-151L);
1670 TEST_c_c (cacos, 1.0L, -0x1.fp-1000L, 4.252291453851660175550490409247739011867e-151L, 4.252291453851660175550490409247739011867e-151L);
1671 TEST_c_c (cacos, -1.0L, -0x1.fp-1000L, 3.141592653589793238462643383279502884197L, 4.252291453851660175550490409247739011867e-151L);
1672 TEST_c_c (cacos, 0x1.fp-1025L, 1.0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797923090282e-1L);
1673 TEST_c_c (cacos, 0x1.fp-1025L, -1.0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797923090282e-1L);
1674 TEST_c_c (cacos, -0x1.fp-1025L, 1.0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797923090282e-1L);
1675 TEST_c_c (cacos, -0x1.fp-1025L, -1.0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797923090282e-1L);
1676 TEST_c_c (cacos, 1.0L, 0x1.fp-1025L, 7.340879205566679497036857179189356754017e-155L, -7.340879205566679497036857179189356754017e-155L);
1677 TEST_c_c (cacos, -1.0L, 0x1.fp-1025L, 3.141592653589793238462643383279502884197L, -7.340879205566679497036857179189356754017e-155L);
1678 TEST_c_c (cacos, 1.0L, -0x1.fp-1025L, 7.340879205566679497036857179189356754017e-155L, 7.340879205566679497036857179189356754017e-155L);
1679 TEST_c_c (cacos, -1.0L, -0x1.fp-1025L, 3.141592653589793238462643383279502884197L, 7.340879205566679497036857179189356754017e-155L);
1680#endif
1681#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
1682 TEST_c_c (cacos, 0x1.fp-10000L, 1.0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797923090282e-1L);
1683 TEST_c_c (cacos, 0x1.fp-10000L, -1.0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797923090282e-1L);
1684 TEST_c_c (cacos, -0x1.fp-10000L, 1.0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797923090282e-1L);
1685 TEST_c_c (cacos, -0x1.fp-10000L, -1.0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797923090282e-1L);
1686 TEST_c_c (cacos, 1.0L, 0x1.fp-10000L, 9.854680208706673586644342922051388714633e-1506L, -9.854680208706673586644342922051388714633e-1506L);
1687 TEST_c_c (cacos, -1.0L, 0x1.fp-10000L, 3.141592653589793238462643383279502884197L, -9.854680208706673586644342922051388714633e-1506L);
1688 TEST_c_c (cacos, 1.0L, -0x1.fp-10000L, 9.854680208706673586644342922051388714633e-1506L, 9.854680208706673586644342922051388714633e-1506L);
1689 TEST_c_c (cacos, -1.0L, -0x1.fp-10000L, 3.141592653589793238462643383279502884197L, 9.854680208706673586644342922051388714633e-1506L);
1690 TEST_c_c (cacos, 0x1.fp-16385L, 1.0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797923090282e-1L);
1691 TEST_c_c (cacos, 0x1.fp-16385L, -1.0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797923090282e-1L);
1692 TEST_c_c (cacos, -0x1.fp-16385L, 1.0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797923090282e-1L);
1693 TEST_c_c (cacos, -0x1.fp-16385L, -1.0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797923090282e-1L);
1694 TEST_c_c (cacos, 1.0L, 0x1.fp-16385L, 9.023632056840860275214893047597614177639e-2467L, -9.023632056840860275214893047597614177639e-2467L);
1695 TEST_c_c (cacos, -1.0L, 0x1.fp-16385L, 3.141592653589793238462643383279502884197L, -9.023632056840860275214893047597614177639e-2467L);
1696 TEST_c_c (cacos, 1.0L, -0x1.fp-16385L, 9.023632056840860275214893047597614177639e-2467L, 9.023632056840860275214893047597614177639e-2467L);
1697 TEST_c_c (cacos, -1.0L, -0x1.fp-16385L, 3.141592653589793238462643383279502884197L, 9.023632056840860275214893047597614177639e-2467L);
1698#endif
1699
4d14f449
JM		 1700 TEST_c_c (cacos, 0x1p-23L, 0x1.000002p0L, 1.570796242501204621739026081991856762292L, -8.813736713132400470205730751186547909968e-1L);
1701 TEST_c_c (cacos, 0x1p-23L, -0x1.000002p0L, 1.570796242501204621739026081991856762292L, 8.813736713132400470205730751186547909968e-1L);
1702 TEST_c_c (cacos, -0x1p-23L, 0x1.000002p0L, 1.570796411088588616723617301287646121905L, -8.813736713132400470205730751186547909968e-1L);
1703 TEST_c_c (cacos, -0x1p-23L, -0x1.000002p0L, 1.570796411088588616723617301287646121905L, 8.813736713132400470205730751186547909968e-1L);
1704 TEST_c_c (cacos, 0x1.000002p0L, 0x1p-23L, 2.222118384408546368406374049167636760903e-4L, -5.364668491573609633134147164031476452679e-4L);
1705 TEST_c_c (cacos, -0x1.000002p0L, 0x1p-23L, 3.141370441751352383825802745874586120521L, -5.364668491573609633134147164031476452679e-4L);
1706 TEST_c_c (cacos, 0x1.000002p0L, -0x1p-23L, 2.222118384408546368406374049167636760903e-4L, 5.364668491573609633134147164031476452679e-4L);
1707 TEST_c_c (cacos, -0x1.000002p0L, -0x1p-23L, 3.141370441751352383825802745874586120521L, 5.364668491573609633134147164031476452679e-4L);
1708 TEST_c_c (cacos, 0x1.fp-129L, 0x1.000002p0L, 1.570796326794896619231321691639751442097L, -8.813736713132375348727889167749389235161e-1L);
1709 TEST_c_c (cacos, 0x1.fp-129L, -0x1.000002p0L, 1.570796326794896619231321691639751442097L, 8.813736713132375348727889167749389235161e-1L);
1710 TEST_c_c (cacos, -0x1.fp-129L, 0x1.000002p0L, 1.570796326794896619231321691639751442101L, -8.813736713132375348727889167749389235161e-1L);
1711 TEST_c_c (cacos, -0x1.fp-129L, -0x1.000002p0L, 1.570796326794896619231321691639751442101L, 8.813736713132375348727889167749389235161e-1L);
1712 TEST_c_c (cacos, 0x1.000002p0L, 0x1.fp-129L, 5.830451806317544230969669308596361881467e-36L, -4.882812451493617206486388134172712975070e-4L);
1713 TEST_c_c (cacos, -0x1.000002p0L, 0x1.fp-129L, 3.141592653589793238462643383279502878367L, -4.882812451493617206486388134172712975070e-4L);
1714 TEST_c_c (cacos, 0x1.000002p0L, -0x1.fp-129L, 5.830451806317544230969669308596361881467e-36L, 4.882812451493617206486388134172712975070e-4L);
1715 TEST_c_c (cacos, -0x1.000002p0L, -0x1.fp-129L, 3.141592653589793238462643383279502878367L, 4.882812451493617206486388134172712975070e-4L);
1716 TEST_c_c (cacos, 0.0L, 0x1.000002p0L, 1.570796326794896619231321691639751442099L, -8.813736713132375348727889167749389235161e-1L);
1717 TEST_c_c (cacos, 0.0L, -0x1.000002p0L, 1.570796326794896619231321691639751442099L, 8.813736713132375348727889167749389235161e-1L);
1718 TEST_c_c (cacos, -0.0L, 0x1.000002p0L, 1.570796326794896619231321691639751442099L, -8.813736713132375348727889167749389235161e-1L);
1719 TEST_c_c (cacos, -0.0L, -0x1.000002p0L, 1.570796326794896619231321691639751442099L, 8.813736713132375348727889167749389235161e-1L);
1720 TEST_c_c (cacos, 0x1.000002p0L, 0.0L, 0.0L, -4.882812451493617206486388134172712975070e-4L);
1721 TEST_c_c (cacos, -0x1.000002p0L, 0.0L, 3.141592653589793238462643383279502884197L, -4.882812451493617206486388134172712975070e-4L);
1722 TEST_c_c (cacos, 0x1.000002p0L, -0.0L, 0.0L, 4.882812451493617206486388134172712975070e-4L);
1723 TEST_c_c (cacos, -0x1.000002p0L, -0.0L, 3.141592653589793238462643383279502884197L, 4.882812451493617206486388134172712975070e-4L);
3a7182a1 1724#ifndef TEST_FLOAT
4d14f449
JM		 1725 TEST_c_c (cacos, 0x1p-52L, 0x1.0000000000001p0L, 1.570796326794896462222075823262262934288L, -8.813735870195431822418551933572982483664e-1L);
1726 TEST_c_c (cacos, 0x1p-52L, -0x1.0000000000001p0L, 1.570796326794896462222075823262262934288L, 8.813735870195431822418551933572982483664e-1L);
1727 TEST_c_c (cacos, -0x1p-52L, 0x1.0000000000001p0L, 1.570796326794896776240567560017239949909L, -8.813735870195431822418551933572982483664e-1L);
1728 TEST_c_c (cacos, -0x1p-52L, -0x1.0000000000001p0L, 1.570796326794896776240567560017239949909L, 8.813735870195431822418551933572982483664e-1L);
1729 TEST_c_c (cacos, 0x1.0000000000001p0L, 0x1p-52L, 9.590301705980041385828904092662391018164e-9L, -2.315303644582684770975188768022139415020e-8L);
1730 TEST_c_c (cacos, -0x1.0000000000001p0L, 0x1p-52L, 3.141592643999491532482601997450598791535L, -2.315303644582684770975188768022139415020e-8L);
1731 TEST_c_c (cacos, 0x1.0000000000001p0L, -0x1p-52L, 9.590301705980041385828904092662391018164e-9L, 2.315303644582684770975188768022139415020e-8L);
1732 TEST_c_c (cacos, -0x1.0000000000001p0L, -0x1p-52L, 3.141592643999491532482601997450598791535L, 2.315303644582684770975188768022139415020e-8L);
1733 TEST_c_c (cacos, 0x1.fp-1025L, 0x1.0000000000001p0L, 1.570796326794896619231321691639751442099L, -8.813735870195431822418551933572895326024e-1L);
1734 TEST_c_c (cacos, 0x1.fp-1025L, -0x1.0000000000001p0L, 1.570796326794896619231321691639751442099L, 8.813735870195431822418551933572895326024e-1L);
1735 TEST_c_c (cacos, -0x1.fp-1025L, 0x1.0000000000001p0L, 1.570796326794896619231321691639751442099L, -8.813735870195431822418551933572895326024e-1L);
1736 TEST_c_c (cacos, -0x1.fp-1025L, -0x1.0000000000001p0L, 1.570796326794896619231321691639751442099L, 8.813735870195431822418551933572895326024e-1L);
1737 TEST_c_c (cacos, 0x1.0000000000001p0L, 0x1.fp-1025L, 2.557178503953494342609835913586108008322e-301L, -2.107342425544701550354780375182800088393e-8L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
1738 TEST_c_c (cacos, -0x1.0000000000001p0L, 0x1.fp-1025L, 3.141592653589793238462643383279502884197L, -2.107342425544701550354780375182800088393e-8L);
1739 TEST_c_c (cacos, 0x1.0000000000001p0L, -0x1.fp-1025L, 2.557178503953494342609835913586108008322e-301L, 2.107342425544701550354780375182800088393e-8L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
1740 TEST_c_c (cacos, -0x1.0000000000001p0L, -0x1.fp-1025L, 3.141592653589793238462643383279502884197L, 2.107342425544701550354780375182800088393e-8L);
1741 TEST_c_c (cacos, 0.0L, 0x1.0000000000001p0L, 1.570796326794896619231321691639751442099L, -8.813735870195431822418551933572895326024e-1L);
1742 TEST_c_c (cacos, 0.0L, -0x1.0000000000001p0L, 1.570796326794896619231321691639751442099L, 8.813735870195431822418551933572895326024e-1L);
1743 TEST_c_c (cacos, -0.0L, 0x1.0000000000001p0L, 1.570796326794896619231321691639751442099L, -8.813735870195431822418551933572895326024e-1L);
1744 TEST_c_c (cacos, -0.0L, -0x1.0000000000001p0L, 1.570796326794896619231321691639751442099L, 8.813735870195431822418551933572895326024e-1L);
1745 TEST_c_c (cacos, 0x1.0000000000001p0L, 0.0L, 0.0L, -2.107342425544701550354780375182800088393e-8L);
1746 TEST_c_c (cacos, -0x1.0000000000001p0L, 0.0L, 3.141592653589793238462643383279502884197L, -2.107342425544701550354780375182800088393e-8L);
1747 TEST_c_c (cacos, 0x1.0000000000001p0L, -0.0L, 0.0L, 2.107342425544701550354780375182800088393e-8L);
1748 TEST_c_c (cacos, -0x1.0000000000001p0L, -0.0L, 3.141592653589793238462643383279502884197L, 2.107342425544701550354780375182800088393e-8L);
3a7182a1
JM		 1749#endif
1750#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64
4d14f449
JM		 1751 TEST_c_c (cacos, 0x1p-63L, 0x1.0000000000000002p0L, 1.570796326794896619154657020805582738031L, -8.813735870195430253092739958139610131001e-1L);
1752 TEST_c_c (cacos, 0x1p-63L, -0x1.0000000000000002p0L, 1.570796326794896619154657020805582738031L, 8.813735870195430253092739958139610131001e-1L);
1753 TEST_c_c (cacos, -0x1p-63L, 0x1.0000000000000002p0L, 1.570796326794896619307986362473920146166L, -8.813735870195430253092739958139610131001e-1L);
1754 TEST_c_c (cacos, -0x1p-63L, -0x1.0000000000000002p0L, 1.570796326794896619307986362473920146166L, 8.813735870195430253092739958139610131001e-1L);
1755 TEST_c_c (cacos, 0x1.0000000000000002p0L, 0x1p-63L, 2.119177303101063432592523199680782317447e-10L, -5.116146586219826555037807251857670783420e-10L);
1756 TEST_c_c (cacos, -0x1.0000000000000002p0L, 0x1p-63L, 3.141592653377875508152537040020250564229L, -5.116146586219826555037807251857670783420e-10L);
1757 TEST_c_c (cacos, 0x1.0000000000000002p0L, -0x1p-63L, 2.119177303101063432592523199680782317447e-10L, 5.116146586219826555037807251857670783420e-10L);
1758 TEST_c_c (cacos, -0x1.0000000000000002p0L, -0x1p-63L, 3.141592653377875508152537040020250564229L, 5.116146586219826555037807251857670783420e-10L);
3a7182a1 1759# if LDBL_MIN_EXP <= -16381
4d14f449
JM		 1760 TEST_c_c (cacos, 0x1.fp-16385L, 0x1.0000000000000002p0L, 1.570796326794896619231321691639751442099L, -8.813735870195430253092739958139610130980e-1L);
1761 TEST_c_c (cacos, 0x1.fp-16385L, -0x1.0000000000000002p0L, 1.570796326794896619231321691639751442099L, 8.813735870195430253092739958139610130980e-1L);
1762 TEST_c_c (cacos, -0x1.fp-16385L, 0x1.0000000000000002p0L, 1.570796326794896619231321691639751442099L, -8.813735870195430253092739958139610130980e-1L);
1763 TEST_c_c (cacos, -0x1.fp-16385L, -0x1.0000000000000002p0L, 1.570796326794896619231321691639751442099L, 8.813735870195430253092739958139610130980e-1L);
1764 TEST_c_c (cacos, 0x1.0000000000000002p0L, 0x1.fp-16385L, 1.748608650034385653922359120438227480943e-4923L, -4.656612873077392578082927418388212703712e-10L);
1765 TEST_c_c (cacos, -0x1.0000000000000002p0L, 0x1.fp-16385L, 3.141592653589793238462643383279502884197L, -4.656612873077392578082927418388212703712e-10L);
1766 TEST_c_c (cacos, 0x1.0000000000000002p0L, -0x1.fp-16385L, 1.748608650034385653922359120438227480943e-4923L, 4.656612873077392578082927418388212703712e-10L);
1767 TEST_c_c (cacos, -0x1.0000000000000002p0L, -0x1.fp-16385L, 3.141592653589793238462643383279502884197L, 4.656612873077392578082927418388212703712e-10L);
3a7182a1 1768# endif
4d14f449
JM		 1769 TEST_c_c (cacos, 0.0L, 0x1.0000000000000002p0L, 1.570796326794896619231321691639751442099L, -8.813735870195430253092739958139610130980e-1L);
1770 TEST_c_c (cacos, 0.0L, -0x1.0000000000000002p0L, 1.570796326794896619231321691639751442099L, 8.813735870195430253092739958139610130980e-1L);
1771 TEST_c_c (cacos, -0.0L, 0x1.0000000000000002p0L, 1.570796326794896619231321691639751442099L, -8.813735870195430253092739958139610130980e-1L);
1772 TEST_c_c (cacos, -0.0L, -0x1.0000000000000002p0L, 1.570796326794896619231321691639751442099L, 8.813735870195430253092739958139610130980e-1L);
1773 TEST_c_c (cacos, 0x1.0000000000000002p0L, 0.0L, 0.0L, -4.656612873077392578082927418388212703712e-10L);
1774 TEST_c_c (cacos, -0x1.0000000000000002p0L, 0.0L, 3.141592653589793238462643383279502884197L, -4.656612873077392578082927418388212703712e-10L);
1775 TEST_c_c (cacos, 0x1.0000000000000002p0L, -0.0L, 0.0L, 4.656612873077392578082927418388212703712e-10L);
1776 TEST_c_c (cacos, -0x1.0000000000000002p0L, -0.0L, 3.141592653589793238462643383279502884197L, 4.656612873077392578082927418388212703712e-10L);
3a7182a1
JM		 1777#endif
1778#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106
4d14f449
JM		 1779 TEST_c_c (cacos, 0x1p-106L, 0x1.000000000000000000000000008p0L, 1.570796326794896619231321691639742726335L, -8.813735870195430252326093249798097405561e-1L);
1780 TEST_c_c (cacos, 0x1p-106L, -0x1.000000000000000000000000008p0L, 1.570796326794896619231321691639742726335L, 8.813735870195430252326093249798097405561e-1L);
1781 TEST_c_c (cacos, -0x1p-106L, 0x1.000000000000000000000000008p0L, 1.570796326794896619231321691639760157863L, -8.813735870195430252326093249798097405561e-1L);
1782 TEST_c_c (cacos, -0x1p-106L, -0x1.000000000000000000000000008p0L, 1.570796326794896619231321691639760157863L, 8.813735870195430252326093249798097405561e-1L);
1783 TEST_c_c (cacos, 0x1.000000000000000000000000008p0L, 0x1p-106L, 5.394221422390606848017034778914096659726e-17L, -2.285028863093221674154232933662774454211e-16L);
1784 TEST_c_c (cacos, -0x1.000000000000000000000000008p0L, 0x1p-106L, 3.141592653589793184520429159373434404027L, -2.285028863093221674154232933662774454211e-16L);
1785 TEST_c_c (cacos, 0x1.000000000000000000000000008p0L, -0x1p-106L, 5.394221422390606848017034778914096659726e-17L, 2.285028863093221674154232933662774454211e-16L);
1786 TEST_c_c (cacos, -0x1.000000000000000000000000008p0L, -0x1p-106L, 3.141592653589793184520429159373434404027L, 2.285028863093221674154232933662774454211e-16L);
1787 TEST_c_c (cacos, 0x1.fp-1025L, 0x1.000000000000000000000000008p0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249798097405561e-1L);
1788 TEST_c_c (cacos, 0x1.fp-1025L, -0x1.000000000000000000000000008p0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249798097405561e-1L);
1789 TEST_c_c (cacos, -0x1.fp-1025L, 0x1.000000000000000000000000008p0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249798097405561e-1L);
1790 TEST_c_c (cacos, -0x1.fp-1025L, -0x1.000000000000000000000000008p0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249798097405561e-1L);
1791 TEST_c_c (cacos, 0x1.000000000000000000000000008p0L, 0x1.fp-1025L, 2.426922623448365473354662093431821897807e-293L, -2.220446049250313080847263336181636063482e-16L);
1792 TEST_c_c (cacos, -0x1.000000000000000000000000008p0L, 0x1.fp-1025L, 3.141592653589793238462643383279502884197L, -2.220446049250313080847263336181636063482e-16L);
1793 TEST_c_c (cacos, 0x1.000000000000000000000000008p0L, -0x1.fp-1025L, 2.426922623448365473354662093431821897807e-293L, 2.220446049250313080847263336181636063482e-16L);
1794 TEST_c_c (cacos, -0x1.000000000000000000000000008p0L, -0x1.fp-1025L, 3.141592653589793238462643383279502884197L, 2.220446049250313080847263336181636063482e-16L);
1795 TEST_c_c (cacos, 0.0L, 0x1.000000000000000000000000008p0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249798097405561e-1L);
1796 TEST_c_c (cacos, 0.0L, -0x1.000000000000000000000000008p0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249798097405561e-1L);
1797 TEST_c_c (cacos, -0.0L, 0x1.000000000000000000000000008p0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249798097405561e-1L);
1798 TEST_c_c (cacos, -0.0L, -0x1.000000000000000000000000008p0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249798097405561e-1L);
1799 TEST_c_c (cacos, 0x1.000000000000000000000000008p0L, 0.0L, 0.0L, -2.220446049250313080847263336181636063482e-16L);
1800 TEST_c_c (cacos, -0x1.000000000000000000000000008p0L, 0.0L, 3.141592653589793238462643383279502884197L, -2.220446049250313080847263336181636063482e-16L);
1801 TEST_c_c (cacos, 0x1.000000000000000000000000008p0L, -0.0L, 0.0L, 2.220446049250313080847263336181636063482e-16L);
1802 TEST_c_c (cacos, -0x1.000000000000000000000000008p0L, -0.0L, 3.141592653589793238462643383279502884197L, 2.220446049250313080847263336181636063482e-16L);
3a7182a1
JM		 1803#endif
1804#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 113
4d14f449
JM		 1805 TEST_c_c (cacos, 0x1p-113L, 0x1.0000000000000000000000000001p0L, 1.570796326794896619231321691639751374007L, -8.813735870195430252326093249797924452120e-1L);
1806 TEST_c_c (cacos, 0x1p-113L, -0x1.0000000000000000000000000001p0L, 1.570796326794896619231321691639751374007L, 8.813735870195430252326093249797924452120e-1L);
1807 TEST_c_c (cacos, -0x1p-113L, 0x1.0000000000000000000000000001p0L, 1.570796326794896619231321691639751510190L, -8.813735870195430252326093249797924452120e-1L);
1808 TEST_c_c (cacos, -0x1p-113L, -0x1.0000000000000000000000000001p0L, 1.570796326794896619231321691639751510190L, 8.813735870195430252326093249797924452120e-1L);
1809 TEST_c_c (cacos, 0x1.0000000000000000000000000001p0L, 0x1p-113L, 4.767863183742677481693563511435642755521e-18L, -2.019699255375255198156433710951064632386e-17L);
1810 TEST_c_c (cacos, -0x1.0000000000000000000000000001p0L, 0x1p-113L, 3.141592653589793233694780199536825402504L, -2.019699255375255198156433710951064632386e-17L);
1811 TEST_c_c (cacos, 0x1.0000000000000000000000000001p0L, -0x1p-113L, 4.767863183742677481693563511435642755521e-18L, 2.019699255375255198156433710951064632386e-17L);
1812 TEST_c_c (cacos, -0x1.0000000000000000000000000001p0L, -0x1p-113L, 3.141592653589793233694780199536825402504L, 2.019699255375255198156433710951064632386e-17L);
1813 TEST_c_c (cacos, 0x1.fp-16385L, 0x1.0000000000000000000000000001p0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797924452120e-1L);
1814 TEST_c_c (cacos, 0x1.fp-16385L, -0x1.0000000000000000000000000001p0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797924452120e-1L);
1815 TEST_c_c (cacos, -0x1.fp-16385L, 0x1.0000000000000000000000000001p0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797924452120e-1L);
1816 TEST_c_c (cacos, -0x1.fp-16385L, -0x1.0000000000000000000000000001p0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797924452120e-1L);
1817 TEST_c_c (cacos, 0x1.0000000000000000000000000001p0L, 0x1.fp-16385L, 4.148847925325683229178506116378864361396e-4916L, -1.962615573354718824241727964954454332780e-17L);
1818 TEST_c_c (cacos, -0x1.0000000000000000000000000001p0L, 0x1.fp-16385L, 3.141592653589793238462643383279502884197L, -1.962615573354718824241727964954454332780e-17L);
1819 TEST_c_c (cacos, 0x1.0000000000000000000000000001p0L, -0x1.fp-16385L, 4.148847925325683229178506116378864361396e-4916L, 1.962615573354718824241727964954454332780e-17L);
1820 TEST_c_c (cacos, -0x1.0000000000000000000000000001p0L, -0x1.fp-16385L, 3.141592653589793238462643383279502884197L, 1.962615573354718824241727964954454332780e-17L);
1821 TEST_c_c (cacos, 0.0L, 0x1.0000000000000000000000000001p0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797924452120e-1L);
1822 TEST_c_c (cacos, 0.0L, -0x1.0000000000000000000000000001p0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797924452120e-1L);
1823 TEST_c_c (cacos, -0.0L, 0x1.0000000000000000000000000001p0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797924452120e-1L);
1824 TEST_c_c (cacos, -0.0L, -0x1.0000000000000000000000000001p0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797924452120e-1L);
1825 TEST_c_c (cacos, 0x1.0000000000000000000000000001p0L, 0.0L, 0.0L, -1.962615573354718824241727964954454332780e-17L);
1826 TEST_c_c (cacos, -0x1.0000000000000000000000000001p0L, 0.0L, 3.141592653589793238462643383279502884197L, -1.962615573354718824241727964954454332780e-17L);
1827 TEST_c_c (cacos, 0x1.0000000000000000000000000001p0L, -0.0L, 0.0L, 1.962615573354718824241727964954454332780e-17L);
1828 TEST_c_c (cacos, -0x1.0000000000000000000000000001p0L, -0.0L, 3.141592653589793238462643383279502884197L, 1.962615573354718824241727964954454332780e-17L);
3a7182a1
JM		 1829#endif
1830
ccc8cadf
JM		 1831 TEST_c_c (cacos, 0x1p-23L, 0x0.ffffffp0L, 1.570796242501197085295336701632142060969L, -8.813735448726963984495965873956465777250e-1L);
1832 TEST_c_c (cacos, 0x1p-23L, -0x0.ffffffp0L, 1.570796242501197085295336701632142060969L, 8.813735448726963984495965873956465777250e-1L);
1833 TEST_c_c (cacos, -0x1p-23L, 0x0.ffffffp0L, 1.570796411088596153167306681647360823228L, -8.813735448726963984495965873956465777250e-1L);
1834 TEST_c_c (cacos, -0x1p-23L, -0x0.ffffffp0L, 1.570796411088596153167306681647360823228L, 8.813735448726963984495965873956465777250e-1L);
1835 TEST_c_c (cacos, 0x0.ffffffp0L, 0x1p-23L, 4.391863861910487109445187743978204002614e-4L, -2.714321200917194650737217746780928423385e-4L);
1836 TEST_c_c (cacos, -0x0.ffffffp0L, 0x1p-23L, 3.141153467203602189751698864505105063797L, -2.714321200917194650737217746780928423385e-4L);
1837 TEST_c_c (cacos, 0x0.ffffffp0L, -0x1p-23L, 4.391863861910487109445187743978204002614e-4L, 2.714321200917194650737217746780928423385e-4L);
1838 TEST_c_c (cacos, -0x0.ffffffp0L, -0x1p-23L, 3.141153467203602189751698864505105063797L, 2.714321200917194650737217746780928423385e-4L);
1839 TEST_c_c (cacos, 0x1.fp-129L, 0x0.ffffffp0L, 1.570796326794896619231321691639751442097L, -8.813735448726938863015878255140556727969e-1L);
1840 TEST_c_c (cacos, 0x1.fp-129L, -0x0.ffffffp0L, 1.570796326794896619231321691639751442097L, 8.813735448726938863015878255140556727969e-1L);
1841 TEST_c_c (cacos, -0x1.fp-129L, 0x0.ffffffp0L, 1.570796326794896619231321691639751442101L, -8.813735448726938863015878255140556727969e-1L);
1842 TEST_c_c (cacos, -0x1.fp-129L, -0x0.ffffffp0L, 1.570796326794896619231321691639751442101L, 8.813735448726938863015878255140556727969e-1L);
1843 TEST_c_c (cacos, 0x0.ffffffp0L, 0x1.fp-129L, 3.452669847162035876032494826387364972849e-4L, -8.245504387859737323891843603996428534945e-36L);
1844 TEST_c_c (cacos, -0x0.ffffffp0L, 0x1.fp-129L, 3.141247386605077034875040133796864147700L, -8.245504387859737323891843603996428534945e-36L);
1845 TEST_c_c (cacos, 0x0.ffffffp0L, -0x1.fp-129L, 3.452669847162035876032494826387364972849e-4L, 8.245504387859737323891843603996428534945e-36L);
1846 TEST_c_c (cacos, -0x0.ffffffp0L, -0x1.fp-129L, 3.141247386605077034875040133796864147700L, 8.245504387859737323891843603996428534945e-36L);
1847 TEST_c_c (cacos, 0.0L, 0x0.ffffffp0L, 1.570796326794896619231321691639751442099L, -8.813735448726938863015878255140556727969e-1L);
1848 TEST_c_c (cacos, 0.0L, -0x0.ffffffp0L, 1.570796326794896619231321691639751442099L, 8.813735448726938863015878255140556727969e-1L);
1849 TEST_c_c (cacos, -0.0L, 0x0.ffffffp0L, 1.570796326794896619231321691639751442099L, -8.813735448726938863015878255140556727969e-1L);
1850 TEST_c_c (cacos, -0.0L, -0x0.ffffffp0L, 1.570796326794896619231321691639751442099L, 8.813735448726938863015878255140556727969e-1L);
1851 TEST_c_c (cacos, 0x0.ffffffp0L, 0.0L, 3.452669847162035876032494826387364972849e-4L, -0.0L);
1852 TEST_c_c (cacos, -0x0.ffffffp0L, 0.0L, 3.141247386605077034875040133796864147700L, -0.0L);
1853 TEST_c_c (cacos, 0x0.ffffffp0L, -0.0L, 3.452669847162035876032494826387364972849e-4L, 0.0L);
1854 TEST_c_c (cacos, -0x0.ffffffp0L, -0.0L, 3.141247386605077034875040133796864147700L, 0.0L);
1855 TEST_c_c (cacos, 0x1p-23L, 0.5L, 1.570796220170866625230343643673321150378L, -4.812118250596059896127318386463676808798e-1L);
1856 TEST_c_c (cacos, 0x1p-23L, -0.5L, 1.570796220170866625230343643673321150378L, 4.812118250596059896127318386463676808798e-1L);
1857 TEST_c_c (cacos, -0x1p-23L, 0.5L, 1.570796433418926613232299739606181733819L, -4.812118250596059896127318386463676808798e-1L);
1858 TEST_c_c (cacos, -0x1p-23L, -0.5L, 1.570796433418926613232299739606181733819L, 4.812118250596059896127318386463676808798e-1L);
1859 TEST_c_c (cacos, 0.5L, 0x1p-23L, 1.047197551196603215914744618665204532273L, -1.376510308240943236356088341381173571841e-7L);
1860 TEST_c_c (cacos, -0.5L, 0x1p-23L, 2.094395102393190022547898764614298351924L, -1.376510308240943236356088341381173571841e-7L);
1861 TEST_c_c (cacos, 0.5L, -0x1p-23L, 1.047197551196603215914744618665204532273L, 1.376510308240943236356088341381173571841e-7L);
1862 TEST_c_c (cacos, -0.5L, -0x1p-23L, 2.094395102393190022547898764614298351924L, 1.376510308240943236356088341381173571841e-7L);
1863 TEST_c_c (cacos, 0x1.fp-129L, 0.5L, 1.570796326794896619231321691639751442096L, -4.812118250596034474977589134243684231352e-1L);
1864 TEST_c_c (cacos, 0x1.fp-129L, -0.5L, 1.570796326794896619231321691639751442096L, 4.812118250596034474977589134243684231352e-1L);
1865 TEST_c_c (cacos, -0x1.fp-129L, 0.5L, 1.570796326794896619231321691639751442101L, -4.812118250596034474977589134243684231352e-1L);
1866 TEST_c_c (cacos, -0x1.fp-129L, -0.5L, 1.570796326794896619231321691639751442101L, 4.812118250596034474977589134243684231352e-1L);
1867 TEST_c_c (cacos, 0.5L, 0x1.fp-129L, 1.047197551196597746154214461093167628066L, -3.287317402534702257036015056278368274737e-39L, UNDERFLOW_EXCEPTION_FLOAT);
1868 TEST_c_c (cacos, -0.5L, 0x1.fp-129L, 2.094395102393195492308428922186335256131L, -3.287317402534702257036015056278368274737e-39L, UNDERFLOW_EXCEPTION_FLOAT);
1869 TEST_c_c (cacos, 0.5L, -0x1.fp-129L, 1.047197551196597746154214461093167628066L, 3.287317402534702257036015056278368274737e-39L, UNDERFLOW_EXCEPTION_FLOAT);
1870 TEST_c_c (cacos, -0.5L, -0x1.fp-129L, 2.094395102393195492308428922186335256131L, 3.287317402534702257036015056278368274737e-39L, UNDERFLOW_EXCEPTION_FLOAT);
1871 TEST_c_c (cacos, 0x1p-23L, 0x1p-23L, 1.570796207585607068450636380271254316214L, -1.192092895507818146886315028596704749235e-7L);
1872 TEST_c_c (cacos, 0x1p-23L, -0x1p-23L, 1.570796207585607068450636380271254316214L, 1.192092895507818146886315028596704749235e-7L);
1873 TEST_c_c (cacos, -0x1p-23L, 0x1p-23L, 1.570796446004186170012007003008248567984L, -1.192092895507818146886315028596704749235e-7L);
1874 TEST_c_c (cacos, -0x1p-23L, -0x1p-23L, 1.570796446004186170012007003008248567984L, 1.192092895507818146886315028596704749235e-7L);
1875 TEST_c_c (cacos, 0x1.fp-129L, 0x1p-23L, 1.570796326794896619231321691639751442096L, -1.192092895507809676556842485683592032154e-7L);
1876 TEST_c_c (cacos, 0x1.fp-129L, -0x1p-23L, 1.570796326794896619231321691639751442096L, 1.192092895507809676556842485683592032154e-7L);
1877 TEST_c_c (cacos, -0x1.fp-129L, 0x1p-23L, 1.570796326794896619231321691639751442101L, -1.192092895507809676556842485683592032154e-7L);
1878 TEST_c_c (cacos, -0x1.fp-129L, -0x1p-23L, 1.570796326794896619231321691639751442101L, 1.192092895507809676556842485683592032154e-7L);
1879 TEST_c_c (cacos, 0x1p-23L, 0x1.fp-129L, 1.570796207585607068449789347324000006847L, -2.846900380897747786805634596726756660388e-39L, UNDERFLOW_EXCEPTION_FLOAT);
1880 TEST_c_c (cacos, -0x1p-23L, 0x1.fp-129L, 1.570796446004186170012854035955502877351L, -2.846900380897747786805634596726756660388e-39L, UNDERFLOW_EXCEPTION_FLOAT);
1881 TEST_c_c (cacos, 0x1p-23L, -0x1.fp-129L, 1.570796207585607068449789347324000006847L, 2.846900380897747786805634596726756660388e-39L, UNDERFLOW_EXCEPTION_FLOAT);
1882 TEST_c_c (cacos, -0x1p-23L, -0x1.fp-129L, 1.570796446004186170012854035955502877351L, 2.846900380897747786805634596726756660388e-39L, UNDERFLOW_EXCEPTION_FLOAT);
1883 TEST_c_c (cacos, 0.0L, 0x1p-23L, 1.570796326794896619231321691639751442099L, -1.192092895507809676556842485683592032154e-7L);
1884 TEST_c_c (cacos, 0.0L, -0x1p-23L, 1.570796326794896619231321691639751442099L, 1.192092895507809676556842485683592032154e-7L);
1885 TEST_c_c (cacos, -0.0L, 0x1p-23L, 1.570796326794896619231321691639751442099L, -1.192092895507809676556842485683592032154e-7L);
1886 TEST_c_c (cacos, -0.0L, -0x1p-23L, 1.570796326794896619231321691639751442099L, 1.192092895507809676556842485683592032154e-7L);
1887 TEST_c_c (cacos, 0x1p-23L, 0.0L, 1.570796207585607068449789347324000006847L, -0.0L);
1888 TEST_c_c (cacos, -0x1p-23L, 0.0L, 1.570796446004186170012854035955502877351L, -0.0L);
1889 TEST_c_c (cacos, 0x1p-23L, -0.0L, 1.570796207585607068449789347324000006847L, 0.0L);
1890 TEST_c_c (cacos, -0x1p-23L, -0.0L, 1.570796446004186170012854035955502877351L, 0.0L);
1891 TEST_c_c (cacos, 0x1.fp-129L, 0x1.fp-129L, 1.570796326794896619231321691639751442096L, -2.846900380897727558361783801085126250967e-39L, UNDERFLOW_EXCEPTION_FLOAT);
1892 TEST_c_c (cacos, 0x1.fp-129L, -0x1.fp-129L, 1.570796326794896619231321691639751442096L, 2.846900380897727558361783801085126250967e-39L, UNDERFLOW_EXCEPTION_FLOAT);
1893 TEST_c_c (cacos, -0x1.fp-129L, 0x1.fp-129L, 1.570796326794896619231321691639751442101L, -2.846900380897727558361783801085126250967e-39L, UNDERFLOW_EXCEPTION_FLOAT);
1894 TEST_c_c (cacos, -0x1.fp-129L, -0x1.fp-129L, 1.570796326794896619231321691639751442101L, 2.846900380897727558361783801085126250967e-39L, UNDERFLOW_EXCEPTION_FLOAT);
1895#ifndef TEST_FLOAT
1896 TEST_c_c (cacos, 0x1p-52L, 0x0.fffffffffffff8p0L, 1.570796326794896462222075823262236786996L, -8.813735870195429467279863907910458761820e-1L);
1897 TEST_c_c (cacos, 0x1p-52L, -0x0.fffffffffffff8p0L, 1.570796326794896462222075823262236786996L, 8.813735870195429467279863907910458761820e-1L);
1898 TEST_c_c (cacos, -0x1p-52L, 0x0.fffffffffffff8p0L, 1.570796326794896776240567560017266097201L, -8.813735870195429467279863907910458761820e-1L);
1899 TEST_c_c (cacos, -0x1p-52L, -0x0.fffffffffffff8p0L, 1.570796326794896776240567560017266097201L, 8.813735870195429467279863907910458761820e-1L);
1900 TEST_c_c (cacos, 0x0.fffffffffffff8p0L, 0x1p-52L, 1.895456983915074112227925127005564372844e-8L, -1.171456840272878582596796205397918831268e-8L);
1901 TEST_c_c (cacos, -0x0.fffffffffffff8p0L, 0x1p-52L, 3.141592634635223399311902261000251614142L, -1.171456840272878582596796205397918831268e-8L);
1902 TEST_c_c (cacos, 0x0.fffffffffffff8p0L, -0x1p-52L, 1.895456983915074112227925127005564372844e-8L, 1.171456840272878582596796205397918831268e-8L);
1903 TEST_c_c (cacos, -0x0.fffffffffffff8p0L, -0x1p-52L, 3.141592634635223399311902261000251614142L, 1.171456840272878582596796205397918831268e-8L);
1904 TEST_c_c (cacos, 0x1.fp-1025L, 0x0.fffffffffffff8p0L, 1.570796326794896619231321691639751442099L, -8.813735870195429467279863907910371604180e-1L);
1905 TEST_c_c (cacos, 0x1.fp-1025L, -0x0.fffffffffffff8p0L, 1.570796326794896619231321691639751442099L, 8.813735870195429467279863907910371604180e-1L);
1906 TEST_c_c (cacos, -0x1.fp-1025L, 0x0.fffffffffffff8p0L, 1.570796326794896619231321691639751442099L, -8.813735870195429467279863907910371604180e-1L);
1907 TEST_c_c (cacos, -0x1.fp-1025L, -0x0.fffffffffffff8p0L, 1.570796326794896619231321691639751442099L, 8.813735870195429467279863907910371604180e-1L);
1908 TEST_c_c (cacos, 0x0.fffffffffffff8p0L, 0x1.fp-1025L, 1.490116119384765638786343542550461592240e-8L, -3.616396521699973256461764099945789620604e-301L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
1909 TEST_c_c (cacos, -0x0.fffffffffffff8p0L, 0x1.fp-1025L, 3.141592638688632044614986995416067458693L, -3.616396521699973256461764099945789620604e-301L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
1910 TEST_c_c (cacos, 0x0.fffffffffffff8p0L, -0x1.fp-1025L, 1.490116119384765638786343542550461592240e-8L, 3.616396521699973256461764099945789620604e-301L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
1911 TEST_c_c (cacos, -0x0.fffffffffffff8p0L, -0x1.fp-1025L, 3.141592638688632044614986995416067458693L, 3.616396521699973256461764099945789620604e-301L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
1912 TEST_c_c (cacos, 0.0L, 0x0.fffffffffffff8p0L, 1.570796326794896619231321691639751442099L, -8.813735870195429467279863907910371604180e-1L);
1913 TEST_c_c (cacos, 0.0L, -0x0.fffffffffffff8p0L, 1.570796326794896619231321691639751442099L, 8.813735870195429467279863907910371604180e-1L);
1914 TEST_c_c (cacos, -0.0L, 0x0.fffffffffffff8p0L, 1.570796326794896619231321691639751442099L, -8.813735870195429467279863907910371604180e-1L);
1915 TEST_c_c (cacos, -0.0L, -0x0.fffffffffffff8p0L, 1.570796326794896619231321691639751442099L, 8.813735870195429467279863907910371604180e-1L);
1916 TEST_c_c (cacos, 0x0.fffffffffffff8p0L, 0.0L, 1.490116119384765638786343542550461592240e-8L, -0.0L);
1917 TEST_c_c (cacos, -0x0.fffffffffffff8p0L, 0.0L, 3.141592638688632044614986995416067458693L, -0.0L);
1918 TEST_c_c (cacos, 0x0.fffffffffffff8p0L, -0.0L, 1.490116119384765638786343542550461592240e-8L, 0.0L);
1919 TEST_c_c (cacos, -0x0.fffffffffffff8p0L, -0.0L, 3.141592638688632044614986995416067458693L, 0.0L);
1920#endif
1921 TEST_c_c (cacos, 0x1p-52L, 0.5L, 1.570796326794896420628589431857911675917L, -4.812118250596034474977589134243772428682e-1L);
1922 TEST_c_c (cacos, 0x1p-52L, -0.5L, 1.570796326794896420628589431857911675917L, 4.812118250596034474977589134243772428682e-1L);
1923 TEST_c_c (cacos, -0x1p-52L, 0.5L, 1.570796326794896817834053951421591208280L, -4.812118250596034474977589134243772428682e-1L);
1924 TEST_c_c (cacos, -0x1p-52L, -0.5L, 1.570796326794896817834053951421591208280L, 4.812118250596034474977589134243772428682e-1L);
1925 TEST_c_c (cacos, 0.5L, 0x1p-52L, 1.047197551196597746154214461093186605110L, -2.563950248511418570403591756798643804971e-16L);
1926 TEST_c_c (cacos, -0.5L, 0x1p-52L, 2.094395102393195492308428922186316279087L, -2.563950248511418570403591756798643804971e-16L);
1927 TEST_c_c (cacos, 0.5L, -0x1p-52L, 1.047197551196597746154214461093186605110L, 2.563950248511418570403591756798643804971e-16L);
1928 TEST_c_c (cacos, -0.5L, -0x1p-52L, 2.094395102393195492308428922186316279087L, 2.563950248511418570403591756798643804971e-16L);
1929#ifndef TEST_FLOAT
1930 TEST_c_c (cacos, 0x1.fp-1025L, 0.5L, 1.570796326794896619231321691639751442099L, -4.812118250596034474977589134243684231352e-1L);
1931 TEST_c_c (cacos, 0x1.fp-1025L, -0.5L, 1.570796326794896619231321691639751442099L, 4.812118250596034474977589134243684231352e-1L);
1932 TEST_c_c (cacos, -0x1.fp-1025L, 0.5L, 1.570796326794896619231321691639751442099L, -4.812118250596034474977589134243684231352e-1L);
1933 TEST_c_c (cacos, -0x1.fp-1025L, -0.5L, 1.570796326794896619231321691639751442099L, 4.812118250596034474977589134243684231352e-1L);
1934 TEST_c_c (cacos, 0.5L, 0x1.fp-1025L, 1.047197551196597746154214461093167628066L, -6.222508863508420569166420770843207333493e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
1935 TEST_c_c (cacos, -0.5L, 0x1.fp-1025L, 2.094395102393195492308428922186335256131L, -6.222508863508420569166420770843207333493e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
1936 TEST_c_c (cacos, 0.5L, -0x1.fp-1025L, 1.047197551196597746154214461093167628066L, 6.222508863508420569166420770843207333493e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
1937 TEST_c_c (cacos, -0.5L, -0x1.fp-1025L, 2.094395102393195492308428922186335256131L, 6.222508863508420569166420770843207333493e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
1938#endif
1939 TEST_c_c (cacos, 0x1p-52L, 0x1p-52L, 1.570796326794896397186716766608443357372L, -2.220446049250313080847263336181677117148e-16L);
1940 TEST_c_c (cacos, 0x1p-52L, -0x1p-52L, 1.570796326794896397186716766608443357372L, 2.220446049250313080847263336181677117148e-16L);
1941 TEST_c_c (cacos, -0x1p-52L, 0x1p-52L, 1.570796326794896841275926616671059526825L, -2.220446049250313080847263336181677117148e-16L);
1942 TEST_c_c (cacos, -0x1p-52L, -0x1p-52L, 1.570796326794896841275926616671059526825L, 2.220446049250313080847263336181677117148e-16L);
1943#ifndef TEST_FLOAT
1944 TEST_c_c (cacos, 0x1.fp-1025L, 0x1p-52L, 1.570796326794896619231321691639751442099L, -2.220446049250313080847263336181622378926e-16L);
1945 TEST_c_c (cacos, 0x1.fp-1025L, -0x1p-52L, 1.570796326794896619231321691639751442099L, 2.220446049250313080847263336181622378926e-16L);
1946 TEST_c_c (cacos, -0x1.fp-1025L, 0x1p-52L, 1.570796326794896619231321691639751442099L, -2.220446049250313080847263336181622378926e-16L);
1947 TEST_c_c (cacos, -0x1.fp-1025L, -0x1p-52L, 1.570796326794896619231321691639751442099L, 2.220446049250313080847263336181622378926e-16L);
1948 TEST_c_c (cacos, 0x1p-52L, 0x1.fp-1025L, 1.570796326794896397186716766608443357372L, -5.388850751072128349671657362289548938458e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
1949 TEST_c_c (cacos, -0x1p-52L, 0x1.fp-1025L, 1.570796326794896841275926616671059526825L, -5.388850751072128349671657362289548938458e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
1950 TEST_c_c (cacos, 0x1p-52L, -0x1.fp-1025L, 1.570796326794896397186716766608443357372L, 5.388850751072128349671657362289548938458e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
1951 TEST_c_c (cacos, -0x1p-52L, -0x1.fp-1025L, 1.570796326794896841275926616671059526825L, 5.388850751072128349671657362289548938458e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
1952#endif
1953 TEST_c_c (cacos, 0.0L, 0x1p-52L, 1.570796326794896619231321691639751442099L, -2.220446049250313080847263336181622378926e-16L);
1954 TEST_c_c (cacos, 0.0L, -0x1p-52L, 1.570796326794896619231321691639751442099L, 2.220446049250313080847263336181622378926e-16L);
1955 TEST_c_c (cacos, -0.0L, 0x1p-52L, 1.570796326794896619231321691639751442099L, -2.220446049250313080847263336181622378926e-16L);
1956 TEST_c_c (cacos, -0.0L, -0x1p-52L, 1.570796326794896619231321691639751442099L, 2.220446049250313080847263336181622378926e-16L);
1957 TEST_c_c (cacos, 0x1p-52L, 0.0L, 1.570796326794896397186716766608443357372L, -0.0L);
1958 TEST_c_c (cacos, -0x1p-52L, 0.0L, 1.570796326794896841275926616671059526825L, -0.0L);
1959 TEST_c_c (cacos, 0x1p-52L, -0.0L, 1.570796326794896397186716766608443357372L, 0.0L);
1960 TEST_c_c (cacos, -0x1p-52L, -0.0L, 1.570796326794896841275926616671059526825L, 0.0L);
1961#ifndef TEST_FLOAT
1962 TEST_c_c (cacos, 0x1.fp-1025L, 0x1.fp-1025L, 1.570796326794896619231321691639751442099L, -5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
1963 TEST_c_c (cacos, 0x1.fp-1025L, -0x1.fp-1025L, 1.570796326794896619231321691639751442099L, 5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
1964 TEST_c_c (cacos, -0x1.fp-1025L, 0x1.fp-1025L, 1.570796326794896619231321691639751442099L, -5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
1965 TEST_c_c (cacos, -0x1.fp-1025L, -0x1.fp-1025L, 1.570796326794896619231321691639751442099L, 5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
1966#endif
1967#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64
1968 TEST_c_c (cacos, 0x1p-63L, 0x0.ffffffffffffffffp0L, 1.570796326794896619154657020805582738025L, -8.813735870195430251942769895627079569937e-1L);
1969 TEST_c_c (cacos, 0x1p-63L, -0x0.ffffffffffffffffp0L, 1.570796326794896619154657020805582738025L, 8.813735870195430251942769895627079569937e-1L);
1970 TEST_c_c (cacos, -0x1p-63L, 0x0.ffffffffffffffffp0L, 1.570796326794896619307986362473920146173L, -8.813735870195430251942769895627079569937e-1L);
1971 TEST_c_c (cacos, -0x1p-63L, -0x0.ffffffffffffffffp0L, 1.570796326794896619307986362473920146173L, 8.813735870195430251942769895627079569937e-1L);
1972 TEST_c_c (cacos, 0x0.ffffffffffffffffp0L, 0x1p-63L, 4.188407771167967636741951941902992986043e-10L, -2.588578361325995866221775673638805081337e-10L);
1973 TEST_c_c (cacos, -0x0.ffffffffffffffffp0L, 0x1p-63L, 3.141592653170952461345846619605307690007L, -2.588578361325995866221775673638805081337e-10L);
1974 TEST_c_c (cacos, 0x0.ffffffffffffffffp0L, -0x1p-63L, 4.188407771167967636741951941902992986043e-10L, 2.588578361325995866221775673638805081337e-10L);
1975 TEST_c_c (cacos, -0x0.ffffffffffffffffp0L, -0x1p-63L, 3.141592653170952461345846619605307690007L, 2.588578361325995866221775673638805081337e-10L);
1976# if LDBL_MIN_EXP <= -16381
1977 TEST_c_c (cacos, 0x1.fp-16385L, 0x0.ffffffffffffffffp0L, 1.570796326794896619231321691639751442099L, -8.813735870195430251942769895627079569917e-1L);
1978 TEST_c_c (cacos, 0x1.fp-16385L, -0x0.ffffffffffffffffp0L, 1.570796326794896619231321691639751442099L, 8.813735870195430251942769895627079569917e-1L);
1979 TEST_c_c (cacos, -0x1.fp-16385L, 0x0.ffffffffffffffffp0L, 1.570796326794896619231321691639751442099L, -8.813735870195430251942769895627079569917e-1L);
1980 TEST_c_c (cacos, -0x1.fp-16385L, -0x0.ffffffffffffffffp0L, 1.570796326794896619231321691639751442099L, 8.813735870195430251942769895627079569917e-1L);
1981 TEST_c_c (cacos, 0x0.ffffffffffffffffp0L, 0x1.fp-16385L, 3.292722539913596233371825532007990724506e-10L, -2.472906068161537187835415298076415423459e-4923L);
1982 TEST_c_c (cacos, -0x0.ffffffffffffffffp0L, 0x1.fp-16385L, 3.141592653260520984471283759942320330996L, -2.472906068161537187835415298076415423459e-4923L);
1983 TEST_c_c (cacos, 0x0.ffffffffffffffffp0L, -0x1.fp-16385L, 3.292722539913596233371825532007990724506e-10L, 2.472906068161537187835415298076415423459e-4923L);
1984 TEST_c_c (cacos, -0x0.ffffffffffffffffp0L, -0x1.fp-16385L, 3.141592653260520984471283759942320330996L, 2.472906068161537187835415298076415423459e-4923L);
1985# endif
1986 TEST_c_c (cacos, 0.0L, 0x0.ffffffffffffffffp0L, 1.570796326794896619231321691639751442099L, -8.813735870195430251942769895627079569917e-1L);
1987 TEST_c_c (cacos, 0.0L, -0x0.ffffffffffffffffp0L, 1.570796326794896619231321691639751442099L, 8.813735870195430251942769895627079569917e-1L);
1988 TEST_c_c (cacos, -0.0L, 0x0.ffffffffffffffffp0L, 1.570796326794896619231321691639751442099L, -8.813735870195430251942769895627079569917e-1L);
1989 TEST_c_c (cacos, -0.0L, -0x0.ffffffffffffffffp0L, 1.570796326794896619231321691639751442099L, 8.813735870195430251942769895627079569917e-1L);
1990 TEST_c_c (cacos, 0x0.ffffffffffffffffp0L, 0.0L, 3.292722539913596233371825532007990724506e-10L, -0.0L);
1991 TEST_c_c (cacos, -0x0.ffffffffffffffffp0L, 0.0L, 3.141592653260520984471283759942320330996L, -0.0L);
1992 TEST_c_c (cacos, 0x0.ffffffffffffffffp0L, -0.0L, 3.292722539913596233371825532007990724506e-10L, 0.0L);
1993 TEST_c_c (cacos, -0x0.ffffffffffffffffp0L, -0.0L, 3.141592653260520984471283759942320330996L, 0.0L);
1994#endif
1995 TEST_c_c (cacos, 0x1p-63L, 0.5L, 1.570796326794896619134347701278529840650L, -4.812118250596034474977589134243684231373e-1L);
1996 TEST_c_c (cacos, 0x1p-63L, -0.5L, 1.570796326794896619134347701278529840650L, 4.812118250596034474977589134243684231373e-1L);
1997 TEST_c_c (cacos, -0x1p-63L, 0.5L, 1.570796326794896619328295682000973043547L, -4.812118250596034474977589134243684231373e-1L);
1998 TEST_c_c (cacos, -0x1p-63L, -0.5L, 1.570796326794896619328295682000973043547L, 4.812118250596034474977589134243684231373e-1L);
1999 TEST_c_c (cacos, 0.5L, 0x1p-63L, 1.047197551196597746154214461093167628070L, -1.251928832280966098829878787499365228659e-19L);
2000 TEST_c_c (cacos, -0.5L, 0x1p-63L, 2.094395102393195492308428922186335256127L, -1.251928832280966098829878787499365228659e-19L);
2001 TEST_c_c (cacos, 0.5L, -0x1p-63L, 1.047197551196597746154214461093167628070L, 1.251928832280966098829878787499365228659e-19L);
2002 TEST_c_c (cacos, -0.5L, -0x1p-63L, 2.094395102393195492308428922186335256127L, 1.251928832280966098829878787499365228659e-19L);
2003#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
2004 TEST_c_c (cacos, 0x1.fp-16385L, 0.5L, 1.570796326794896619231321691639751442099L, -4.812118250596034474977589134243684231352e-1L);
2005 TEST_c_c (cacos, 0x1.fp-16385L, -0.5L, 1.570796326794896619231321691639751442099L, 4.812118250596034474977589134243684231352e-1L);
2006 TEST_c_c (cacos, -0x1.fp-16385L, 0.5L, 1.570796326794896619231321691639751442099L, -4.812118250596034474977589134243684231352e-1L);
2007 TEST_c_c (cacos, -0x1.fp-16385L, -0.5L, 1.570796326794896619231321691639751442099L, 4.812118250596034474977589134243684231352e-1L);
2008 TEST_c_c (cacos, 0.5L, 0x1.fp-16385L, 1.047197551196597746154214461093167628066L, -9.402257155670418112159334875199821342890e-4933L, UNDERFLOW_EXCEPTION);
2009 TEST_c_c (cacos, -0.5L, 0x1.fp-16385L, 2.094395102393195492308428922186335256131L, -9.402257155670418112159334875199821342890e-4933L, UNDERFLOW_EXCEPTION);
2010 TEST_c_c (cacos, 0.5L, -0x1.fp-16385L, 1.047197551196597746154214461093167628066L, 9.402257155670418112159334875199821342890e-4933L, UNDERFLOW_EXCEPTION);
2011 TEST_c_c (cacos, -0.5L, -0x1.fp-16385L, 2.094395102393195492308428922186335256131L, 9.402257155670418112159334875199821342890e-4933L, UNDERFLOW_EXCEPTION);
2012#endif
2013 TEST_c_c (cacos, 0x1p-63L, 0x1p-63L, 1.570796326794896619122901474391200998698L, -1.084202172485504434007452800869941711430e-19L);
2014 TEST_c_c (cacos, 0x1p-63L, -0x1p-63L, 1.570796326794896619122901474391200998698L, 1.084202172485504434007452800869941711430e-19L);
2015 TEST_c_c (cacos, -0x1p-63L, 0x1p-63L, 1.570796326794896619339741908888301885499L, -1.084202172485504434007452800869941711430e-19L);
2016 TEST_c_c (cacos, -0x1p-63L, -0x1p-63L, 1.570796326794896619339741908888301885499L, 1.084202172485504434007452800869941711430e-19L);
2017#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
2018 TEST_c_c (cacos, 0x1.fp-16385L, 0x1p-63L, 1.570796326794896619231321691639751442099L, -1.084202172485504434007452800869941711424e-19L);
2019 TEST_c_c (cacos, 0x1.fp-16385L, -0x1p-63L, 1.570796326794896619231321691639751442099L, 1.084202172485504434007452800869941711424e-19L);
2020 TEST_c_c (cacos, -0x1.fp-16385L, 0x1p-63L, 1.570796326794896619231321691639751442099L, -1.084202172485504434007452800869941711424e-19L);
2021 TEST_c_c (cacos, -0x1.fp-16385L, -0x1p-63L, 1.570796326794896619231321691639751442099L, 1.084202172485504434007452800869941711424e-19L);
2022 TEST_c_c (cacos, 0x1p-63L, 0x1.fp-16385L, 1.570796326794896619122901474391200998698L, -8.142593549724601460479922838826119584465e-4933L, UNDERFLOW_EXCEPTION);
2023 TEST_c_c (cacos, -0x1p-63L, 0x1.fp-16385L, 1.570796326794896619339741908888301885499L, -8.142593549724601460479922838826119584465e-4933L, UNDERFLOW_EXCEPTION);
2024 TEST_c_c (cacos, 0x1p-63L, -0x1.fp-16385L, 1.570796326794896619122901474391200998698L, 8.142593549724601460479922838826119584465e-4933L, UNDERFLOW_EXCEPTION);
2025 TEST_c_c (cacos, -0x1p-63L, -0x1.fp-16385L, 1.570796326794896619339741908888301885499L, 8.142593549724601460479922838826119584465e-4933L, UNDERFLOW_EXCEPTION);
2026#endif
2027 TEST_c_c (cacos, 0.0L, 0x1p-63L, 1.570796326794896619231321691639751442099L, -1.084202172485504434007452800869941711424e-19L);
2028 TEST_c_c (cacos, 0.0L, -0x1p-63L, 1.570796326794896619231321691639751442099L, 1.084202172485504434007452800869941711424e-19L);
2029 TEST_c_c (cacos, -0.0L, 0x1p-63L, 1.570796326794896619231321691639751442099L, -1.084202172485504434007452800869941711424e-19L);
2030 TEST_c_c (cacos, -0.0L, -0x1p-63L, 1.570796326794896619231321691639751442099L, 1.084202172485504434007452800869941711424e-19L);
2031 TEST_c_c (cacos, 0x1p-63L, 0.0L, 1.570796326794896619122901474391200998698L, -0.0L);
2032 TEST_c_c (cacos, -0x1p-63L, 0.0L, 1.570796326794896619339741908888301885499L, -0.0L);
2033 TEST_c_c (cacos, 0x1p-63L, -0.0L, 1.570796326794896619122901474391200998698L, 0.0L);
2034 TEST_c_c (cacos, -0x1p-63L, -0.0L, 1.570796326794896619339741908888301885499L, 0.0L);
2035#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
2036 TEST_c_c (cacos, 0x1.fp-16385L, 0x1.fp-16385L, 1.570796326794896619231321691639751442099L, -8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
2037 TEST_c_c (cacos, 0x1.fp-16385L, -0x1.fp-16385L, 1.570796326794896619231321691639751442099L, 8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
2038 TEST_c_c (cacos, -0x1.fp-16385L, 0x1.fp-16385L, 1.570796326794896619231321691639751442099L, -8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
2039 TEST_c_c (cacos, -0x1.fp-16385L, -0x1.fp-16385L, 1.570796326794896619231321691639751442099L, 8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
2040#endif
2041#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106
2042 TEST_c_c (cacos, 0x1p-105L, 0x0.ffffffffffffffffffffffffffcp0L, 1.570796326794896619231321691639734010571L, -8.813735870195430252326093249797835932642e-1L);
2043 TEST_c_c (cacos, 0x1p-105L, -0x0.ffffffffffffffffffffffffffcp0L, 1.570796326794896619231321691639734010571L, 8.813735870195430252326093249797835932642e-1L);
2044 TEST_c_c (cacos, -0x1p-105L, 0x0.ffffffffffffffffffffffffffcp0L, 1.570796326794896619231321691639768873627L, -8.813735870195430252326093249797835932642e-1L);
2045 TEST_c_c (cacos, -0x1p-105L, -0x0.ffffffffffffffffffffffffffcp0L, 1.570796326794896619231321691639768873627L, 8.813735870195430252326093249797835932642e-1L);
2046 TEST_c_c (cacos, 0x0.ffffffffffffffffffffffffffcp0L, 0x1p-105L, 1.997188458999618357060632049675702684031e-16L, -1.234330349600789959989661887846005659983e-16L);
2047 TEST_c_c (cacos, -0x0.ffffffffffffffffffffffffffcp0L, 0x1p-105L, 3.141592653589793038743797483317667178134L, -1.234330349600789959989661887846005659983e-16L);
2048 TEST_c_c (cacos, 0x0.ffffffffffffffffffffffffffcp0L, -0x1p-105L, 1.997188458999618357060632049675702684031e-16L, 1.234330349600789959989661887846005659983e-16L);
2049 TEST_c_c (cacos, -0x0.ffffffffffffffffffffffffffcp0L, -0x1p-105L, 3.141592653589793038743797483317667178134L, 1.234330349600789959989661887846005659983e-16L);
2050 TEST_c_c (cacos, 0x1.fp-1025L, 0x0.ffffffffffffffffffffffffffcp0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797835932642e-1L);
2051 TEST_c_c (cacos, 0x1.fp-1025L, -0x0.ffffffffffffffffffffffffffcp0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797835932642e-1L);
2052 TEST_c_c (cacos, -0x1.fp-1025L, 0x0.ffffffffffffffffffffffffffcp0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797835932642e-1L);
2053 TEST_c_c (cacos, -0x1.fp-1025L, -0x0.ffffffffffffffffffffffffffcp0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797835932642e-1L);
2054 TEST_c_c (cacos, 0x0.ffffffffffffffffffffffffffcp0L, 0x1.fp-1025L, 1.570092458683775059393382371963565104164e-16L, -3.432186888910770473784103112009399360940e-293L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
2055 TEST_c_c (cacos, -0x0.ffffffffffffffffffffffffffcp0L, 0x1.fp-1025L, 3.141592653589793081453397514901996944859L, -3.432186888910770473784103112009399360940e-293L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
2056 TEST_c_c (cacos, 0x0.ffffffffffffffffffffffffffcp0L, -0x1.fp-1025L, 1.570092458683775059393382371963565104164e-16L, 3.432186888910770473784103112009399360940e-293L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
2057 TEST_c_c (cacos, -0x0.ffffffffffffffffffffffffffcp0L, -0x1.fp-1025L, 3.141592653589793081453397514901996944859L, 3.432186888910770473784103112009399360940e-293L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
2058 TEST_c_c (cacos, 0.0L, 0x0.ffffffffffffffffffffffffffcp0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797835932642e-1L);
2059 TEST_c_c (cacos, 0.0L, -0x0.ffffffffffffffffffffffffffcp0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797835932642e-1L);
2060 TEST_c_c (cacos, -0.0L, 0x0.ffffffffffffffffffffffffffcp0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797835932642e-1L);
2061 TEST_c_c (cacos, -0.0L, -0x0.ffffffffffffffffffffffffffcp0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797835932642e-1L);
2062 TEST_c_c (cacos, 0x0.ffffffffffffffffffffffffffcp0L, 0.0L, 1.570092458683775059393382371963565104164e-16L, -0.0L);
2063 TEST_c_c (cacos, -0x0.ffffffffffffffffffffffffffcp0L, 0.0L, 3.141592653589793081453397514901996944859L, -0.0L);
2064 TEST_c_c (cacos, 0x0.ffffffffffffffffffffffffffcp0L, -0.0L, 1.570092458683775059393382371963565104164e-16L, 0.0L);
2065 TEST_c_c (cacos, -0x0.ffffffffffffffffffffffffffcp0L, -0.0L, 3.141592653589793081453397514901996944859L, 0.0L);
2066#endif
2067 TEST_c_c (cacos, 0x1p-105L, 0.5L, 1.570796326794896619231321691639729392766L, -4.812118250596034474977589134243684231352e-1L);
2068 TEST_c_c (cacos, 0x1p-105L, -0.5L, 1.570796326794896619231321691639729392766L, 4.812118250596034474977589134243684231352e-1L);
2069 TEST_c_c (cacos, -0x1p-105L, 0.5L, 1.570796326794896619231321691639773491431L, -4.812118250596034474977589134243684231352e-1L);
2070 TEST_c_c (cacos, -0x1p-105L, -0.5L, 1.570796326794896619231321691639773491431L, 4.812118250596034474977589134243684231352e-1L);
2071 TEST_c_c (cacos, 0.5L, 0x1p-105L, 1.047197551196597746154214461093167628066L, -2.846556599890768890940941645338546615370e-32L);
2072 TEST_c_c (cacos, -0.5L, 0x1p-105L, 2.094395102393195492308428922186335256131L, -2.846556599890768890940941645338546615370e-32L);
2073 TEST_c_c (cacos, 0.5L, -0x1p-105L, 1.047197551196597746154214461093167628066L, 2.846556599890768890940941645338546615370e-32L);
2074 TEST_c_c (cacos, -0.5L, -0x1p-105L, 2.094395102393195492308428922186335256131L, 2.846556599890768890940941645338546615370e-32L);
2075 TEST_c_c (cacos, 0x1p-105L, 0x1p-105L, 1.570796326794896619231321691639726790195L, -2.465190328815661891911651766508706967729e-32L);
2076 TEST_c_c (cacos, 0x1p-105L, -0x1p-105L, 1.570796326794896619231321691639726790195L, 2.465190328815661891911651766508706967729e-32L);
2077 TEST_c_c (cacos, -0x1p-105L, 0x1p-105L, 1.570796326794896619231321691639776094002L, -2.465190328815661891911651766508706967729e-32L);
2078 TEST_c_c (cacos, -0x1p-105L, -0x1p-105L, 1.570796326794896619231321691639776094002L, 2.465190328815661891911651766508706967729e-32L);
2079#ifndef TEST_FLOAT
2080 TEST_c_c (cacos, 0x1.fp-1025L, 0x1p-105L, 1.570796326794896619231321691639751442099L, -2.465190328815661891911651766508706967729e-32L);
2081 TEST_c_c (cacos, 0x1.fp-1025L, -0x1p-105L, 1.570796326794896619231321691639751442099L, 2.465190328815661891911651766508706967729e-32L);
2082 TEST_c_c (cacos, -0x1.fp-1025L, 0x1p-105L, 1.570796326794896619231321691639751442099L, -2.465190328815661891911651766508706967729e-32L);
2083 TEST_c_c (cacos, -0x1.fp-1025L, -0x1p-105L, 1.570796326794896619231321691639751442099L, 2.465190328815661891911651766508706967729e-32L);
2084 TEST_c_c (cacos, 0x1p-105L, 0x1.fp-1025L, 1.570796326794896619231321691639726790195L, -5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
2085 TEST_c_c (cacos, -0x1p-105L, 0x1.fp-1025L, 1.570796326794896619231321691639776094002L, -5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
2086 TEST_c_c (cacos, 0x1p-105L, -0x1.fp-1025L, 1.570796326794896619231321691639726790195L, 5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
2087 TEST_c_c (cacos, -0x1p-105L, -0x1.fp-1025L, 1.570796326794896619231321691639776094002L, 5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
2088#endif
2089 TEST_c_c (cacos, 0.0L, 0x1p-105L, 1.570796326794896619231321691639751442099L, -2.465190328815661891911651766508706967729e-32L);
2090 TEST_c_c (cacos, 0.0L, -0x1p-105L, 1.570796326794896619231321691639751442099L, 2.465190328815661891911651766508706967729e-32L);
2091 TEST_c_c (cacos, -0.0L, 0x1p-105L, 1.570796326794896619231321691639751442099L, -2.465190328815661891911651766508706967729e-32L);
2092 TEST_c_c (cacos, -0.0L, -0x1p-105L, 1.570796326794896619231321691639751442099L, 2.465190328815661891911651766508706967729e-32L);
2093 TEST_c_c (cacos, 0x1p-105L, 0.0L, 1.570796326794896619231321691639726790195L, -0.0L);
2094 TEST_c_c (cacos, -0x1p-105L, 0.0L, 1.570796326794896619231321691639776094002L, -0.0L);
2095 TEST_c_c (cacos, 0x1p-105L, -0.0L, 1.570796326794896619231321691639726790195L, 0.0L);
2096 TEST_c_c (cacos, -0x1p-105L, -0.0L, 1.570796326794896619231321691639776094002L, 0.0L);
2097#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 113
2098 TEST_c_c (cacos, 0x1p-112L, 0x0.ffffffffffffffffffffffffffff8p0L, 1.570796326794896619231321691639751305915L, -8.813735870195430252326093249797922409363e-1L);
2099 TEST_c_c (cacos, 0x1p-112L, -0x0.ffffffffffffffffffffffffffff8p0L, 1.570796326794896619231321691639751305915L, 8.813735870195430252326093249797922409363e-1L);
2100 TEST_c_c (cacos, -0x1p-112L, 0x0.ffffffffffffffffffffffffffff8p0L, 1.570796326794896619231321691639751578282L, -8.813735870195430252326093249797922409363e-1L);
2101 TEST_c_c (cacos, -0x1p-112L, -0x0.ffffffffffffffffffffffffffff8p0L, 1.570796326794896619231321691639751578282L, 8.813735870195430252326093249797922409363e-1L);
2102 TEST_c_c (cacos, 0x0.ffffffffffffffffffffffffffff8p0L, 0x1p-112L, 1.765281878332676474347460257221369818872e-17L, -1.091004200533850618345330909857103457781e-17L);
2103 TEST_c_c (cacos, -0x0.ffffffffffffffffffffffffffff8p0L, 0x1p-112L, 3.141592653589793220809824599952738140723L, -1.091004200533850618345330909857103457781e-17L);
2104 TEST_c_c (cacos, 0x0.ffffffffffffffffffffffffffff8p0L, -0x1p-112L, 1.765281878332676474347460257221369818872e-17L, 1.091004200533850618345330909857103457781e-17L);
2105 TEST_c_c (cacos, -0x0.ffffffffffffffffffffffffffff8p0L, -0x1p-112L, 3.141592653589793220809824599952738140723L, 1.091004200533850618345330909857103457781e-17L);
2106 TEST_c_c (cacos, 0x1.fp-16385L, 0x0.ffffffffffffffffffffffffffff8p0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797922409363e-1L);
2107 TEST_c_c (cacos, 0x1.fp-16385L, -0x0.ffffffffffffffffffffffffffff8p0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797922409363e-1L);
2108 TEST_c_c (cacos, -0x1.fp-16385L, 0x0.ffffffffffffffffffffffffffff8p0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797922409363e-1L);
2109 TEST_c_c (cacos, -0x1.fp-16385L, -0x0.ffffffffffffffffffffffffffff8p0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797922409363e-1L);
2110 TEST_c_c (cacos, 0x0.ffffffffffffffffffffffffffff8p0L, 0x1.fp-16385L, 1.387778780781445675529539585113525401762e-17L, -5.867357004219059108790368268900490184505e-4916L);
2111 TEST_c_c (cacos, -0x0.ffffffffffffffffffffffffffff8p0L, 0x1.fp-16385L, 3.141592653589793224584855575465046128902L, -5.867357004219059108790368268900490184505e-4916L);
2112 TEST_c_c (cacos, 0x0.ffffffffffffffffffffffffffff8p0L, -0x1.fp-16385L, 1.387778780781445675529539585113525401762e-17L, 5.867357004219059108790368268900490184505e-4916L);
2113 TEST_c_c (cacos, -0x0.ffffffffffffffffffffffffffff8p0L, -0x1.fp-16385L, 3.141592653589793224584855575465046128902L, 5.867357004219059108790368268900490184505e-4916L);
2114 TEST_c_c (cacos, 0.0L, 0x0.ffffffffffffffffffffffffffff8p0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797922409363e-1L);
2115 TEST_c_c (cacos, 0.0L, -0x0.ffffffffffffffffffffffffffff8p0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797922409363e-1L);
2116 TEST_c_c (cacos, -0.0L, 0x0.ffffffffffffffffffffffffffff8p0L, 1.570796326794896619231321691639751442099L, -8.813735870195430252326093249797922409363e-1L);
2117 TEST_c_c (cacos, -0.0L, -0x0.ffffffffffffffffffffffffffff8p0L, 1.570796326794896619231321691639751442099L, 8.813735870195430252326093249797922409363e-1L);
2118 TEST_c_c (cacos, 0x0.ffffffffffffffffffffffffffff8p0L, 0.0L, 1.387778780781445675529539585113525401762e-17L, -0.0L);
2119 TEST_c_c (cacos, -0x0.ffffffffffffffffffffffffffff8p0L, 0.0L, 3.141592653589793224584855575465046128902L, -0.0L);
2120 TEST_c_c (cacos, 0x0.ffffffffffffffffffffffffffff8p0L, -0.0L, 1.387778780781445675529539585113525401762e-17L, 0.0L);
2121 TEST_c_c (cacos, -0x0.ffffffffffffffffffffffffffff8p0L, -0.0L, 3.141592653589793224584855575465046128902L, 0.0L);
2122#endif
2123 TEST_c_c (cacos, 0x1p-112L, 0.5L, 1.570796326794896619231321691639751269838L, -4.812118250596034474977589134243684231352e-1L);
2124 TEST_c_c (cacos, 0x1p-112L, -0.5L, 1.570796326794896619231321691639751269838L, 4.812118250596034474977589134243684231352e-1L);
2125 TEST_c_c (cacos, -0x1p-112L, 0.5L, 1.570796326794896619231321691639751614359L, -4.812118250596034474977589134243684231352e-1L);
2126 TEST_c_c (cacos, -0x1p-112L, -0.5L, 1.570796326794896619231321691639751614359L, 4.812118250596034474977589134243684231352e-1L);
2127 TEST_c_c (cacos, 0.5L, 0x1p-112L, 1.047197551196597746154214461093167628066L, -2.223872343664663196047610660420739543258e-34L);
2128 TEST_c_c (cacos, -0.5L, 0x1p-112L, 2.094395102393195492308428922186335256131L, -2.223872343664663196047610660420739543258e-34L);
2129 TEST_c_c (cacos, 0.5L, -0x1p-112L, 1.047197551196597746154214461093167628066L, 2.223872343664663196047610660420739543258e-34L);
2130 TEST_c_c (cacos, -0.5L, -0x1p-112L, 2.094395102393195492308428922186335256131L, 2.223872343664663196047610660420739543258e-34L);
2131 TEST_c_c (cacos, 0x1p-112L, 0x1p-112L, 1.570796326794896619231321691639751249506L, -1.925929944387235853055977942584927318538e-34L);
2132 TEST_c_c (cacos, 0x1p-112L, -0x1p-112L, 1.570796326794896619231321691639751249506L, 1.925929944387235853055977942584927318538e-34L);
2133 TEST_c_c (cacos, -0x1p-112L, 0x1p-112L, 1.570796326794896619231321691639751634692L, -1.925929944387235853055977942584927318538e-34L);
2134 TEST_c_c (cacos, -0x1p-112L, -0x1p-112L, 1.570796326794896619231321691639751634692L, 1.925929944387235853055977942584927318538e-34L);
2135#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
2136 TEST_c_c (cacos, 0x1.fp-16385L, 0x1p-112L, 1.570796326794896619231321691639751442099L, -1.925929944387235853055977942584927318538e-34L);
2137 TEST_c_c (cacos, 0x1.fp-16385L, -0x1p-112L, 1.570796326794896619231321691639751442099L, 1.925929944387235853055977942584927318538e-34L);
2138 TEST_c_c (cacos, -0x1.fp-16385L, 0x1p-112L, 1.570796326794896619231321691639751442099L, -1.925929944387235853055977942584927318538e-34L);
2139 TEST_c_c (cacos, -0x1.fp-16385L, -0x1p-112L, 1.570796326794896619231321691639751442099L, 1.925929944387235853055977942584927318538e-34L);
2140 TEST_c_c (cacos, 0x1p-112L, 0x1.fp-16385L, 1.570796326794896619231321691639751249506L, -8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
2141 TEST_c_c (cacos, -0x1p-112L, 0x1.fp-16385L, 1.570796326794896619231321691639751634692L, -8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
2142 TEST_c_c (cacos, 0x1p-112L, -0x1.fp-16385L, 1.570796326794896619231321691639751249506L, 8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
2143 TEST_c_c (cacos, -0x1p-112L, -0x1.fp-16385L, 1.570796326794896619231321691639751634692L, 8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
2144#endif
2145 TEST_c_c (cacos, 0.0L, 0x1p-112L, 1.570796326794896619231321691639751442099L, -1.925929944387235853055977942584927318538e-34L);
2146 TEST_c_c (cacos, 0.0L, -0x1p-112L, 1.570796326794896619231321691639751442099L, 1.925929944387235853055977942584927318538e-34L);
2147 TEST_c_c (cacos, -0.0L, 0x1p-112L, 1.570796326794896619231321691639751442099L, -1.925929944387235853055977942584927318538e-34L);
2148 TEST_c_c (cacos, -0.0L, -0x1p-112L, 1.570796326794896619231321691639751442099L, 1.925929944387235853055977942584927318538e-34L);
2149 TEST_c_c (cacos, 0x1p-112L, 0.0L, 1.570796326794896619231321691639751249506L, -0.0L);
2150 TEST_c_c (cacos, -0x1p-112L, 0.0L, 1.570796326794896619231321691639751634692L, -0.0L);
2151 TEST_c_c (cacos, 0x1p-112L, -0.0L, 1.570796326794896619231321691639751249506L, 0.0L);
2152 TEST_c_c (cacos, -0x1p-112L, -0.0L, 1.570796326794896619231321691639751634692L, 0.0L);
2153
2550dfe9 2154 TEST_c_c (cacos, 0.75L, 1.25L, 1.11752014915610270578240049553777969L, -1.13239363160530819522266333696834467L);
33e885db 2155 TEST_c_c (cacos, -2, -3, 2.1414491111159960199416055713254211L, 1.9833870299165354323470769028940395L);
8847214f 2156
6815fabc 2157 END (cacos, complex);
8847214f
UD		 2158}
2159
8847214f
UD		 2160static void
2161cacosh_test (void)
2162{
aaca11d8 2163 errno = 0;
3c6cad26 2164 FUNC(cacosh) (BUILD_COMPLEX (0.7L, 1.2L));
aaca11d8
UD		 2165 if (errno == ENOSYS)
2166 /* Function not implemented. */
2167 return;
2168
8847214f
UD		 2169 START (cacosh);
2170
2171
2172 TEST_c_c (cacosh, 0, 0, 0.0, M_PI_2l);
2173 TEST_c_c (cacosh, minus_zero, 0, 0.0, M_PI_2l);
2174 TEST_c_c (cacosh, 0, minus_zero, 0.0, -M_PI_2l);
2175 TEST_c_c (cacosh, minus_zero, minus_zero, 0.0, -M_PI_2l);
2176 TEST_c_c (cacosh, minus_infty, plus_infty, plus_infty, M_PI_34l);
2177 TEST_c_c (cacosh, minus_infty, minus_infty, plus_infty, -M_PI_34l);
2178
2179 TEST_c_c (cacosh, plus_infty, plus_infty, plus_infty, M_PI_4l);
2180 TEST_c_c (cacosh, plus_infty, minus_infty, plus_infty, -M_PI_4l);
2181
2182 TEST_c_c (cacosh, -10.0, plus_infty, plus_infty, M_PI_2l);
2183 TEST_c_c (cacosh, -10.0, minus_infty, plus_infty, -M_PI_2l);
2184 TEST_c_c (cacosh, 0, plus_infty, plus_infty, M_PI_2l);
2185 TEST_c_c (cacosh, 0, minus_infty, plus_infty, -M_PI_2l);
3c6cad26
UD		 2186 TEST_c_c (cacosh, 0.1L, plus_infty, plus_infty, M_PI_2l);
2187 TEST_c_c (cacosh, 0.1L, minus_infty, plus_infty, -M_PI_2l);
8847214f
UD		 2188
2189 TEST_c_c (cacosh, minus_infty, 0, plus_infty, M_PIl);
2190 TEST_c_c (cacosh, minus_infty, minus_zero, plus_infty, -M_PIl);
2191 TEST_c_c (cacosh, minus_infty, 100, plus_infty, M_PIl);
2192 TEST_c_c (cacosh, minus_infty, -100, plus_infty, -M_PIl);
2193
2194 TEST_c_c (cacosh, plus_infty, 0, plus_infty, 0.0);
2195 TEST_c_c (cacosh, plus_infty, minus_zero, plus_infty, minus_zero);
2196 TEST_c_c (cacosh, plus_infty, 0.5, plus_infty, 0.0);
2197 TEST_c_c (cacosh, plus_infty, -0.5, plus_infty, minus_zero);
2198
67e971f1
TS		 2199 TEST_c_c (cacosh, plus_infty, qnan_value, plus_infty, qnan_value);
2200 TEST_c_c (cacosh, minus_infty, qnan_value, plus_infty, qnan_value);
8847214f 2201
67e971f1
TS		 2202 TEST_c_c (cacosh, 0, qnan_value, qnan_value, qnan_value);
2203 TEST_c_c (cacosh, minus_zero, qnan_value, qnan_value, qnan_value);
8847214f 2204
67e971f1
TS		 2205 TEST_c_c (cacosh, qnan_value, plus_infty, plus_infty, qnan_value);
2206 TEST_c_c (cacosh, qnan_value, minus_infty, plus_infty, qnan_value);
8847214f 2207
67e971f1
TS		 2208 TEST_c_c (cacosh, 10.5, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
2209 TEST_c_c (cacosh, -10.5, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 2210
67e971f1
TS		 2211 TEST_c_c (cacosh, qnan_value, 0.75, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
2212 TEST_c_c (cacosh, qnan_value, -0.75, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 2213
67e971f1 2214 TEST_c_c (cacosh, qnan_value, qnan_value, qnan_value, qnan_value);
8847214f 2215
d1d3431a
JM		 2216 TEST_c_c (cacosh, plus_zero, -1.5L, 1.194763217287109304111930828519090523536L, -M_PI_2l);
2217 TEST_c_c (cacosh, minus_zero, -1.5L, 1.194763217287109304111930828519090523536L, -M_PI_2l);
2218 TEST_c_c (cacosh, plus_zero, -1.0L, 0.8813735870195430252326093249797923090282L, -M_PI_2l);
2219 TEST_c_c (cacosh, minus_zero, -1.0L, 0.8813735870195430252326093249797923090282L, -M_PI_2l);
2220 TEST_c_c (cacosh, plus_zero, -0.5L, 0.4812118250596034474977589134243684231352L, -M_PI_2l);
2221 TEST_c_c (cacosh, minus_zero, -0.5L, 0.4812118250596034474977589134243684231352L, -M_PI_2l);
2222 TEST_c_c (cacosh, plus_zero, 0.5L, 0.4812118250596034474977589134243684231352L, M_PI_2l);
2223 TEST_c_c (cacosh, minus_zero, 0.5L, 0.4812118250596034474977589134243684231352L, M_PI_2l);
2224 TEST_c_c (cacosh, plus_zero, 1.0L, 0.8813735870195430252326093249797923090282L, M_PI_2l);
2225 TEST_c_c (cacosh, minus_zero, 1.0L, 0.8813735870195430252326093249797923090282L, M_PI_2l);
2226 TEST_c_c (cacosh, plus_zero, 1.5L, 1.194763217287109304111930828519090523536L, M_PI_2l);
2227 TEST_c_c (cacosh, minus_zero, 1.5L, 1.194763217287109304111930828519090523536L, M_PI_2l);
2228
2229 TEST_c_c (cacosh, -1.5L, plus_zero, 0.9624236501192068949955178268487368462704L, M_PIl);
2230 TEST_c_c (cacosh, -1.5L, minus_zero, 0.9624236501192068949955178268487368462704L, -M_PIl);
2231 TEST_c_c (cacosh, -1.0L, plus_zero, plus_zero, M_PIl);
2232 TEST_c_c (cacosh, -1.0L, minus_zero, plus_zero, -M_PIl);
2233 TEST_c_c (cacosh, -0.5L, plus_zero, plus_zero, 2.094395102393195492308428922186335256131L);
2234 TEST_c_c (cacosh, -0.5L, minus_zero, plus_zero, -2.094395102393195492308428922186335256131L);
2235 TEST_c_c (cacosh, 0.5L, plus_zero, plus_zero, 1.047197551196597746154214461093167628066L);
2236 TEST_c_c (cacosh, 0.5L, minus_zero, plus_zero, -1.047197551196597746154214461093167628066L);
2237 TEST_c_c (cacosh, 1.0L, plus_zero, plus_zero, plus_zero);
2238 TEST_c_c (cacosh, 1.0L, minus_zero, plus_zero, minus_zero);
2239 TEST_c_c (cacosh, 1.5L, plus_zero, 0.9624236501192068949955178268487368462704L, plus_zero);
2240 TEST_c_c (cacosh, 1.5L, minus_zero, 0.9624236501192068949955178268487368462704L, minus_zero);
2241
52ce4860
JM		 2242 TEST_c_c (cacosh, 0x1p50L, 1.0L, 3.535050620855721078027883819436720218708e1L, 8.881784197001252323389053344727730248720e-16L);
2243 TEST_c_c (cacosh, 0x1p50L, -1.0L, 3.535050620855721078027883819436720218708e1L, -8.881784197001252323389053344727730248720e-16L);
2244 TEST_c_c (cacosh, -0x1p50L, 1.0L, 3.535050620855721078027883819436720218708e1L, 3.141592653589792350284223683154270545292L);
2245 TEST_c_c (cacosh, -0x1p50L, -1.0L, 3.535050620855721078027883819436720218708e1L, -3.141592653589792350284223683154270545292L);
2246 TEST_c_c (cacosh, 1.0L, 0x1p50L, 3.535050620855721078027883819436759661753e1L, 1.570796326794895731052901991514519103193L);
2247 TEST_c_c (cacosh, -1.0L, 0x1p50L, 3.535050620855721078027883819436759661753e1L, 1.570796326794897507409741391764983781004L);
2248 TEST_c_c (cacosh, 1.0L, -0x1p50L, 3.535050620855721078027883819436759661753e1L, -1.570796326794895731052901991514519103193L);
2249 TEST_c_c (cacosh, -1.0L, -0x1p50L, 3.535050620855721078027883819436759661753e1L, -1.570796326794897507409741391764983781004L);
2250#ifndef TEST_FLOAT
2251 TEST_c_c (cacosh, 0x1p500L, 1.0L, 3.472667374605326000180332928505464606058e2L, 3.054936363499604682051979393213617699789e-151L);
2252 TEST_c_c (cacosh, 0x1p500L, -1.0L, 3.472667374605326000180332928505464606058e2L, -3.054936363499604682051979393213617699789e-151L);
2253 TEST_c_c (cacosh, -0x1p500L, 1.0L, 3.472667374605326000180332928505464606058e2L, 3.141592653589793238462643383279502884197L);
2254 TEST_c_c (cacosh, -0x1p500L, -1.0L, 3.472667374605326000180332928505464606058e2L, -3.141592653589793238462643383279502884197L);
2255 TEST_c_c (cacosh, 1.0L, 0x1p500L, 3.472667374605326000180332928505464606058e2L, 1.570796326794896619231321691639751442099L);
2256 TEST_c_c (cacosh, -1.0L, 0x1p500L, 3.472667374605326000180332928505464606058e2L, 1.570796326794896619231321691639751442099L);
2257 TEST_c_c (cacosh, 1.0L, -0x1p500L, 3.472667374605326000180332928505464606058e2L, -1.570796326794896619231321691639751442099L);
2258 TEST_c_c (cacosh, -1.0L, -0x1p500L, 3.472667374605326000180332928505464606058e2L, -1.570796326794896619231321691639751442099L);
2259#endif
2260#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
2261 TEST_c_c (cacosh, 0x1p5000L, 1.0L, 3.466429049980286492395577839412341016946e3L, 7.079811261048172892385615158694057552948e-1506L);
2262 TEST_c_c (cacosh, 0x1p5000L, -1.0L, 3.466429049980286492395577839412341016946e3L, -7.079811261048172892385615158694057552948e-1506L);
2263 TEST_c_c (cacosh, -0x1p5000L, 1.0L, 3.466429049980286492395577839412341016946e3L, 3.141592653589793238462643383279502884197L);
2264 TEST_c_c (cacosh, -0x1p5000L, -1.0L, 3.466429049980286492395577839412341016946e3L, -3.141592653589793238462643383279502884197L);
2265 TEST_c_c (cacosh, 1.0L, 0x1p5000L, 3.466429049980286492395577839412341016946e3L, 1.570796326794896619231321691639751442099L);
2266 TEST_c_c (cacosh, -1.0L, 0x1p5000L, 3.466429049980286492395577839412341016946e3L, 1.570796326794896619231321691639751442099L);
2267 TEST_c_c (cacosh, 1.0L, -0x1p5000L, 3.466429049980286492395577839412341016946e3L, -1.570796326794896619231321691639751442099L);
2268 TEST_c_c (cacosh, -1.0L, -0x1p5000L, 3.466429049980286492395577839412341016946e3L, -1.570796326794896619231321691639751442099L);
2269#endif
2270 TEST_c_c (cacosh, 0x1.fp127L, 0x1.fp127L, 8.973081118419833726837456344608533993585e1L, 7.853981633974483096156608458198757210493e-1L);
2271#ifndef TEST_FLOAT
2272 TEST_c_c (cacosh, 0x1.fp1023L, 0x1.fp1023L, 7.107906849659093345062145442726115449315e2L, 7.853981633974483096156608458198757210493e-1L);
2273#endif
2274#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
2275 TEST_c_c (cacosh, 0x1.fp16383L, 0x1.fp16383L, 1.135753137836666928715489992987020363057e4L, 7.853981633974483096156608458198757210493e-1L);
2276#endif
2277 TEST_c_c (cacosh, 0x1.fp-129L, 1.5L, 1.194763217287109304111930828519090523536L, 1.570796326794896619231321691639751442097L);
2278 TEST_c_c (cacosh, 0x1.fp-129L, -1.5L, 1.194763217287109304111930828519090523536L, -1.570796326794896619231321691639751442097L);
2279 TEST_c_c (cacosh, -0x1.fp-129L, 1.5L, 1.194763217287109304111930828519090523536L, 1.570796326794896619231321691639751442100L);
2280 TEST_c_c (cacosh, -0x1.fp-129L, -1.5L, 1.194763217287109304111930828519090523536L, -1.570796326794896619231321691639751442100L);
2281 TEST_c_c (cacosh, 1.5L, 0x1.fp-129L, 9.624236501192068949955178268487368462704e-1L, 2.546345110742945032959687790021055102355e-39L, UNDERFLOW_EXCEPTION_FLOAT);
2282 TEST_c_c (cacosh, -1.5L, 0x1.fp-129L, 9.624236501192068949955178268487368462704e-1L, 3.141592653589793238462643383279502884195L);
2283 TEST_c_c (cacosh, 1.5L, -0x1.fp-129L, 9.624236501192068949955178268487368462704e-1L, -2.546345110742945032959687790021055102355e-39L, UNDERFLOW_EXCEPTION_FLOAT);
2284 TEST_c_c (cacosh, -1.5L, -0x1.fp-129L, 9.624236501192068949955178268487368462704e-1L, -3.141592653589793238462643383279502884195L);
2285#ifndef TEST_FLOAT
2286 TEST_c_c (cacosh, 0x1.fp-1025L, 1.5L, 1.194763217287109304111930828519090523536L, 1.570796326794896619231321691639751442099L);
2287 TEST_c_c (cacosh, 0x1.fp-1025L, -1.5L, 1.194763217287109304111930828519090523536L, -1.570796326794896619231321691639751442099L);
2288 TEST_c_c (cacosh, -0x1.fp-1025L, 1.5L, 1.194763217287109304111930828519090523536L, 1.570796326794896619231321691639751442099L);
2289 TEST_c_c (cacosh, -0x1.fp-1025L, -1.5L, 1.194763217287109304111930828519090523536L, -1.570796326794896619231321691639751442099L);
2290 TEST_c_c (cacosh, 1.5L, 0x1.fp-1025L, 9.624236501192068949955178268487368462704e-1L, 4.819934639999230680322935210539402497827e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
2291 TEST_c_c (cacosh, -1.5L, 0x1.fp-1025L, 9.624236501192068949955178268487368462704e-1L, 3.141592653589793238462643383279502884197L);
2292 TEST_c_c (cacosh, 1.5L, -0x1.fp-1025L, 9.624236501192068949955178268487368462704e-1L, -4.819934639999230680322935210539402497827e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
2293 TEST_c_c (cacosh, -1.5L, -0x1.fp-1025L, 9.624236501192068949955178268487368462704e-1L, -3.141592653589793238462643383279502884197L);
2294#endif
2295#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
2296 TEST_c_c (cacosh, 0x1.fp-16385L, 1.5L, 1.194763217287109304111930828519090523536L, 1.570796326794896619231321691639751442099L);
2297 TEST_c_c (cacosh, 0x1.fp-16385L, -1.5L, 1.194763217287109304111930828519090523536L, -1.570796326794896619231321691639751442099L);
2298 TEST_c_c (cacosh, -0x1.fp-16385L, 1.5L, 1.194763217287109304111930828519090523536L, 1.570796326794896619231321691639751442099L);
2299 TEST_c_c (cacosh, -0x1.fp-16385L, -1.5L, 1.194763217287109304111930828519090523536L, -1.570796326794896619231321691639751442099L);
2300 TEST_c_c (cacosh, 1.5L, 0x1.fp-16385L, 9.624236501192068949955178268487368462704e-1L, 7.282957076134209141226696333885150260319e-4933L, UNDERFLOW_EXCEPTION);
2301 TEST_c_c (cacosh, -1.5L, 0x1.fp-16385L, 9.624236501192068949955178268487368462704e-1L, 3.141592653589793238462643383279502884197L);
2302 TEST_c_c (cacosh, 1.5L, -0x1.fp-16385L, 9.624236501192068949955178268487368462704e-1L, -7.282957076134209141226696333885150260319e-4933L, UNDERFLOW_EXCEPTION);
2303 TEST_c_c (cacosh, -1.5L, -0x1.fp-16385L, 9.624236501192068949955178268487368462704e-1L, -3.141592653589793238462643383279502884197L);
2304#endif
2305 TEST_c_c (cacosh, 0.5L, 1.0L, 9.261330313501824245501244453057873152694e-1L, 1.221357263937683325603909865564381489366L);
2306 TEST_c_c (cacosh, 0.5L, -1.0L, 9.261330313501824245501244453057873152694e-1L, -1.221357263937683325603909865564381489366L);
2307 TEST_c_c (cacosh, -0.5L, 1.0L, 9.261330313501824245501244453057873152694e-1L, 1.920235389652109912858733517715121394831L);
2308 TEST_c_c (cacosh, -0.5L, -1.0L, 9.261330313501824245501244453057873152694e-1L, -1.920235389652109912858733517715121394831L);
2309 TEST_c_c (cacosh, 1.0L, 0.5L, 7.328576759736452608886724437653071523305e-1L, 6.748888455860063801646649673121744318756e-1L);
2310 TEST_c_c (cacosh, -1.0L, 0.5L, 7.328576759736452608886724437653071523305e-1L, 2.466703808003786858297978415967328452322L);
2311 TEST_c_c (cacosh, 1.0L, -0.5L, 7.328576759736452608886724437653071523305e-1L, -6.748888455860063801646649673121744318756e-1L);
2312 TEST_c_c (cacosh, -1.0L, -0.5L, 7.328576759736452608886724437653071523305e-1L, -2.466703808003786858297978415967328452322L);
2313 TEST_c_c (cacosh, 0.25L, 1.0L, 8.924633639033482359562124741744951972772e-1L, 1.394493894017929688812643125003661339452L);
2314 TEST_c_c (cacosh, 0.25L, -1.0L, 8.924633639033482359562124741744951972772e-1L, -1.394493894017929688812643125003661339452L);
2315 TEST_c_c (cacosh, -0.25L, 1.0L, 8.924633639033482359562124741744951972772e-1L, 1.747098759571863549650000258275841544745L);
2316 TEST_c_c (cacosh, -0.25L, -1.0L, 8.924633639033482359562124741744951972772e-1L, -1.747098759571863549650000258275841544745L);
2317 TEST_c_c (cacosh, 1.0L, 0.25L, 5.097911466811016354623559941115413499164e-1L, 4.890443302710802929202843732146540079124e-1L);
2318 TEST_c_c (cacosh, -1.0L, 0.25L, 5.097911466811016354623559941115413499164e-1L, 2.652548323318712945542359010064848876285L);
2319 TEST_c_c (cacosh, 1.0L, -0.25L, 5.097911466811016354623559941115413499164e-1L, -4.890443302710802929202843732146540079124e-1L);
2320 TEST_c_c (cacosh, -1.0L, -0.25L, 5.097911466811016354623559941115413499164e-1L, -2.652548323318712945542359010064848876285L);
2321 TEST_c_c (cacosh, 0x1.fp-10L, 1.0L, 8.813742198809567991336704287826445879025e-1L, 1.569458417435338878318763342108699202986L);
2322 TEST_c_c (cacosh, 0x1.fp-10L, -1.0L, 8.813742198809567991336704287826445879025e-1L, -1.569458417435338878318763342108699202986L);
2323 TEST_c_c (cacosh, -0x1.fp-10L, 1.0L, 8.813742198809567991336704287826445879025e-1L, 1.572134236154454360143880041170803681211L);
2324 TEST_c_c (cacosh, -0x1.fp-10L, -1.0L, 8.813742198809567991336704287826445879025e-1L, -1.572134236154454360143880041170803681211L);
2325 TEST_c_c (cacosh, 1.0L, 0x1.fp-10L, 4.350501469856803800217957402220976497152e-2L, 4.349129763101882771258049954181971959031e-2L);
2326 TEST_c_c (cacosh, -1.0L, 0x1.fp-10L, 4.350501469856803800217957402220976497152e-2L, 3.098101355958774410750062883737683164607L);
2327 TEST_c_c (cacosh, 1.0L, -0x1.fp-10L, 4.350501469856803800217957402220976497152e-2L, -4.349129763101882771258049954181971959031e-2L);
2328 TEST_c_c (cacosh, -1.0L, -0x1.fp-10L, 4.350501469856803800217957402220976497152e-2L, -3.098101355958774410750062883737683164607L);
2329 TEST_c_c (cacosh, 0x1.fp-30L, 1.0L, 8.813735870195430258081932989769495326854e-1L, 1.570796325518966635014803151387033957091L);
2330 TEST_c_c (cacosh, 0x1.fp-30L, -1.0L, 8.813735870195430258081932989769495326854e-1L, -1.570796325518966635014803151387033957091L);
2331 TEST_c_c (cacosh, -0x1.fp-30L, 1.0L, 8.813735870195430258081932989769495326854e-1L, 1.570796328070826603447840231892468927106L);
2332 TEST_c_c (cacosh, -0x1.fp-30L, -1.0L, 8.813735870195430258081932989769495326854e-1L, -1.570796328070826603447840231892468927106L);
2333 TEST_c_c (cacosh, 1.0L, 0x1.fp-30L, 4.247867098745151888768727039216644758847e-5L, 4.247867097467650115899790787875186617316e-5L);
2334 TEST_c_c (cacosh, -1.0L, 0x1.fp-30L, 4.247867098745151888768727039216644758847e-5L, 3.141550174918818561961484385371624132331L);
2335 TEST_c_c (cacosh, 1.0L, -0x1.fp-30L, 4.247867098745151888768727039216644758847e-5L, -4.247867097467650115899790787875186617316e-5L);
2336 TEST_c_c (cacosh, -1.0L, -0x1.fp-30L, 4.247867098745151888768727039216644758847e-5L, -3.141550174918818561961484385371624132331L);
2337 TEST_c_c (cacosh, 0x1.fp-100L, 1.0L, 8.813735870195430252326093249797923090282e-1L, 1.570796326794896619231321691638670687364L);
2338 TEST_c_c (cacosh, 0x1.fp-100L, -1.0L, 8.813735870195430252326093249797923090282e-1L, -1.570796326794896619231321691638670687364L);
2339 TEST_c_c (cacosh, -0x1.fp-100L, 1.0L, 8.813735870195430252326093249797923090282e-1L, 1.570796326794896619231321691640832196834L);
2340 TEST_c_c (cacosh, -0x1.fp-100L, -1.0L, 8.813735870195430252326093249797923090282e-1L, -1.570796326794896619231321691640832196834L);
2341 TEST_c_c (cacosh, 1.0L, 0x1.fp-100L, 1.236292038260260888664514866457202186027e-15L, 1.236292038260260888664514866456887257525e-15L);
2342 TEST_c_c (cacosh, -1.0L, 0x1.fp-100L, 1.236292038260260888664514866457202186027e-15L, 3.141592653589792002170605123018614219682L);
2343 TEST_c_c (cacosh, 1.0L, -0x1.fp-100L, 1.236292038260260888664514866457202186027e-15L, -1.236292038260260888664514866456887257525e-15L);
2344 TEST_c_c (cacosh, -1.0L, -0x1.fp-100L, 1.236292038260260888664514866457202186027e-15L, -3.141592653589792002170605123018614219682L);
2345 TEST_c_c (cacosh, 0x1.fp-129L, 1.0L, 8.813735870195430252326093249797923090282e-1L, 1.570796326794896619231321691639751442097L);
2346 TEST_c_c (cacosh, 0x1.fp-129L, -1.0L, 8.813735870195430252326093249797923090282e-1L, -1.570796326794896619231321691639751442097L);
2347 TEST_c_c (cacosh, -0x1.fp-129L, 1.0L, 8.813735870195430252326093249797923090282e-1L, 1.570796326794896619231321691639751442101L);
2348 TEST_c_c (cacosh, -0x1.fp-129L, -1.0L, 8.813735870195430252326093249797923090282e-1L, -1.570796326794896619231321691639751442101L);
2349 TEST_c_c (cacosh, 1.0L, 0x1.fp-129L, 5.335635276982233498398987585285818977933e-20L, 5.335635276982233498398987585285818977930e-20L);
2350 TEST_c_c (cacosh, -1.0L, 0x1.fp-129L, 5.335635276982233498398987585285818977933e-20L, 3.141592653589793238409287030509680549213L);
2351 TEST_c_c (cacosh, 1.0L, -0x1.fp-129L, 5.335635276982233498398987585285818977933e-20L, -5.335635276982233498398987585285818977930e-20L);
2352 TEST_c_c (cacosh, -1.0L, -0x1.fp-129L, 5.335635276982233498398987585285818977933e-20L, -3.141592653589793238409287030509680549213L);
2353#ifndef TEST_FLOAT
2354 TEST_c_c (cacosh, 0x1.fp-1000L, 1.0L, 8.813735870195430252326093249797923090282e-1L, 1.570796326794896619231321691639751442099L);
2355 TEST_c_c (cacosh, 0x1.fp-1000L, -1.0L, 8.813735870195430252326093249797923090282e-1L, -1.570796326794896619231321691639751442099L);
2356 TEST_c_c (cacosh, -0x1.fp-1000L, 1.0L, 8.813735870195430252326093249797923090282e-1L, 1.570796326794896619231321691639751442099L);
2357 TEST_c_c (cacosh, -0x1.fp-1000L, -1.0L, 8.813735870195430252326093249797923090282e-1L, -1.570796326794896619231321691639751442099L);
2358 TEST_c_c (cacosh, 1.0L, 0x1.fp-1000L, 4.252291453851660175550490409247739011867e-151L, 4.252291453851660175550490409247739011867e-151L);
2359 TEST_c_c (cacosh, -1.0L, 0x1.fp-1000L, 4.252291453851660175550490409247739011867e-151L, 3.141592653589793238462643383279502884197L);
2360 TEST_c_c (cacosh, 1.0L, -0x1.fp-1000L, 4.252291453851660175550490409247739011867e-151L, -4.252291453851660175550490409247739011867e-151L);
2361 TEST_c_c (cacosh, -1.0L, -0x1.fp-1000L, 4.252291453851660175550490409247739011867e-151L, -3.141592653589793238462643383279502884197L);
2362 TEST_c_c (cacosh, 0x1.fp-1025L, 1.0L, 8.813735870195430252326093249797923090282e-1L, 1.570796326794896619231321691639751442099L);
2363 TEST_c_c (cacosh, 0x1.fp-1025L, -1.0L, 8.813735870195430252326093249797923090282e-1L, -1.570796326794896619231321691639751442099L);
2364 TEST_c_c (cacosh, -0x1.fp-1025L, 1.0L, 8.813735870195430252326093249797923090282e-1L, 1.570796326794896619231321691639751442099L);
2365 TEST_c_c (cacosh, -0x1.fp-1025L, -1.0L, 8.813735870195430252326093249797923090282e-1L, -1.570796326794896619231321691639751442099L);
2366 TEST_c_c (cacosh, 1.0L, 0x1.fp-1025L, 7.340879205566679497036857179189356754017e-155L, 7.340879205566679497036857179189356754017e-155L);
2367 TEST_c_c (cacosh, -1.0L, 0x1.fp-1025L, 7.340879205566679497036857179189356754017e-155L, 3.141592653589793238462643383279502884197L);
2368 TEST_c_c (cacosh, 1.0L, -0x1.fp-1025L, 7.340879205566679497036857179189356754017e-155L, -7.340879205566679497036857179189356754017e-155L);
2369 TEST_c_c (cacosh, -1.0L, -0x1.fp-1025L, 7.340879205566679497036857179189356754017e-155L, -3.141592653589793238462643383279502884197L);
2370#endif
2371#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
2372 TEST_c_c (cacosh, 0x1.fp-10000L, 1.0L, 8.813735870195430252326093249797923090282e-1L, 1.570796326794896619231321691639751442099L);
2373 TEST_c_c (cacosh, 0x1.fp-10000L, -1.0L, 8.813735870195430252326093249797923090282e-1L, -1.570796326794896619231321691639751442099L);
2374 TEST_c_c (cacosh, -0x1.fp-10000L, 1.0L, 8.813735870195430252326093249797923090282e-1L, 1.570796326794896619231321691639751442099L);
2375 TEST_c_c (cacosh, -0x1.fp-10000L, -1.0L, 8.813735870195430252326093249797923090282e-1L, -1.570796326794896619231321691639751442099L);
2376 TEST_c_c (cacosh, 1.0L, 0x1.fp-10000L, 9.854680208706673586644342922051388714633e-1506L, 9.854680208706673586644342922051388714633e-1506L);
2377 TEST_c_c (cacosh, -1.0L, 0x1.fp-10000L, 9.854680208706673586644342922051388714633e-1506L, 3.141592653589793238462643383279502884197L);
2378 TEST_c_c (cacosh, 1.0L, -0x1.fp-10000L, 9.854680208706673586644342922051388714633e-1506L, -9.854680208706673586644342922051388714633e-1506L);
2379 TEST_c_c (cacosh, -1.0L, -0x1.fp-10000L, 9.854680208706673586644342922051388714633e-1506L, -3.141592653589793238462643383279502884197L);
2380 TEST_c_c (cacosh, 0x1.fp-16385L, 1.0L, 8.813735870195430252326093249797923090282e-1L, 1.570796326794896619231321691639751442099L);
2381 TEST_c_c (cacosh, 0x1.fp-16385L, -1.0L, 8.813735870195430252326093249797923090282e-1L, -1.570796326794896619231321691639751442099L);
2382 TEST_c_c (cacosh, -0x1.fp-16385L, 1.0L, 8.813735870195430252326093249797923090282e-1L, 1.570796326794896619231321691639751442099L);
2383 TEST_c_c (cacosh, -0x1.fp-16385L, -1.0L, 8.813735870195430252326093249797923090282e-1L, -1.570796326794896619231321691639751442099L);
2384 TEST_c_c (cacosh, 1.0L, 0x1.fp-16385L, 9.023632056840860275214893047597614177639e-2467L, 9.023632056840860275214893047597614177639e-2467L);
2385 TEST_c_c (cacosh, -1.0L, 0x1.fp-16385L, 9.023632056840860275214893047597614177639e-2467L, 3.141592653589793238462643383279502884197L);
2386 TEST_c_c (cacosh, 1.0L, -0x1.fp-16385L, 9.023632056840860275214893047597614177639e-2467L, -9.023632056840860275214893047597614177639e-2467L);
2387 TEST_c_c (cacosh, -1.0L, -0x1.fp-16385L, 9.023632056840860275214893047597614177639e-2467L, -3.141592653589793238462643383279502884197L);
2388#endif
2389 TEST_c_c (cacosh, 0x1p-23L, 0x1.000002p0L, 8.813736713132400470205730751186547909968e-1L, 1.570796242501204621739026081991856762292L);
2390 TEST_c_c (cacosh, 0x1p-23L, -0x1.000002p0L, 8.813736713132400470205730751186547909968e-1L, -1.570796242501204621739026081991856762292L);
2391 TEST_c_c (cacosh, -0x1p-23L, 0x1.000002p0L, 8.813736713132400470205730751186547909968e-1L, 1.570796411088588616723617301287646121905L);
2392 TEST_c_c (cacosh, -0x1p-23L, -0x1.000002p0L, 8.813736713132400470205730751186547909968e-1L, -1.570796411088588616723617301287646121905L);
2393 TEST_c_c (cacosh, 0x1.000002p0L, 0x1p-23L, 5.364668491573609633134147164031476452679e-4L, 2.222118384408546368406374049167636760903e-4L);
2394 TEST_c_c (cacosh, -0x1.000002p0L, 0x1p-23L, 5.364668491573609633134147164031476452679e-4L, 3.141370441751352383825802745874586120521L);
2395 TEST_c_c (cacosh, 0x1.000002p0L, -0x1p-23L, 5.364668491573609633134147164031476452679e-4L, -2.222118384408546368406374049167636760903e-4L);
2396 TEST_c_c (cacosh, -0x1.000002p0L, -0x1p-23L, 5.364668491573609633134147164031476452679e-4L, -3.141370441751352383825802745874586120521L);
2397 TEST_c_c (cacosh, 0x1.fp-129L, 0x1.000002p0L, 8.813736713132375348727889167749389235161e-1L, 1.570796326794896619231321691639751442097L);
2398 TEST_c_c (cacosh, 0x1.fp-129L, -0x1.000002p0L, 8.813736713132375348727889167749389235161e-1L, -1.570796326794896619231321691639751442097L);
2399 TEST_c_c (cacosh, -0x1.fp-129L, 0x1.000002p0L, 8.813736713132375348727889167749389235161e-1L, 1.570796326794896619231321691639751442101L);
2400 TEST_c_c (cacosh, -0x1.fp-129L, -0x1.000002p0L, 8.813736713132375348727889167749389235161e-1L, -1.570796326794896619231321691639751442101L);
2401 TEST_c_c (cacosh, 0x1.000002p0L, 0x1.fp-129L, 4.882812451493617206486388134172712975070e-4L, 5.830451806317544230969669308596361881467e-36L);
2402 TEST_c_c (cacosh, -0x1.000002p0L, 0x1.fp-129L, 4.882812451493617206486388134172712975070e-4L, 3.141592653589793238462643383279502878367L);
2403 TEST_c_c (cacosh, 0x1.000002p0L, -0x1.fp-129L, 4.882812451493617206486388134172712975070e-4L, -5.830451806317544230969669308596361881467e-36L);
2404 TEST_c_c (cacosh, -0x1.000002p0L, -0x1.fp-129L, 4.882812451493617206486388134172712975070e-4L, -3.141592653589793238462643383279502878367L);
2405 TEST_c_c (cacosh, 0.0L, 0x1.000002p0L, 8.813736713132375348727889167749389235161e-1L, 1.570796326794896619231321691639751442099L);
2406 TEST_c_c (cacosh, 0.0L, -0x1.000002p0L, 8.813736713132375348727889167749389235161e-1L, -1.570796326794896619231321691639751442099L);
2407 TEST_c_c (cacosh, -0.0L, 0x1.000002p0L, 8.813736713132375348727889167749389235161e-1L, 1.570796326794896619231321691639751442099L);
2408 TEST_c_c (cacosh, -0.0L, -0x1.000002p0L, 8.813736713132375348727889167749389235161e-1L, -1.570796326794896619231321691639751442099L);
2409 TEST_c_c (cacosh, 0x1.000002p0L, 0.0L, 4.882812451493617206486388134172712975070e-4L, 0.0L);
2410 TEST_c_c (cacosh, -0x1.000002p0L, 0.0L, 4.882812451493617206486388134172712975070e-4L, 3.141592653589793238462643383279502884197L);
2411 TEST_c_c (cacosh, 0x1.000002p0L, -0.0L, 4.882812451493617206486388134172712975070e-4L, -0.0L);
2412 TEST_c_c (cacosh, -0x1.000002p0L, -0.0L, 4.882812451493617206486388134172712975070e-4L, -3.141592653589793238462643383279502884197L);
2413#ifndef TEST_FLOAT
2414 TEST_c_c (cacosh, 0x1p-52L, 0x1.0000000000001p0L, 8.813735870195431822418551933572982483664e-1L, 1.570796326794896462222075823262262934288L);
2415 TEST_c_c (cacosh, 0x1p-52L, -0x1.0000000000001p0L, 8.813735870195431822418551933572982483664e-1L, -1.570796326794896462222075823262262934288L);
2416 TEST_c_c (cacosh, -0x1p-52L, 0x1.0000000000001p0L, 8.813735870195431822418551933572982483664e-1L, 1.570796326794896776240567560017239949909L);
2417 TEST_c_c (cacosh, -0x1p-52L, -0x1.0000000000001p0L, 8.813735870195431822418551933572982483664e-1L, -1.570796326794896776240567560017239949909L);
2418 TEST_c_c (cacosh, 0x1.0000000000001p0L, 0x1p-52L, 2.315303644582684770975188768022139415020e-8L, 9.590301705980041385828904092662391018164e-9L);
2419 TEST_c_c (cacosh, -0x1.0000000000001p0L, 0x1p-52L, 2.315303644582684770975188768022139415020e-8L, 3.141592643999491532482601997450598791535L);
2420 TEST_c_c (cacosh, 0x1.0000000000001p0L, -0x1p-52L, 2.315303644582684770975188768022139415020e-8L, -9.590301705980041385828904092662391018164e-9L);
2421 TEST_c_c (cacosh, -0x1.0000000000001p0L, -0x1p-52L, 2.315303644582684770975188768022139415020e-8L, -3.141592643999491532482601997450598791535L);
2422 TEST_c_c (cacosh, 0x1.fp-1025L, 0x1.0000000000001p0L, 8.813735870195431822418551933572895326024e-1L, 1.570796326794896619231321691639751442099L);
2423 TEST_c_c (cacosh, 0x1.fp-1025L, -0x1.0000000000001p0L, 8.813735870195431822418551933572895326024e-1L, -1.570796326794896619231321691639751442099L);
2424 TEST_c_c (cacosh, -0x1.fp-1025L, 0x1.0000000000001p0L, 8.813735870195431822418551933572895326024e-1L, 1.570796326794896619231321691639751442099L);
2425 TEST_c_c (cacosh, -0x1.fp-1025L, -0x1.0000000000001p0L, 8.813735870195431822418551933572895326024e-1L, -1.570796326794896619231321691639751442099L);
2426 TEST_c_c (cacosh, 0x1.0000000000001p0L, 0x1.fp-1025L, 2.107342425544701550354780375182800088393e-8L, 2.557178503953494342609835913586108008322e-301L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
2427 TEST_c_c (cacosh, -0x1.0000000000001p0L, 0x1.fp-1025L, 2.107342425544701550354780375182800088393e-8L, 3.141592653589793238462643383279502884197L);
2428 TEST_c_c (cacosh, 0x1.0000000000001p0L, -0x1.fp-1025L, 2.107342425544701550354780375182800088393e-8L, -2.557178503953494342609835913586108008322e-301L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
2429 TEST_c_c (cacosh, -0x1.0000000000001p0L, -0x1.fp-1025L, 2.107342425544701550354780375182800088393e-8L, -3.141592653589793238462643383279502884197L);
2430 TEST_c_c (cacosh, 0.0L, 0x1.0000000000001p0L, 8.813735870195431822418551933572895326024e-1L, 1.570796326794896619231321691639751442099L);
2431 TEST_c_c (cacosh, 0.0L, -0x1.0000000000001p0L, 8.813735870195431822418551933572895326024e-1L, -1.570796326794896619231321691639751442099L);
2432 TEST_c_c (cacosh, -0.0L, 0x1.0000000000001p0L, 8.813735870195431822418551933572895326024e-1L, 1.570796326794896619231321691639751442099L);
2433 TEST_c_c (cacosh, -0.0L, -0x1.0000000000001p0L, 8.813735870195431822418551933572895326024e-1L, -1.570796326794896619231321691639751442099L);
2434 TEST_c_c (cacosh, 0x1.0000000000001p0L, 0.0L, 2.107342425544701550354780375182800088393e-8L, 0.0L);
2435 TEST_c_c (cacosh, -0x1.0000000000001p0L, 0.0L, 2.107342425544701550354780375182800088393e-8L, 3.141592653589793238462643383279502884197L);
2436 TEST_c_c (cacosh, 0x1.0000000000001p0L, -0.0L, 2.107342425544701550354780375182800088393e-8L, -0.0L);
2437 TEST_c_c (cacosh, -0x1.0000000000001p0L, -0.0L, 2.107342425544701550354780375182800088393e-8L, -3.141592653589793238462643383279502884197L);
2438#endif
2439#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64
2440 TEST_c_c (cacosh, 0x1p-63L, 0x1.0000000000000002p0L, 8.813735870195430253092739958139610131001e-1L, 1.570796326794896619154657020805582738031L);
2441 TEST_c_c (cacosh, 0x1p-63L, -0x1.0000000000000002p0L, 8.813735870195430253092739958139610131001e-1L, -1.570796326794896619154657020805582738031L);
2442 TEST_c_c (cacosh, -0x1p-63L, 0x1.0000000000000002p0L, 8.813735870195430253092739958139610131001e-1L, 1.570796326794896619307986362473920146166L);
2443 TEST_c_c (cacosh, -0x1p-63L, -0x1.0000000000000002p0L, 8.813735870195430253092739958139610131001e-1L, -1.570796326794896619307986362473920146166L);
2444 TEST_c_c (cacosh, 0x1.0000000000000002p0L, 0x1p-63L, 5.116146586219826555037807251857670783420e-10L, 2.119177303101063432592523199680782317447e-10L);
2445 TEST_c_c (cacosh, -0x1.0000000000000002p0L, 0x1p-63L, 5.116146586219826555037807251857670783420e-10L, 3.141592653377875508152537040020250564229L);
2446 TEST_c_c (cacosh, 0x1.0000000000000002p0L, -0x1p-63L, 5.116146586219826555037807251857670783420e-10L, -2.119177303101063432592523199680782317447e-10L);
2447 TEST_c_c (cacosh, -0x1.0000000000000002p0L, -0x1p-63L, 5.116146586219826555037807251857670783420e-10L, -3.141592653377875508152537040020250564229L);
2448# if LDBL_MIN_EXP <= -16381
2449 TEST_c_c (cacosh, 0x1.fp-16385L, 0x1.0000000000000002p0L, 8.813735870195430253092739958139610130980e-1L, 1.570796326794896619231321691639751442099L);
2450 TEST_c_c (cacosh, 0x1.fp-16385L, -0x1.0000000000000002p0L, 8.813735870195430253092739958139610130980e-1L, -1.570796326794896619231321691639751442099L);
2451 TEST_c_c (cacosh, -0x1.fp-16385L, 0x1.0000000000000002p0L, 8.813735870195430253092739958139610130980e-1L, 1.570796326794896619231321691639751442099L);
2452 TEST_c_c (cacosh, -0x1.fp-16385L, -0x1.0000000000000002p0L, 8.813735870195430253092739958139610130980e-1L, -1.570796326794896619231321691639751442099L);
2453 TEST_c_c (cacosh, 0x1.0000000000000002p0L, 0x1.fp-16385L, 4.656612873077392578082927418388212703712e-10L, 1.748608650034385653922359120438227480943e-4923L);
2454 TEST_c_c (cacosh, -0x1.0000000000000002p0L, 0x1.fp-16385L, 4.656612873077392578082927418388212703712e-10L, 3.141592653589793238462643383279502884197L);
2455 TEST_c_c (cacosh, 0x1.0000000000000002p0L, -0x1.fp-16385L, 4.656612873077392578082927418388212703712e-10L, -1.748608650034385653922359120438227480943e-4923L);
2456 TEST_c_c (cacosh, -0x1.0000000000000002p0L, -0x1.fp-16385L, 4.656612873077392578082927418388212703712e-10L, -3.141592653589793238462643383279502884197L);
2457# endif
2458 TEST_c_c (cacosh, 0.0L, 0x1.0000000000000002p0L, 8.813735870195430253092739958139610130980e-1L, 1.570796326794896619231321691639751442099L);
2459 TEST_c_c (cacosh, 0.0L, -0x1.0000000000000002p0L, 8.813735870195430253092739958139610130980e-1L, -1.570796326794896619231321691639751442099L);
2460 TEST_c_c (cacosh, -0.0L, 0x1.0000000000000002p0L, 8.813735870195430253092739958139610130980e-1L, 1.570796326794896619231321691639751442099L);
2461 TEST_c_c (cacosh, -0.0L, -0x1.0000000000000002p0L, 8.813735870195430253092739958139610130980e-1L, -1.570796326794896619231321691639751442099L);
2462 TEST_c_c (cacosh, 0x1.0000000000000002p0L, 0.0L, 4.656612873077392578082927418388212703712e-10L, 0.0L);
2463 TEST_c_c (cacosh, -0x1.0000000000000002p0L, 0.0L, 4.656612873077392578082927418388212703712e-10L, 3.141592653589793238462643383279502884197L);
2464 TEST_c_c (cacosh, 0x1.0000000000000002p0L, -0.0L, 4.656612873077392578082927418388212703712e-10L, -0.0L);
2465 TEST_c_c (cacosh, -0x1.0000000000000002p0L, -0.0L, 4.656612873077392578082927418388212703712e-10L, -3.141592653589793238462643383279502884197L);
2466#endif
2467#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106
2468 TEST_c_c (cacosh, 0x1p-106L, 0x1.000000000000000000000000008p0L, 8.813735870195430252326093249798097405561e-1L, 1.570796326794896619231321691639742726335L);
2469 TEST_c_c (cacosh, 0x1p-106L, -0x1.000000000000000000000000008p0L, 8.813735870195430252326093249798097405561e-1L, -1.570796326794896619231321691639742726335L);
2470 TEST_c_c (cacosh, -0x1p-106L, 0x1.000000000000000000000000008p0L, 8.813735870195430252326093249798097405561e-1L, 1.570796326794896619231321691639760157863L);
2471 TEST_c_c (cacosh, -0x1p-106L, -0x1.000000000000000000000000008p0L, 8.813735870195430252326093249798097405561e-1L, -1.570796326794896619231321691639760157863L);
2472 TEST_c_c (cacosh, 0x1.000000000000000000000000008p0L, 0x1p-106L, 2.285028863093221674154232933662774454211e-16L, 5.394221422390606848017034778914096659726e-17L);
2473 TEST_c_c (cacosh, -0x1.000000000000000000000000008p0L, 0x1p-106L, 2.285028863093221674154232933662774454211e-16L, 3.141592653589793184520429159373434404027L);
2474 TEST_c_c (cacosh, 0x1.000000000000000000000000008p0L, -0x1p-106L, 2.285028863093221674154232933662774454211e-16L, -5.394221422390606848017034778914096659726e-17L);
2475 TEST_c_c (cacosh, -0x1.000000000000000000000000008p0L, -0x1p-106L, 2.285028863093221674154232933662774454211e-16L, -3.141592653589793184520429159373434404027L);
2476 TEST_c_c (cacosh, 0x1.fp-1025L, 0x1.000000000000000000000000008p0L, 8.813735870195430252326093249798097405561e-1L, 1.570796326794896619231321691639751442099L);
2477 TEST_c_c (cacosh, 0x1.fp-1025L, -0x1.000000000000000000000000008p0L, 8.813735870195430252326093249798097405561e-1L, -1.570796326794896619231321691639751442099L);
2478 TEST_c_c (cacosh, -0x1.fp-1025L, 0x1.000000000000000000000000008p0L, 8.813735870195430252326093249798097405561e-1L, 1.570796326794896619231321691639751442099L);
2479 TEST_c_c (cacosh, -0x1.fp-1025L, -0x1.000000000000000000000000008p0L, 8.813735870195430252326093249798097405561e-1L, -1.570796326794896619231321691639751442099L);
2480 TEST_c_c (cacosh, 0x1.000000000000000000000000008p0L, 0x1.fp-1025L, 2.220446049250313080847263336181636063482e-16L, 2.426922623448365473354662093431821897807e-293L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
2481 TEST_c_c (cacosh, -0x1.000000000000000000000000008p0L, 0x1.fp-1025L, 2.220446049250313080847263336181636063482e-16L, 3.141592653589793238462643383279502884197L);
2482 TEST_c_c (cacosh, 0x1.000000000000000000000000008p0L, -0x1.fp-1025L, 2.220446049250313080847263336181636063482e-16L, -2.426922623448365473354662093431821897807e-293L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
2483 TEST_c_c (cacosh, -0x1.000000000000000000000000008p0L, -0x1.fp-1025L, 2.220446049250313080847263336181636063482e-16L, -3.141592653589793238462643383279502884197L);
2484 TEST_c_c (cacosh, 0.0L, 0x1.000000000000000000000000008p0L, 8.813735870195430252326093249798097405561e-1L, 1.570796326794896619231321691639751442099L);
2485 TEST_c_c (cacosh, 0.0L, -0x1.000000000000000000000000008p0L, 8.813735870195430252326093249798097405561e-1L, -1.570796326794896619231321691639751442099L);
2486 TEST_c_c (cacosh, -0.0L, 0x1.000000000000000000000000008p0L, 8.813735870195430252326093249798097405561e-1L, 1.570796326794896619231321691639751442099L);
2487 TEST_c_c (cacosh, -0.0L, -0x1.000000000000000000000000008p0L, 8.813735870195430252326093249798097405561e-1L, -1.570796326794896619231321691639751442099L);
2488 TEST_c_c (cacosh, 0x1.000000000000000000000000008p0L, 0.0L, 2.220446049250313080847263336181636063482e-16L, 0.0L);
2489 TEST_c_c (cacosh, -0x1.000000000000000000000000008p0L, 0.0L, 2.220446049250313080847263336181636063482e-16L, 3.141592653589793238462643383279502884197L);
2490 TEST_c_c (cacosh, 0x1.000000000000000000000000008p0L, -0.0L, 2.220446049250313080847263336181636063482e-16L, -0.0L);
2491 TEST_c_c (cacosh, -0x1.000000000000000000000000008p0L, -0.0L, 2.220446049250313080847263336181636063482e-16L, -3.141592653589793238462643383279502884197L);
2492#endif
2493#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 113
2494 TEST_c_c (cacosh, 0x1p-113L, 0x1.0000000000000000000000000001p0L, 8.813735870195430252326093249797924452120e-1L, 1.570796326794896619231321691639751374007L);
2495 TEST_c_c (cacosh, 0x1p-113L, -0x1.0000000000000000000000000001p0L, 8.813735870195430252326093249797924452120e-1L, -1.570796326794896619231321691639751374007L);
2496 TEST_c_c (cacosh, -0x1p-113L, 0x1.0000000000000000000000000001p0L, 8.813735870195430252326093249797924452120e-1L, 1.570796326794896619231321691639751510190L);
2497 TEST_c_c (cacosh, -0x1p-113L, -0x1.0000000000000000000000000001p0L, 8.813735870195430252326093249797924452120e-1L, -1.570796326794896619231321691639751510190L);
2498 TEST_c_c (cacosh, 0x1.0000000000000000000000000001p0L, 0x1p-113L, 2.019699255375255198156433710951064632386e-17L, 4.767863183742677481693563511435642755521e-18L);
2499 TEST_c_c (cacosh, -0x1.0000000000000000000000000001p0L, 0x1p-113L, 2.019699255375255198156433710951064632386e-17L, 3.141592653589793233694780199536825402504L);
2500 TEST_c_c (cacosh, 0x1.0000000000000000000000000001p0L, -0x1p-113L, 2.019699255375255198156433710951064632386e-17L, -4.767863183742677481693563511435642755521e-18L);
2501 TEST_c_c (cacosh, -0x1.0000000000000000000000000001p0L, -0x1p-113L, 2.019699255375255198156433710951064632386e-17L, -3.141592653589793233694780199536825402504L);
2502 TEST_c_c (cacosh, 0x1.fp-16385L, 0x1.0000000000000000000000000001p0L, 8.813735870195430252326093249797924452120e-1L, 1.570796326794896619231321691639751442099L);
2503 TEST_c_c (cacosh, 0x1.fp-16385L, -0x1.0000000000000000000000000001p0L, 8.813735870195430252326093249797924452120e-1L, -1.570796326794896619231321691639751442099L);
2504 TEST_c_c (cacosh, -0x1.fp-16385L, 0x1.0000000000000000000000000001p0L, 8.813735870195430252326093249797924452120e-1L, 1.570796326794896619231321691639751442099L);
2505 TEST_c_c (cacosh, -0x1.fp-16385L, -0x1.0000000000000000000000000001p0L, 8.813735870195430252326093249797924452120e-1L, -1.570796326794896619231321691639751442099L);
2506 TEST_c_c (cacosh, 0x1.0000000000000000000000000001p0L, 0x1.fp-16385L, 1.962615573354718824241727964954454332780e-17L, 4.148847925325683229178506116378864361396e-4916L);
2507 TEST_c_c (cacosh, -0x1.0000000000000000000000000001p0L, 0x1.fp-16385L, 1.962615573354718824241727964954454332780e-17L, 3.141592653589793238462643383279502884197L);
2508 TEST_c_c (cacosh, 0x1.0000000000000000000000000001p0L, -0x1.fp-16385L, 1.962615573354718824241727964954454332780e-17L, -4.148847925325683229178506116378864361396e-4916L);
2509 TEST_c_c (cacosh, -0x1.0000000000000000000000000001p0L, -0x1.fp-16385L, 1.962615573354718824241727964954454332780e-17L, -3.141592653589793238462643383279502884197L);
2510 TEST_c_c (cacosh, 0.0L, 0x1.0000000000000000000000000001p0L, 8.813735870195430252326093249797924452120e-1L, 1.570796326794896619231321691639751442099L);
2511 TEST_c_c (cacosh, 0.0L, -0x1.0000000000000000000000000001p0L, 8.813735870195430252326093249797924452120e-1L, -1.570796326794896619231321691639751442099L);
2512 TEST_c_c (cacosh, -0.0L, 0x1.0000000000000000000000000001p0L, 8.813735870195430252326093249797924452120e-1L, 1.570796326794896619231321691639751442099L);
2513 TEST_c_c (cacosh, -0.0L, -0x1.0000000000000000000000000001p0L, 8.813735870195430252326093249797924452120e-1L, -1.570796326794896619231321691639751442099L);
2514 TEST_c_c (cacosh, 0x1.0000000000000000000000000001p0L, 0.0L, 1.962615573354718824241727964954454332780e-17L, 0.0L);
2515 TEST_c_c (cacosh, -0x1.0000000000000000000000000001p0L, 0.0L, 1.962615573354718824241727964954454332780e-17L, 3.141592653589793238462643383279502884197L);
2516 TEST_c_c (cacosh, 0x1.0000000000000000000000000001p0L, -0.0L, 1.962615573354718824241727964954454332780e-17L, -0.0L);
2517 TEST_c_c (cacosh, -0x1.0000000000000000000000000001p0L, -0.0L, 1.962615573354718824241727964954454332780e-17L, -3.141592653589793238462643383279502884197L);
2518#endif
2519 TEST_c_c (cacosh, 0x1p-23L, 0x0.ffffffp0L, 8.813735448726963984495965873956465777250e-1L, 1.570796242501197085295336701632142060969L);
2520 TEST_c_c (cacosh, 0x1p-23L, -0x0.ffffffp0L, 8.813735448726963984495965873956465777250e-1L, -1.570796242501197085295336701632142060969L);
2521 TEST_c_c (cacosh, -0x1p-23L, 0x0.ffffffp0L, 8.813735448726963984495965873956465777250e-1L, 1.570796411088596153167306681647360823228L);
2522 TEST_c_c (cacosh, -0x1p-23L, -0x0.ffffffp0L, 8.813735448726963984495965873956465777250e-1L, -1.570796411088596153167306681647360823228L);
2523 TEST_c_c (cacosh, 0x0.ffffffp0L, 0x1p-23L, 2.714321200917194650737217746780928423385e-4L, 4.391863861910487109445187743978204002614e-4L);
2524 TEST_c_c (cacosh, -0x0.ffffffp0L, 0x1p-23L, 2.714321200917194650737217746780928423385e-4L, 3.141153467203602189751698864505105063797L);
2525 TEST_c_c (cacosh, 0x0.ffffffp0L, -0x1p-23L, 2.714321200917194650737217746780928423385e-4L, -4.391863861910487109445187743978204002614e-4L);
2526 TEST_c_c (cacosh, -0x0.ffffffp0L, -0x1p-23L, 2.714321200917194650737217746780928423385e-4L, -3.141153467203602189751698864505105063797L);
2527 TEST_c_c (cacosh, 0x1.fp-129L, 0x0.ffffffp0L, 8.813735448726938863015878255140556727969e-1L, 1.570796326794896619231321691639751442097L);
2528 TEST_c_c (cacosh, 0x1.fp-129L, -0x0.ffffffp0L, 8.813735448726938863015878255140556727969e-1L, -1.570796326794896619231321691639751442097L);
2529 TEST_c_c (cacosh, -0x1.fp-129L, 0x0.ffffffp0L, 8.813735448726938863015878255140556727969e-1L, 1.570796326794896619231321691639751442101L);
2530 TEST_c_c (cacosh, -0x1.fp-129L, -0x0.ffffffp0L, 8.813735448726938863015878255140556727969e-1L, -1.570796326794896619231321691639751442101L);
2531 TEST_c_c (cacosh, 0x0.ffffffp0L, 0x1.fp-129L, 8.245504387859737323891843603996428534945e-36L, 3.452669847162035876032494826387364972849e-4L);
2532 TEST_c_c (cacosh, -0x0.ffffffp0L, 0x1.fp-129L, 8.245504387859737323891843603996428534945e-36L, 3.141247386605077034875040133796864147700L);
2533 TEST_c_c (cacosh, 0x0.ffffffp0L, -0x1.fp-129L, 8.245504387859737323891843603996428534945e-36L, -3.452669847162035876032494826387364972849e-4L);
2534 TEST_c_c (cacosh, -0x0.ffffffp0L, -0x1.fp-129L, 8.245504387859737323891843603996428534945e-36L, -3.141247386605077034875040133796864147700L);
2535 TEST_c_c (cacosh, 0.0L, 0x0.ffffffp0L, 8.813735448726938863015878255140556727969e-1L, 1.570796326794896619231321691639751442099L);
2536 TEST_c_c (cacosh, 0.0L, -0x0.ffffffp0L, 8.813735448726938863015878255140556727969e-1L, -1.570796326794896619231321691639751442099L);
2537 TEST_c_c (cacosh, -0.0L, 0x0.ffffffp0L, 8.813735448726938863015878255140556727969e-1L, 1.570796326794896619231321691639751442099L);
2538 TEST_c_c (cacosh, -0.0L, -0x0.ffffffp0L, 8.813735448726938863015878255140556727969e-1L, -1.570796326794896619231321691639751442099L);
2539 TEST_c_c (cacosh, 0x0.ffffffp0L, 0.0L, 0.0L, 3.452669847162035876032494826387364972849e-4L);
2540 TEST_c_c (cacosh, -0x0.ffffffp0L, 0.0L, 0.0L, 3.141247386605077034875040133796864147700L);
2541 TEST_c_c (cacosh, 0x0.ffffffp0L, -0.0L, 0.0L, -3.452669847162035876032494826387364972849e-4L);
2542 TEST_c_c (cacosh, -0x0.ffffffp0L, -0.0L, 0.0L, -3.141247386605077034875040133796864147700L);
2543 TEST_c_c (cacosh, 0x1p-23L, 0.5L, 4.812118250596059896127318386463676808798e-1L, 1.570796220170866625230343643673321150378L);
2544 TEST_c_c (cacosh, 0x1p-23L, -0.5L, 4.812118250596059896127318386463676808798e-1L, -1.570796220170866625230343643673321150378L);
2545 TEST_c_c (cacosh, -0x1p-23L, 0.5L, 4.812118250596059896127318386463676808798e-1L, 1.570796433418926613232299739606181733819L);
2546 TEST_c_c (cacosh, -0x1p-23L, -0.5L, 4.812118250596059896127318386463676808798e-1L, -1.570796433418926613232299739606181733819L);
2547 TEST_c_c (cacosh, 0.5L, 0x1p-23L, 1.376510308240943236356088341381173571841e-7L, 1.047197551196603215914744618665204532273L);
2548 TEST_c_c (cacosh, -0.5L, 0x1p-23L, 1.376510308240943236356088341381173571841e-7L, 2.094395102393190022547898764614298351924L);
2549 TEST_c_c (cacosh, 0.5L, -0x1p-23L, 1.376510308240943236356088341381173571841e-7L, -1.047197551196603215914744618665204532273L);
2550 TEST_c_c (cacosh, -0.5L, -0x1p-23L, 1.376510308240943236356088341381173571841e-7L, -2.094395102393190022547898764614298351924L);
2551 TEST_c_c (cacosh, 0x1.fp-129L, 0.5L, 4.812118250596034474977589134243684231352e-1L, 1.570796326794896619231321691639751442096L);
2552 TEST_c_c (cacosh, 0x1.fp-129L, -0.5L, 4.812118250596034474977589134243684231352e-1L, -1.570796326794896619231321691639751442096L);
2553 TEST_c_c (cacosh, -0x1.fp-129L, 0.5L, 4.812118250596034474977589134243684231352e-1L, 1.570796326794896619231321691639751442101L);
2554 TEST_c_c (cacosh, -0x1.fp-129L, -0.5L, 4.812118250596034474977589134243684231352e-1L, -1.570796326794896619231321691639751442101L);
2555 TEST_c_c (cacosh, 0.5L, 0x1.fp-129L, 3.287317402534702257036015056278368274737e-39L, 1.047197551196597746154214461093167628066L, UNDERFLOW_EXCEPTION_FLOAT);
2556 TEST_c_c (cacosh, -0.5L, 0x1.fp-129L, 3.287317402534702257036015056278368274737e-39L, 2.094395102393195492308428922186335256131L, UNDERFLOW_EXCEPTION_FLOAT);
2557 TEST_c_c (cacosh, 0.5L, -0x1.fp-129L, 3.287317402534702257036015056278368274737e-39L, -1.047197551196597746154214461093167628066L, UNDERFLOW_EXCEPTION_FLOAT);
2558 TEST_c_c (cacosh, -0.5L, -0x1.fp-129L, 3.287317402534702257036015056278368274737e-39L, -2.094395102393195492308428922186335256131L, UNDERFLOW_EXCEPTION_FLOAT);
2559 TEST_c_c (cacosh, 0x1p-23L, 0x1p-23L, 1.192092895507818146886315028596704749235e-7L, 1.570796207585607068450636380271254316214L);
2560 TEST_c_c (cacosh, 0x1p-23L, -0x1p-23L, 1.192092895507818146886315028596704749235e-7L, -1.570796207585607068450636380271254316214L);
2561 TEST_c_c (cacosh, -0x1p-23L, 0x1p-23L, 1.192092895507818146886315028596704749235e-7L, 1.570796446004186170012007003008248567984L);
2562 TEST_c_c (cacosh, -0x1p-23L, -0x1p-23L, 1.192092895507818146886315028596704749235e-7L, -1.570796446004186170012007003008248567984L);
2563 TEST_c_c (cacosh, 0x1.fp-129L, 0x1p-23L, 1.192092895507809676556842485683592032154e-7L, 1.570796326794896619231321691639751442096L);
2564 TEST_c_c (cacosh, 0x1.fp-129L, -0x1p-23L, 1.192092895507809676556842485683592032154e-7L, -1.570796326794896619231321691639751442096L);
2565 TEST_c_c (cacosh, -0x1.fp-129L, 0x1p-23L, 1.192092895507809676556842485683592032154e-7L, 1.570796326794896619231321691639751442101L);
2566 TEST_c_c (cacosh, -0x1.fp-129L, -0x1p-23L, 1.192092895507809676556842485683592032154e-7L, -1.570796326794896619231321691639751442101L);
2567 TEST_c_c (cacosh, 0x1p-23L, 0x1.fp-129L, 2.846900380897747786805634596726756660388e-39L, 1.570796207585607068449789347324000006847L, UNDERFLOW_EXCEPTION_FLOAT);
2568 TEST_c_c (cacosh, -0x1p-23L, 0x1.fp-129L, 2.846900380897747786805634596726756660388e-39L, 1.570796446004186170012854035955502877351L, UNDERFLOW_EXCEPTION_FLOAT);
2569 TEST_c_c (cacosh, 0x1p-23L, -0x1.fp-129L, 2.846900380897747786805634596726756660388e-39L, -1.570796207585607068449789347324000006847L, UNDERFLOW_EXCEPTION_FLOAT);
2570 TEST_c_c (cacosh, -0x1p-23L, -0x1.fp-129L, 2.846900380897747786805634596726756660388e-39L, -1.570796446004186170012854035955502877351L, UNDERFLOW_EXCEPTION_FLOAT);
2571 TEST_c_c (cacosh, 0.0L, 0x1p-23L, 1.192092895507809676556842485683592032154e-7L, 1.570796326794896619231321691639751442099L);
2572 TEST_c_c (cacosh, 0.0L, -0x1p-23L, 1.192092895507809676556842485683592032154e-7L, -1.570796326794896619231321691639751442099L);
2573 TEST_c_c (cacosh, -0.0L, 0x1p-23L, 1.192092895507809676556842485683592032154e-7L, 1.570796326794896619231321691639751442099L);
2574 TEST_c_c (cacosh, -0.0L, -0x1p-23L, 1.192092895507809676556842485683592032154e-7L, -1.570796326794896619231321691639751442099L);
2575 TEST_c_c (cacosh, 0x1p-23L, 0.0L, 0.0L, 1.570796207585607068449789347324000006847L);
2576 TEST_c_c (cacosh, -0x1p-23L, 0.0L, 0.0L, 1.570796446004186170012854035955502877351L);
2577 TEST_c_c (cacosh, 0x1p-23L, -0.0L, 0.0L, -1.570796207585607068449789347324000006847L);
2578 TEST_c_c (cacosh, -0x1p-23L, -0.0L, 0.0L, -1.570796446004186170012854035955502877351L);
2579 TEST_c_c (cacosh, 0x1.fp-129L, 0x1.fp-129L, 2.846900380897727558361783801085126250967e-39L, 1.570796326794896619231321691639751442096L, UNDERFLOW_EXCEPTION_FLOAT);
2580 TEST_c_c (cacosh, 0x1.fp-129L, -0x1.fp-129L, 2.846900380897727558361783801085126250967e-39L, -1.570796326794896619231321691639751442096L, UNDERFLOW_EXCEPTION_FLOAT);
2581 TEST_c_c (cacosh, -0x1.fp-129L, 0x1.fp-129L, 2.846900380897727558361783801085126250967e-39L, 1.570796326794896619231321691639751442101L, UNDERFLOW_EXCEPTION_FLOAT);
2582 TEST_c_c (cacosh, -0x1.fp-129L, -0x1.fp-129L, 2.846900380897727558361783801085126250967e-39L, -1.570796326794896619231321691639751442101L, UNDERFLOW_EXCEPTION_FLOAT);
2583#ifndef TEST_FLOAT
2584 TEST_c_c (cacosh, 0x1p-52L, 0x0.fffffffffffff8p0L, 8.813735870195429467279863907910458761820e-1L, 1.570796326794896462222075823262236786996L);
2585 TEST_c_c (cacosh, 0x1p-52L, -0x0.fffffffffffff8p0L, 8.813735870195429467279863907910458761820e-1L, -1.570796326794896462222075823262236786996L);
2586 TEST_c_c (cacosh, -0x1p-52L, 0x0.fffffffffffff8p0L, 8.813735870195429467279863907910458761820e-1L, 1.570796326794896776240567560017266097201L);
2587 TEST_c_c (cacosh, -0x1p-52L, -0x0.fffffffffffff8p0L, 8.813735870195429467279863907910458761820e-1L, -1.570796326794896776240567560017266097201L);
2588 TEST_c_c (cacosh, 0x0.fffffffffffff8p0L, 0x1p-52L, 1.171456840272878582596796205397918831268e-8L, 1.895456983915074112227925127005564372844e-8L);
2589 TEST_c_c (cacosh, -0x0.fffffffffffff8p0L, 0x1p-52L, 1.171456840272878582596796205397918831268e-8L, 3.141592634635223399311902261000251614142L);
2590 TEST_c_c (cacosh, 0x0.fffffffffffff8p0L, -0x1p-52L, 1.171456840272878582596796205397918831268e-8L, -1.895456983915074112227925127005564372844e-8L);
2591 TEST_c_c (cacosh, -0x0.fffffffffffff8p0L, -0x1p-52L, 1.171456840272878582596796205397918831268e-8L, -3.141592634635223399311902261000251614142L);
2592 TEST_c_c (cacosh, 0x1.fp-1025L, 0x0.fffffffffffff8p0L, 8.813735870195429467279863907910371604180e-1L, 1.570796326794896619231321691639751442099L);
2593 TEST_c_c (cacosh, 0x1.fp-1025L, -0x0.fffffffffffff8p0L, 8.813735870195429467279863907910371604180e-1L, -1.570796326794896619231321691639751442099L);
2594 TEST_c_c (cacosh, -0x1.fp-1025L, 0x0.fffffffffffff8p0L, 8.813735870195429467279863907910371604180e-1L, 1.570796326794896619231321691639751442099L);
2595 TEST_c_c (cacosh, -0x1.fp-1025L, -0x0.fffffffffffff8p0L, 8.813735870195429467279863907910371604180e-1L, -1.570796326794896619231321691639751442099L);
2596 TEST_c_c (cacosh, 0x0.fffffffffffff8p0L, 0x1.fp-1025L, 3.616396521699973256461764099945789620604e-301L, 1.490116119384765638786343542550461592240e-8L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
2597 TEST_c_c (cacosh, -0x0.fffffffffffff8p0L, 0x1.fp-1025L, 3.616396521699973256461764099945789620604e-301L, 3.141592638688632044614986995416067458693L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
2598 TEST_c_c (cacosh, 0x0.fffffffffffff8p0L, -0x1.fp-1025L, 3.616396521699973256461764099945789620604e-301L, -1.490116119384765638786343542550461592240e-8L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
2599 TEST_c_c (cacosh, -0x0.fffffffffffff8p0L, -0x1.fp-1025L, 3.616396521699973256461764099945789620604e-301L, -3.141592638688632044614986995416067458693L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
2600 TEST_c_c (cacosh, 0.0L, 0x0.fffffffffffff8p0L, 8.813735870195429467279863907910371604180e-1L, 1.570796326794896619231321691639751442099L);
2601 TEST_c_c (cacosh, 0.0L, -0x0.fffffffffffff8p0L, 8.813735870195429467279863907910371604180e-1L, -1.570796326794896619231321691639751442099L);
2602 TEST_c_c (cacosh, -0.0L, 0x0.fffffffffffff8p0L, 8.813735870195429467279863907910371604180e-1L, 1.570796326794896619231321691639751442099L);
2603 TEST_c_c (cacosh, -0.0L, -0x0.fffffffffffff8p0L, 8.813735870195429467279863907910371604180e-1L, -1.570796326794896619231321691639751442099L);
2604 TEST_c_c (cacosh, 0x0.fffffffffffff8p0L, 0.0L, 0.0L, 1.490116119384765638786343542550461592240e-8L);
2605 TEST_c_c (cacosh, -0x0.fffffffffffff8p0L, 0.0L, 0.0L, 3.141592638688632044614986995416067458693L);
2606 TEST_c_c (cacosh, 0x0.fffffffffffff8p0L, -0.0L, 0.0L, -1.490116119384765638786343542550461592240e-8L);
2607 TEST_c_c (cacosh, -0x0.fffffffffffff8p0L, -0.0L, 0.0L, -3.141592638688632044614986995416067458693L);
2608#endif
2609 TEST_c_c (cacosh, 0x1p-52L, 0.5L, 4.812118250596034474977589134243772428682e-1L, 1.570796326794896420628589431857911675917L);
2610 TEST_c_c (cacosh, 0x1p-52L, -0.5L, 4.812118250596034474977589134243772428682e-1L, -1.570796326794896420628589431857911675917L);
2611 TEST_c_c (cacosh, -0x1p-52L, 0.5L, 4.812118250596034474977589134243772428682e-1L, 1.570796326794896817834053951421591208280L);
2612 TEST_c_c (cacosh, -0x1p-52L, -0.5L, 4.812118250596034474977589134243772428682e-1L, -1.570796326794896817834053951421591208280L);
2613 TEST_c_c (cacosh, 0.5L, 0x1p-52L, 2.563950248511418570403591756798643804971e-16L, 1.047197551196597746154214461093186605110L);
2614 TEST_c_c (cacosh, -0.5L, 0x1p-52L, 2.563950248511418570403591756798643804971e-16L, 2.094395102393195492308428922186316279087L);
2615 TEST_c_c (cacosh, 0.5L, -0x1p-52L, 2.563950248511418570403591756798643804971e-16L, -1.047197551196597746154214461093186605110L);
2616 TEST_c_c (cacosh, -0.5L, -0x1p-52L, 2.563950248511418570403591756798643804971e-16L, -2.094395102393195492308428922186316279087L);
2617#ifndef TEST_FLOAT
2618 TEST_c_c (cacosh, 0x1.fp-1025L, 0.5L, 4.812118250596034474977589134243684231352e-1L, 1.570796326794896619231321691639751442099L);
2619 TEST_c_c (cacosh, 0x1.fp-1025L, -0.5L, 4.812118250596034474977589134243684231352e-1L, -1.570796326794896619231321691639751442099L);
2620 TEST_c_c (cacosh, -0x1.fp-1025L, 0.5L, 4.812118250596034474977589134243684231352e-1L, 1.570796326794896619231321691639751442099L);
2621 TEST_c_c (cacosh, -0x1.fp-1025L, -0.5L, 4.812118250596034474977589134243684231352e-1L, -1.570796326794896619231321691639751442099L);
2622 TEST_c_c (cacosh, 0.5L, 0x1.fp-1025L, 6.222508863508420569166420770843207333493e-309L, 1.047197551196597746154214461093167628066L, UNDERFLOW_EXCEPTION_DOUBLE);
2623 TEST_c_c (cacosh, -0.5L, 0x1.fp-1025L, 6.222508863508420569166420770843207333493e-309L, 2.094395102393195492308428922186335256131L, UNDERFLOW_EXCEPTION_DOUBLE);
2624 TEST_c_c (cacosh, 0.5L, -0x1.fp-1025L, 6.222508863508420569166420770843207333493e-309L, -1.047197551196597746154214461093167628066L, UNDERFLOW_EXCEPTION_DOUBLE);
2625 TEST_c_c (cacosh, -0.5L, -0x1.fp-1025L, 6.222508863508420569166420770843207333493e-309L, -2.094395102393195492308428922186335256131L, UNDERFLOW_EXCEPTION_DOUBLE);
2626#endif
2627 TEST_c_c (cacosh, 0x1p-52L, 0x1p-52L, 2.220446049250313080847263336181677117148e-16L, 1.570796326794896397186716766608443357372L);
2628 TEST_c_c (cacosh, 0x1p-52L, -0x1p-52L, 2.220446049250313080847263336181677117148e-16L, -1.570796326794896397186716766608443357372L);
2629 TEST_c_c (cacosh, -0x1p-52L, 0x1p-52L, 2.220446049250313080847263336181677117148e-16L, 1.570796326794896841275926616671059526825L);
2630 TEST_c_c (cacosh, -0x1p-52L, -0x1p-52L, 2.220446049250313080847263336181677117148e-16L, -1.570796326794896841275926616671059526825L);
2631#ifndef TEST_FLOAT
2632 TEST_c_c (cacosh, 0x1.fp-1025L, 0x1p-52L, 2.220446049250313080847263336181622378926e-16L, 1.570796326794896619231321691639751442099L);
2633 TEST_c_c (cacosh, 0x1.fp-1025L, -0x1p-52L, 2.220446049250313080847263336181622378926e-16L, -1.570796326794896619231321691639751442099L);
2634 TEST_c_c (cacosh, -0x1.fp-1025L, 0x1p-52L, 2.220446049250313080847263336181622378926e-16L, 1.570796326794896619231321691639751442099L);
2635 TEST_c_c (cacosh, -0x1.fp-1025L, -0x1p-52L, 2.220446049250313080847263336181622378926e-16L, -1.570796326794896619231321691639751442099L);
2636 TEST_c_c (cacosh, 0x1p-52L, 0x1.fp-1025L, 5.388850751072128349671657362289548938458e-309L, 1.570796326794896397186716766608443357372L, UNDERFLOW_EXCEPTION_DOUBLE);
2637 TEST_c_c (cacosh, -0x1p-52L, 0x1.fp-1025L, 5.388850751072128349671657362289548938458e-309L, 1.570796326794896841275926616671059526825L, UNDERFLOW_EXCEPTION_DOUBLE);
2638 TEST_c_c (cacosh, 0x1p-52L, -0x1.fp-1025L, 5.388850751072128349671657362289548938458e-309L, -1.570796326794896397186716766608443357372L, UNDERFLOW_EXCEPTION_DOUBLE);
2639 TEST_c_c (cacosh, -0x1p-52L, -0x1.fp-1025L, 5.388850751072128349671657362289548938458e-309L, -1.570796326794896841275926616671059526825L, UNDERFLOW_EXCEPTION_DOUBLE);
2640#endif
2641 TEST_c_c (cacosh, 0.0L, 0x1p-52L, 2.220446049250313080847263336181622378926e-16L, 1.570796326794896619231321691639751442099L);
2642 TEST_c_c (cacosh, 0.0L, -0x1p-52L, 2.220446049250313080847263336181622378926e-16L, -1.570796326794896619231321691639751442099L);
2643 TEST_c_c (cacosh, -0.0L, 0x1p-52L, 2.220446049250313080847263336181622378926e-16L, 1.570796326794896619231321691639751442099L);
2644 TEST_c_c (cacosh, -0.0L, -0x1p-52L, 2.220446049250313080847263336181622378926e-16L, -1.570796326794896619231321691639751442099L);
2645 TEST_c_c (cacosh, 0x1p-52L, 0.0L, 0.0L, 1.570796326794896397186716766608443357372L);
2646 TEST_c_c (cacosh, -0x1p-52L, 0.0L, 0.0L, 1.570796326794896841275926616671059526825L);
2647 TEST_c_c (cacosh, 0x1p-52L, -0.0L, 0.0L, -1.570796326794896397186716766608443357372L);
2648 TEST_c_c (cacosh, -0x1p-52L, -0.0L, 0.0L, -1.570796326794896841275926616671059526825L);
2649#ifndef TEST_FLOAT
2650 TEST_c_c (cacosh, 0x1.fp-1025L, 0x1.fp-1025L, 5.388850751072128349671657362289416093031e-309L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
2651 TEST_c_c (cacosh, 0x1.fp-1025L, -0x1.fp-1025L, 5.388850751072128349671657362289416093031e-309L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
2652 TEST_c_c (cacosh, -0x1.fp-1025L, 0x1.fp-1025L, 5.388850751072128349671657362289416093031e-309L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
2653 TEST_c_c (cacosh, -0x1.fp-1025L, -0x1.fp-1025L, 5.388850751072128349671657362289416093031e-309L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
2654#endif
2655#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64
2656 TEST_c_c (cacosh, 0x1p-63L, 0x0.ffffffffffffffffp0L, 8.813735870195430251942769895627079569937e-1L, 1.570796326794896619154657020805582738025L);
2657 TEST_c_c (cacosh, 0x1p-63L, -0x0.ffffffffffffffffp0L, 8.813735870195430251942769895627079569937e-1L, -1.570796326794896619154657020805582738025L);
2658 TEST_c_c (cacosh, -0x1p-63L, 0x0.ffffffffffffffffp0L, 8.813735870195430251942769895627079569937e-1L, 1.570796326794896619307986362473920146173L);
2659 TEST_c_c (cacosh, -0x1p-63L, -0x0.ffffffffffffffffp0L, 8.813735870195430251942769895627079569937e-1L, -1.570796326794896619307986362473920146173L);
2660 TEST_c_c (cacosh, 0x0.ffffffffffffffffp0L, 0x1p-63L, 2.588578361325995866221775673638805081337e-10L, 4.188407771167967636741951941902992986043e-10L);
2661 TEST_c_c (cacosh, -0x0.ffffffffffffffffp0L, 0x1p-63L, 2.588578361325995866221775673638805081337e-10L, 3.141592653170952461345846619605307690007L);
2662 TEST_c_c (cacosh, 0x0.ffffffffffffffffp0L, -0x1p-63L, 2.588578361325995866221775673638805081337e-10L, -4.188407771167967636741951941902992986043e-10L);
2663 TEST_c_c (cacosh, -0x0.ffffffffffffffffp0L, -0x1p-63L, 2.588578361325995866221775673638805081337e-10L, -3.141592653170952461345846619605307690007L);
2664# if LDBL_MIN_EXP <= -16381
2665 TEST_c_c (cacosh, 0x1.fp-16385L, 0x0.ffffffffffffffffp0L, 8.813735870195430251942769895627079569917e-1L, 1.570796326794896619231321691639751442099L);
2666 TEST_c_c (cacosh, 0x1.fp-16385L, -0x0.ffffffffffffffffp0L, 8.813735870195430251942769895627079569917e-1L, -1.570796326794896619231321691639751442099L);
2667 TEST_c_c (cacosh, -0x1.fp-16385L, 0x0.ffffffffffffffffp0L, 8.813735870195430251942769895627079569917e-1L, 1.570796326794896619231321691639751442099L);
2668 TEST_c_c (cacosh, -0x1.fp-16385L, -0x0.ffffffffffffffffp0L, 8.813735870195430251942769895627079569917e-1L, -1.570796326794896619231321691639751442099L);
2669 TEST_c_c (cacosh, 0x0.ffffffffffffffffp0L, 0x1.fp-16385L, 2.472906068161537187835415298076415423459e-4923L, 3.292722539913596233371825532007990724506e-10L);
2670 TEST_c_c (cacosh, -0x0.ffffffffffffffffp0L, 0x1.fp-16385L, 2.472906068161537187835415298076415423459e-4923L, 3.141592653260520984471283759942320330996L);
2671 TEST_c_c (cacosh, 0x0.ffffffffffffffffp0L, -0x1.fp-16385L, 2.472906068161537187835415298076415423459e-4923L, -3.292722539913596233371825532007990724506e-10L);
2672 TEST_c_c (cacosh, -0x0.ffffffffffffffffp0L, -0x1.fp-16385L, 2.472906068161537187835415298076415423459e-4923L, -3.141592653260520984471283759942320330996L);
2673# endif
2674 TEST_c_c (cacosh, 0.0L, 0x0.ffffffffffffffffp0L, 8.813735870195430251942769895627079569917e-1L, 1.570796326794896619231321691639751442099L);
2675 TEST_c_c (cacosh, 0.0L, -0x0.ffffffffffffffffp0L, 8.813735870195430251942769895627079569917e-1L, -1.570796326794896619231321691639751442099L);
2676 TEST_c_c (cacosh, -0.0L, 0x0.ffffffffffffffffp0L, 8.813735870195430251942769895627079569917e-1L, 1.570796326794896619231321691639751442099L);
2677 TEST_c_c (cacosh, -0.0L, -0x0.ffffffffffffffffp0L, 8.813735870195430251942769895627079569917e-1L, -1.570796326794896619231321691639751442099L);
2678 TEST_c_c (cacosh, 0x0.ffffffffffffffffp0L, 0.0L, 0.0L, 3.292722539913596233371825532007990724506e-10L);
2679 TEST_c_c (cacosh, -0x0.ffffffffffffffffp0L, 0.0L, 0.0L, 3.141592653260520984471283759942320330996L);
2680 TEST_c_c (cacosh, 0x0.ffffffffffffffffp0L, -0.0L, 0.0L, -3.292722539913596233371825532007990724506e-10L);
2681 TEST_c_c (cacosh, -0x0.ffffffffffffffffp0L, -0.0L, 0.0L, -3.141592653260520984471283759942320330996L);
2682#endif
2683 TEST_c_c (cacosh, 0x1p-63L, 0.5L, 4.812118250596034474977589134243684231373e-1L, 1.570796326794896619134347701278529840650L);
2684 TEST_c_c (cacosh, 0x1p-63L, -0.5L, 4.812118250596034474977589134243684231373e-1L, -1.570796326794896619134347701278529840650L);
2685 TEST_c_c (cacosh, -0x1p-63L, 0.5L, 4.812118250596034474977589134243684231373e-1L, 1.570796326794896619328295682000973043547L);
2686 TEST_c_c (cacosh, -0x1p-63L, -0.5L, 4.812118250596034474977589134243684231373e-1L, -1.570796326794896619328295682000973043547L);
2687 TEST_c_c (cacosh, 0.5L, 0x1p-63L, 1.251928832280966098829878787499365228659e-19L, 1.047197551196597746154214461093167628070L);
2688 TEST_c_c (cacosh, -0.5L, 0x1p-63L, 1.251928832280966098829878787499365228659e-19L, 2.094395102393195492308428922186335256127L);
2689 TEST_c_c (cacosh, 0.5L, -0x1p-63L, 1.251928832280966098829878787499365228659e-19L, -1.047197551196597746154214461093167628070L);
2690 TEST_c_c (cacosh, -0.5L, -0x1p-63L, 1.251928832280966098829878787499365228659e-19L, -2.094395102393195492308428922186335256127L);
2691#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
2692 TEST_c_c (cacosh, 0x1.fp-16385L, 0.5L, 4.812118250596034474977589134243684231352e-1L, 1.570796326794896619231321691639751442099L);
2693 TEST_c_c (cacosh, 0x1.fp-16385L, -0.5L, 4.812118250596034474977589134243684231352e-1L, -1.570796326794896619231321691639751442099L);
2694 TEST_c_c (cacosh, -0x1.fp-16385L, 0.5L, 4.812118250596034474977589134243684231352e-1L, 1.570796326794896619231321691639751442099L);
2695 TEST_c_c (cacosh, -0x1.fp-16385L, -0.5L, 4.812118250596034474977589134243684231352e-1L, -1.570796326794896619231321691639751442099L);
2696 TEST_c_c (cacosh, 0.5L, 0x1.fp-16385L, 9.402257155670418112159334875199821342890e-4933L, 1.047197551196597746154214461093167628066L, UNDERFLOW_EXCEPTION);
2697 TEST_c_c (cacosh, -0.5L, 0x1.fp-16385L, 9.402257155670418112159334875199821342890e-4933L, 2.094395102393195492308428922186335256131L, UNDERFLOW_EXCEPTION);
2698 TEST_c_c (cacosh, 0.5L, -0x1.fp-16385L, 9.402257155670418112159334875199821342890e-4933L, -1.047197551196597746154214461093167628066L, UNDERFLOW_EXCEPTION);
2699 TEST_c_c (cacosh, -0.5L, -0x1.fp-16385L, 9.402257155670418112159334875199821342890e-4933L, -2.094395102393195492308428922186335256131L, UNDERFLOW_EXCEPTION);
2700#endif
2701 TEST_c_c (cacosh, 0x1p-63L, 0x1p-63L, 1.084202172485504434007452800869941711430e-19L, 1.570796326794896619122901474391200998698L);
2702 TEST_c_c (cacosh, 0x1p-63L, -0x1p-63L, 1.084202172485504434007452800869941711430e-19L, -1.570796326794896619122901474391200998698L);
2703 TEST_c_c (cacosh, -0x1p-63L, 0x1p-63L, 1.084202172485504434007452800869941711430e-19L, 1.570796326794896619339741908888301885499L);
2704 TEST_c_c (cacosh, -0x1p-63L, -0x1p-63L, 1.084202172485504434007452800869941711430e-19L, -1.570796326794896619339741908888301885499L);
2705#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
2706 TEST_c_c (cacosh, 0x1.fp-16385L, 0x1p-63L, 1.084202172485504434007452800869941711424e-19L, 1.570796326794896619231321691639751442099L);
2707 TEST_c_c (cacosh, 0x1.fp-16385L, -0x1p-63L, 1.084202172485504434007452800869941711424e-19L, -1.570796326794896619231321691639751442099L);
2708 TEST_c_c (cacosh, -0x1.fp-16385L, 0x1p-63L, 1.084202172485504434007452800869941711424e-19L, 1.570796326794896619231321691639751442099L);
2709 TEST_c_c (cacosh, -0x1.fp-16385L, -0x1p-63L, 1.084202172485504434007452800869941711424e-19L, -1.570796326794896619231321691639751442099L);
2710 TEST_c_c (cacosh, 0x1p-63L, 0x1.fp-16385L, 8.142593549724601460479922838826119584465e-4933L, 1.570796326794896619122901474391200998698L, UNDERFLOW_EXCEPTION);
2711 TEST_c_c (cacosh, -0x1p-63L, 0x1.fp-16385L, 8.142593549724601460479922838826119584465e-4933L, 1.570796326794896619339741908888301885499L, UNDERFLOW_EXCEPTION);
2712 TEST_c_c (cacosh, 0x1p-63L, -0x1.fp-16385L, 8.142593549724601460479922838826119584465e-4933L, -1.570796326794896619122901474391200998698L, UNDERFLOW_EXCEPTION);
2713 TEST_c_c (cacosh, -0x1p-63L, -0x1.fp-16385L, 8.142593549724601460479922838826119584465e-4933L, -1.570796326794896619339741908888301885499L, UNDERFLOW_EXCEPTION);
2714#endif
2715 TEST_c_c (cacosh, 0.0L, 0x1p-63L, 1.084202172485504434007452800869941711424e-19L, 1.570796326794896619231321691639751442099L);
2716 TEST_c_c (cacosh, 0.0L, -0x1p-63L, 1.084202172485504434007452800869941711424e-19L, -1.570796326794896619231321691639751442099L);
2717 TEST_c_c (cacosh, -0.0L, 0x1p-63L, 1.084202172485504434007452800869941711424e-19L, 1.570796326794896619231321691639751442099L);
2718 TEST_c_c (cacosh, -0.0L, -0x1p-63L, 1.084202172485504434007452800869941711424e-19L, -1.570796326794896619231321691639751442099L);
2719 TEST_c_c (cacosh, 0x1p-63L, 0.0L, 0.0L, 1.570796326794896619122901474391200998698L);
2720 TEST_c_c (cacosh, -0x1p-63L, 0.0L, 0.0L, 1.570796326794896619339741908888301885499L);
2721 TEST_c_c (cacosh, 0x1p-63L, -0.0L, 0.0L, -1.570796326794896619122901474391200998698L);
2722 TEST_c_c (cacosh, -0x1p-63L, -0.0L, 0.0L, -1.570796326794896619339741908888301885499L);
2723#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
2724 TEST_c_c (cacosh, 0x1.fp-16385L, 0x1.fp-16385L, 8.142593549724601460479922838826119584417e-4933L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
2725 TEST_c_c (cacosh, 0x1.fp-16385L, -0x1.fp-16385L, 8.142593549724601460479922838826119584417e-4933L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
2726 TEST_c_c (cacosh, -0x1.fp-16385L, 0x1.fp-16385L, 8.142593549724601460479922838826119584417e-4933L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
2727 TEST_c_c (cacosh, -0x1.fp-16385L, -0x1.fp-16385L, 8.142593549724601460479922838826119584417e-4933L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
2728#endif
2729#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106
2730 TEST_c_c (cacosh, 0x1p-105L, 0x0.ffffffffffffffffffffffffffcp0L, 8.813735870195430252326093249797835932642e-1L, 1.570796326794896619231321691639734010571L);
2731 TEST_c_c (cacosh, 0x1p-105L, -0x0.ffffffffffffffffffffffffffcp0L, 8.813735870195430252326093249797835932642e-1L, -1.570796326794896619231321691639734010571L);
2732 TEST_c_c (cacosh, -0x1p-105L, 0x0.ffffffffffffffffffffffffffcp0L, 8.813735870195430252326093249797835932642e-1L, 1.570796326794896619231321691639768873627L);
2733 TEST_c_c (cacosh, -0x1p-105L, -0x0.ffffffffffffffffffffffffffcp0L, 8.813735870195430252326093249797835932642e-1L, -1.570796326794896619231321691639768873627L);
2734 TEST_c_c (cacosh, 0x0.ffffffffffffffffffffffffffcp0L, 0x1p-105L, 1.234330349600789959989661887846005659983e-16L, 1.997188458999618357060632049675702684031e-16L);
2735 TEST_c_c (cacosh, -0x0.ffffffffffffffffffffffffffcp0L, 0x1p-105L, 1.234330349600789959989661887846005659983e-16L, 3.141592653589793038743797483317667178134L);
2736 TEST_c_c (cacosh, 0x0.ffffffffffffffffffffffffffcp0L, -0x1p-105L, 1.234330349600789959989661887846005659983e-16L, -1.997188458999618357060632049675702684031e-16L);
2737 TEST_c_c (cacosh, -0x0.ffffffffffffffffffffffffffcp0L, -0x1p-105L, 1.234330349600789959989661887846005659983e-16L, -3.141592653589793038743797483317667178134L);
2738 TEST_c_c (cacosh, 0x1.fp-1025L, 0x0.ffffffffffffffffffffffffffcp0L, 8.813735870195430252326093249797835932642e-1L, 1.570796326794896619231321691639751442099L);
2739 TEST_c_c (cacosh, 0x1.fp-1025L, -0x0.ffffffffffffffffffffffffffcp0L, 8.813735870195430252326093249797835932642e-1L, -1.570796326794896619231321691639751442099L);
2740 TEST_c_c (cacosh, -0x1.fp-1025L, 0x0.ffffffffffffffffffffffffffcp0L, 8.813735870195430252326093249797835932642e-1L, 1.570796326794896619231321691639751442099L);
2741 TEST_c_c (cacosh, -0x1.fp-1025L, -0x0.ffffffffffffffffffffffffffcp0L, 8.813735870195430252326093249797835932642e-1L, -1.570796326794896619231321691639751442099L);
2742 TEST_c_c (cacosh, 0x0.ffffffffffffffffffffffffffcp0L, 0x1.fp-1025L, 3.432186888910770473784103112009399360940e-293L, 1.570092458683775059393382371963565104164e-16L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
2743 TEST_c_c (cacosh, -0x0.ffffffffffffffffffffffffffcp0L, 0x1.fp-1025L, 3.432186888910770473784103112009399360940e-293L, 3.141592653589793081453397514901996944859L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
2744 TEST_c_c (cacosh, 0x0.ffffffffffffffffffffffffffcp0L, -0x1.fp-1025L, 3.432186888910770473784103112009399360940e-293L, -1.570092458683775059393382371963565104164e-16L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
2745 TEST_c_c (cacosh, -0x0.ffffffffffffffffffffffffffcp0L, -0x1.fp-1025L, 3.432186888910770473784103112009399360940e-293L, -3.141592653589793081453397514901996944859L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
2746 TEST_c_c (cacosh, 0.0L, 0x0.ffffffffffffffffffffffffffcp0L, 8.813735870195430252326093249797835932642e-1L, 1.570796326794896619231321691639751442099L);
2747 TEST_c_c (cacosh, 0.0L, -0x0.ffffffffffffffffffffffffffcp0L, 8.813735870195430252326093249797835932642e-1L, -1.570796326794896619231321691639751442099L);
2748 TEST_c_c (cacosh, -0.0L, 0x0.ffffffffffffffffffffffffffcp0L, 8.813735870195430252326093249797835932642e-1L, 1.570796326794896619231321691639751442099L);
2749 TEST_c_c (cacosh, -0.0L, -0x0.ffffffffffffffffffffffffffcp0L, 8.813735870195430252326093249797835932642e-1L, -1.570796326794896619231321691639751442099L);
2750 TEST_c_c (cacosh, 0x0.ffffffffffffffffffffffffffcp0L, 0.0L, 0.0L, 1.570092458683775059393382371963565104164e-16L);
2751 TEST_c_c (cacosh, -0x0.ffffffffffffffffffffffffffcp0L, 0.0L, 0.0L, 3.141592653589793081453397514901996944859L);
2752 TEST_c_c (cacosh, 0x0.ffffffffffffffffffffffffffcp0L, -0.0L, 0.0L, -1.570092458683775059393382371963565104164e-16L);
2753 TEST_c_c (cacosh, -0x0.ffffffffffffffffffffffffffcp0L, -0.0L, 0.0L, -3.141592653589793081453397514901996944859L);
2754#endif
2755 TEST_c_c (cacosh, 0x1p-105L, 0.5L, 4.812118250596034474977589134243684231352e-1L, 1.570796326794896619231321691639729392766L);
2756 TEST_c_c (cacosh, 0x1p-105L, -0.5L, 4.812118250596034474977589134243684231352e-1L, -1.570796326794896619231321691639729392766L);
2757 TEST_c_c (cacosh, -0x1p-105L, 0.5L, 4.812118250596034474977589134243684231352e-1L, 1.570796326794896619231321691639773491431L);
2758 TEST_c_c (cacosh, -0x1p-105L, -0.5L, 4.812118250596034474977589134243684231352e-1L, -1.570796326794896619231321691639773491431L);
2759 TEST_c_c (cacosh, 0.5L, 0x1p-105L, 2.846556599890768890940941645338546615370e-32L, 1.047197551196597746154214461093167628066L);
2760 TEST_c_c (cacosh, -0.5L, 0x1p-105L, 2.846556599890768890940941645338546615370e-32L, 2.094395102393195492308428922186335256131L);
2761 TEST_c_c (cacosh, 0.5L, -0x1p-105L, 2.846556599890768890940941645338546615370e-32L, -1.047197551196597746154214461093167628066L);
2762 TEST_c_c (cacosh, -0.5L, -0x1p-105L, 2.846556599890768890940941645338546615370e-32L, -2.094395102393195492308428922186335256131L);
2763 TEST_c_c (cacosh, 0x1p-105L, 0x1p-105L, 2.465190328815661891911651766508706967729e-32L, 1.570796326794896619231321691639726790195L);
2764 TEST_c_c (cacosh, 0x1p-105L, -0x1p-105L, 2.465190328815661891911651766508706967729e-32L, -1.570796326794896619231321691639726790195L);
2765 TEST_c_c (cacosh, -0x1p-105L, 0x1p-105L, 2.465190328815661891911651766508706967729e-32L, 1.570796326794896619231321691639776094002L);
2766 TEST_c_c (cacosh, -0x1p-105L, -0x1p-105L, 2.465190328815661891911651766508706967729e-32L, -1.570796326794896619231321691639776094002L);
2767#ifndef TEST_FLOAT
2768 TEST_c_c (cacosh, 0x1.fp-1025L, 0x1p-105L, 2.465190328815661891911651766508706967729e-32L, 1.570796326794896619231321691639751442099L);
2769 TEST_c_c (cacosh, 0x1.fp-1025L, -0x1p-105L, 2.465190328815661891911651766508706967729e-32L, -1.570796326794896619231321691639751442099L);
2770 TEST_c_c (cacosh, -0x1.fp-1025L, 0x1p-105L, 2.465190328815661891911651766508706967729e-32L, 1.570796326794896619231321691639751442099L);
2771 TEST_c_c (cacosh, -0x1.fp-1025L, -0x1p-105L, 2.465190328815661891911651766508706967729e-32L, -1.570796326794896619231321691639751442099L);
2772 TEST_c_c (cacosh, 0x1p-105L, 0x1.fp-1025L, 5.388850751072128349671657362289416093031e-309L, 1.570796326794896619231321691639726790195L, UNDERFLOW_EXCEPTION_DOUBLE);
2773 TEST_c_c (cacosh, -0x1p-105L, 0x1.fp-1025L, 5.388850751072128349671657362289416093031e-309L, 1.570796326794896619231321691639776094002L, UNDERFLOW_EXCEPTION_DOUBLE);
2774 TEST_c_c (cacosh, 0x1p-105L, -0x1.fp-1025L, 5.388850751072128349671657362289416093031e-309L, -1.570796326794896619231321691639726790195L, UNDERFLOW_EXCEPTION_DOUBLE);
2775 TEST_c_c (cacosh, -0x1p-105L, -0x1.fp-1025L, 5.388850751072128349671657362289416093031e-309L, -1.570796326794896619231321691639776094002L, UNDERFLOW_EXCEPTION_DOUBLE);
2776#endif
2777 TEST_c_c (cacosh, 0.0L, 0x1p-105L, 2.465190328815661891911651766508706967729e-32L, 1.570796326794896619231321691639751442099L);
2778 TEST_c_c (cacosh, 0.0L, -0x1p-105L, 2.465190328815661891911651766508706967729e-32L, -1.570796326794896619231321691639751442099L);
2779 TEST_c_c (cacosh, -0.0L, 0x1p-105L, 2.465190328815661891911651766508706967729e-32L, 1.570796326794896619231321691639751442099L);
2780 TEST_c_c (cacosh, -0.0L, -0x1p-105L, 2.465190328815661891911651766508706967729e-32L, -1.570796326794896619231321691639751442099L);
2781 TEST_c_c (cacosh, 0x1p-105L, 0.0L, 0.0L, 1.570796326794896619231321691639726790195L);
2782 TEST_c_c (cacosh, -0x1p-105L, 0.0L, 0.0L, 1.570796326794896619231321691639776094002L);
2783 TEST_c_c (cacosh, 0x1p-105L, -0.0L, 0.0L, -1.570796326794896619231321691639726790195L);
2784 TEST_c_c (cacosh, -0x1p-105L, -0.0L, 0.0L, -1.570796326794896619231321691639776094002L);
2785#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 113
2786 TEST_c_c (cacosh, 0x1p-112L, 0x0.ffffffffffffffffffffffffffff8p0L, 8.813735870195430252326093249797922409363e-1L, 1.570796326794896619231321691639751305915L);
2787 TEST_c_c (cacosh, 0x1p-112L, -0x0.ffffffffffffffffffffffffffff8p0L, 8.813735870195430252326093249797922409363e-1L, -1.570796326794896619231321691639751305915L);
2788 TEST_c_c (cacosh, -0x1p-112L, 0x0.ffffffffffffffffffffffffffff8p0L, 8.813735870195430252326093249797922409363e-1L, 1.570796326794896619231321691639751578282L);
2789 TEST_c_c (cacosh, -0x1p-112L, -0x0.ffffffffffffffffffffffffffff8p0L, 8.813735870195430252326093249797922409363e-1L, -1.570796326794896619231321691639751578282L);
2790 TEST_c_c (cacosh, 0x0.ffffffffffffffffffffffffffff8p0L, 0x1p-112L, 1.091004200533850618345330909857103457781e-17L, 1.765281878332676474347460257221369818872e-17L);
2791 TEST_c_c (cacosh, -0x0.ffffffffffffffffffffffffffff8p0L, 0x1p-112L, 1.091004200533850618345330909857103457781e-17L, 3.141592653589793220809824599952738140723L);
2792 TEST_c_c (cacosh, 0x0.ffffffffffffffffffffffffffff8p0L, -0x1p-112L, 1.091004200533850618345330909857103457781e-17L, -1.765281878332676474347460257221369818872e-17L);
2793 TEST_c_c (cacosh, -0x0.ffffffffffffffffffffffffffff8p0L, -0x1p-112L, 1.091004200533850618345330909857103457781e-17L, -3.141592653589793220809824599952738140723L);
2794 TEST_c_c (cacosh, 0x1.fp-16385L, 0x0.ffffffffffffffffffffffffffff8p0L, 8.813735870195430252326093249797922409363e-1L, 1.570796326794896619231321691639751442099L);
2795 TEST_c_c (cacosh, 0x1.fp-16385L, -0x0.ffffffffffffffffffffffffffff8p0L, 8.813735870195430252326093249797922409363e-1L, -1.570796326794896619231321691639751442099L);
2796 TEST_c_c (cacosh, -0x1.fp-16385L, 0x0.ffffffffffffffffffffffffffff8p0L, 8.813735870195430252326093249797922409363e-1L, 1.570796326794896619231321691639751442099L);
2797 TEST_c_c (cacosh, -0x1.fp-16385L, -0x0.ffffffffffffffffffffffffffff8p0L, 8.813735870195430252326093249797922409363e-1L, -1.570796326794896619231321691639751442099L);
2798 TEST_c_c (cacosh, 0x0.ffffffffffffffffffffffffffff8p0L, 0x1.fp-16385L, 5.867357004219059108790368268900490184505e-4916L, 1.387778780781445675529539585113525401762e-17L);
2799 TEST_c_c (cacosh, -0x0.ffffffffffffffffffffffffffff8p0L, 0x1.fp-16385L, 5.867357004219059108790368268900490184505e-4916L, 3.141592653589793224584855575465046128902L);
2800 TEST_c_c (cacosh, 0x0.ffffffffffffffffffffffffffff8p0L, -0x1.fp-16385L, 5.867357004219059108790368268900490184505e-4916L, -1.387778780781445675529539585113525401762e-17L);
2801 TEST_c_c (cacosh, -0x0.ffffffffffffffffffffffffffff8p0L, -0x1.fp-16385L, 5.867357004219059108790368268900490184505e-4916L, -3.141592653589793224584855575465046128902L);
2802 TEST_c_c (cacosh, 0.0L, 0x0.ffffffffffffffffffffffffffff8p0L, 8.813735870195430252326093249797922409363e-1L, 1.570796326794896619231321691639751442099L);
2803 TEST_c_c (cacosh, 0.0L, -0x0.ffffffffffffffffffffffffffff8p0L, 8.813735870195430252326093249797922409363e-1L, -1.570796326794896619231321691639751442099L);
2804 TEST_c_c (cacosh, -0.0L, 0x0.ffffffffffffffffffffffffffff8p0L, 8.813735870195430252326093249797922409363e-1L, 1.570796326794896619231321691639751442099L);
2805 TEST_c_c (cacosh, -0.0L, -0x0.ffffffffffffffffffffffffffff8p0L, 8.813735870195430252326093249797922409363e-1L, -1.570796326794896619231321691639751442099L);
2806 TEST_c_c (cacosh, 0x0.ffffffffffffffffffffffffffff8p0L, 0.0L, 0.0L, 1.387778780781445675529539585113525401762e-17L);
2807 TEST_c_c (cacosh, -0x0.ffffffffffffffffffffffffffff8p0L, 0.0L, 0.0L, 3.141592653589793224584855575465046128902L);
2808 TEST_c_c (cacosh, 0x0.ffffffffffffffffffffffffffff8p0L, -0.0L, 0.0L, -1.387778780781445675529539585113525401762e-17L);
2809 TEST_c_c (cacosh, -0x0.ffffffffffffffffffffffffffff8p0L, -0.0L, 0.0L, -3.141592653589793224584855575465046128902L);
2810#endif
2811 TEST_c_c (cacosh, 0x1p-112L, 0.5L, 4.812118250596034474977589134243684231352e-1L, 1.570796326794896619231321691639751269838L);
2812 TEST_c_c (cacosh, 0x1p-112L, -0.5L, 4.812118250596034474977589134243684231352e-1L, -1.570796326794896619231321691639751269838L);
2813 TEST_c_c (cacosh, -0x1p-112L, 0.5L, 4.812118250596034474977589134243684231352e-1L, 1.570796326794896619231321691639751614359L);
2814 TEST_c_c (cacosh, -0x1p-112L, -0.5L, 4.812118250596034474977589134243684231352e-1L, -1.570796326794896619231321691639751614359L);
2815 TEST_c_c (cacosh, 0.5L, 0x1p-112L, 2.223872343664663196047610660420739543258e-34L, 1.047197551196597746154214461093167628066L);
2816 TEST_c_c (cacosh, -0.5L, 0x1p-112L, 2.223872343664663196047610660420739543258e-34L, 2.094395102393195492308428922186335256131L);
2817 TEST_c_c (cacosh, 0.5L, -0x1p-112L, 2.223872343664663196047610660420739543258e-34L, -1.047197551196597746154214461093167628066L);
2818 TEST_c_c (cacosh, -0.5L, -0x1p-112L, 2.223872343664663196047610660420739543258e-34L, -2.094395102393195492308428922186335256131L);
2819 TEST_c_c (cacosh, 0x1p-112L, 0x1p-112L, 1.925929944387235853055977942584927318538e-34L, 1.570796326794896619231321691639751249506L);
2820 TEST_c_c (cacosh, 0x1p-112L, -0x1p-112L, 1.925929944387235853055977942584927318538e-34L, -1.570796326794896619231321691639751249506L);
2821 TEST_c_c (cacosh, -0x1p-112L, 0x1p-112L, 1.925929944387235853055977942584927318538e-34L, 1.570796326794896619231321691639751634692L);
2822 TEST_c_c (cacosh, -0x1p-112L, -0x1p-112L, 1.925929944387235853055977942584927318538e-34L, -1.570796326794896619231321691639751634692L);
2823#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
2824 TEST_c_c (cacosh, 0x1.fp-16385L, 0x1p-112L, 1.925929944387235853055977942584927318538e-34L, 1.570796326794896619231321691639751442099L);
2825 TEST_c_c (cacosh, 0x1.fp-16385L, -0x1p-112L, 1.925929944387235853055977942584927318538e-34L, -1.570796326794896619231321691639751442099L);
2826 TEST_c_c (cacosh, -0x1.fp-16385L, 0x1p-112L, 1.925929944387235853055977942584927318538e-34L, 1.570796326794896619231321691639751442099L);
2827 TEST_c_c (cacosh, -0x1.fp-16385L, -0x1p-112L, 1.925929944387235853055977942584927318538e-34L, -1.570796326794896619231321691639751442099L);
2828 TEST_c_c (cacosh, 0x1p-112L, 0x1.fp-16385L, 8.142593549724601460479922838826119584417e-4933L, 1.570796326794896619231321691639751249506L, UNDERFLOW_EXCEPTION);
2829 TEST_c_c (cacosh, -0x1p-112L, 0x1.fp-16385L, 8.142593549724601460479922838826119584417e-4933L, 1.570796326794896619231321691639751634692L, UNDERFLOW_EXCEPTION);
2830 TEST_c_c (cacosh, 0x1p-112L, -0x1.fp-16385L, 8.142593549724601460479922838826119584417e-4933L, -1.570796326794896619231321691639751249506L, UNDERFLOW_EXCEPTION);
2831 TEST_c_c (cacosh, -0x1p-112L, -0x1.fp-16385L, 8.142593549724601460479922838826119584417e-4933L, -1.570796326794896619231321691639751634692L, UNDERFLOW_EXCEPTION);
2832#endif
2833 TEST_c_c (cacosh, 0.0L, 0x1p-112L, 1.925929944387235853055977942584927318538e-34L, 1.570796326794896619231321691639751442099L);
2834 TEST_c_c (cacosh, 0.0L, -0x1p-112L, 1.925929944387235853055977942584927318538e-34L, -1.570796326794896619231321691639751442099L);
2835 TEST_c_c (cacosh, -0.0L, 0x1p-112L, 1.925929944387235853055977942584927318538e-34L, 1.570796326794896619231321691639751442099L);
2836 TEST_c_c (cacosh, -0.0L, -0x1p-112L, 1.925929944387235853055977942584927318538e-34L, -1.570796326794896619231321691639751442099L);
2837 TEST_c_c (cacosh, 0x1p-112L, 0.0L, 0.0L, 1.570796326794896619231321691639751249506L);
2838 TEST_c_c (cacosh, -0x1p-112L, 0.0L, 0.0L, 1.570796326794896619231321691639751634692L);
2839 TEST_c_c (cacosh, 0x1p-112L, -0.0L, 0.0L, -1.570796326794896619231321691639751249506L);
2840 TEST_c_c (cacosh, -0x1p-112L, -0.0L, 0.0L, -1.570796326794896619231321691639751634692L);
2841
2550dfe9 2842 TEST_c_c (cacosh, 0.75L, 1.25L, 1.13239363160530819522266333696834467L, 1.11752014915610270578240049553777969L);
4f7e7f8e 2843 TEST_c_c (cacosh, -2, -3, 1.9833870299165354323470769028940395L, -2.1414491111159960199416055713254211L);
8847214f 2844
6815fabc 2845 END (cacosh, complex);
8847214f
UD		 2846}
2847
2550dfe9 2848
8847214f
UD		 2849static void
2850carg_test (void)
2851{
2852 START (carg);
2853
2854 /* carg (x + iy) is specified as atan2 (y, x) */
2855
2856 /* carg (x + i 0) == 0 for x > 0. */
2857 TEST_c_f (carg, 2.0, 0, 0);
2858 /* carg (x - i 0) == -0 for x > 0. */
2859 TEST_c_f (carg, 2.0, minus_zero, minus_zero);
2860
2861 TEST_c_f (carg, 0, 0, 0);
2862 TEST_c_f (carg, 0, minus_zero, minus_zero);
2863
2864 /* carg (x + i 0) == +pi for x < 0. */
2865 TEST_c_f (carg, -2.0, 0, M_PIl);
2866
2867 /* carg (x - i 0) == -pi for x < 0. */
2868 TEST_c_f (carg, -2.0, minus_zero, -M_PIl);
2869
2870 TEST_c_f (carg, minus_zero, 0, M_PIl);
2871 TEST_c_f (carg, minus_zero, minus_zero, -M_PIl);
2872
2873 /* carg (+0 + i y) == pi/2 for y > 0. */
2874 TEST_c_f (carg, 0, 2.0, M_PI_2l);
2875
2876 /* carg (-0 + i y) == pi/2 for y > 0. */
2877 TEST_c_f (carg, minus_zero, 2.0, M_PI_2l);
2878
2879 /* carg (+0 + i y) == -pi/2 for y < 0. */
2880 TEST_c_f (carg, 0, -2.0, -M_PI_2l);
2881
2882 /* carg (-0 + i y) == -pi/2 for y < 0. */
2883 TEST_c_f (carg, minus_zero, -2.0, -M_PI_2l);
2884
2885 /* carg (inf + i y) == +0 for finite y > 0. */
2886 TEST_c_f (carg, plus_infty, 2.0, 0);
2887
2888 /* carg (inf + i y) == -0 for finite y < 0. */
2889 TEST_c_f (carg, plus_infty, -2.0, minus_zero);
2890
2891 /* carg(x + i inf) == pi/2 for finite x. */
2892 TEST_c_f (carg, 10.0, plus_infty, M_PI_2l);
2893
2894 /* carg(x - i inf) == -pi/2 for finite x. */
2895 TEST_c_f (carg, 10.0, minus_infty, -M_PI_2l);
2896
2897 /* carg (-inf + i y) == +pi for finite y > 0. */
2898 TEST_c_f (carg, minus_infty, 10.0, M_PIl);
2899
2900 /* carg (-inf + i y) == -pi for finite y < 0. */
2901 TEST_c_f (carg, minus_infty, -10.0, -M_PIl);
2902
2903 TEST_c_f (carg, plus_infty, plus_infty, M_PI_4l);
2904
2905 TEST_c_f (carg, plus_infty, minus_infty, -M_PI_4l);
2906
2907 TEST_c_f (carg, minus_infty, plus_infty, 3 * M_PI_4l);
2908
2909 TEST_c_f (carg, minus_infty, minus_infty, -3 * M_PI_4l);
2910
67e971f1 2911 TEST_c_f (carg, qnan_value, qnan_value, qnan_value);
15daa639 2912
8847214f
UD		 2913 END (carg);
2914}
2915
2916static void
2917casin_test (void)
2918{
aaca11d8 2919 errno = 0;
3c6cad26 2920 FUNC(casin) (BUILD_COMPLEX (0.7L, 1.2L));
aaca11d8
UD		 2921 if (errno == ENOSYS)
2922 /* Function not implemented. */
2923 return;
2924
8847214f
UD		 2925 START (casin);
2926
2927 TEST_c_c (casin, 0, 0, 0.0, 0.0);
2928 TEST_c_c (casin, minus_zero, 0, minus_zero, 0.0);
2929 TEST_c_c (casin, 0, minus_zero, 0.0, minus_zero);
2930 TEST_c_c (casin, minus_zero, minus_zero, minus_zero, minus_zero);
2931
2932 TEST_c_c (casin, plus_infty, plus_infty, M_PI_4l, plus_infty);
2933 TEST_c_c (casin, plus_infty, minus_infty, M_PI_4l, minus_infty);
2934 TEST_c_c (casin, minus_infty, plus_infty, -M_PI_4l, plus_infty);
2935 TEST_c_c (casin, minus_infty, minus_infty, -M_PI_4l, minus_infty);
2936
2937 TEST_c_c (casin, -10.0, plus_infty, minus_zero, plus_infty);
2938 TEST_c_c (casin, -10.0, minus_infty, minus_zero, minus_infty);
2939 TEST_c_c (casin, 0, plus_infty, 0.0, plus_infty);
2940 TEST_c_c (casin, 0, minus_infty, 0.0, minus_infty);
2941 TEST_c_c (casin, minus_zero, plus_infty, minus_zero, plus_infty);
2942 TEST_c_c (casin, minus_zero, minus_infty, minus_zero, minus_infty);
3c6cad26
UD		 2943 TEST_c_c (casin, 0.1L, plus_infty, 0.0, plus_infty);
2944 TEST_c_c (casin, 0.1L, minus_infty, 0.0, minus_infty);
8847214f
UD		 2945
2946 TEST_c_c (casin, minus_infty, 0, -M_PI_2l, plus_infty);
2947 TEST_c_c (casin, minus_infty, minus_zero, -M_PI_2l, minus_infty);
2948 TEST_c_c (casin, minus_infty, 100, -M_PI_2l, plus_infty);
2949 TEST_c_c (casin, minus_infty, -100, -M_PI_2l, minus_infty);
2950
2951 TEST_c_c (casin, plus_infty, 0, M_PI_2l, plus_infty);
2952 TEST_c_c (casin, plus_infty, minus_zero, M_PI_2l, minus_infty);
2953 TEST_c_c (casin, plus_infty, 0.5, M_PI_2l, plus_infty);
2954 TEST_c_c (casin, plus_infty, -0.5, M_PI_2l, minus_infty);
2955
67e971f1
TS		 2956 TEST_c_c (casin, qnan_value, plus_infty, qnan_value, plus_infty);
2957 TEST_c_c (casin, qnan_value, minus_infty, qnan_value, minus_infty);
8847214f 2958
67e971f1
TS		 2959 TEST_c_c (casin, 0.0, qnan_value, 0.0, qnan_value);
2960 TEST_c_c (casin, minus_zero, qnan_value, minus_zero, qnan_value);
8847214f 2961
67e971f1
TS		 2962 TEST_c_c (casin, plus_infty, qnan_value, qnan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
2963 TEST_c_c (casin, minus_infty, qnan_value, qnan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
8847214f 2964
67e971f1
TS		 2965 TEST_c_c (casin, qnan_value, 10.5, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
2966 TEST_c_c (casin, qnan_value, -10.5, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 2967
67e971f1
TS		 2968 TEST_c_c (casin, 0.75, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
2969 TEST_c_c (casin, -0.75, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 2970
67e971f1 2971 TEST_c_c (casin, qnan_value, qnan_value, qnan_value, qnan_value);
8847214f 2972
d1d3431a
JM		 2973 TEST_c_c (casin, plus_zero, -1.5L, plus_zero, -1.194763217287109304111930828519090523536L);
2974 TEST_c_c (casin, minus_zero, -1.5L, minus_zero, -1.194763217287109304111930828519090523536L);
2975 TEST_c_c (casin, plus_zero, -1.0L, plus_zero, -0.8813735870195430252326093249797923090282L);
2976 TEST_c_c (casin, minus_zero, -1.0L, minus_zero, -0.8813735870195430252326093249797923090282L);
2977 TEST_c_c (casin, plus_zero, -0.5L, plus_zero, -0.4812118250596034474977589134243684231352L);
2978 TEST_c_c (casin, minus_zero, -0.5L, minus_zero, -0.4812118250596034474977589134243684231352L);
2979 TEST_c_c (casin, plus_zero, 0.5L, plus_zero, 0.4812118250596034474977589134243684231352L);
2980 TEST_c_c (casin, minus_zero, 0.5L, minus_zero, 0.4812118250596034474977589134243684231352L);
2981 TEST_c_c (casin, plus_zero, 1.0L, plus_zero, 0.8813735870195430252326093249797923090282L);
2982 TEST_c_c (casin, minus_zero, 1.0L, minus_zero, 0.8813735870195430252326093249797923090282L);
2983 TEST_c_c (casin, plus_zero, 1.5L, plus_zero, 1.194763217287109304111930828519090523536L);
2984 TEST_c_c (casin, minus_zero, 1.5L, minus_zero, 1.194763217287109304111930828519090523536L);
2985
2986 TEST_c_c (casin, -1.5L, plus_zero, -M_PI_2l, 0.9624236501192068949955178268487368462704L);
2987 TEST_c_c (casin, -1.5L, minus_zero, -M_PI_2l, -0.9624236501192068949955178268487368462704L);
2988 TEST_c_c (casin, -1.0L, plus_zero, -M_PI_2l, plus_zero);
2989 TEST_c_c (casin, -1.0L, minus_zero, -M_PI_2l, minus_zero);
2990 TEST_c_c (casin, -0.5L, plus_zero, -0.5235987755982988730771072305465838140329L, plus_zero);
2991 TEST_c_c (casin, -0.5L, minus_zero, -0.5235987755982988730771072305465838140329L, minus_zero);
2992 TEST_c_c (casin, 0.5L, plus_zero, 0.5235987755982988730771072305465838140329L, plus_zero);
2993 TEST_c_c (casin, 0.5L, minus_zero, 0.5235987755982988730771072305465838140329L, minus_zero);
2994 TEST_c_c (casin, 1.0L, plus_zero, M_PI_2l, plus_zero);
2995 TEST_c_c (casin, 1.0L, minus_zero, M_PI_2l, minus_zero);
2996 TEST_c_c (casin, 1.5L, plus_zero, M_PI_2l, 0.9624236501192068949955178268487368462704L);
2997 TEST_c_c (casin, 1.5L, minus_zero, M_PI_2l, -0.9624236501192068949955178268487368462704L);
2998
cdc1c96f
JM		 2999 TEST_c_c (casin, 0x1p50L, 1.0L, 1.570796326794895731052901991514519103193L, 3.535050620855721078027883819436720218708e1L);
3000 TEST_c_c (casin, 0x1p50L, -1.0L, 1.570796326794895731052901991514519103193L, -3.535050620855721078027883819436720218708e1L);
3001 TEST_c_c (casin, -0x1p50L, 1.0L, -1.570796326794895731052901991514519103193L, 3.535050620855721078027883819436720218708e1L);
3002 TEST_c_c (casin, -0x1p50L, -1.0L, -1.570796326794895731052901991514519103193L, -3.535050620855721078027883819436720218708e1L);
3003 TEST_c_c (casin, 1.0L, 0x1p50L, 8.881784197001252323389053344720723756399e-16L, 3.535050620855721078027883819436759661753e1L);
3004 TEST_c_c (casin, -1.0L, 0x1p50L, -8.881784197001252323389053344720723756399e-16L, 3.535050620855721078027883819436759661753e1L);
3005 TEST_c_c (casin, 1.0L, -0x1p50L, 8.881784197001252323389053344720723756399e-16L, -3.535050620855721078027883819436759661753e1L);
3006 TEST_c_c (casin, -1.0L, -0x1p50L, -8.881784197001252323389053344720723756399e-16L, -3.535050620855721078027883819436759661753e1L);
3007#ifndef TEST_FLOAT
3008 TEST_c_c (casin, 0x1p500L, 1.0L, 1.570796326794896619231321691639751442099L, 3.472667374605326000180332928505464606058e2L);
3009 TEST_c_c (casin, 0x1p500L, -1.0L, 1.570796326794896619231321691639751442099L, -3.472667374605326000180332928505464606058e2L);
3010 TEST_c_c (casin, -0x1p500L, 1.0L, -1.570796326794896619231321691639751442099L, 3.472667374605326000180332928505464606058e2L);
3011 TEST_c_c (casin, -0x1p500L, -1.0L, -1.570796326794896619231321691639751442099L, -3.472667374605326000180332928505464606058e2L);
3012 TEST_c_c (casin, 1.0L, 0x1p500L, 3.054936363499604682051979393213617699789e-151L, 3.472667374605326000180332928505464606058e2L);
3013 TEST_c_c (casin, -1.0L, 0x1p500L, -3.054936363499604682051979393213617699789e-151L, 3.472667374605326000180332928505464606058e2L);
3014 TEST_c_c (casin, 1.0L, -0x1p500L, 3.054936363499604682051979393213617699789e-151L, -3.472667374605326000180332928505464606058e2L);
3015 TEST_c_c (casin, -1.0L, -0x1p500L, -3.054936363499604682051979393213617699789e-151L, -3.472667374605326000180332928505464606058e2L);
3016#endif
3017#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
3018 TEST_c_c (casin, 0x1p5000L, 1.0L, 1.570796326794896619231321691639751442099L, 3.466429049980286492395577839412341016946e3L);
3019 TEST_c_c (casin, 0x1p5000L, -1.0L, 1.570796326794896619231321691639751442099L, -3.466429049980286492395577839412341016946e3L);
3020 TEST_c_c (casin, -0x1p5000L, 1.0L, -1.570796326794896619231321691639751442099L, 3.466429049980286492395577839412341016946e3L);
3021 TEST_c_c (casin, -0x1p5000L, -1.0L, -1.570796326794896619231321691639751442099L, -3.466429049980286492395577839412341016946e3L);
3022 TEST_c_c (casin, 1.0L, 0x1p5000L, 7.079811261048172892385615158694057552948e-1506L, 3.466429049980286492395577839412341016946e3L);
3023 TEST_c_c (casin, -1.0L, 0x1p5000L, -7.079811261048172892385615158694057552948e-1506L, 3.466429049980286492395577839412341016946e3L);
3024 TEST_c_c (casin, 1.0L, -0x1p5000L, 7.079811261048172892385615158694057552948e-1506L, -3.466429049980286492395577839412341016946e3L);
3025 TEST_c_c (casin, -1.0L, -0x1p5000L, -7.079811261048172892385615158694057552948e-1506L, -3.466429049980286492395577839412341016946e3L);
3026#endif
3027
a9708fed
JM		 3028 TEST_c_c (casin, 0x1.fp127L, 0x1.fp127L, 7.853981633974483096156608458198757210493e-1L, 8.973081118419833726837456344608533993585e1L);
3029#ifndef TEST_FLOAT
3030 TEST_c_c (casin, 0x1.fp1023L, 0x1.fp1023L, 7.853981633974483096156608458198757210493e-1L, 7.107906849659093345062145442726115449315e2L);
3031#endif
3032#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
3033 TEST_c_c (casin, 0x1.fp16383L, 0x1.fp16383L, 7.853981633974483096156608458198757210493e-1L, 1.135753137836666928715489992987020363057e4L);
3034#endif
3035
8cf28c5e
JM		 3036 TEST_c_c (casin, 0x1.fp-129L, 1.5L, 1.579176199917649005841160751101628985741e-39L, 1.194763217287109304111930828519090523536L, UNDERFLOW_EXCEPTION_FLOAT);
3037 TEST_c_c (casin, 0x1.fp-129L, -1.5L, 1.579176199917649005841160751101628985741e-39L, -1.194763217287109304111930828519090523536L, UNDERFLOW_EXCEPTION_FLOAT);
3038 TEST_c_c (casin, -0x1.fp-129L, 1.5L, -1.579176199917649005841160751101628985741e-39L, 1.194763217287109304111930828519090523536L, UNDERFLOW_EXCEPTION_FLOAT);
3039 TEST_c_c (casin, -0x1.fp-129L, -1.5L, -1.579176199917649005841160751101628985741e-39L, -1.194763217287109304111930828519090523536L, UNDERFLOW_EXCEPTION_FLOAT);
3040 TEST_c_c (casin, 1.5L, 0x1.fp-129L, 1.570796326794896619231321691639751442096L, 9.624236501192068949955178268487368462704e-1L);
3041 TEST_c_c (casin, -1.5L, 0x1.fp-129L, -1.570796326794896619231321691639751442096L, 9.624236501192068949955178268487368462704e-1L);
3042 TEST_c_c (casin, 1.5L, -0x1.fp-129L, 1.570796326794896619231321691639751442096L, -9.624236501192068949955178268487368462704e-1L);
3043 TEST_c_c (casin, -1.5L, -0x1.fp-129L, -1.570796326794896619231321691639751442096L, -9.624236501192068949955178268487368462704e-1L);
3044#ifndef TEST_FLOAT
3045 TEST_c_c (casin, 0x1.fp-1025L, 1.5L, 2.989196569048182929051881765490354365918e-309L, 1.194763217287109304111930828519090523536L, UNDERFLOW_EXCEPTION_DOUBLE);
3046 TEST_c_c (casin, 0x1.fp-1025L, -1.5L, 2.989196569048182929051881765490354365918e-309L, -1.194763217287109304111930828519090523536L, UNDERFLOW_EXCEPTION_DOUBLE);
3047 TEST_c_c (casin, -0x1.fp-1025L, 1.5L, -2.989196569048182929051881765490354365918e-309L, 1.194763217287109304111930828519090523536L, UNDERFLOW_EXCEPTION_DOUBLE);
3048 TEST_c_c (casin, -0x1.fp-1025L, -1.5L, -2.989196569048182929051881765490354365918e-309L, -1.194763217287109304111930828519090523536L, UNDERFLOW_EXCEPTION_DOUBLE);
3049 TEST_c_c (casin, 1.5L, 0x1.fp-1025L, 1.570796326794896619231321691639751442099L, 9.624236501192068949955178268487368462704e-1L);
3050 TEST_c_c (casin, -1.5L, 0x1.fp-1025L, -1.570796326794896619231321691639751442099L, 9.624236501192068949955178268487368462704e-1L);
3051 TEST_c_c (casin, 1.5L, -0x1.fp-1025L, 1.570796326794896619231321691639751442099L, -9.624236501192068949955178268487368462704e-1L);
3052 TEST_c_c (casin, -1.5L, -0x1.fp-1025L, -1.570796326794896619231321691639751442099L, -9.624236501192068949955178268487368462704e-1L);
3053#endif
3054#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
3055 TEST_c_c (casin, 0x1.fp-16385L, 1.5L, 4.516698239814521372306784062043266700598e-4933L, 1.194763217287109304111930828519090523536L, UNDERFLOW_EXCEPTION);
3056 TEST_c_c (casin, 0x1.fp-16385L, -1.5L, 4.516698239814521372306784062043266700598e-4933L, -1.194763217287109304111930828519090523536L, UNDERFLOW_EXCEPTION);
3057 TEST_c_c (casin, -0x1.fp-16385L, 1.5L, -4.516698239814521372306784062043266700598e-4933L, 1.194763217287109304111930828519090523536L, UNDERFLOW_EXCEPTION);
3058 TEST_c_c (casin, -0x1.fp-16385L, -1.5L, -4.516698239814521372306784062043266700598e-4933L, -1.194763217287109304111930828519090523536L, UNDERFLOW_EXCEPTION);
3059 TEST_c_c (casin, 1.5L, 0x1.fp-16385L, 1.570796326794896619231321691639751442099L, 9.624236501192068949955178268487368462704e-1L);
3060 TEST_c_c (casin, -1.5L, 0x1.fp-16385L, -1.570796326794896619231321691639751442099L, 9.624236501192068949955178268487368462704e-1L);
3061 TEST_c_c (casin, 1.5L, -0x1.fp-16385L, 1.570796326794896619231321691639751442099L, -9.624236501192068949955178268487368462704e-1L);
3062 TEST_c_c (casin, -1.5L, -0x1.fp-16385L, -1.570796326794896619231321691639751442099L, -9.624236501192068949955178268487368462704e-1L);
3063#endif
3064
0a1b2ae6
JM		 3065 TEST_c_c (casin, 0.5L, 1.0L, 3.494390628572132936274118260753699527325e-1L, 9.261330313501824245501244453057873152694e-1L);
3066 TEST_c_c (casin, 0.5L, -1.0L, 3.494390628572132936274118260753699527325e-1L, -9.261330313501824245501244453057873152694e-1L);
3067 TEST_c_c (casin, -0.5L, 1.0L, -3.494390628572132936274118260753699527325e-1L, 9.261330313501824245501244453057873152694e-1L);
3068 TEST_c_c (casin, -0.5L, -1.0L, -3.494390628572132936274118260753699527325e-1L, -9.261330313501824245501244453057873152694e-1L);
3069 TEST_c_c (casin, 1.0L, 0.5L, 8.959074812088902390666567243275770102229e-1L, 7.328576759736452608886724437653071523305e-1L);
3070 TEST_c_c (casin, -1.0L, 0.5L, -8.959074812088902390666567243275770102229e-1L, 7.328576759736452608886724437653071523305e-1L);
3071 TEST_c_c (casin, 1.0L, -0.5L, 8.959074812088902390666567243275770102229e-1L, -7.328576759736452608886724437653071523305e-1L);
3072 TEST_c_c (casin, -1.0L, -0.5L, -8.959074812088902390666567243275770102229e-1L, -7.328576759736452608886724437653071523305e-1L);
3073 TEST_c_c (casin, 0.25L, 1.0L, 1.763024327769669304186785666360901026468e-1L, 8.924633639033482359562124741744951972772e-1L);
3074 TEST_c_c (casin, 0.25L, -1.0L, 1.763024327769669304186785666360901026468e-1L, -8.924633639033482359562124741744951972772e-1L);
3075 TEST_c_c (casin, -0.25L, 1.0L, -1.763024327769669304186785666360901026468e-1L, 8.924633639033482359562124741744951972772e-1L);
3076 TEST_c_c (casin, -0.25L, -1.0L, -1.763024327769669304186785666360901026468e-1L, -8.924633639033482359562124741744951972772e-1L);
3077 TEST_c_c (casin, 1.0L, 0.25L, 1.081751996523816326311037318425097434186L, 5.097911466811016354623559941115413499164e-1L);
3078 TEST_c_c (casin, -1.0L, 0.25L, -1.081751996523816326311037318425097434186L, 5.097911466811016354623559941115413499164e-1L);
3079 TEST_c_c (casin, 1.0L, -0.25L, 1.081751996523816326311037318425097434186L, -5.097911466811016354623559941115413499164e-1L);
3080 TEST_c_c (casin, -1.0L, -0.25L, -1.081751996523816326311037318425097434186L, -5.097911466811016354623559941115413499164e-1L);
3081 TEST_c_c (casin, 0x1.fp-10L, 1.0L, 1.337909359557740912558349531052239112857e-3L, 8.813742198809567991336704287826445879025e-1L);
3082 TEST_c_c (casin, 0x1.fp-10L, -1.0L, 1.337909359557740912558349531052239112857e-3L, -8.813742198809567991336704287826445879025e-1L);
3083 TEST_c_c (casin, -0x1.fp-10L, 1.0L, -1.337909359557740912558349531052239112857e-3L, 8.813742198809567991336704287826445879025e-1L);
3084 TEST_c_c (casin, -0x1.fp-10L, -1.0L, -1.337909359557740912558349531052239112857e-3L, -8.813742198809567991336704287826445879025e-1L);
3085 TEST_c_c (casin, 1.0L, 0x1.fp-10L, 1.527305029163877791518741192097931722508L, 4.350501469856803800217957402220976497152e-2L);
3086 TEST_c_c (casin, -1.0L, 0x1.fp-10L, -1.527305029163877791518741192097931722508L, 4.350501469856803800217957402220976497152e-2L);
3087 TEST_c_c (casin, 1.0L, -0x1.fp-10L, 1.527305029163877791518741192097931722508L, -4.350501469856803800217957402220976497152e-2L);
3088 TEST_c_c (casin, -1.0L, -0x1.fp-10L, -1.527305029163877791518741192097931722508L, -4.350501469856803800217957402220976497152e-2L);
3089 TEST_c_c (casin, 0x1.fp-30L, 1.0L, 1.275929984216518540252717485007112529021e-9L, 8.813735870195430258081932989769495326854e-1L);
3090 TEST_c_c (casin, 0x1.fp-30L, -1.0L, 1.275929984216518540252717485007112529021e-9L, -8.813735870195430258081932989769495326854e-1L);
3091 TEST_c_c (casin, -0x1.fp-30L, 1.0L, -1.275929984216518540252717485007112529021e-9L, 8.813735870195430258081932989769495326854e-1L);
3092 TEST_c_c (casin, -0x1.fp-30L, -1.0L, -1.275929984216518540252717485007112529021e-9L, -8.813735870195430258081932989769495326854e-1L);
3093 TEST_c_c (casin, 1.0L, 0x1.fp-30L, 1.570753848123921942730162693731872690232L, 4.247867098745151888768727039216644758847e-5L);
3094 TEST_c_c (casin, -1.0L, 0x1.fp-30L, -1.570753848123921942730162693731872690232L, 4.247867098745151888768727039216644758847e-5L);
3095 TEST_c_c (casin, 1.0L, -0x1.fp-30L, 1.570753848123921942730162693731872690232L, -4.247867098745151888768727039216644758847e-5L);
3096 TEST_c_c (casin, -1.0L, -0x1.fp-30L, -1.570753848123921942730162693731872690232L, -4.247867098745151888768727039216644758847e-5L);
3097 TEST_c_c (casin, 0x1.fp-100L, 1.0L, 1.080754735021050612990719608916167354321e-30L, 8.813735870195430252326093249797923090282e-1L);
3098 TEST_c_c (casin, 0x1.fp-100L, -1.0L, 1.080754735021050612990719608916167354321e-30L, -8.813735870195430252326093249797923090282e-1L);
3099 TEST_c_c (casin, -0x1.fp-100L, 1.0L, -1.080754735021050612990719608916167354321e-30L, 8.813735870195430252326093249797923090282e-1L);
3100 TEST_c_c (casin, -0x1.fp-100L, -1.0L, -1.080754735021050612990719608916167354321e-30L, -8.813735870195430252326093249797923090282e-1L);
3101 TEST_c_c (casin, 1.0L, 0x1.fp-100L, 1.570796326794895382939283431378862777584L, 1.236292038260260888664514866457202186027e-15L);
3102 TEST_c_c (casin, -1.0L, 0x1.fp-100L, -1.570796326794895382939283431378862777584L, 1.236292038260260888664514866457202186027e-15L);
3103 TEST_c_c (casin, 1.0L, -0x1.fp-100L, 1.570796326794895382939283431378862777584L, -1.236292038260260888664514866457202186027e-15L);
3104 TEST_c_c (casin, -1.0L, -0x1.fp-100L, -1.570796326794895382939283431378862777584L, -1.236292038260260888664514866457202186027e-15L);
3105 TEST_c_c (casin, 0x1.fp-129L, 1.0L, 2.013062564695348242280482517399205554874e-39L, 8.813735870195430252326093249797923090282e-1L, UNDERFLOW_EXCEPTION_FLOAT);
3106 TEST_c_c (casin, 0x1.fp-129L, -1.0L, 2.013062564695348242280482517399205554874e-39L, -8.813735870195430252326093249797923090282e-1L, UNDERFLOW_EXCEPTION_FLOAT);
3107 TEST_c_c (casin, -0x1.fp-129L, 1.0L, -2.013062564695348242280482517399205554874e-39L, 8.813735870195430252326093249797923090282e-1L, UNDERFLOW_EXCEPTION_FLOAT);
3108 TEST_c_c (casin, -0x1.fp-129L, -1.0L, -2.013062564695348242280482517399205554874e-39L, -8.813735870195430252326093249797923090282e-1L, UNDERFLOW_EXCEPTION_FLOAT);
3109 TEST_c_c (casin, 1.0L, 0x1.fp-129L, 1.570796326794896619177965338869929107115L, 5.335635276982233498398987585285818977933e-20L);
3110 TEST_c_c (casin, -1.0L, 0x1.fp-129L, -1.570796326794896619177965338869929107115L, 5.335635276982233498398987585285818977933e-20L);
3111 TEST_c_c (casin, 1.0L, -0x1.fp-129L, 1.570796326794896619177965338869929107115L, -5.335635276982233498398987585285818977933e-20L);
3112 TEST_c_c (casin, -1.0L, -0x1.fp-129L, -1.570796326794896619177965338869929107115L, -5.335635276982233498398987585285818977933e-20L);
3113#ifndef TEST_FLOAT
3114 TEST_c_c (casin, 0x1.fp-1000L, 1.0L, 1.278589251976747242280879285935084814093e-301L, 8.813735870195430252326093249797923090282e-1L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
3115 TEST_c_c (casin, 0x1.fp-1000L, -1.0L, 1.278589251976747242280879285935084814093e-301L, -8.813735870195430252326093249797923090282e-1L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
3116 TEST_c_c (casin, -0x1.fp-1000L, 1.0L, -1.278589251976747242280879285935084814093e-301L, 8.813735870195430252326093249797923090282e-1L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
3117 TEST_c_c (casin, -0x1.fp-1000L, -1.0L, -1.278589251976747242280879285935084814093e-301L, -8.813735870195430252326093249797923090282e-1L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
3118 TEST_c_c (casin, 1.0L, 0x1.fp-1000L, 1.570796326794896619231321691639751442099L, 4.252291453851660175550490409247739011867e-151L);
3119 TEST_c_c (casin, -1.0L, 0x1.fp-1000L, -1.570796326794896619231321691639751442099L, 4.252291453851660175550490409247739011867e-151L);
3120 TEST_c_c (casin, 1.0L, -0x1.fp-1000L, 1.570796326794896619231321691639751442099L, -4.252291453851660175550490409247739011867e-151L);
3121 TEST_c_c (casin, -1.0L, -0x1.fp-1000L, -1.570796326794896619231321691639751442099L, -4.252291453851660175550490409247739011867e-151L);
3122 TEST_c_c (casin, 0x1.fp-1025L, 1.0L, 3.810492908885321743133304375216617626230e-309L, 8.813735870195430252326093249797923090282e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3123 TEST_c_c (casin, 0x1.fp-1025L, -1.0L, 3.810492908885321743133304375216617626230e-309L, -8.813735870195430252326093249797923090282e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3124 TEST_c_c (casin, -0x1.fp-1025L, 1.0L, -3.810492908885321743133304375216617626230e-309L, 8.813735870195430252326093249797923090282e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3125 TEST_c_c (casin, -0x1.fp-1025L, -1.0L, -3.810492908885321743133304375216617626230e-309L, -8.813735870195430252326093249797923090282e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3126 TEST_c_c (casin, 1.0L, 0x1.fp-1025L, 1.570796326794896619231321691639751442099L, 7.340879205566679497036857179189356754017e-155L);
3127 TEST_c_c (casin, -1.0L, 0x1.fp-1025L, -1.570796326794896619231321691639751442099L, 7.340879205566679497036857179189356754017e-155L);
3128 TEST_c_c (casin, 1.0L, -0x1.fp-1025L, 1.570796326794896619231321691639751442099L, -7.340879205566679497036857179189356754017e-155L);
3129 TEST_c_c (casin, -1.0L, -0x1.fp-1025L, -1.570796326794896619231321691639751442099L, -7.340879205566679497036857179189356754017e-155L);
3130#endif
3131#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
3132 TEST_c_c (casin, 0x1.fp-10000L, 1.0L, 6.867047849047171855399183659351043150871e-3011L, 8.813735870195430252326093249797923090282e-1L);
3133 TEST_c_c (casin, 0x1.fp-10000L, -1.0L, 6.867047849047171855399183659351043150871e-3011L, -8.813735870195430252326093249797923090282e-1L);
3134 TEST_c_c (casin, -0x1.fp-10000L, 1.0L, -6.867047849047171855399183659351043150871e-3011L, 8.813735870195430252326093249797923090282e-1L);
3135 TEST_c_c (casin, -0x1.fp-10000L, -1.0L, -6.867047849047171855399183659351043150871e-3011L, -8.813735870195430252326093249797923090282e-1L);
3136 TEST_c_c (casin, 1.0L, 0x1.fp-10000L, 1.570796326794896619231321691639751442099L, 9.854680208706673586644342922051388714633e-1506L);
3137 TEST_c_c (casin, -1.0L, 0x1.fp-10000L, -1.570796326794896619231321691639751442099L, 9.854680208706673586644342922051388714633e-1506L);
3138 TEST_c_c (casin, 1.0L, -0x1.fp-10000L, 1.570796326794896619231321691639751442099L, -9.854680208706673586644342922051388714633e-1506L);
3139 TEST_c_c (casin, -1.0L, -0x1.fp-10000L, -1.570796326794896619231321691639751442099L, -9.854680208706673586644342922051388714633e-1506L);
3140 TEST_c_c (casin, 0x1.fp-16385L, 1.0L, 5.757683115456107044131264955348448954458e-4933L, 8.813735870195430252326093249797923090282e-1L, UNDERFLOW_EXCEPTION);
3141 TEST_c_c (casin, 0x1.fp-16385L, -1.0L, 5.757683115456107044131264955348448954458e-4933L, -8.813735870195430252326093249797923090282e-1L, UNDERFLOW_EXCEPTION);
3142 TEST_c_c (casin, -0x1.fp-16385L, 1.0L, -5.757683115456107044131264955348448954458e-4933L, 8.813735870195430252326093249797923090282e-1L, UNDERFLOW_EXCEPTION);
3143 TEST_c_c (casin, -0x1.fp-16385L, -1.0L, -5.757683115456107044131264955348448954458e-4933L, -8.813735870195430252326093249797923090282e-1L, UNDERFLOW_EXCEPTION);
3144 TEST_c_c (casin, 1.0L, 0x1.fp-16385L, 1.570796326794896619231321691639751442099L, 9.023632056840860275214893047597614177639e-2467L);
3145 TEST_c_c (casin, -1.0L, 0x1.fp-16385L, -1.570796326794896619231321691639751442099L, 9.023632056840860275214893047597614177639e-2467L);
3146 TEST_c_c (casin, 1.0L, -0x1.fp-16385L, 1.570796326794896619231321691639751442099L, -9.023632056840860275214893047597614177639e-2467L);
3147 TEST_c_c (casin, -1.0L, -0x1.fp-16385L, -1.570796326794896619231321691639751442099L, -9.023632056840860275214893047597614177639e-2467L);
3148#endif
3149
4d14f449
JM		 3150 TEST_c_c (casin, 0x1p-23L, 0x1.000002p0L, 8.429369199749229560964789467980644296420e-8L, 8.813736713132400470205730751186547909968e-1L);
3151 TEST_c_c (casin, 0x1p-23L, -0x1.000002p0L, 8.429369199749229560964789467980644296420e-8L, -8.813736713132400470205730751186547909968e-1L);
3152 TEST_c_c (casin, -0x1p-23L, 0x1.000002p0L, -8.429369199749229560964789467980644296420e-8L, 8.813736713132400470205730751186547909968e-1L);
3153 TEST_c_c (casin, -0x1p-23L, -0x1.000002p0L, -8.429369199749229560964789467980644296420e-8L, -8.813736713132400470205730751186547909968e-1L);
3154 TEST_c_c (casin, 0x1.000002p0L, 0x1p-23L, 1.570574114956455764594481054234834678422L, 5.364668491573609633134147164031476452679e-4L);
3155 TEST_c_c (casin, -0x1.000002p0L, 0x1p-23L, -1.570574114956455764594481054234834678422L, 5.364668491573609633134147164031476452679e-4L);
3156 TEST_c_c (casin, 0x1.000002p0L, -0x1p-23L, 1.570574114956455764594481054234834678422L, -5.364668491573609633134147164031476452679e-4L);
3157 TEST_c_c (casin, -0x1.000002p0L, -0x1p-23L, -1.570574114956455764594481054234834678422L, -5.364668491573609633134147164031476452679e-4L);
3158 TEST_c_c (casin, 0x1.fp-129L, 0x1.000002p0L, 2.013062444707472738895109955455676357057e-39L, 8.813736713132375348727889167749389235161e-1L, UNDERFLOW_EXCEPTION_FLOAT);
3159 TEST_c_c (casin, 0x1.fp-129L, -0x1.000002p0L, 2.013062444707472738895109955455676357057e-39L, -8.813736713132375348727889167749389235161e-1L, UNDERFLOW_EXCEPTION_FLOAT);
3160 TEST_c_c (casin, -0x1.fp-129L, 0x1.000002p0L, -2.013062444707472738895109955455676357057e-39L, 8.813736713132375348727889167749389235161e-1L, UNDERFLOW_EXCEPTION_FLOAT);
3161 TEST_c_c (casin, -0x1.fp-129L, -0x1.000002p0L, -2.013062444707472738895109955455676357057e-39L, -8.813736713132375348727889167749389235161e-1L, UNDERFLOW_EXCEPTION_FLOAT);
3162 TEST_c_c (casin, 0x1.000002p0L, 0x1.fp-129L, 1.570796326794896619231321691639751436268L, 4.882812451493617206486388134172712975070e-4L);
3163 TEST_c_c (casin, -0x1.000002p0L, 0x1.fp-129L, -1.570796326794896619231321691639751436268L, 4.882812451493617206486388134172712975070e-4L);
3164 TEST_c_c (casin, 0x1.000002p0L, -0x1.fp-129L, 1.570796326794896619231321691639751436268L, -4.882812451493617206486388134172712975070e-4L);
3165 TEST_c_c (casin, -0x1.000002p0L, -0x1.fp-129L, -1.570796326794896619231321691639751436268L, -4.882812451493617206486388134172712975070e-4L);
3166 TEST_c_c (casin, 0.0L, 0x1.000002p0L, 0.0L, 8.813736713132375348727889167749389235161e-1L);
3167 TEST_c_c (casin, 0.0L, -0x1.000002p0L, 0.0L, -8.813736713132375348727889167749389235161e-1L);
3168 TEST_c_c (casin, -0.0L, 0x1.000002p0L, -0.0L, 8.813736713132375348727889167749389235161e-1L);
3169 TEST_c_c (casin, -0.0L, -0x1.000002p0L, -0.0L, -8.813736713132375348727889167749389235161e-1L);
3170 TEST_c_c (casin, 0x1.000002p0L, 0.0L, 1.570796326794896619231321691639751442099L, 4.882812451493617206486388134172712975070e-4L);
3171 TEST_c_c (casin, -0x1.000002p0L, 0.0L, -1.570796326794896619231321691639751442099L, 4.882812451493617206486388134172712975070e-4L);
3172 TEST_c_c (casin, 0x1.000002p0L, -0.0L, 1.570796326794896619231321691639751442099L, -4.882812451493617206486388134172712975070e-4L);
3173 TEST_c_c (casin, -0x1.000002p0L, -0.0L, -1.570796326794896619231321691639751442099L, -4.882812451493617206486388134172712975070e-4L);
3a7182a1 3174#ifndef TEST_FLOAT
4d14f449
JM		 3175 TEST_c_c (casin, 0x1p-52L, 0x1.0000000000001p0L, 1.570092458683774885078102529858632363236e-16L, 8.813735870195431822418551933572982483664e-1L);
3176 TEST_c_c (casin, 0x1p-52L, -0x1.0000000000001p0L, 1.570092458683774885078102529858632363236e-16L, -8.813735870195431822418551933572982483664e-1L);
3177 TEST_c_c (casin, -0x1p-52L, 0x1.0000000000001p0L, -1.570092458683774885078102529858632363236e-16L, 8.813735870195431822418551933572982483664e-1L);
3178 TEST_c_c (casin, -0x1p-52L, -0x1.0000000000001p0L, -1.570092458683774885078102529858632363236e-16L, -8.813735870195431822418551933572982483664e-1L);
3179 TEST_c_c (casin, 0x1.0000000000001p0L, 0x1p-52L, 1.570796317204594913251280305810847349436L, 2.315303644582684770975188768022139415020e-8L);
3180 TEST_c_c (casin, -0x1.0000000000001p0L, 0x1p-52L, -1.570796317204594913251280305810847349436L, 2.315303644582684770975188768022139415020e-8L);
3181 TEST_c_c (casin, 0x1.0000000000001p0L, -0x1p-52L, 1.570796317204594913251280305810847349436L, -2.315303644582684770975188768022139415020e-8L);
3182 TEST_c_c (casin, -0x1.0000000000001p0L, -0x1p-52L, -1.570796317204594913251280305810847349436L, -2.315303644582684770975188768022139415020e-8L);
3183 TEST_c_c (casin, 0x1.fp-1025L, 0x1.0000000000001p0L, 3.810492908885321320083608113679347200012e-309L, 8.813735870195431822418551933572895326024e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3184 TEST_c_c (casin, 0x1.fp-1025L, -0x1.0000000000001p0L, 3.810492908885321320083608113679347200012e-309L, -8.813735870195431822418551933572895326024e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3185 TEST_c_c (casin, -0x1.fp-1025L, 0x1.0000000000001p0L, -3.810492908885321320083608113679347200012e-309L, 8.813735870195431822418551933572895326024e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3186 TEST_c_c (casin, -0x1.fp-1025L, -0x1.0000000000001p0L, -3.810492908885321320083608113679347200012e-309L, -8.813735870195431822418551933572895326024e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3187 TEST_c_c (casin, 0x1.0000000000001p0L, 0x1.fp-1025L, 1.570796326794896619231321691639751442099L, 2.107342425544701550354780375182800088393e-8L);
3188 TEST_c_c (casin, -0x1.0000000000001p0L, 0x1.fp-1025L, -1.570796326794896619231321691639751442099L, 2.107342425544701550354780375182800088393e-8L);
3189 TEST_c_c (casin, 0x1.0000000000001p0L, -0x1.fp-1025L, 1.570796326794896619231321691639751442099L, -2.107342425544701550354780375182800088393e-8L);
3190 TEST_c_c (casin, -0x1.0000000000001p0L, -0x1.fp-1025L, -1.570796326794896619231321691639751442099L, -2.107342425544701550354780375182800088393e-8L);
3191 TEST_c_c (casin, 0.0L, 0x1.0000000000001p0L, 0.0L, 8.813735870195431822418551933572895326024e-1L);
3192 TEST_c_c (casin, 0.0L, -0x1.0000000000001p0L, 0.0L, -8.813735870195431822418551933572895326024e-1L);
3193 TEST_c_c (casin, -0.0L, 0x1.0000000000001p0L, -0.0L, 8.813735870195431822418551933572895326024e-1L);
3194 TEST_c_c (casin, -0.0L, -0x1.0000000000001p0L, -0.0L, -8.813735870195431822418551933572895326024e-1L);
3195 TEST_c_c (casin, 0x1.0000000000001p0L, 0.0L, 1.570796326794896619231321691639751442099L, 2.107342425544701550354780375182800088393e-8L);
3196 TEST_c_c (casin, -0x1.0000000000001p0L, 0.0L, -1.570796326794896619231321691639751442099L, 2.107342425544701550354780375182800088393e-8L);
3197 TEST_c_c (casin, 0x1.0000000000001p0L, -0.0L, 1.570796326794896619231321691639751442099L, -2.107342425544701550354780375182800088393e-8L);
3198 TEST_c_c (casin, -0x1.0000000000001p0L, -0.0L, -1.570796326794896619231321691639751442099L, -2.107342425544701550354780375182800088393e-8L);
3a7182a1
JM		 3199#endif
3200#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64
4d14f449
JM		 3201 TEST_c_c (casin, 0x1p-63L, 0x1.0000000000000002p0L, 7.666467083416870406778649849746878368519e-20L, 8.813735870195430253092739958139610131001e-1L);
3202 TEST_c_c (casin, 0x1p-63L, -0x1.0000000000000002p0L, 7.666467083416870406778649849746878368519e-20L, -8.813735870195430253092739958139610131001e-1L);
3203 TEST_c_c (casin, -0x1p-63L, 0x1.0000000000000002p0L, -7.666467083416870406778649849746878368519e-20L, 8.813735870195430253092739958139610131001e-1L);
3204 TEST_c_c (casin, -0x1p-63L, -0x1.0000000000000002p0L, -7.666467083416870406778649849746878368519e-20L, -8.813735870195430253092739958139610131001e-1L);
3205 TEST_c_c (casin, 0x1.0000000000000002p0L, 0x1p-63L, 1.570796326582978888921215348380499122131L, 5.116146586219826555037807251857670783420e-10L);
3206 TEST_c_c (casin, -0x1.0000000000000002p0L, 0x1p-63L, -1.570796326582978888921215348380499122131L, 5.116146586219826555037807251857670783420e-10L);
3207 TEST_c_c (casin, 0x1.0000000000000002p0L, -0x1p-63L, 1.570796326582978888921215348380499122131L, -5.116146586219826555037807251857670783420e-10L);
3208 TEST_c_c (casin, -0x1.0000000000000002p0L, -0x1p-63L, -1.570796326582978888921215348380499122131L, -5.116146586219826555037807251857670783420e-10L);
3a7182a1 3209# if LDBL_MIN_EXP <= -16381
4d14f449
JM		 3210 TEST_c_c (casin, 0x1.fp-16385L, 0x1.0000000000000002p0L, 5.757683115456107043819140328235418018963e-4933L, 8.813735870195430253092739958139610130980e-1L, UNDERFLOW_EXCEPTION);
3211 TEST_c_c (casin, 0x1.fp-16385L, -0x1.0000000000000002p0L, 5.757683115456107043819140328235418018963e-4933L, -8.813735870195430253092739958139610130980e-1L, UNDERFLOW_EXCEPTION);
3212 TEST_c_c (casin, -0x1.fp-16385L, 0x1.0000000000000002p0L, -5.757683115456107043819140328235418018963e-4933L, 8.813735870195430253092739958139610130980e-1L, UNDERFLOW_EXCEPTION);
3213 TEST_c_c (casin, -0x1.fp-16385L, -0x1.0000000000000002p0L, -5.757683115456107043819140328235418018963e-4933L, -8.813735870195430253092739958139610130980e-1L, UNDERFLOW_EXCEPTION);
3214 TEST_c_c (casin, 0x1.0000000000000002p0L, 0x1.fp-16385L, 1.570796326794896619231321691639751442099L, 4.656612873077392578082927418388212703712e-10L);
3215 TEST_c_c (casin, -0x1.0000000000000002p0L, 0x1.fp-16385L, -1.570796326794896619231321691639751442099L, 4.656612873077392578082927418388212703712e-10L);
3216 TEST_c_c (casin, 0x1.0000000000000002p0L, -0x1.fp-16385L, 1.570796326794896619231321691639751442099L, -4.656612873077392578082927418388212703712e-10L);
3217 TEST_c_c (casin, -0x1.0000000000000002p0L, -0x1.fp-16385L, -1.570796326794896619231321691639751442099L, -4.656612873077392578082927418388212703712e-10L);
3a7182a1 3218# endif
4d14f449
JM		 3219 TEST_c_c (casin, 0.0L, 0x1.0000000000000002p0L, 0.0L, 8.813735870195430253092739958139610130980e-1L);
3220 TEST_c_c (casin, 0.0L, -0x1.0000000000000002p0L, 0.0L, -8.813735870195430253092739958139610130980e-1L);
3221 TEST_c_c (casin, -0.0L, 0x1.0000000000000002p0L, -0.0L, 8.813735870195430253092739958139610130980e-1L);
3222 TEST_c_c (casin, -0.0L, -0x1.0000000000000002p0L, -0.0L, -8.813735870195430253092739958139610130980e-1L);
3223 TEST_c_c (casin, 0x1.0000000000000002p0L, 0.0L, 1.570796326794896619231321691639751442099L, 4.656612873077392578082927418388212703712e-10L);
3224 TEST_c_c (casin, -0x1.0000000000000002p0L, 0.0L, -1.570796326794896619231321691639751442099L, 4.656612873077392578082927418388212703712e-10L);
3225 TEST_c_c (casin, 0x1.0000000000000002p0L, -0.0L, 1.570796326794896619231321691639751442099L, -4.656612873077392578082927418388212703712e-10L);
3226 TEST_c_c (casin, -0x1.0000000000000002p0L, -0.0L, -1.570796326794896619231321691639751442099L, -4.656612873077392578082927418388212703712e-10L);
3a7182a1
JM		 3227#endif
3228#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106
4d14f449
JM		 3229 TEST_c_c (casin, 0x1p-106L, 0x1.000000000000000000000000008p0L, 8.715763992105246878957416200936726072500e-33L, 8.813735870195430252326093249798097405561e-1L);
3230 TEST_c_c (casin, 0x1p-106L, -0x1.000000000000000000000000008p0L, 8.715763992105246878957416200936726072500e-33L, -8.813735870195430252326093249798097405561e-1L);
3231 TEST_c_c (casin, -0x1p-106L, 0x1.000000000000000000000000008p0L, -8.715763992105246878957416200936726072500e-33L, 8.813735870195430252326093249798097405561e-1L);
3232 TEST_c_c (casin, -0x1p-106L, -0x1.000000000000000000000000008p0L, -8.715763992105246878957416200936726072500e-33L, -8.813735870195430252326093249798097405561e-1L);
3233 TEST_c_c (casin, 0x1.000000000000000000000000008p0L, 0x1p-106L, 1.570796326794896565289107467733682961928L, 2.285028863093221674154232933662774454211e-16L);
3234 TEST_c_c (casin, -0x1.000000000000000000000000008p0L, 0x1p-106L, -1.570796326794896565289107467733682961928L, 2.285028863093221674154232933662774454211e-16L);
3235 TEST_c_c (casin, 0x1.000000000000000000000000008p0L, -0x1p-106L, 1.570796326794896565289107467733682961928L, -2.285028863093221674154232933662774454211e-16L);
3236 TEST_c_c (casin, -0x1.000000000000000000000000008p0L, -0x1p-106L, -1.570796326794896565289107467733682961928L, -2.285028863093221674154232933662774454211e-16L);
3237 TEST_c_c (casin, 0x1.fp-1025L, 0x1.000000000000000000000000008p0L, 3.810492908885321743133304375216570658278e-309L, 8.813735870195430252326093249798097405561e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3238 TEST_c_c (casin, 0x1.fp-1025L, -0x1.000000000000000000000000008p0L, 3.810492908885321743133304375216570658278e-309L, -8.813735870195430252326093249798097405561e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3239 TEST_c_c (casin, -0x1.fp-1025L, 0x1.000000000000000000000000008p0L, -3.810492908885321743133304375216570658278e-309L, 8.813735870195430252326093249798097405561e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3240 TEST_c_c (casin, -0x1.fp-1025L, -0x1.000000000000000000000000008p0L, -3.810492908885321743133304375216570658278e-309L, -8.813735870195430252326093249798097405561e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3241 TEST_c_c (casin, 0x1.000000000000000000000000008p0L, 0x1.fp-1025L, 1.570796326794896619231321691639751442099L, 2.220446049250313080847263336181636063482e-16L);
3242 TEST_c_c (casin, -0x1.000000000000000000000000008p0L, 0x1.fp-1025L, -1.570796326794896619231321691639751442099L, 2.220446049250313080847263336181636063482e-16L);
3243 TEST_c_c (casin, 0x1.000000000000000000000000008p0L, -0x1.fp-1025L, 1.570796326794896619231321691639751442099L, -2.220446049250313080847263336181636063482e-16L);
3244 TEST_c_c (casin, -0x1.000000000000000000000000008p0L, -0x1.fp-1025L, -1.570796326794896619231321691639751442099L, -2.220446049250313080847263336181636063482e-16L);
3245 TEST_c_c (casin, 0.0L, 0x1.000000000000000000000000008p0L, 0.0L, 8.813735870195430252326093249798097405561e-1L);
3246 TEST_c_c (casin, 0.0L, -0x1.000000000000000000000000008p0L, 0.0L, -8.813735870195430252326093249798097405561e-1L);
3247 TEST_c_c (casin, -0.0L, 0x1.000000000000000000000000008p0L, -0.0L, 8.813735870195430252326093249798097405561e-1L);
3248 TEST_c_c (casin, -0.0L, -0x1.000000000000000000000000008p0L, -0.0L, -8.813735870195430252326093249798097405561e-1L);
3249 TEST_c_c (casin, 0x1.000000000000000000000000008p0L, 0.0L, 1.570796326794896619231321691639751442099L, 2.220446049250313080847263336181636063482e-16L);
3250 TEST_c_c (casin, -0x1.000000000000000000000000008p0L, 0.0L, -1.570796326794896619231321691639751442099L, 2.220446049250313080847263336181636063482e-16L);
3251 TEST_c_c (casin, 0x1.000000000000000000000000008p0L, -0.0L, 1.570796326794896619231321691639751442099L, -2.220446049250313080847263336181636063482e-16L);
3252 TEST_c_c (casin, -0x1.000000000000000000000000008p0L, -0.0L, -1.570796326794896619231321691639751442099L, -2.220446049250313080847263336181636063482e-16L);
3a7182a1
JM		 3253#endif
3254#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 113
4d14f449
JM		 3255 TEST_c_c (casin, 0x1p-113L, 0x1.0000000000000000000000000001p0L, 6.809190618832224124185481406981900518193e-35L, 8.813735870195430252326093249797924452120e-1L);
3256 TEST_c_c (casin, 0x1p-113L, -0x1.0000000000000000000000000001p0L, 6.809190618832224124185481406981900518193e-35L, -8.813735870195430252326093249797924452120e-1L);
3257 TEST_c_c (casin, -0x1p-113L, 0x1.0000000000000000000000000001p0L, -6.809190618832224124185481406981900518193e-35L, 8.813735870195430252326093249797924452120e-1L);
3258 TEST_c_c (casin, -0x1p-113L, -0x1.0000000000000000000000000001p0L, -6.809190618832224124185481406981900518193e-35L, -8.813735870195430252326093249797924452120e-1L);
3259 TEST_c_c (casin, 0x1.0000000000000000000000000001p0L, 0x1p-113L, 1.570796326794896614463458507897073960405L, 2.019699255375255198156433710951064632386e-17L);
3260 TEST_c_c (casin, -0x1.0000000000000000000000000001p0L, 0x1p-113L, -1.570796326794896614463458507897073960405L, 2.019699255375255198156433710951064632386e-17L);
3261 TEST_c_c (casin, 0x1.0000000000000000000000000001p0L, -0x1p-113L, 1.570796326794896614463458507897073960405L, -2.019699255375255198156433710951064632386e-17L);
3262 TEST_c_c (casin, -0x1.0000000000000000000000000001p0L, -0x1p-113L, -1.570796326794896614463458507897073960405L, -2.019699255375255198156433710951064632386e-17L);
3263 TEST_c_c (casin, 0x1.fp-16385L, 0x1.0000000000000000000000000001p0L, 5.757683115456107044131264955348448400014e-4933L, 8.813735870195430252326093249797924452120e-1L, UNDERFLOW_EXCEPTION);
3264 TEST_c_c (casin, 0x1.fp-16385L, -0x1.0000000000000000000000000001p0L, 5.757683115456107044131264955348448400014e-4933L, -8.813735870195430252326093249797924452120e-1L, UNDERFLOW_EXCEPTION);
3265 TEST_c_c (casin, -0x1.fp-16385L, 0x1.0000000000000000000000000001p0L, -5.757683115456107044131264955348448400014e-4933L, 8.813735870195430252326093249797924452120e-1L, UNDERFLOW_EXCEPTION);
3266 TEST_c_c (casin, -0x1.fp-16385L, -0x1.0000000000000000000000000001p0L, -5.757683115456107044131264955348448400014e-4933L, -8.813735870195430252326093249797924452120e-1L, UNDERFLOW_EXCEPTION);
3267 TEST_c_c (casin, 0x1.0000000000000000000000000001p0L, 0x1.fp-16385L, 1.570796326794896619231321691639751442099L, 1.962615573354718824241727964954454332780e-17L);
3268 TEST_c_c (casin, -0x1.0000000000000000000000000001p0L, 0x1.fp-16385L, -1.570796326794896619231321691639751442099L, 1.962615573354718824241727964954454332780e-17L);
3269 TEST_c_c (casin, 0x1.0000000000000000000000000001p0L, -0x1.fp-16385L, 1.570796326794896619231321691639751442099L, -1.962615573354718824241727964954454332780e-17L);
3270 TEST_c_c (casin, -0x1.0000000000000000000000000001p0L, -0x1.fp-16385L, -1.570796326794896619231321691639751442099L, -1.962615573354718824241727964954454332780e-17L);
3271 TEST_c_c (casin, 0.0L, 0x1.0000000000000000000000000001p0L, 0.0L, 8.813735870195430252326093249797924452120e-1L);
3272 TEST_c_c (casin, 0.0L, -0x1.0000000000000000000000000001p0L, 0.0L, -8.813735870195430252326093249797924452120e-1L);
3273 TEST_c_c (casin, -0.0L, 0x1.0000000000000000000000000001p0L, -0.0L, 8.813735870195430252326093249797924452120e-1L);
3274 TEST_c_c (casin, -0.0L, -0x1.0000000000000000000000000001p0L, -0.0L, -8.813735870195430252326093249797924452120e-1L);
3275 TEST_c_c (casin, 0x1.0000000000000000000000000001p0L, 0.0L, 1.570796326794896619231321691639751442099L, 1.962615573354718824241727964954454332780e-17L);
3276 TEST_c_c (casin, -0x1.0000000000000000000000000001p0L, 0.0L, -1.570796326794896619231321691639751442099L, 1.962615573354718824241727964954454332780e-17L);
3277 TEST_c_c (casin, 0x1.0000000000000000000000000001p0L, -0.0L, 1.570796326794896619231321691639751442099L, -1.962615573354718824241727964954454332780e-17L);
3278 TEST_c_c (casin, -0x1.0000000000000000000000000001p0L, -0.0L, -1.570796326794896619231321691639751442099L, -1.962615573354718824241727964954454332780e-17L);
3a7182a1
JM		 3279#endif
3280
ccc8cadf
JM		 3281 TEST_c_c (casin, 0x1p-23L, 0x0.ffffffp0L, 8.429369953393598499000760938112968755257e-8L, 8.813735448726963984495965873956465777250e-1L);
3282 TEST_c_c (casin, 0x1p-23L, -0x0.ffffffp0L, 8.429369953393598499000760938112968755257e-8L, -8.813735448726963984495965873956465777250e-1L);
3283 TEST_c_c (casin, -0x1p-23L, 0x0.ffffffp0L, -8.429369953393598499000760938112968755257e-8L, 8.813735448726963984495965873956465777250e-1L);
3284 TEST_c_c (casin, -0x1p-23L, -0x0.ffffffp0L, -8.429369953393598499000760938112968755257e-8L, -8.813735448726963984495965873956465777250e-1L);
3285 TEST_c_c (casin, 0x0.ffffffp0L, 0x1p-23L, 1.570357140408705570520377172865353621698L, 2.714321200917194650737217746780928423385e-4L);
3286 TEST_c_c (casin, -0x0.ffffffp0L, 0x1p-23L, -1.570357140408705570520377172865353621698L, 2.714321200917194650737217746780928423385e-4L);
3287 TEST_c_c (casin, 0x0.ffffffp0L, -0x1p-23L, 1.570357140408705570520377172865353621698L, -2.714321200917194650737217746780928423385e-4L);
3288 TEST_c_c (casin, -0x0.ffffffp0L, -0x1p-23L, -1.570357140408705570520377172865353621698L, -2.714321200917194650737217746780928423385e-4L);
3289 TEST_c_c (casin, 0x1.fp-129L, 0x0.ffffffp0L, 2.013062624689288675911339929224634593425e-39L, 8.813735448726938863015878255140556727969e-1L, UNDERFLOW_EXCEPTION_FLOAT);
3290 TEST_c_c (casin, 0x1.fp-129L, -0x0.ffffffp0L, 2.013062624689288675911339929224634593425e-39L, -8.813735448726938863015878255140556727969e-1L, UNDERFLOW_EXCEPTION_FLOAT);
3291 TEST_c_c (casin, -0x1.fp-129L, 0x0.ffffffp0L, -2.013062624689288675911339929224634593425e-39L, 8.813735448726938863015878255140556727969e-1L, UNDERFLOW_EXCEPTION_FLOAT);
3292 TEST_c_c (casin, -0x1.fp-129L, -0x0.ffffffp0L, -2.013062624689288675911339929224634593425e-39L, -8.813735448726938863015878255140556727969e-1L, UNDERFLOW_EXCEPTION_FLOAT);
3293 TEST_c_c (casin, 0x0.ffffffp0L, 0x1.fp-129L, 1.570451059810180415643718442157112705601L, 8.245504387859737323891843603996428534945e-36L);
3294 TEST_c_c (casin, -0x0.ffffffp0L, 0x1.fp-129L, -1.570451059810180415643718442157112705601L, 8.245504387859737323891843603996428534945e-36L);
3295 TEST_c_c (casin, 0x0.ffffffp0L, -0x1.fp-129L, 1.570451059810180415643718442157112705601L, -8.245504387859737323891843603996428534945e-36L);
3296 TEST_c_c (casin, -0x0.ffffffp0L, -0x1.fp-129L, -1.570451059810180415643718442157112705601L, -8.245504387859737323891843603996428534945e-36L);
3297 TEST_c_c (casin, 0.0L, 0x0.ffffffp0L, 0.0L, 8.813735448726938863015878255140556727969e-1L);
3298 TEST_c_c (casin, 0.0L, -0x0.ffffffp0L, 0.0L, -8.813735448726938863015878255140556727969e-1L);
3299 TEST_c_c (casin, -0.0L, 0x0.ffffffp0L, -0.0L, 8.813735448726938863015878255140556727969e-1L);
3300 TEST_c_c (casin, -0.0L, -0x0.ffffffp0L, -0.0L, -8.813735448726938863015878255140556727969e-1L);
3301 TEST_c_c (casin, 0x0.ffffffp0L, 0.0L, 1.570451059810180415643718442157112705601L, 0.0L);
3302 TEST_c_c (casin, -0x0.ffffffp0L, 0.0L, -1.570451059810180415643718442157112705601L, 0.0L);
3303 TEST_c_c (casin, 0x0.ffffffp0L, -0.0L, 1.570451059810180415643718442157112705601L, -0.0L);
3304 TEST_c_c (casin, -0x0.ffffffp0L, -0.0L, -1.570451059810180415643718442157112705601L, -0.0L);
3305 TEST_c_c (casin, 0x1p-23L, 0.5L, 1.066240299940009780479664302917201696886e-7L, 4.812118250596059896127318386463676808798e-1L);
3306 TEST_c_c (casin, 0x1p-23L, -0.5L, 1.066240299940009780479664302917201696886e-7L, -4.812118250596059896127318386463676808798e-1L);
3307 TEST_c_c (casin, -0x1p-23L, 0.5L, -1.066240299940009780479664302917201696886e-7L, 4.812118250596059896127318386463676808798e-1L);
3308 TEST_c_c (casin, -0x1p-23L, -0.5L, -1.066240299940009780479664302917201696886e-7L, -4.812118250596059896127318386463676808798e-1L);
3309 TEST_c_c (casin, 0.5L, 0x1p-23L, 5.235987755982934033165770729745469098254e-1L, 1.376510308240943236356088341381173571841e-7L);
3310 TEST_c_c (casin, -0.5L, 0x1p-23L, -5.235987755982934033165770729745469098254e-1L, 1.376510308240943236356088341381173571841e-7L);
3311 TEST_c_c (casin, 0.5L, -0x1p-23L, 5.235987755982934033165770729745469098254e-1L, -1.376510308240943236356088341381173571841e-7L);
3312 TEST_c_c (casin, -0.5L, -0x1p-23L, -5.235987755982934033165770729745469098254e-1L, -1.376510308240943236356088341381173571841e-7L);
3313 TEST_c_c (casin, 0x1.fp-129L, 0.5L, 2.546345110742945032959687790021055102355e-39L, 4.812118250596034474977589134243684231352e-1L, UNDERFLOW_EXCEPTION_FLOAT);
3314 TEST_c_c (casin, 0x1.fp-129L, -0.5L, 2.546345110742945032959687790021055102355e-39L, -4.812118250596034474977589134243684231352e-1L, UNDERFLOW_EXCEPTION_FLOAT);
3315 TEST_c_c (casin, -0x1.fp-129L, 0.5L, -2.546345110742945032959687790021055102355e-39L, 4.812118250596034474977589134243684231352e-1L, UNDERFLOW_EXCEPTION_FLOAT);
3316 TEST_c_c (casin, -0x1.fp-129L, -0.5L, -2.546345110742945032959687790021055102355e-39L, -4.812118250596034474977589134243684231352e-1L, UNDERFLOW_EXCEPTION_FLOAT);
3317 TEST_c_c (casin, 0.5L, 0x1.fp-129L, 5.235987755982988730771072305465838140329e-1L, 3.287317402534702257036015056278368274737e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3318 TEST_c_c (casin, -0.5L, 0x1.fp-129L, -5.235987755982988730771072305465838140329e-1L, 3.287317402534702257036015056278368274737e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3319 TEST_c_c (casin, 0.5L, -0x1.fp-129L, 5.235987755982988730771072305465838140329e-1L, -3.287317402534702257036015056278368274737e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3320 TEST_c_c (casin, -0.5L, -0x1.fp-129L, -5.235987755982988730771072305465838140329e-1L, -3.287317402534702257036015056278368274737e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3321 TEST_c_c (casin, 0x1p-23L, 0x1p-23L, 1.192092895507806853113684971258850504935e-7L, 1.192092895507818146886315028596704749235e-7L);
3322 TEST_c_c (casin, 0x1p-23L, -0x1p-23L, 1.192092895507806853113684971258850504935e-7L, -1.192092895507818146886315028596704749235e-7L);
3323 TEST_c_c (casin, -0x1p-23L, 0x1p-23L, -1.192092895507806853113684971258850504935e-7L, 1.192092895507818146886315028596704749235e-7L);
3324 TEST_c_c (casin, -0x1p-23L, -0x1p-23L, -1.192092895507806853113684971258850504935e-7L, -1.192092895507818146886315028596704749235e-7L);
3325 /* Bug 15319: underflow exception may be missing. */
3326 TEST_c_c (casin, 0x1.fp-129L, 0x1p-23L, 2.846900380897707329917933005874691056564e-39L, 1.192092895507809676556842485683592032154e-7L, UNDERFLOW_EXCEPTION_OK_FLOAT);
3327 TEST_c_c (casin, 0x1.fp-129L, -0x1p-23L, 2.846900380897707329917933005874691056564e-39L, -1.192092895507809676556842485683592032154e-7L, UNDERFLOW_EXCEPTION_OK_FLOAT);
3328 TEST_c_c (casin, -0x1.fp-129L, 0x1p-23L, -2.846900380897707329917933005874691056564e-39L, 1.192092895507809676556842485683592032154e-7L, UNDERFLOW_EXCEPTION_OK_FLOAT);
3329 TEST_c_c (casin, -0x1.fp-129L, -0x1p-23L, -2.846900380897707329917933005874691056564e-39L, -1.192092895507809676556842485683592032154e-7L, UNDERFLOW_EXCEPTION_OK_FLOAT);
3330 TEST_c_c (casin, 0x1p-23L, 0x1.fp-129L, 1.192092895507815323443157514352519154304e-7L, 2.846900380897747786805634596726756660388e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3331 TEST_c_c (casin, -0x1p-23L, 0x1.fp-129L, -1.192092895507815323443157514352519154304e-7L, 2.846900380897747786805634596726756660388e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3332 TEST_c_c (casin, 0x1p-23L, -0x1.fp-129L, 1.192092895507815323443157514352519154304e-7L, -2.846900380897747786805634596726756660388e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3333 TEST_c_c (casin, -0x1p-23L, -0x1.fp-129L, -1.192092895507815323443157514352519154304e-7L, -2.846900380897747786805634596726756660388e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3334 TEST_c_c (casin, 0.0L, 0x1p-23L, 0.0L, 1.192092895507809676556842485683592032154e-7L);
3335 TEST_c_c (casin, 0.0L, -0x1p-23L, 0.0L, -1.192092895507809676556842485683592032154e-7L);
3336 TEST_c_c (casin, -0.0L, 0x1p-23L, -0.0L, 1.192092895507809676556842485683592032154e-7L);
3337 TEST_c_c (casin, -0.0L, -0x1p-23L, -0.0L, -1.192092895507809676556842485683592032154e-7L);
3338 TEST_c_c (casin, 0x1p-23L, 0.0L, 1.192092895507815323443157514352519154304e-7L, 0.0L);
3339 TEST_c_c (casin, -0x1p-23L, 0.0L, -1.192092895507815323443157514352519154304e-7L, 0.0L);
3340 TEST_c_c (casin, 0x1p-23L, -0.0L, 1.192092895507815323443157514352519154304e-7L, -0.0L);
3341 TEST_c_c (casin, -0x1p-23L, -0.0L, -1.192092895507815323443157514352519154304e-7L, -0.0L);
3342 TEST_c_c (casin, 0x1.fp-129L, 0x1.fp-129L, 2.846900380897727558361783801085126250967e-39L, 2.846900380897727558361783801085126250967e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3343 TEST_c_c (casin, 0x1.fp-129L, -0x1.fp-129L, 2.846900380897727558361783801085126250967e-39L, -2.846900380897727558361783801085126250967e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3344 TEST_c_c (casin, -0x1.fp-129L, 0x1.fp-129L, -2.846900380897727558361783801085126250967e-39L, 2.846900380897727558361783801085126250967e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3345 TEST_c_c (casin, -0x1.fp-129L, -0x1.fp-129L, -2.846900380897727558361783801085126250967e-39L, -2.846900380897727558361783801085126250967e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3346#ifndef TEST_FLOAT
3347 TEST_c_c (casin, 0x1p-52L, 0x0.fffffffffffff8p0L, 1.570092458683775146551022293016031474627e-16L, 8.813735870195429467279863907910458761820e-1L);
3348 TEST_c_c (casin, 0x1p-52L, -0x0.fffffffffffff8p0L, 1.570092458683775146551022293016031474627e-16L, -8.813735870195429467279863907910458761820e-1L);
3349 TEST_c_c (casin, -0x1p-52L, 0x0.fffffffffffff8p0L, -1.570092458683775146551022293016031474627e-16L, 8.813735870195429467279863907910458761820e-1L);
3350 TEST_c_c (casin, -0x1p-52L, -0x0.fffffffffffff8p0L, -1.570092458683775146551022293016031474627e-16L, -8.813735870195429467279863907910458761820e-1L);
3351 TEST_c_c (casin, 0x0.fffffffffffff8p0L, 0x1p-52L, 1.570796307840326780080580569360500172043L, 1.171456840272878582596796205397918831268e-8L);
3352 TEST_c_c (casin, -0x0.fffffffffffff8p0L, 0x1p-52L, -1.570796307840326780080580569360500172043L, 1.171456840272878582596796205397918831268e-8L);
3353 TEST_c_c (casin, 0x0.fffffffffffff8p0L, -0x1p-52L, 1.570796307840326780080580569360500172043L, -1.171456840272878582596796205397918831268e-8L);
3354 TEST_c_c (casin, -0x0.fffffffffffff8p0L, -0x1p-52L, -1.570796307840326780080580569360500172043L, -1.171456840272878582596796205397918831268e-8L);
3355 TEST_c_c (casin, 0x1.fp-1025L, 0x0.fffffffffffff8p0L, 3.810492908885321954658152505985270452320e-309L, 8.813735870195429467279863907910371604180e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3356 TEST_c_c (casin, 0x1.fp-1025L, -0x0.fffffffffffff8p0L, 3.810492908885321954658152505985270452320e-309L, -8.813735870195429467279863907910371604180e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3357 TEST_c_c (casin, -0x1.fp-1025L, 0x0.fffffffffffff8p0L, -3.810492908885321954658152505985270452320e-309L, 8.813735870195429467279863907910371604180e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3358 TEST_c_c (casin, -0x1.fp-1025L, -0x0.fffffffffffff8p0L, -3.810492908885321954658152505985270452320e-309L, -8.813735870195429467279863907910371604180e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3359 TEST_c_c (casin, 0x0.fffffffffffff8p0L, 0x1.fp-1025L, 1.570796311893735425383665303776316016594L, 3.616396521699973256461764099945789620604e-301L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
3360 TEST_c_c (casin, -0x0.fffffffffffff8p0L, 0x1.fp-1025L, -1.570796311893735425383665303776316016594L, 3.616396521699973256461764099945789620604e-301L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
3361 TEST_c_c (casin, 0x0.fffffffffffff8p0L, -0x1.fp-1025L, 1.570796311893735425383665303776316016594L, -3.616396521699973256461764099945789620604e-301L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
3362 TEST_c_c (casin, -0x0.fffffffffffff8p0L, -0x1.fp-1025L, -1.570796311893735425383665303776316016594L, -3.616396521699973256461764099945789620604e-301L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
3363 TEST_c_c (casin, 0.0L, 0x0.fffffffffffff8p0L, 0.0L, 8.813735870195429467279863907910371604180e-1L);
3364 TEST_c_c (casin, 0.0L, -0x0.fffffffffffff8p0L, 0.0L, -8.813735870195429467279863907910371604180e-1L);
3365 TEST_c_c (casin, -0.0L, 0x0.fffffffffffff8p0L, -0.0L, 8.813735870195429467279863907910371604180e-1L);
3366 TEST_c_c (casin, -0.0L, -0x0.fffffffffffff8p0L, -0.0L, -8.813735870195429467279863907910371604180e-1L);
3367 TEST_c_c (casin, 0x0.fffffffffffff8p0L, 0.0L, 1.570796311893735425383665303776316016594L, 0.0L);
3368 TEST_c_c (casin, -0x0.fffffffffffff8p0L, 0.0L, -1.570796311893735425383665303776316016594L, 0.0L);
3369 TEST_c_c (casin, 0x0.fffffffffffff8p0L, -0.0L, 1.570796311893735425383665303776316016594L, -0.0L);
3370 TEST_c_c (casin, -0x0.fffffffffffff8p0L, -0.0L, -1.570796311893735425383665303776316016594L, -0.0L);
3371#endif
3372 TEST_c_c (casin, 0x1p-52L, 0.5L, 1.986027322597818397661816253158024383707e-16L, 4.812118250596034474977589134243772428682e-1L);
3373 TEST_c_c (casin, 0x1p-52L, -0.5L, 1.986027322597818397661816253158024383707e-16L, -4.812118250596034474977589134243772428682e-1L);
3374 TEST_c_c (casin, -0x1p-52L, 0.5L, -1.986027322597818397661816253158024383707e-16L, 4.812118250596034474977589134243772428682e-1L);
3375 TEST_c_c (casin, -0x1p-52L, -0.5L, -1.986027322597818397661816253158024383707e-16L, -4.812118250596034474977589134243772428682e-1L);
3376 TEST_c_c (casin, 0.5L, 0x1p-52L, 5.235987755982988730771072305465648369889e-1L, 2.563950248511418570403591756798643804971e-16L);
3377 TEST_c_c (casin, -0.5L, 0x1p-52L, -5.235987755982988730771072305465648369889e-1L, 2.563950248511418570403591756798643804971e-16L);
3378 TEST_c_c (casin, 0.5L, -0x1p-52L, 5.235987755982988730771072305465648369889e-1L, -2.563950248511418570403591756798643804971e-16L);
3379 TEST_c_c (casin, -0.5L, -0x1p-52L, -5.235987755982988730771072305465648369889e-1L, -2.563950248511418570403591756798643804971e-16L);
3380#ifndef TEST_FLOAT
3381 TEST_c_c (casin, 0x1.fp-1025L, 0.5L, 4.819934639999230680322935210539402497827e-309L, 4.812118250596034474977589134243684231352e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3382 TEST_c_c (casin, 0x1.fp-1025L, -0.5L, 4.819934639999230680322935210539402497827e-309L, -4.812118250596034474977589134243684231352e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3383 TEST_c_c (casin, -0x1.fp-1025L, 0.5L, -4.819934639999230680322935210539402497827e-309L, 4.812118250596034474977589134243684231352e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3384 TEST_c_c (casin, -0x1.fp-1025L, -0.5L, -4.819934639999230680322935210539402497827e-309L, -4.812118250596034474977589134243684231352e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3385 TEST_c_c (casin, 0.5L, 0x1.fp-1025L, 5.235987755982988730771072305465838140329e-1L, 6.222508863508420569166420770843207333493e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3386 TEST_c_c (casin, -0.5L, 0x1.fp-1025L, -5.235987755982988730771072305465838140329e-1L, 6.222508863508420569166420770843207333493e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3387 TEST_c_c (casin, 0.5L, -0x1.fp-1025L, 5.235987755982988730771072305465838140329e-1L, -6.222508863508420569166420770843207333493e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3388 TEST_c_c (casin, -0.5L, -0x1.fp-1025L, -5.235987755982988730771072305465838140329e-1L, -6.222508863508420569166420770843207333493e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3389#endif
3390 TEST_c_c (casin, 0x1p-52L, 0x1p-52L, 2.220446049250313080847263336181604132852e-16L, 2.220446049250313080847263336181677117148e-16L);
3391 TEST_c_c (casin, 0x1p-52L, -0x1p-52L, 2.220446049250313080847263336181604132852e-16L, -2.220446049250313080847263336181677117148e-16L);
3392 TEST_c_c (casin, -0x1p-52L, 0x1p-52L, -2.220446049250313080847263336181604132852e-16L, 2.220446049250313080847263336181677117148e-16L);
3393 TEST_c_c (casin, -0x1p-52L, -0x1p-52L, -2.220446049250313080847263336181604132852e-16L, -2.220446049250313080847263336181677117148e-16L);
3394#ifndef TEST_FLOAT
3395 /* Bug 15319: underflow exception may be missing. */
3396 TEST_c_c (casin, 0x1.fp-1025L, 0x1p-52L, 5.388850751072128349671657362289283247603e-309L, 2.220446049250313080847263336181622378926e-16L, UNDERFLOW_EXCEPTION_OK_DOUBLE);
3397 TEST_c_c (casin, 0x1.fp-1025L, -0x1p-52L, 5.388850751072128349671657362289283247603e-309L, -2.220446049250313080847263336181622378926e-16L, UNDERFLOW_EXCEPTION_OK_DOUBLE);
3398 TEST_c_c (casin, -0x1.fp-1025L, 0x1p-52L, -5.388850751072128349671657362289283247603e-309L, 2.220446049250313080847263336181622378926e-16L, UNDERFLOW_EXCEPTION_OK_DOUBLE);
3399 TEST_c_c (casin, -0x1.fp-1025L, -0x1p-52L, -5.388850751072128349671657362289283247603e-309L, -2.220446049250313080847263336181622378926e-16L, UNDERFLOW_EXCEPTION_OK_DOUBLE);
3400 TEST_c_c (casin, 0x1p-52L, 0x1.fp-1025L, 2.220446049250313080847263336181658871074e-16L, 5.388850751072128349671657362289548938458e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3401 TEST_c_c (casin, -0x1p-52L, 0x1.fp-1025L, -2.220446049250313080847263336181658871074e-16L, 5.388850751072128349671657362289548938458e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3402 TEST_c_c (casin, 0x1p-52L, -0x1.fp-1025L, 2.220446049250313080847263336181658871074e-16L, -5.388850751072128349671657362289548938458e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3403 TEST_c_c (casin, -0x1p-52L, -0x1.fp-1025L, -2.220446049250313080847263336181658871074e-16L, -5.388850751072128349671657362289548938458e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3404#endif
3405 TEST_c_c (casin, 0.0L, 0x1p-52L, 0.0L, 2.220446049250313080847263336181622378926e-16L);
3406 TEST_c_c (casin, 0.0L, -0x1p-52L, 0.0L, -2.220446049250313080847263336181622378926e-16L);
3407 TEST_c_c (casin, -0.0L, 0x1p-52L, -0.0L, 2.220446049250313080847263336181622378926e-16L);
3408 TEST_c_c (casin, -0.0L, -0x1p-52L, -0.0L, -2.220446049250313080847263336181622378926e-16L);
3409 TEST_c_c (casin, 0x1p-52L, 0.0L, 2.220446049250313080847263336181658871074e-16L, 0.0L);
3410 TEST_c_c (casin, -0x1p-52L, 0.0L, -2.220446049250313080847263336181658871074e-16L, 0.0L);
3411 TEST_c_c (casin, 0x1p-52L, -0.0L, 2.220446049250313080847263336181658871074e-16L, -0.0L);
3412 TEST_c_c (casin, -0x1p-52L, -0.0L, -2.220446049250313080847263336181658871074e-16L, -0.0L);
3413#ifndef TEST_FLOAT
3414 TEST_c_c (casin, 0x1.fp-1025L, 0x1.fp-1025L, 5.388850751072128349671657362289416093031e-309L, 5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3415 TEST_c_c (casin, 0x1.fp-1025L, -0x1.fp-1025L, 5.388850751072128349671657362289416093031e-309L, -5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3416 TEST_c_c (casin, -0x1.fp-1025L, 0x1.fp-1025L, -5.388850751072128349671657362289416093031e-309L, 5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3417 TEST_c_c (casin, -0x1.fp-1025L, -0x1.fp-1025L, -5.388850751072128349671657362289416093031e-309L, -5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3418#endif
3419#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64
3420 TEST_c_c (casin, 0x1p-63L, 0x0.ffffffffffffffffp0L, 7.666467083416870407402049869781566856442e-20L, 8.813735870195430251942769895627079569937e-1L);
3421 TEST_c_c (casin, 0x1p-63L, -0x0.ffffffffffffffffp0L, 7.666467083416870407402049869781566856442e-20L, -8.813735870195430251942769895627079569937e-1L);
3422 TEST_c_c (casin, -0x1p-63L, 0x0.ffffffffffffffffp0L, -7.666467083416870407402049869781566856442e-20L, 8.813735870195430251942769895627079569937e-1L);
3423 TEST_c_c (casin, -0x1p-63L, -0x0.ffffffffffffffffp0L, -7.666467083416870407402049869781566856442e-20L, -8.813735870195430251942769895627079569937e-1L);
3424 TEST_c_c (casin, 0x0.ffffffffffffffffp0L, 0x1p-63L, 1.570796326376055842114524927965556247908L, 2.588578361325995866221775673638805081337e-10L);
3425 TEST_c_c (casin, -0x0.ffffffffffffffffp0L, 0x1p-63L, -1.570796326376055842114524927965556247908L, 2.588578361325995866221775673638805081337e-10L);
3426 TEST_c_c (casin, 0x0.ffffffffffffffffp0L, -0x1p-63L, 1.570796326376055842114524927965556247908L, -2.588578361325995866221775673638805081337e-10L);
3427 TEST_c_c (casin, -0x0.ffffffffffffffffp0L, -0x1p-63L, -1.570796326376055842114524927965556247908L, -2.588578361325995866221775673638805081337e-10L);
3428# if LDBL_MIN_EXP <= -16381
3429 TEST_c_c (casin, 0x1.fp-16385L, 0x0.ffffffffffffffffp0L, 5.757683115456107044287327268904964422212e-4933L, 8.813735870195430251942769895627079569917e-1L, UNDERFLOW_EXCEPTION);
3430 TEST_c_c (casin, 0x1.fp-16385L, -0x0.ffffffffffffffffp0L, 5.757683115456107044287327268904964422212e-4933L, -8.813735870195430251942769895627079569917e-1L, UNDERFLOW_EXCEPTION);
3431 TEST_c_c (casin, -0x1.fp-16385L, 0x0.ffffffffffffffffp0L, -5.757683115456107044287327268904964422212e-4933L, 8.813735870195430251942769895627079569917e-1L, UNDERFLOW_EXCEPTION);
3432 TEST_c_c (casin, -0x1.fp-16385L, -0x0.ffffffffffffffffp0L, -5.757683115456107044287327268904964422212e-4933L, -8.813735870195430251942769895627079569917e-1L, UNDERFLOW_EXCEPTION);
3433 TEST_c_c (casin, 0x0.ffffffffffffffffp0L, 0x1.fp-16385L, 1.570796326465624365239962068302568888898L, 2.472906068161537187835415298076415423459e-4923L);
3434 TEST_c_c (casin, -0x0.ffffffffffffffffp0L, 0x1.fp-16385L, -1.570796326465624365239962068302568888898L, 2.472906068161537187835415298076415423459e-4923L);
3435 TEST_c_c (casin, 0x0.ffffffffffffffffp0L, -0x1.fp-16385L, 1.570796326465624365239962068302568888898L, -2.472906068161537187835415298076415423459e-4923L);
3436 TEST_c_c (casin, -0x0.ffffffffffffffffp0L, -0x1.fp-16385L, -1.570796326465624365239962068302568888898L, -2.472906068161537187835415298076415423459e-4923L);
3437# endif
3438 TEST_c_c (casin, 0.0L, 0x0.ffffffffffffffffp0L, 0.0L, 8.813735870195430251942769895627079569917e-1L);
3439 TEST_c_c (casin, 0.0L, -0x0.ffffffffffffffffp0L, 0.0L, -8.813735870195430251942769895627079569917e-1L);
3440 TEST_c_c (casin, -0.0L, 0x0.ffffffffffffffffp0L, -0.0L, 8.813735870195430251942769895627079569917e-1L);
3441 TEST_c_c (casin, -0.0L, -0x0.ffffffffffffffffp0L, -0.0L, -8.813735870195430251942769895627079569917e-1L);
3442 TEST_c_c (casin, 0x0.ffffffffffffffffp0L, 0.0L, 1.570796326465624365239962068302568888898L, 0.0L);
3443 TEST_c_c (casin, -0x0.ffffffffffffffffp0L, 0.0L, -1.570796326465624365239962068302568888898L, 0.0L);
3444 TEST_c_c (casin, 0x0.ffffffffffffffffp0L, -0.0L, 1.570796326465624365239962068302568888898L, -0.0L);
3445 TEST_c_c (casin, -0x0.ffffffffffffffffp0L, -0.0L, -1.570796326465624365239962068302568888898L, -0.0L);
3446#endif
3447 TEST_c_c (casin, 0x1p-63L, 0.5L, 9.697399036122160144833087173623140436413e-20L, 4.812118250596034474977589134243684231373e-1L);
3448 TEST_c_c (casin, 0x1p-63L, -0.5L, 9.697399036122160144833087173623140436413e-20L, -4.812118250596034474977589134243684231373e-1L);
3449 TEST_c_c (casin, -0x1p-63L, 0.5L, -9.697399036122160144833087173623140436413e-20L, 4.812118250596034474977589134243684231373e-1L);
3450 TEST_c_c (casin, -0x1p-63L, -0.5L, -9.697399036122160144833087173623140436413e-20L, -4.812118250596034474977589134243684231373e-1L);
3451 TEST_c_c (casin, 0.5L, 0x1p-63L, 5.235987755982988730771072305465838140283e-1L, 1.251928832280966098829878787499365228659e-19L);
3452 TEST_c_c (casin, -0.5L, 0x1p-63L, -5.235987755982988730771072305465838140283e-1L, 1.251928832280966098829878787499365228659e-19L);
3453 TEST_c_c (casin, 0.5L, -0x1p-63L, 5.235987755982988730771072305465838140283e-1L, -1.251928832280966098829878787499365228659e-19L);
3454 TEST_c_c (casin, -0.5L, -0x1p-63L, -5.235987755982988730771072305465838140283e-1L, -1.251928832280966098829878787499365228659e-19L);
3455#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
3456 TEST_c_c (casin, 0x1.fp-16385L, 0.5L, 7.282957076134209141226696333885150260319e-4933L, 4.812118250596034474977589134243684231352e-1L, UNDERFLOW_EXCEPTION);
3457 TEST_c_c (casin, 0x1.fp-16385L, -0.5L, 7.282957076134209141226696333885150260319e-4933L, -4.812118250596034474977589134243684231352e-1L, UNDERFLOW_EXCEPTION);
3458 TEST_c_c (casin, -0x1.fp-16385L, 0.5L, -7.282957076134209141226696333885150260319e-4933L, 4.812118250596034474977589134243684231352e-1L, UNDERFLOW_EXCEPTION);
3459 TEST_c_c (casin, -0x1.fp-16385L, -0.5L, -7.282957076134209141226696333885150260319e-4933L, -4.812118250596034474977589134243684231352e-1L, UNDERFLOW_EXCEPTION);
3460 TEST_c_c (casin, 0.5L, 0x1.fp-16385L, 5.235987755982988730771072305465838140329e-1L, 9.402257155670418112159334875199821342890e-4933L, UNDERFLOW_EXCEPTION);
3461 TEST_c_c (casin, -0.5L, 0x1.fp-16385L, -5.235987755982988730771072305465838140329e-1L, 9.402257155670418112159334875199821342890e-4933L, UNDERFLOW_EXCEPTION);
3462 TEST_c_c (casin, 0.5L, -0x1.fp-16385L, 5.235987755982988730771072305465838140329e-1L, -9.402257155670418112159334875199821342890e-4933L, UNDERFLOW_EXCEPTION);
3463 TEST_c_c (casin, -0.5L, -0x1.fp-16385L, -5.235987755982988730771072305465838140329e-1L, -9.402257155670418112159334875199821342890e-4933L, UNDERFLOW_EXCEPTION);
3464#endif
3465 TEST_c_c (casin, 0x1p-63L, 0x1p-63L, 1.084202172485504434007452800869941711422e-19L, 1.084202172485504434007452800869941711430e-19L);
3466 TEST_c_c (casin, 0x1p-63L, -0x1p-63L, 1.084202172485504434007452800869941711422e-19L, -1.084202172485504434007452800869941711430e-19L);
3467 TEST_c_c (casin, -0x1p-63L, 0x1p-63L, -1.084202172485504434007452800869941711422e-19L, 1.084202172485504434007452800869941711430e-19L);
3468 TEST_c_c (casin, -0x1p-63L, -0x1p-63L, -1.084202172485504434007452800869941711422e-19L, -1.084202172485504434007452800869941711430e-19L);
3469#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
3470 TEST_c_c (casin, 0x1.fp-16385L, 0x1p-63L, 8.142593549724601460479922838826119584369e-4933L, 1.084202172485504434007452800869941711424e-19L, UNDERFLOW_EXCEPTION);
3471 TEST_c_c (casin, 0x1.fp-16385L, -0x1p-63L, 8.142593549724601460479922838826119584369e-4933L, -1.084202172485504434007452800869941711424e-19L, UNDERFLOW_EXCEPTION);
3472 TEST_c_c (casin, -0x1.fp-16385L, 0x1p-63L, -8.142593549724601460479922838826119584369e-4933L, 1.084202172485504434007452800869941711424e-19L, UNDERFLOW_EXCEPTION);
3473 TEST_c_c (casin, -0x1.fp-16385L, -0x1p-63L, -8.142593549724601460479922838826119584369e-4933L, -1.084202172485504434007452800869941711424e-19L, UNDERFLOW_EXCEPTION);
3474 TEST_c_c (casin, 0x1p-63L, 0x1.fp-16385L, 1.084202172485504434007452800869941711428e-19L, 8.142593549724601460479922838826119584465e-4933L, UNDERFLOW_EXCEPTION);
3475 TEST_c_c (casin, -0x1p-63L, 0x1.fp-16385L, -1.084202172485504434007452800869941711428e-19L, 8.142593549724601460479922838826119584465e-4933L, UNDERFLOW_EXCEPTION);
3476 TEST_c_c (casin, 0x1p-63L, -0x1.fp-16385L, 1.084202172485504434007452800869941711428e-19L, -8.142593549724601460479922838826119584465e-4933L, UNDERFLOW_EXCEPTION);
3477 TEST_c_c (casin, -0x1p-63L, -0x1.fp-16385L, -1.084202172485504434007452800869941711428e-19L, -8.142593549724601460479922838826119584465e-4933L, UNDERFLOW_EXCEPTION);
3478#endif
3479 TEST_c_c (casin, 0.0L, 0x1p-63L, 0.0L, 1.084202172485504434007452800869941711424e-19L);
3480 TEST_c_c (casin, 0.0L, -0x1p-63L, 0.0L, -1.084202172485504434007452800869941711424e-19L);
3481 TEST_c_c (casin, -0.0L, 0x1p-63L, -0.0L, 1.084202172485504434007452800869941711424e-19L);
3482 TEST_c_c (casin, -0.0L, -0x1p-63L, -0.0L, -1.084202172485504434007452800869941711424e-19L);
3483 TEST_c_c (casin, 0x1p-63L, 0.0L, 1.084202172485504434007452800869941711428e-19L, 0.0L);
3484 TEST_c_c (casin, -0x1p-63L, 0.0L, -1.084202172485504434007452800869941711428e-19L, 0.0L);
3485 TEST_c_c (casin, 0x1p-63L, -0.0L, 1.084202172485504434007452800869941711428e-19L, -0.0L);
3486 TEST_c_c (casin, -0x1p-63L, -0.0L, -1.084202172485504434007452800869941711428e-19L, -0.0L);
3487#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
3488 TEST_c_c (casin, 0x1.fp-16385L, 0x1.fp-16385L, 8.142593549724601460479922838826119584417e-4933L, 8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
3489 TEST_c_c (casin, 0x1.fp-16385L, -0x1.fp-16385L, 8.142593549724601460479922838826119584417e-4933L, -8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
3490 TEST_c_c (casin, -0x1.fp-16385L, 0x1.fp-16385L, -8.142593549724601460479922838826119584417e-4933L, 8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
3491 TEST_c_c (casin, -0x1.fp-16385L, -0x1.fp-16385L, -8.142593549724601460479922838826119584417e-4933L, -8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
3492#endif
3493#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106
3494 TEST_c_c (casin, 0x1p-105L, 0x0.ffffffffffffffffffffffffffcp0L, 1.743152798421049375791483240187377443526e-32L, 8.813735870195430252326093249797835932642e-1L);
3495 TEST_c_c (casin, 0x1p-105L, -0x0.ffffffffffffffffffffffffffcp0L, 1.743152798421049375791483240187377443526e-32L, -8.813735870195430252326093249797835932642e-1L);
3496 TEST_c_c (casin, -0x1p-105L, 0x0.ffffffffffffffffffffffffffcp0L, -1.743152798421049375791483240187377443526e-32L, 8.813735870195430252326093249797835932642e-1L);
3497 TEST_c_c (casin, -0x1p-105L, -0x0.ffffffffffffffffffffffffffcp0L, -1.743152798421049375791483240187377443526e-32L, -8.813735870195430252326093249797835932642e-1L);
3498 TEST_c_c (casin, 0x0.ffffffffffffffffffffffffffcp0L, 0x1p-105L, 1.570796326794896419512475791677915736035L, 1.234330349600789959989661887846005659983e-16L);
3499 TEST_c_c (casin, -0x0.ffffffffffffffffffffffffffcp0L, 0x1p-105L, -1.570796326794896419512475791677915736035L, 1.234330349600789959989661887846005659983e-16L);
3500 TEST_c_c (casin, 0x0.ffffffffffffffffffffffffffcp0L, -0x1p-105L, 1.570796326794896419512475791677915736035L, -1.234330349600789959989661887846005659983e-16L);
3501 TEST_c_c (casin, -0x0.ffffffffffffffffffffffffffcp0L, -0x1p-105L, -1.570796326794896419512475791677915736035L, -1.234330349600789959989661887846005659983e-16L);
3502 TEST_c_c (casin, 0x1.fp-1025L, 0x0.ffffffffffffffffffffffffffcp0L, 3.810492908885321743133304375216641110205e-309L, 8.813735870195430252326093249797835932642e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3503 TEST_c_c (casin, 0x1.fp-1025L, -0x0.ffffffffffffffffffffffffffcp0L, 3.810492908885321743133304375216641110205e-309L, -8.813735870195430252326093249797835932642e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3504 TEST_c_c (casin, -0x1.fp-1025L, 0x0.ffffffffffffffffffffffffffcp0L, -3.810492908885321743133304375216641110205e-309L, 8.813735870195430252326093249797835932642e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3505 TEST_c_c (casin, -0x1.fp-1025L, -0x0.ffffffffffffffffffffffffffcp0L, -3.810492908885321743133304375216641110205e-309L, -8.813735870195430252326093249797835932642e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
3506 TEST_c_c (casin, 0x0.ffffffffffffffffffffffffffcp0L, 0x1.fp-1025L, 1.570796326794896462222075823262245502760L, 3.432186888910770473784103112009399360940e-293L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
3507 TEST_c_c (casin, -0x0.ffffffffffffffffffffffffffcp0L, 0x1.fp-1025L, -1.570796326794896462222075823262245502760L, 3.432186888910770473784103112009399360940e-293L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
3508 TEST_c_c (casin, 0x0.ffffffffffffffffffffffffffcp0L, -0x1.fp-1025L, 1.570796326794896462222075823262245502760L, -3.432186888910770473784103112009399360940e-293L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
3509 TEST_c_c (casin, -0x0.ffffffffffffffffffffffffffcp0L, -0x1.fp-1025L, -1.570796326794896462222075823262245502760L, -3.432186888910770473784103112009399360940e-293L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
3510 TEST_c_c (casin, 0.0L, 0x0.ffffffffffffffffffffffffffcp0L, 0.0L, 8.813735870195430252326093249797835932642e-1L);
3511 TEST_c_c (casin, 0.0L, -0x0.ffffffffffffffffffffffffffcp0L, 0.0L, -8.813735870195430252326093249797835932642e-1L);
3512 TEST_c_c (casin, -0.0L, 0x0.ffffffffffffffffffffffffffcp0L, -0.0L, 8.813735870195430252326093249797835932642e-1L);
3513 TEST_c_c (casin, -0.0L, -0x0.ffffffffffffffffffffffffffcp0L, -0.0L, -8.813735870195430252326093249797835932642e-1L);
3514 TEST_c_c (casin, 0x0.ffffffffffffffffffffffffffcp0L, 0.0L, 1.570796326794896462222075823262245502760L, 0.0L);
3515 TEST_c_c (casin, -0x0.ffffffffffffffffffffffffffcp0L, 0.0L, -1.570796326794896462222075823262245502760L, 0.0L);
3516 TEST_c_c (casin, 0x0.ffffffffffffffffffffffffffcp0L, -0.0L, 1.570796326794896462222075823262245502760L, -0.0L);
3517 TEST_c_c (casin, -0x0.ffffffffffffffffffffffffffcp0L, -0.0L, -1.570796326794896462222075823262245502760L, -0.0L);
3518#endif
3519 TEST_c_c (casin, 0x1p-105L, 0.5L, 2.204933261082751447436996198490110245167e-32L, 4.812118250596034474977589134243684231352e-1L);
3520 TEST_c_c (casin, 0x1p-105L, -0.5L, 2.204933261082751447436996198490110245167e-32L, -4.812118250596034474977589134243684231352e-1L);
3521 TEST_c_c (casin, -0x1p-105L, 0.5L, -2.204933261082751447436996198490110245167e-32L, 4.812118250596034474977589134243684231352e-1L);
3522 TEST_c_c (casin, -0x1p-105L, -0.5L, -2.204933261082751447436996198490110245167e-32L, -4.812118250596034474977589134243684231352e-1L);
3523 TEST_c_c (casin, 0.5L, 0x1p-105L, 5.235987755982988730771072305465838140329e-1L, 2.846556599890768890940941645338546615370e-32L);
3524 TEST_c_c (casin, -0.5L, 0x1p-105L, -5.235987755982988730771072305465838140329e-1L, 2.846556599890768890940941645338546615370e-32L);
3525 TEST_c_c (casin, 0.5L, -0x1p-105L, 5.235987755982988730771072305465838140329e-1L, -2.846556599890768890940941645338546615370e-32L);
3526 TEST_c_c (casin, -0.5L, -0x1p-105L, -5.235987755982988730771072305465838140329e-1L, -2.846556599890768890940941645338546615370e-32L);
3527 TEST_c_c (casin, 0x1p-105L, 0x1p-105L, 2.465190328815661891911651766508706967729e-32L, 2.465190328815661891911651766508706967729e-32L);
3528 TEST_c_c (casin, 0x1p-105L, -0x1p-105L, 2.465190328815661891911651766508706967729e-32L, -2.465190328815661891911651766508706967729e-32L);
3529 TEST_c_c (casin, -0x1p-105L, 0x1p-105L, -2.465190328815661891911651766508706967729e-32L, 2.465190328815661891911651766508706967729e-32L);
3530 TEST_c_c (casin, -0x1p-105L, -0x1p-105L, -2.465190328815661891911651766508706967729e-32L, -2.465190328815661891911651766508706967729e-32L);
3531#ifndef TEST_FLOAT
3532 /* Bug 15319: underflow exception may be missing. */
3533 TEST_c_c (casin, 0x1.fp-1025L, 0x1p-105L, 5.388850751072128349671657362289416093031e-309L, 2.465190328815661891911651766508706967729e-32L, UNDERFLOW_EXCEPTION_OK_DOUBLE);
3534 TEST_c_c (casin, 0x1.fp-1025L, -0x1p-105L, 5.388850751072128349671657362289416093031e-309L, -2.465190328815661891911651766508706967729e-32L, UNDERFLOW_EXCEPTION_OK_DOUBLE);
3535 TEST_c_c (casin, -0x1.fp-1025L, 0x1p-105L, -5.388850751072128349671657362289416093031e-309L, 2.465190328815661891911651766508706967729e-32L, UNDERFLOW_EXCEPTION_OK_DOUBLE);
3536 TEST_c_c (casin, -0x1.fp-1025L, -0x1p-105L, -5.388850751072128349671657362289416093031e-309L, -2.465190328815661891911651766508706967729e-32L, UNDERFLOW_EXCEPTION_OK_DOUBLE);
3537 TEST_c_c (casin, 0x1p-105L, 0x1.fp-1025L, 2.465190328815661891911651766508706967729e-32L, 5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3538 TEST_c_c (casin, -0x1p-105L, 0x1.fp-1025L, -2.465190328815661891911651766508706967729e-32L, 5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3539 TEST_c_c (casin, 0x1p-105L, -0x1.fp-1025L, 2.465190328815661891911651766508706967729e-32L, -5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3540 TEST_c_c (casin, -0x1p-105L, -0x1.fp-1025L, -2.465190328815661891911651766508706967729e-32L, -5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3541#endif
3542 TEST_c_c (casin, 0.0L, 0x1p-105L, 0.0L, 2.465190328815661891911651766508706967729e-32L);
3543 TEST_c_c (casin, 0.0L, -0x1p-105L, 0.0L, -2.465190328815661891911651766508706967729e-32L);
3544 TEST_c_c (casin, -0.0L, 0x1p-105L, -0.0L, 2.465190328815661891911651766508706967729e-32L);
3545 TEST_c_c (casin, -0.0L, -0x1p-105L, -0.0L, -2.465190328815661891911651766508706967729e-32L);
3546 TEST_c_c (casin, 0x1p-105L, 0.0L, 2.465190328815661891911651766508706967729e-32L, 0.0L);
3547 TEST_c_c (casin, -0x1p-105L, 0.0L, -2.465190328815661891911651766508706967729e-32L, 0.0L);
3548 TEST_c_c (casin, 0x1p-105L, -0.0L, 2.465190328815661891911651766508706967729e-32L, -0.0L);
3549 TEST_c_c (casin, -0x1p-105L, -0.0L, -2.465190328815661891911651766508706967729e-32L, -0.0L);
3550#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 113
3551 TEST_c_c (casin, 0x1p-112L, 0x0.ffffffffffffffffffffffffffff8p0L, 1.361838123766444824837096281396380300349e-34L, 8.813735870195430252326093249797922409363e-1L);
3552 TEST_c_c (casin, 0x1p-112L, -0x0.ffffffffffffffffffffffffffff8p0L, 1.361838123766444824837096281396380300349e-34L, -8.813735870195430252326093249797922409363e-1L);
3553 TEST_c_c (casin, -0x1p-112L, 0x0.ffffffffffffffffffffffffffff8p0L, -1.361838123766444824837096281396380300349e-34L, 8.813735870195430252326093249797922409363e-1L);
3554 TEST_c_c (casin, -0x1p-112L, -0x0.ffffffffffffffffffffffffffff8p0L, -1.361838123766444824837096281396380300349e-34L, -8.813735870195430252326093249797922409363e-1L);
3555 TEST_c_c (casin, 0x0.ffffffffffffffffffffffffffff8p0L, 0x1p-112L, 1.570796326794896601578502908312986698624L, 1.091004200533850618345330909857103457781e-17L);
3556 TEST_c_c (casin, -0x0.ffffffffffffffffffffffffffff8p0L, 0x1p-112L, -1.570796326794896601578502908312986698624L, 1.091004200533850618345330909857103457781e-17L);
3557 TEST_c_c (casin, 0x0.ffffffffffffffffffffffffffff8p0L, -0x1p-112L, 1.570796326794896601578502908312986698624L, -1.091004200533850618345330909857103457781e-17L);
3558 TEST_c_c (casin, -0x0.ffffffffffffffffffffffffffff8p0L, -0x1p-112L, -1.570796326794896601578502908312986698624L, -1.091004200533850618345330909857103457781e-17L);
3559 TEST_c_c (casin, 0x1.fp-16385L, 0x0.ffffffffffffffffffffffffffff8p0L, 5.757683115456107044131264955348449231681e-4933L, 8.813735870195430252326093249797922409363e-1L, UNDERFLOW_EXCEPTION);
3560 TEST_c_c (casin, 0x1.fp-16385L, -0x0.ffffffffffffffffffffffffffff8p0L, 5.757683115456107044131264955348449231681e-4933L, -8.813735870195430252326093249797922409363e-1L, UNDERFLOW_EXCEPTION);
3561 TEST_c_c (casin, -0x1.fp-16385L, 0x0.ffffffffffffffffffffffffffff8p0L, -5.757683115456107044131264955348449231681e-4933L, 8.813735870195430252326093249797922409363e-1L, UNDERFLOW_EXCEPTION);
3562 TEST_c_c (casin, -0x1.fp-16385L, -0x0.ffffffffffffffffffffffffffff8p0L, -5.757683115456107044131264955348449231681e-4933L, -8.813735870195430252326093249797922409363e-1L, UNDERFLOW_EXCEPTION);
3563 TEST_c_c (casin, 0x0.ffffffffffffffffffffffffffff8p0L, 0x1.fp-16385L, 1.570796326794896605353533883825294686803L, 5.867357004219059108790368268900490184505e-4916L);
3564 TEST_c_c (casin, -0x0.ffffffffffffffffffffffffffff8p0L, 0x1.fp-16385L, -1.570796326794896605353533883825294686803L, 5.867357004219059108790368268900490184505e-4916L);
3565 TEST_c_c (casin, 0x0.ffffffffffffffffffffffffffff8p0L, -0x1.fp-16385L, 1.570796326794896605353533883825294686803L, -5.867357004219059108790368268900490184505e-4916L);
3566 TEST_c_c (casin, -0x0.ffffffffffffffffffffffffffff8p0L, -0x1.fp-16385L, -1.570796326794896605353533883825294686803L, -5.867357004219059108790368268900490184505e-4916L);
3567 TEST_c_c (casin, 0.0L, 0x0.ffffffffffffffffffffffffffff8p0L, 0.0L, 8.813735870195430252326093249797922409363e-1L);
3568 TEST_c_c (casin, 0.0L, -0x0.ffffffffffffffffffffffffffff8p0L, 0.0L, -8.813735870195430252326093249797922409363e-1L);
3569 TEST_c_c (casin, -0.0L, 0x0.ffffffffffffffffffffffffffff8p0L, -0.0L, 8.813735870195430252326093249797922409363e-1L);
3570 TEST_c_c (casin, -0.0L, -0x0.ffffffffffffffffffffffffffff8p0L, -0.0L, -8.813735870195430252326093249797922409363e-1L);
3571 TEST_c_c (casin, 0x0.ffffffffffffffffffffffffffff8p0L, 0.0L, 1.570796326794896605353533883825294686803L, 0.0L);
3572 TEST_c_c (casin, -0x0.ffffffffffffffffffffffffffff8p0L, 0.0L, -1.570796326794896605353533883825294686803L, 0.0L);
3573 TEST_c_c (casin, 0x0.ffffffffffffffffffffffffffff8p0L, -0.0L, 1.570796326794896605353533883825294686803L, -0.0L);
3574 TEST_c_c (casin, -0x0.ffffffffffffffffffffffffffff8p0L, -0.0L, -1.570796326794896605353533883825294686803L, -0.0L);
3575#endif
3576 TEST_c_c (casin, 0x1p-112L, 0.5L, 1.722604110220899568310153280070398629037e-34L, 4.812118250596034474977589134243684231352e-1L);
3577 TEST_c_c (casin, 0x1p-112L, -0.5L, 1.722604110220899568310153280070398629037e-34L, -4.812118250596034474977589134243684231352e-1L);
3578 TEST_c_c (casin, -0x1p-112L, 0.5L, -1.722604110220899568310153280070398629037e-34L, 4.812118250596034474977589134243684231352e-1L);
3579 TEST_c_c (casin, -0x1p-112L, -0.5L, -1.722604110220899568310153280070398629037e-34L, -4.812118250596034474977589134243684231352e-1L);
3580 TEST_c_c (casin, 0.5L, 0x1p-112L, 5.235987755982988730771072305465838140329e-1L, 2.223872343664663196047610660420739543258e-34L);
3581 TEST_c_c (casin, -0.5L, 0x1p-112L, -5.235987755982988730771072305465838140329e-1L, 2.223872343664663196047610660420739543258e-34L);
3582 TEST_c_c (casin, 0.5L, -0x1p-112L, 5.235987755982988730771072305465838140329e-1L, -2.223872343664663196047610660420739543258e-34L);
3583 TEST_c_c (casin, -0.5L, -0x1p-112L, -5.235987755982988730771072305465838140329e-1L, -2.223872343664663196047610660420739543258e-34L);
3584 TEST_c_c (casin, 0x1p-112L, 0x1p-112L, 1.925929944387235853055977942584927318538e-34L, 1.925929944387235853055977942584927318538e-34L);
3585 TEST_c_c (casin, 0x1p-112L, -0x1p-112L, 1.925929944387235853055977942584927318538e-34L, -1.925929944387235853055977942584927318538e-34L);
3586 TEST_c_c (casin, -0x1p-112L, 0x1p-112L, -1.925929944387235853055977942584927318538e-34L, 1.925929944387235853055977942584927318538e-34L);
3587 TEST_c_c (casin, -0x1p-112L, -0x1p-112L, -1.925929944387235853055977942584927318538e-34L, -1.925929944387235853055977942584927318538e-34L);
3588#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
3589 TEST_c_c (casin, 0x1.fp-16385L, 0x1p-112L, 8.142593549724601460479922838826119584417e-4933L, 1.925929944387235853055977942584927318538e-34L, UNDERFLOW_EXCEPTION);
3590 TEST_c_c (casin, 0x1.fp-16385L, -0x1p-112L, 8.142593549724601460479922838826119584417e-4933L, -1.925929944387235853055977942584927318538e-34L, UNDERFLOW_EXCEPTION);
3591 TEST_c_c (casin, -0x1.fp-16385L, 0x1p-112L, -8.142593549724601460479922838826119584417e-4933L, 1.925929944387235853055977942584927318538e-34L, UNDERFLOW_EXCEPTION);
3592 TEST_c_c (casin, -0x1.fp-16385L, -0x1p-112L, -8.142593549724601460479922838826119584417e-4933L, -1.925929944387235853055977942584927318538e-34L, UNDERFLOW_EXCEPTION);
3593 TEST_c_c (casin, 0x1p-112L, 0x1.fp-16385L, 1.925929944387235853055977942584927318538e-34L, 8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
3594 TEST_c_c (casin, -0x1p-112L, 0x1.fp-16385L, -1.925929944387235853055977942584927318538e-34L, 8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
3595 TEST_c_c (casin, 0x1p-112L, -0x1.fp-16385L, 1.925929944387235853055977942584927318538e-34L, -8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
3596 TEST_c_c (casin, -0x1p-112L, -0x1.fp-16385L, -1.925929944387235853055977942584927318538e-34L, -8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
3597#endif
3598 TEST_c_c (casin, 0.0L, 0x1p-112L, 0.0L, 1.925929944387235853055977942584927318538e-34L);
3599 TEST_c_c (casin, 0.0L, -0x1p-112L, 0.0L, -1.925929944387235853055977942584927318538e-34L);
3600 TEST_c_c (casin, -0.0L, 0x1p-112L, -0.0L, 1.925929944387235853055977942584927318538e-34L);
3601 TEST_c_c (casin, -0.0L, -0x1p-112L, -0.0L, -1.925929944387235853055977942584927318538e-34L);
3602 TEST_c_c (casin, 0x1p-112L, 0.0L, 1.925929944387235853055977942584927318538e-34L, 0.0L);
3603 TEST_c_c (casin, -0x1p-112L, 0.0L, -1.925929944387235853055977942584927318538e-34L, 0.0L);
3604 TEST_c_c (casin, 0x1p-112L, -0.0L, 1.925929944387235853055977942584927318538e-34L, -0.0L);
3605 TEST_c_c (casin, -0x1p-112L, -0.0L, -1.925929944387235853055977942584927318538e-34L, -0.0L);
3606
2550dfe9 3607 TEST_c_c (casin, 0.75L, 1.25L, 0.453276177638793913448921196101971749L, 1.13239363160530819522266333696834467L);
33e885db 3608 TEST_c_c (casin, -2, -3, -0.57065278432109940071028387968566963L, -1.9833870299165354323470769028940395L);
8847214f 3609
6815fabc 3610 END (casin, complex);
8847214f
UD		 3611}
3612
3613
3614static void
3615casinh_test (void)
3616{
aaca11d8 3617 errno = 0;
3c6cad26 3618 FUNC(casinh) (BUILD_COMPLEX (0.7L, 1.2L));
aaca11d8
UD		 3619 if (errno == ENOSYS)
3620 /* Function not implemented. */
3621 return;
3622
8847214f
UD		 3623 START (casinh);
3624
3625 TEST_c_c (casinh, 0, 0, 0.0, 0.0);
3626 TEST_c_c (casinh, minus_zero, 0, minus_zero, 0);
3627 TEST_c_c (casinh, 0, minus_zero, 0.0, minus_zero);
3628 TEST_c_c (casinh, minus_zero, minus_zero, minus_zero, minus_zero);
3629
3630 TEST_c_c (casinh, plus_infty, plus_infty, plus_infty, M_PI_4l);
3631 TEST_c_c (casinh, plus_infty, minus_infty, plus_infty, -M_PI_4l);
3632 TEST_c_c (casinh, minus_infty, plus_infty, minus_infty, M_PI_4l);
3633 TEST_c_c (casinh, minus_infty, minus_infty, minus_infty, -M_PI_4l);
3634
3635 TEST_c_c (casinh, -10.0, plus_infty, minus_infty, M_PI_2l);
3636 TEST_c_c (casinh, -10.0, minus_infty, minus_infty, -M_PI_2l);
3637 TEST_c_c (casinh, 0, plus_infty, plus_infty, M_PI_2l);
3638 TEST_c_c (casinh, 0, minus_infty, plus_infty, -M_PI_2l);
3639 TEST_c_c (casinh, minus_zero, plus_infty, minus_infty, M_PI_2l);
3640 TEST_c_c (casinh, minus_zero, minus_infty, minus_infty, -M_PI_2l);
3c6cad26
UD		 3641 TEST_c_c (casinh, 0.1L, plus_infty, plus_infty, M_PI_2l);
3642 TEST_c_c (casinh, 0.1L, minus_infty, plus_infty, -M_PI_2l);
8847214f
UD		 3643
3644 TEST_c_c (casinh, minus_infty, 0, minus_infty, 0.0);
3645 TEST_c_c (casinh, minus_infty, minus_zero, minus_infty, minus_zero);
3646 TEST_c_c (casinh, minus_infty, 100, minus_infty, 0.0);
3647 TEST_c_c (casinh, minus_infty, -100, minus_infty, minus_zero);
3648
3649 TEST_c_c (casinh, plus_infty, 0, plus_infty, 0.0);
3650 TEST_c_c (casinh, plus_infty, minus_zero, plus_infty, minus_zero);
3651 TEST_c_c (casinh, plus_infty, 0.5, plus_infty, 0.0);
3652 TEST_c_c (casinh, plus_infty, -0.5, plus_infty, minus_zero);
3653
67e971f1
TS		 3654 TEST_c_c (casinh, plus_infty, qnan_value, plus_infty, qnan_value);
3655 TEST_c_c (casinh, minus_infty, qnan_value, minus_infty, qnan_value);
8847214f 3656
67e971f1
TS		 3657 TEST_c_c (casinh, qnan_value, 0, qnan_value, 0.0);
3658 TEST_c_c (casinh, qnan_value, minus_zero, qnan_value, minus_zero);
8847214f 3659
67e971f1
TS		 3660 TEST_c_c (casinh, qnan_value, plus_infty, plus_infty, qnan_value, IGNORE_ZERO_INF_SIGN);
3661 TEST_c_c (casinh, qnan_value, minus_infty, plus_infty, qnan_value, IGNORE_ZERO_INF_SIGN);
8847214f 3662
67e971f1
TS		 3663 TEST_c_c (casinh, 10.5, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
3664 TEST_c_c (casinh, -10.5, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 3665
67e971f1
TS		 3666 TEST_c_c (casinh, qnan_value, 0.75, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
3667 TEST_c_c (casinh, -0.75, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 3668
67e971f1 3669 TEST_c_c (casinh, qnan_value, qnan_value, qnan_value, qnan_value);
8847214f 3670
d1d3431a
JM		 3671 TEST_c_c (casinh, plus_zero, -1.5L, 0.9624236501192068949955178268487368462704L, -M_PI_2l);
3672 TEST_c_c (casinh, minus_zero, -1.5L, -0.9624236501192068949955178268487368462704L, -M_PI_2l);
3673 TEST_c_c (casinh, plus_zero, -1.0L, plus_zero, -M_PI_2l);
3674 TEST_c_c (casinh, minus_zero, -1.0L, minus_zero, -M_PI_2l);
3675 TEST_c_c (casinh, plus_zero, -0.5L, plus_zero, -0.5235987755982988730771072305465838140329L);
3676 TEST_c_c (casinh, minus_zero, -0.5L, minus_zero, -0.5235987755982988730771072305465838140329L);
3677 TEST_c_c (casinh, plus_zero, 0.5L, plus_zero, 0.5235987755982988730771072305465838140329L);
3678 TEST_c_c (casinh, minus_zero, 0.5L, minus_zero, 0.5235987755982988730771072305465838140329L);
3679 TEST_c_c (casinh, plus_zero, 1.0L, plus_zero, M_PI_2l);
3680 TEST_c_c (casinh, minus_zero, 1.0L, minus_zero, M_PI_2l);
3681 TEST_c_c (casinh, plus_zero, 1.5L, 0.9624236501192068949955178268487368462704L, M_PI_2l);
3682 TEST_c_c (casinh, minus_zero, 1.5L, -0.9624236501192068949955178268487368462704L, M_PI_2l);
3683
3684 TEST_c_c (casinh, -1.5L, plus_zero, -1.194763217287109304111930828519090523536L, plus_zero);
3685 TEST_c_c (casinh, -1.5L, minus_zero, -1.194763217287109304111930828519090523536L, minus_zero);
3686 TEST_c_c (casinh, -1.0L, plus_zero, -0.8813735870195430252326093249797923090282L, plus_zero);
3687 TEST_c_c (casinh, -1.0L, minus_zero, -0.8813735870195430252326093249797923090282L, minus_zero);
3688 TEST_c_c (casinh, -0.5L, plus_zero, -0.4812118250596034474977589134243684231352L, plus_zero);
3689 TEST_c_c (casinh, -0.5L, minus_zero, -0.4812118250596034474977589134243684231352L, minus_zero);
3690 TEST_c_c (casinh, 0.5L, plus_zero, 0.4812118250596034474977589134243684231352L, plus_zero);
3691 TEST_c_c (casinh, 0.5L, minus_zero, 0.4812118250596034474977589134243684231352L, minus_zero);
3692 TEST_c_c (casinh, 1.0L, plus_zero, 0.8813735870195430252326093249797923090282L, plus_zero);
3693 TEST_c_c (casinh, 1.0L, minus_zero, 0.8813735870195430252326093249797923090282L, minus_zero);
3694 TEST_c_c (casinh, 1.5L, plus_zero, 1.194763217287109304111930828519090523536L, plus_zero);
3695 TEST_c_c (casinh, 1.5L, minus_zero, 1.194763217287109304111930828519090523536L, minus_zero);
3696
cdc1c96f
JM		 3697 TEST_c_c (casinh, 0x1p50L, 1.0L, 3.535050620855721078027883819436759661753e1L, 8.881784197001252323389053344720723756399e-16L);
3698 TEST_c_c (casinh, 0x1p50L, -1.0L, 3.535050620855721078027883819436759661753e1L, -8.881784197001252323389053344720723756399e-16L);
3699 TEST_c_c (casinh, -0x1p50L, 1.0L, -3.535050620855721078027883819436759661753e1L, 8.881784197001252323389053344720723756399e-16L);
3700 TEST_c_c (casinh, -0x1p50L, -1.0L, -3.535050620855721078027883819436759661753e1L, -8.881784197001252323389053344720723756399e-16L);
3701 TEST_c_c (casinh, 1.0L, 0x1p50L, 3.535050620855721078027883819436720218708e1L, 1.570796326794895731052901991514519103193L);
3702 TEST_c_c (casinh, -1.0L, 0x1p50L, -3.535050620855721078027883819436720218708e1L, 1.570796326794895731052901991514519103193L);
3703 TEST_c_c (casinh, 1.0L, -0x1p50L, 3.535050620855721078027883819436720218708e1L, -1.570796326794895731052901991514519103193L);
3704 TEST_c_c (casinh, -1.0L, -0x1p50L, -3.535050620855721078027883819436720218708e1L, -1.570796326794895731052901991514519103193L);
3705#ifndef TEST_FLOAT
3706 TEST_c_c (casinh, 0x1p500L, 1.0L, 3.472667374605326000180332928505464606058e2L, 3.054936363499604682051979393213617699789e-151L);
3707 TEST_c_c (casinh, 0x1p500L, -1.0L, 3.472667374605326000180332928505464606058e2L, -3.054936363499604682051979393213617699789e-151L);
3708 TEST_c_c (casinh, -0x1p500L, 1.0L, -3.472667374605326000180332928505464606058e2L, 3.054936363499604682051979393213617699789e-151L);
3709 TEST_c_c (casinh, -0x1p500L, -1.0L, -3.472667374605326000180332928505464606058e2L, -3.054936363499604682051979393213617699789e-151L);
3710 TEST_c_c (casinh, 1.0L, 0x1p500L, 3.472667374605326000180332928505464606058e2L, 1.570796326794896619231321691639751442099L);
3711 TEST_c_c (casinh, -1.0L, 0x1p500L, -3.472667374605326000180332928505464606058e2L, 1.570796326794896619231321691639751442099L);
3712 TEST_c_c (casinh, 1.0L, -0x1p500L, 3.472667374605326000180332928505464606058e2L, -1.570796326794896619231321691639751442099L);
3713 TEST_c_c (casinh, -1.0L, -0x1p500L, -3.472667374605326000180332928505464606058e2L, -1.570796326794896619231321691639751442099L);
3714#endif
3715#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
3716 TEST_c_c (casinh, 0x1p5000L, 1.0L, 3.466429049980286492395577839412341016946e3L, 7.079811261048172892385615158694057552948e-1506L);
3717 TEST_c_c (casinh, 0x1p5000L, -1.0L, 3.466429049980286492395577839412341016946e3L, -7.079811261048172892385615158694057552948e-1506L);
3718 TEST_c_c (casinh, -0x1p5000L, 1.0L, -3.466429049980286492395577839412341016946e3L, 7.079811261048172892385615158694057552948e-1506L);
3719 TEST_c_c (casinh, -0x1p5000L, -1.0L, -3.466429049980286492395577839412341016946e3L, -7.079811261048172892385615158694057552948e-1506L);
3720 TEST_c_c (casinh, 1.0L, 0x1p5000L, 3.466429049980286492395577839412341016946e3L, 1.570796326794896619231321691639751442099L);
3721 TEST_c_c (casinh, -1.0L, 0x1p5000L, -3.466429049980286492395577839412341016946e3L, 1.570796326794896619231321691639751442099L);
3722 TEST_c_c (casinh, 1.0L, -0x1p5000L, 3.466429049980286492395577839412341016946e3L, -1.570796326794896619231321691639751442099L);
3723 TEST_c_c (casinh, -1.0L, -0x1p5000L, -3.466429049980286492395577839412341016946e3L, -1.570796326794896619231321691639751442099L);
3724#endif
3725
a9708fed
JM		 3726 TEST_c_c (casinh, 0x1.fp127L, 0x1.fp127L, 8.973081118419833726837456344608533993585e1L, 7.853981633974483096156608458198757210493e-1L);
3727#ifndef TEST_FLOAT
3728 TEST_c_c (casinh, 0x1.fp1023L, 0x1.fp1023L, 7.107906849659093345062145442726115449315e2L, 7.853981633974483096156608458198757210493e-1L);
3729#endif
3730#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
3731 TEST_c_c (casinh, 0x1.fp16383L, 0x1.fp16383L, 1.135753137836666928715489992987020363057e4L, 7.853981633974483096156608458198757210493e-1L);
3732#endif
3733
8cf28c5e
JM		 3734 TEST_c_c (casinh, 0x1.fp-129L, 1.5L, 9.624236501192068949955178268487368462704e-1L, 1.570796326794896619231321691639751442096L);
3735 TEST_c_c (casinh, 0x1.fp-129L, -1.5L, 9.624236501192068949955178268487368462704e-1L, -1.570796326794896619231321691639751442096L);
3736 TEST_c_c (casinh, -0x1.fp-129L, 1.5L, -9.624236501192068949955178268487368462704e-1L, 1.570796326794896619231321691639751442096L);
3737 TEST_c_c (casinh, -0x1.fp-129L, -1.5L, -9.624236501192068949955178268487368462704e-1L, -1.570796326794896619231321691639751442096L);
3738 TEST_c_c (casinh, 1.5L, 0x1.fp-129L, 1.194763217287109304111930828519090523536L, 1.579176199917649005841160751101628985741e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3739 TEST_c_c (casinh, -1.5L, 0x1.fp-129L, -1.194763217287109304111930828519090523536L, 1.579176199917649005841160751101628985741e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3740 TEST_c_c (casinh, 1.5L, -0x1.fp-129L, 1.194763217287109304111930828519090523536L, -1.579176199917649005841160751101628985741e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3741 TEST_c_c (casinh, -1.5L, -0x1.fp-129L, -1.194763217287109304111930828519090523536L, -1.579176199917649005841160751101628985741e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3742#ifndef TEST_FLOAT
3743 TEST_c_c (casinh, 0x1.fp-1025L, 1.5L, 9.624236501192068949955178268487368462704e-1L, 1.570796326794896619231321691639751442099L);
3744 TEST_c_c (casinh, 0x1.fp-1025L, -1.5L, 9.624236501192068949955178268487368462704e-1L, -1.570796326794896619231321691639751442099L);
3745 TEST_c_c (casinh, -0x1.fp-1025L, 1.5L, -9.624236501192068949955178268487368462704e-1L, 1.570796326794896619231321691639751442099L);
3746 TEST_c_c (casinh, -0x1.fp-1025L, -1.5L, -9.624236501192068949955178268487368462704e-1L, -1.570796326794896619231321691639751442099L);
3747 TEST_c_c (casinh, 1.5L, 0x1.fp-1025L, 1.194763217287109304111930828519090523536L, 2.989196569048182929051881765490354365918e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3748 TEST_c_c (casinh, -1.5L, 0x1.fp-1025L, -1.194763217287109304111930828519090523536L, 2.989196569048182929051881765490354365918e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3749 TEST_c_c (casinh, 1.5L, -0x1.fp-1025L, 1.194763217287109304111930828519090523536L, -2.989196569048182929051881765490354365918e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3750 TEST_c_c (casinh, -1.5L, -0x1.fp-1025L, -1.194763217287109304111930828519090523536L, -2.989196569048182929051881765490354365918e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3751#endif
3752#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
3753 TEST_c_c (casinh, 0x1.fp-16385L, 1.5L, 9.624236501192068949955178268487368462704e-1L, 1.570796326794896619231321691639751442099L);
3754 TEST_c_c (casinh, 0x1.fp-16385L, -1.5L, 9.624236501192068949955178268487368462704e-1L, -1.570796326794896619231321691639751442099L);
3755 TEST_c_c (casinh, -0x1.fp-16385L, 1.5L, -9.624236501192068949955178268487368462704e-1L, 1.570796326794896619231321691639751442099L);
3756 TEST_c_c (casinh, -0x1.fp-16385L, -1.5L, -9.624236501192068949955178268487368462704e-1L, -1.570796326794896619231321691639751442099L);
3757 TEST_c_c (casinh, 1.5L, 0x1.fp-16385L, 1.194763217287109304111930828519090523536L, 4.516698239814521372306784062043266700598e-4933L, UNDERFLOW_EXCEPTION);
3758 TEST_c_c (casinh, -1.5L, 0x1.fp-16385L, -1.194763217287109304111930828519090523536L, 4.516698239814521372306784062043266700598e-4933L, UNDERFLOW_EXCEPTION);
3759 TEST_c_c (casinh, 1.5L, -0x1.fp-16385L, 1.194763217287109304111930828519090523536L, -4.516698239814521372306784062043266700598e-4933L, UNDERFLOW_EXCEPTION);
3760 TEST_c_c (casinh, -1.5L, -0x1.fp-16385L, -1.194763217287109304111930828519090523536L, -4.516698239814521372306784062043266700598e-4933L, UNDERFLOW_EXCEPTION);
3761#endif
3762
0a1b2ae6
JM		 3763 TEST_c_c (casinh, 0.5L, 1.0L, 7.328576759736452608886724437653071523305e-1L, 8.959074812088902390666567243275770102229e-1L);
3764 TEST_c_c (casinh, 0.5L, -1.0L, 7.328576759736452608886724437653071523305e-1L, -8.959074812088902390666567243275770102229e-1L);
3765 TEST_c_c (casinh, -0.5L, 1.0L, -7.328576759736452608886724437653071523305e-1L, 8.959074812088902390666567243275770102229e-1L);
3766 TEST_c_c (casinh, -0.5L, -1.0L, -7.328576759736452608886724437653071523305e-1L, -8.959074812088902390666567243275770102229e-1L);
3767 TEST_c_c (casinh, 1.0L, 0.5L, 9.261330313501824245501244453057873152694e-1L, 3.494390628572132936274118260753699527325e-1L);
3768 TEST_c_c (casinh, -1.0L, 0.5L, -9.261330313501824245501244453057873152694e-1L, 3.494390628572132936274118260753699527325e-1L);
3769 TEST_c_c (casinh, 1.0L, -0.5L, 9.261330313501824245501244453057873152694e-1L, -3.494390628572132936274118260753699527325e-1L);
3770 TEST_c_c (casinh, -1.0L, -0.5L, -9.261330313501824245501244453057873152694e-1L, -3.494390628572132936274118260753699527325e-1L);
3771 TEST_c_c (casinh, 0.25L, 1.0L, 5.097911466811016354623559941115413499164e-1L, 1.081751996523816326311037318425097434186L);
3772 TEST_c_c (casinh, 0.25L, -1.0L, 5.097911466811016354623559941115413499164e-1L, -1.081751996523816326311037318425097434186L);
3773 TEST_c_c (casinh, -0.25L, 1.0L, -5.097911466811016354623559941115413499164e-1L, 1.081751996523816326311037318425097434186L);
3774 TEST_c_c (casinh, -0.25L, -1.0L, -5.097911466811016354623559941115413499164e-1L, -1.081751996523816326311037318425097434186L);
3775 TEST_c_c (casinh, 1.0L, 0.25L, 8.924633639033482359562124741744951972772e-1L, 1.763024327769669304186785666360901026468e-1L);
3776 TEST_c_c (casinh, -1.0L, 0.25L, -8.924633639033482359562124741744951972772e-1L, 1.763024327769669304186785666360901026468e-1L);
3777 TEST_c_c (casinh, 1.0L, -0.25L, 8.924633639033482359562124741744951972772e-1L, -1.763024327769669304186785666360901026468e-1L);
3778 TEST_c_c (casinh, -1.0L, -0.25L, -8.924633639033482359562124741744951972772e-1L, -1.763024327769669304186785666360901026468e-1L);
3779 TEST_c_c (casinh, 0x1.fp-10L, 1.0L, 4.350501469856803800217957402220976497152e-2L, 1.527305029163877791518741192097931722508L);
3780 TEST_c_c (casinh, 0x1.fp-10L, -1.0L, 4.350501469856803800217957402220976497152e-2L, -1.527305029163877791518741192097931722508L);
3781 TEST_c_c (casinh, -0x1.fp-10L, 1.0L, -4.350501469856803800217957402220976497152e-2L, 1.527305029163877791518741192097931722508L);
3782 TEST_c_c (casinh, -0x1.fp-10L, -1.0L, -4.350501469856803800217957402220976497152e-2L, -1.527305029163877791518741192097931722508L);
3783 TEST_c_c (casinh, 1.0L, 0x1.fp-10L, 8.813742198809567991336704287826445879025e-1L, 1.337909359557740912558349531052239112857e-3L);
3784 TEST_c_c (casinh, -1.0L, 0x1.fp-10L, -8.813742198809567991336704287826445879025e-1L, 1.337909359557740912558349531052239112857e-3L);
3785 TEST_c_c (casinh, 1.0L, -0x1.fp-10L, 8.813742198809567991336704287826445879025e-1L, -1.337909359557740912558349531052239112857e-3L);
3786 TEST_c_c (casinh, -1.0L, -0x1.fp-10L, -8.813742198809567991336704287826445879025e-1L, -1.337909359557740912558349531052239112857e-3L);
3787 TEST_c_c (casinh, 0x1.fp-30L, 1.0L, 4.247867098745151888768727039216644758847e-5L, 1.570753848123921942730162693731872690232L);
3788 TEST_c_c (casinh, 0x1.fp-30L, -1.0L, 4.247867098745151888768727039216644758847e-5L, -1.570753848123921942730162693731872690232L);
3789 TEST_c_c (casinh, -0x1.fp-30L, 1.0L, -4.247867098745151888768727039216644758847e-5L, 1.570753848123921942730162693731872690232L);
3790 TEST_c_c (casinh, -0x1.fp-30L, -1.0L, -4.247867098745151888768727039216644758847e-5L, -1.570753848123921942730162693731872690232L);
3791 TEST_c_c (casinh, 1.0L, 0x1.fp-30L, 8.813735870195430258081932989769495326854e-1L, 1.275929984216518540252717485007112529021e-9L);
3792 TEST_c_c (casinh, -1.0L, 0x1.fp-30L, -8.813735870195430258081932989769495326854e-1L, 1.275929984216518540252717485007112529021e-9L);
3793 TEST_c_c (casinh, 1.0L, -0x1.fp-30L, 8.813735870195430258081932989769495326854e-1L, -1.275929984216518540252717485007112529021e-9L);
3794 TEST_c_c (casinh, -1.0L, -0x1.fp-30L, -8.813735870195430258081932989769495326854e-1L, -1.275929984216518540252717485007112529021e-9L);
3795 TEST_c_c (casinh, 0x1.fp-100L, 1.0L, 1.236292038260260888664514866457202186027e-15L, 1.570796326794895382939283431378862777584L);
3796 TEST_c_c (casinh, 0x1.fp-100L, -1.0L, 1.236292038260260888664514866457202186027e-15L, -1.570796326794895382939283431378862777584L);
3797 TEST_c_c (casinh, -0x1.fp-100L, 1.0L, -1.236292038260260888664514866457202186027e-15L, 1.570796326794895382939283431378862777584L);
3798 TEST_c_c (casinh, -0x1.fp-100L, -1.0L, -1.236292038260260888664514866457202186027e-15L, -1.570796326794895382939283431378862777584L);
3799 TEST_c_c (casinh, 1.0L, 0x1.fp-100L, 8.813735870195430252326093249797923090282e-1L, 1.080754735021050612990719608916167354321e-30L);
3800 TEST_c_c (casinh, -1.0L, 0x1.fp-100L, -8.813735870195430252326093249797923090282e-1L, 1.080754735021050612990719608916167354321e-30L);
3801 TEST_c_c (casinh, 1.0L, -0x1.fp-100L, 8.813735870195430252326093249797923090282e-1L, -1.080754735021050612990719608916167354321e-30L);
3802 TEST_c_c (casinh, -1.0L, -0x1.fp-100L, -8.813735870195430252326093249797923090282e-1L, -1.080754735021050612990719608916167354321e-30L);
3803 TEST_c_c (casinh, 0x1.fp-129L, 1.0L, 5.335635276982233498398987585285818977933e-20L, 1.570796326794896619177965338869929107115L);
3804 TEST_c_c (casinh, 0x1.fp-129L, -1.0L, 5.335635276982233498398987585285818977933e-20L, -1.570796326794896619177965338869929107115L);
3805 TEST_c_c (casinh, -0x1.fp-129L, 1.0L, -5.335635276982233498398987585285818977933e-20L, 1.570796326794896619177965338869929107115L);
3806 TEST_c_c (casinh, -0x1.fp-129L, -1.0L, -5.335635276982233498398987585285818977933e-20L, -1.570796326794896619177965338869929107115L);
3807 TEST_c_c (casinh, 1.0L, 0x1.fp-129L, 8.813735870195430252326093249797923090282e-1L, 2.013062564695348242280482517399205554874e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3808 TEST_c_c (casinh, -1.0L, 0x1.fp-129L, -8.813735870195430252326093249797923090282e-1L, 2.013062564695348242280482517399205554874e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3809 TEST_c_c (casinh, 1.0L, -0x1.fp-129L, 8.813735870195430252326093249797923090282e-1L, -2.013062564695348242280482517399205554874e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3810 TEST_c_c (casinh, -1.0L, -0x1.fp-129L, -8.813735870195430252326093249797923090282e-1L, -2.013062564695348242280482517399205554874e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3811#ifndef TEST_FLOAT
3812 TEST_c_c (casinh, 0x1.fp-1000L, 1.0L, 4.252291453851660175550490409247739011867e-151L, 1.570796326794896619231321691639751442099L);
3813 TEST_c_c (casinh, 0x1.fp-1000L, -1.0L, 4.252291453851660175550490409247739011867e-151L, -1.570796326794896619231321691639751442099L);
3814 TEST_c_c (casinh, -0x1.fp-1000L, 1.0L, -4.252291453851660175550490409247739011867e-151L, 1.570796326794896619231321691639751442099L);
3815 TEST_c_c (casinh, -0x1.fp-1000L, -1.0L, -4.252291453851660175550490409247739011867e-151L, -1.570796326794896619231321691639751442099L);
3816 TEST_c_c (casinh, 1.0L, 0x1.fp-1000L, 8.813735870195430252326093249797923090282e-1L, 1.278589251976747242280879285935084814093e-301L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
3817 TEST_c_c (casinh, -1.0L, 0x1.fp-1000L, -8.813735870195430252326093249797923090282e-1L, 1.278589251976747242280879285935084814093e-301L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
3818 TEST_c_c (casinh, 1.0L, -0x1.fp-1000L, 8.813735870195430252326093249797923090282e-1L, -1.278589251976747242280879285935084814093e-301L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
3819 TEST_c_c (casinh, -1.0L, -0x1.fp-1000L, -8.813735870195430252326093249797923090282e-1L, -1.278589251976747242280879285935084814093e-301L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
3820 TEST_c_c (casinh, 0x1.fp-1025L, 1.0L, 7.340879205566679497036857179189356754017e-155L, 1.570796326794896619231321691639751442099L);
3821 TEST_c_c (casinh, 0x1.fp-1025L, -1.0L, 7.340879205566679497036857179189356754017e-155L, -1.570796326794896619231321691639751442099L);
3822 TEST_c_c (casinh, -0x1.fp-1025L, 1.0L, -7.340879205566679497036857179189356754017e-155L, 1.570796326794896619231321691639751442099L);
3823 TEST_c_c (casinh, -0x1.fp-1025L, -1.0L, -7.340879205566679497036857179189356754017e-155L, -1.570796326794896619231321691639751442099L);
3824 TEST_c_c (casinh, 1.0L, 0x1.fp-1025L, 8.813735870195430252326093249797923090282e-1L, 3.810492908885321743133304375216617626230e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3825 TEST_c_c (casinh, -1.0L, 0x1.fp-1025L, -8.813735870195430252326093249797923090282e-1L, 3.810492908885321743133304375216617626230e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3826 TEST_c_c (casinh, 1.0L, -0x1.fp-1025L, 8.813735870195430252326093249797923090282e-1L, -3.810492908885321743133304375216617626230e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3827 TEST_c_c (casinh, -1.0L, -0x1.fp-1025L, -8.813735870195430252326093249797923090282e-1L, -3.810492908885321743133304375216617626230e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3828#endif
3829#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
3830 TEST_c_c (casinh, 0x1.fp-10000L, 1.0L, 9.854680208706673586644342922051388714633e-1506L, 1.570796326794896619231321691639751442099L);
3831 TEST_c_c (casinh, 0x1.fp-10000L, -1.0L, 9.854680208706673586644342922051388714633e-1506L, -1.570796326794896619231321691639751442099L);
3832 TEST_c_c (casinh, -0x1.fp-10000L, 1.0L, -9.854680208706673586644342922051388714633e-1506L, 1.570796326794896619231321691639751442099L);
3833 TEST_c_c (casinh, -0x1.fp-10000L, -1.0L, -9.854680208706673586644342922051388714633e-1506L, -1.570796326794896619231321691639751442099L);
3834 TEST_c_c (casinh, 1.0L, 0x1.fp-10000L, 8.813735870195430252326093249797923090282e-1L, 6.867047849047171855399183659351043150871e-3011L);
3835 TEST_c_c (casinh, -1.0L, 0x1.fp-10000L, -8.813735870195430252326093249797923090282e-1L, 6.867047849047171855399183659351043150871e-3011L);
3836 TEST_c_c (casinh, 1.0L, -0x1.fp-10000L, 8.813735870195430252326093249797923090282e-1L, -6.867047849047171855399183659351043150871e-3011L);
3837 TEST_c_c (casinh, -1.0L, -0x1.fp-10000L, -8.813735870195430252326093249797923090282e-1L, -6.867047849047171855399183659351043150871e-3011L);
3838 TEST_c_c (casinh, 0x1.fp-16385L, 1.0L, 9.023632056840860275214893047597614177639e-2467L, 1.570796326794896619231321691639751442099L);
3839 TEST_c_c (casinh, 0x1.fp-16385L, -1.0L, 9.023632056840860275214893047597614177639e-2467L, -1.570796326794896619231321691639751442099L);
3840 TEST_c_c (casinh, -0x1.fp-16385L, 1.0L, -9.023632056840860275214893047597614177639e-2467L, 1.570796326794896619231321691639751442099L);
3841 TEST_c_c (casinh, -0x1.fp-16385L, -1.0L, -9.023632056840860275214893047597614177639e-2467L, -1.570796326794896619231321691639751442099L);
3842 TEST_c_c (casinh, 1.0L, 0x1.fp-16385L, 8.813735870195430252326093249797923090282e-1L, 5.757683115456107044131264955348448954458e-4933L, UNDERFLOW_EXCEPTION);
3843 TEST_c_c (casinh, -1.0L, 0x1.fp-16385L, -8.813735870195430252326093249797923090282e-1L, 5.757683115456107044131264955348448954458e-4933L, UNDERFLOW_EXCEPTION);
3844 TEST_c_c (casinh, 1.0L, -0x1.fp-16385L, 8.813735870195430252326093249797923090282e-1L, -5.757683115456107044131264955348448954458e-4933L, UNDERFLOW_EXCEPTION);
3845 TEST_c_c (casinh, -1.0L, -0x1.fp-16385L, -8.813735870195430252326093249797923090282e-1L, -5.757683115456107044131264955348448954458e-4933L, UNDERFLOW_EXCEPTION);
3846#endif
3847
4d14f449
JM		 3848 TEST_c_c (casinh, 0x1p-23L, 0x1.000002p0L, 5.364668491573609633134147164031476452679e-4L, 1.570574114956455764594481054234834678422L);
3849 TEST_c_c (casinh, 0x1p-23L, -0x1.000002p0L, 5.364668491573609633134147164031476452679e-4L, -1.570574114956455764594481054234834678422L);
3850 TEST_c_c (casinh, -0x1p-23L, 0x1.000002p0L, -5.364668491573609633134147164031476452679e-4L, 1.570574114956455764594481054234834678422L);
3851 TEST_c_c (casinh, -0x1p-23L, -0x1.000002p0L, -5.364668491573609633134147164031476452679e-4L, -1.570574114956455764594481054234834678422L);
3852 TEST_c_c (casinh, 0x1.000002p0L, 0x1p-23L, 8.813736713132400470205730751186547909968e-1L, 8.429369199749229560964789467980644296420e-8L);
3853 TEST_c_c (casinh, -0x1.000002p0L, 0x1p-23L, -8.813736713132400470205730751186547909968e-1L, 8.429369199749229560964789467980644296420e-8L);
3854 TEST_c_c (casinh, 0x1.000002p0L, -0x1p-23L, 8.813736713132400470205730751186547909968e-1L, -8.429369199749229560964789467980644296420e-8L);
3855 TEST_c_c (casinh, -0x1.000002p0L, -0x1p-23L, -8.813736713132400470205730751186547909968e-1L, -8.429369199749229560964789467980644296420e-8L);
3856 TEST_c_c (casinh, 0x1.fp-129L, 0x1.000002p0L, 4.882812451493617206486388134172712975070e-4L, 1.570796326794896619231321691639751436268L);
3857 TEST_c_c (casinh, 0x1.fp-129L, -0x1.000002p0L, 4.882812451493617206486388134172712975070e-4L, -1.570796326794896619231321691639751436268L);
3858 TEST_c_c (casinh, -0x1.fp-129L, 0x1.000002p0L, -4.882812451493617206486388134172712975070e-4L, 1.570796326794896619231321691639751436268L);
3859 TEST_c_c (casinh, -0x1.fp-129L, -0x1.000002p0L, -4.882812451493617206486388134172712975070e-4L, -1.570796326794896619231321691639751436268L);
3860 TEST_c_c (casinh, 0x1.000002p0L, 0x1.fp-129L, 8.813736713132375348727889167749389235161e-1L, 2.013062444707472738895109955455676357057e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3861 TEST_c_c (casinh, -0x1.000002p0L, 0x1.fp-129L, -8.813736713132375348727889167749389235161e-1L, 2.013062444707472738895109955455676357057e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3862 TEST_c_c (casinh, 0x1.000002p0L, -0x1.fp-129L, 8.813736713132375348727889167749389235161e-1L, -2.013062444707472738895109955455676357057e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3863 TEST_c_c (casinh, -0x1.000002p0L, -0x1.fp-129L, -8.813736713132375348727889167749389235161e-1L, -2.013062444707472738895109955455676357057e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3864 TEST_c_c (casinh, 0.0L, 0x1.000002p0L, 4.882812451493617206486388134172712975070e-4L, 1.570796326794896619231321691639751442099L);
3865 TEST_c_c (casinh, 0.0L, -0x1.000002p0L, 4.882812451493617206486388134172712975070e-4L, -1.570796326794896619231321691639751442099L);
3866 TEST_c_c (casinh, -0.0L, 0x1.000002p0L, -4.882812451493617206486388134172712975070e-4L, 1.570796326794896619231321691639751442099L);
3867 TEST_c_c (casinh, -0.0L, -0x1.000002p0L, -4.882812451493617206486388134172712975070e-4L, -1.570796326794896619231321691639751442099L);
3868 TEST_c_c (casinh, 0x1.000002p0L, 0.0L, 8.813736713132375348727889167749389235161e-1L, 0.0L);
3869 TEST_c_c (casinh, -0x1.000002p0L, 0.0L, -8.813736713132375348727889167749389235161e-1L, 0.0L);
3870 TEST_c_c (casinh, 0x1.000002p0L, -0.0L, 8.813736713132375348727889167749389235161e-1L, -0.0L);
3871 TEST_c_c (casinh, -0x1.000002p0L, -0.0L, -8.813736713132375348727889167749389235161e-1L, -0.0L);
3a7182a1 3872#ifndef TEST_FLOAT
4d14f449
JM		 3873 TEST_c_c (casinh, 0x1p-52L, 0x1.0000000000001p0L, 2.315303644582684770975188768022139415020e-8L, 1.570796317204594913251280305810847349436L);
3874 TEST_c_c (casinh, 0x1p-52L, -0x1.0000000000001p0L, 2.315303644582684770975188768022139415020e-8L, -1.570796317204594913251280305810847349436L);
3875 TEST_c_c (casinh, -0x1p-52L, 0x1.0000000000001p0L, -2.315303644582684770975188768022139415020e-8L, 1.570796317204594913251280305810847349436L);
3876 TEST_c_c (casinh, -0x1p-52L, -0x1.0000000000001p0L, -2.315303644582684770975188768022139415020e-8L, -1.570796317204594913251280305810847349436L);
3877 TEST_c_c (casinh, 0x1.0000000000001p0L, 0x1p-52L, 8.813735870195431822418551933572982483664e-1L, 1.570092458683774885078102529858632363236e-16L);
3878 TEST_c_c (casinh, -0x1.0000000000001p0L, 0x1p-52L, -8.813735870195431822418551933572982483664e-1L, 1.570092458683774885078102529858632363236e-16L);
3879 TEST_c_c (casinh, 0x1.0000000000001p0L, -0x1p-52L, 8.813735870195431822418551933572982483664e-1L, -1.570092458683774885078102529858632363236e-16L);
3880 TEST_c_c (casinh, -0x1.0000000000001p0L, -0x1p-52L, -8.813735870195431822418551933572982483664e-1L, -1.570092458683774885078102529858632363236e-16L);
3881 TEST_c_c (casinh, 0x1.fp-1025L, 0x1.0000000000001p0L, 2.107342425544701550354780375182800088393e-8L, 1.570796326794896619231321691639751442099L);
3882 TEST_c_c (casinh, 0x1.fp-1025L, -0x1.0000000000001p0L, 2.107342425544701550354780375182800088393e-8L, -1.570796326794896619231321691639751442099L);
3883 TEST_c_c (casinh, -0x1.fp-1025L, 0x1.0000000000001p0L, -2.107342425544701550354780375182800088393e-8L, 1.570796326794896619231321691639751442099L);
3884 TEST_c_c (casinh, -0x1.fp-1025L, -0x1.0000000000001p0L, -2.107342425544701550354780375182800088393e-8L, -1.570796326794896619231321691639751442099L);
3885 TEST_c_c (casinh, 0x1.0000000000001p0L, 0x1.fp-1025L, 8.813735870195431822418551933572895326024e-1L, 3.810492908885321320083608113679347200012e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3886 TEST_c_c (casinh, -0x1.0000000000001p0L, 0x1.fp-1025L, -8.813735870195431822418551933572895326024e-1L, 3.810492908885321320083608113679347200012e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3887 TEST_c_c (casinh, 0x1.0000000000001p0L, -0x1.fp-1025L, 8.813735870195431822418551933572895326024e-1L, -3.810492908885321320083608113679347200012e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3888 TEST_c_c (casinh, -0x1.0000000000001p0L, -0x1.fp-1025L, -8.813735870195431822418551933572895326024e-1L, -3.810492908885321320083608113679347200012e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3889 TEST_c_c (casinh, 0.0L, 0x1.0000000000001p0L, 2.107342425544701550354780375182800088393e-8L, 1.570796326794896619231321691639751442099L);
3890 TEST_c_c (casinh, 0.0L, -0x1.0000000000001p0L, 2.107342425544701550354780375182800088393e-8L, -1.570796326794896619231321691639751442099L);
3891 TEST_c_c (casinh, -0.0L, 0x1.0000000000001p0L, -2.107342425544701550354780375182800088393e-8L, 1.570796326794896619231321691639751442099L);
3892 TEST_c_c (casinh, -0.0L, -0x1.0000000000001p0L, -2.107342425544701550354780375182800088393e-8L, -1.570796326794896619231321691639751442099L);
3893 TEST_c_c (casinh, 0x1.0000000000001p0L, 0.0L, 8.813735870195431822418551933572895326024e-1L, 0.0L);
3894 TEST_c_c (casinh, -0x1.0000000000001p0L, 0.0L, -8.813735870195431822418551933572895326024e-1L, 0.0L);
3895 TEST_c_c (casinh, 0x1.0000000000001p0L, -0.0L, 8.813735870195431822418551933572895326024e-1L, -0.0L);
3896 TEST_c_c (casinh, -0x1.0000000000001p0L, -0.0L, -8.813735870195431822418551933572895326024e-1L, -0.0L);
3a7182a1
JM		 3897#endif
3898#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64
4d14f449
JM		 3899 TEST_c_c (casinh, 0x1p-63L, 0x1.0000000000000002p0L, 5.116146586219826555037807251857670783420e-10L, 1.570796326582978888921215348380499122131L);
3900 TEST_c_c (casinh, 0x1p-63L, -0x1.0000000000000002p0L, 5.116146586219826555037807251857670783420e-10L, -1.570796326582978888921215348380499122131L);
3901 TEST_c_c (casinh, -0x1p-63L, 0x1.0000000000000002p0L, -5.116146586219826555037807251857670783420e-10L, 1.570796326582978888921215348380499122131L);
3902 TEST_c_c (casinh, -0x1p-63L, -0x1.0000000000000002p0L, -5.116146586219826555037807251857670783420e-10L, -1.570796326582978888921215348380499122131L);
3903 TEST_c_c (casinh, 0x1.0000000000000002p0L, 0x1p-63L, 8.813735870195430253092739958139610131001e-1L, 7.666467083416870406778649849746878368519e-20L);
3904 TEST_c_c (casinh, -0x1.0000000000000002p0L, 0x1p-63L, -8.813735870195430253092739958139610131001e-1L, 7.666467083416870406778649849746878368519e-20L);
3905 TEST_c_c (casinh, 0x1.0000000000000002p0L, -0x1p-63L, 8.813735870195430253092739958139610131001e-1L, -7.666467083416870406778649849746878368519e-20L);
3906 TEST_c_c (casinh, -0x1.0000000000000002p0L, -0x1p-63L, -8.813735870195430253092739958139610131001e-1L, -7.666467083416870406778649849746878368519e-20L);
3a7182a1 3907# if LDBL_MIN_EXP <= -16381
4d14f449
JM		 3908 TEST_c_c (casinh, 0x1.fp-16385L, 0x1.0000000000000002p0L, 4.656612873077392578082927418388212703712e-10L, 1.570796326794896619231321691639751442099L);
3909 TEST_c_c (casinh, 0x1.fp-16385L, -0x1.0000000000000002p0L, 4.656612873077392578082927418388212703712e-10L, -1.570796326794896619231321691639751442099L);
3910 TEST_c_c (casinh, -0x1.fp-16385L, 0x1.0000000000000002p0L, -4.656612873077392578082927418388212703712e-10L, 1.570796326794896619231321691639751442099L);
3911 TEST_c_c (casinh, -0x1.fp-16385L, -0x1.0000000000000002p0L, -4.656612873077392578082927418388212703712e-10L, -1.570796326794896619231321691639751442099L);
3912 TEST_c_c (casinh, 0x1.0000000000000002p0L, 0x1.fp-16385L, 8.813735870195430253092739958139610130980e-1L, 5.757683115456107043819140328235418018963e-4933L, UNDERFLOW_EXCEPTION);
3913 TEST_c_c (casinh, -0x1.0000000000000002p0L, 0x1.fp-16385L, -8.813735870195430253092739958139610130980e-1L, 5.757683115456107043819140328235418018963e-4933L, UNDERFLOW_EXCEPTION);
3914 TEST_c_c (casinh, 0x1.0000000000000002p0L, -0x1.fp-16385L, 8.813735870195430253092739958139610130980e-1L, -5.757683115456107043819140328235418018963e-4933L, UNDERFLOW_EXCEPTION);
3915 TEST_c_c (casinh, -0x1.0000000000000002p0L, -0x1.fp-16385L, -8.813735870195430253092739958139610130980e-1L, -5.757683115456107043819140328235418018963e-4933L, UNDERFLOW_EXCEPTION);
3a7182a1 3916# endif
4d14f449
JM		 3917 TEST_c_c (casinh, 0.0L, 0x1.0000000000000002p0L, 4.656612873077392578082927418388212703712e-10L, 1.570796326794896619231321691639751442099L);
3918 TEST_c_c (casinh, 0.0L, -0x1.0000000000000002p0L, 4.656612873077392578082927418388212703712e-10L, -1.570796326794896619231321691639751442099L);
3919 TEST_c_c (casinh, -0.0L, 0x1.0000000000000002p0L, -4.656612873077392578082927418388212703712e-10L, 1.570796326794896619231321691639751442099L);
3920 TEST_c_c (casinh, -0.0L, -0x1.0000000000000002p0L, -4.656612873077392578082927418388212703712e-10L, -1.570796326794896619231321691639751442099L);
3921 TEST_c_c (casinh, 0x1.0000000000000002p0L, 0.0L, 8.813735870195430253092739958139610130980e-1L, 0.0L);
3922 TEST_c_c (casinh, -0x1.0000000000000002p0L, 0.0L, -8.813735870195430253092739958139610130980e-1L, 0.0L);
3923 TEST_c_c (casinh, 0x1.0000000000000002p0L, -0.0L, 8.813735870195430253092739958139610130980e-1L, -0.0L);
3924 TEST_c_c (casinh, -0x1.0000000000000002p0L, -0.0L, -8.813735870195430253092739958139610130980e-1L, -0.0L);
3a7182a1
JM		 3925#endif
3926#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106
4d14f449
JM		 3927 TEST_c_c (casinh, 0x1p-106L, 0x1.000000000000000000000000008p0L, 2.285028863093221674154232933662774454211e-16L, 1.570796326794896565289107467733682961928L);
3928 TEST_c_c (casinh, 0x1p-106L, -0x1.000000000000000000000000008p0L, 2.285028863093221674154232933662774454211e-16L, -1.570796326794896565289107467733682961928L);
3929 TEST_c_c (casinh, -0x1p-106L, 0x1.000000000000000000000000008p0L, -2.285028863093221674154232933662774454211e-16L, 1.570796326794896565289107467733682961928L);
3930 TEST_c_c (casinh, -0x1p-106L, -0x1.000000000000000000000000008p0L, -2.285028863093221674154232933662774454211e-16L, -1.570796326794896565289107467733682961928L);
3931 TEST_c_c (casinh, 0x1.000000000000000000000000008p0L, 0x1p-106L, 8.813735870195430252326093249798097405561e-1L, 8.715763992105246878957416200936726072500e-33L);
3932 TEST_c_c (casinh, -0x1.000000000000000000000000008p0L, 0x1p-106L, -8.813735870195430252326093249798097405561e-1L, 8.715763992105246878957416200936726072500e-33L);
3933 TEST_c_c (casinh, 0x1.000000000000000000000000008p0L, -0x1p-106L, 8.813735870195430252326093249798097405561e-1L, -8.715763992105246878957416200936726072500e-33L);
3934 TEST_c_c (casinh, -0x1.000000000000000000000000008p0L, -0x1p-106L, -8.813735870195430252326093249798097405561e-1L, -8.715763992105246878957416200936726072500e-33L);
3935 TEST_c_c (casinh, 0x1.fp-1025L, 0x1.000000000000000000000000008p0L, 2.220446049250313080847263336181636063482e-16L, 1.570796326794896619231321691639751442099L);
3936 TEST_c_c (casinh, 0x1.fp-1025L, -0x1.000000000000000000000000008p0L, 2.220446049250313080847263336181636063482e-16L, -1.570796326794896619231321691639751442099L);
3937 TEST_c_c (casinh, -0x1.fp-1025L, 0x1.000000000000000000000000008p0L, -2.220446049250313080847263336181636063482e-16L, 1.570796326794896619231321691639751442099L);
3938 TEST_c_c (casinh, -0x1.fp-1025L, -0x1.000000000000000000000000008p0L, -2.220446049250313080847263336181636063482e-16L, -1.570796326794896619231321691639751442099L);
3939 TEST_c_c (casinh, 0x1.000000000000000000000000008p0L, 0x1.fp-1025L, 8.813735870195430252326093249798097405561e-1L, 3.810492908885321743133304375216570658278e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3940 TEST_c_c (casinh, -0x1.000000000000000000000000008p0L, 0x1.fp-1025L, -8.813735870195430252326093249798097405561e-1L, 3.810492908885321743133304375216570658278e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3941 TEST_c_c (casinh, 0x1.000000000000000000000000008p0L, -0x1.fp-1025L, 8.813735870195430252326093249798097405561e-1L, -3.810492908885321743133304375216570658278e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3942 TEST_c_c (casinh, -0x1.000000000000000000000000008p0L, -0x1.fp-1025L, -8.813735870195430252326093249798097405561e-1L, -3.810492908885321743133304375216570658278e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
3943 TEST_c_c (casinh, 0.0L, 0x1.000000000000000000000000008p0L, 2.220446049250313080847263336181636063482e-16L, 1.570796326794896619231321691639751442099L);
3944 TEST_c_c (casinh, 0.0L, -0x1.000000000000000000000000008p0L, 2.220446049250313080847263336181636063482e-16L, -1.570796326794896619231321691639751442099L);
3945 TEST_c_c (casinh, -0.0L, 0x1.000000000000000000000000008p0L, -2.220446049250313080847263336181636063482e-16L, 1.570796326794896619231321691639751442099L);
3946 TEST_c_c (casinh, -0.0L, -0x1.000000000000000000000000008p0L, -2.220446049250313080847263336181636063482e-16L, -1.570796326794896619231321691639751442099L);
3947 TEST_c_c (casinh, 0x1.000000000000000000000000008p0L, 0.0L, 8.813735870195430252326093249798097405561e-1L, 0.0L);
3948 TEST_c_c (casinh, -0x1.000000000000000000000000008p0L, 0.0L, -8.813735870195430252326093249798097405561e-1L, 0.0L);
3949 TEST_c_c (casinh, 0x1.000000000000000000000000008p0L, -0.0L, 8.813735870195430252326093249798097405561e-1L, -0.0L);
3950 TEST_c_c (casinh, -0x1.000000000000000000000000008p0L, -0.0L, -8.813735870195430252326093249798097405561e-1L, -0.0L);
3a7182a1
JM		 3951#endif
3952#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 113
4d14f449
JM		 3953 TEST_c_c (casinh, 0x1p-113L, 0x1.0000000000000000000000000001p0L, 2.019699255375255198156433710951064632386e-17L, 1.570796326794896614463458507897073960405L);
3954 TEST_c_c (casinh, 0x1p-113L, -0x1.0000000000000000000000000001p0L, 2.019699255375255198156433710951064632386e-17L, -1.570796326794896614463458507897073960405L);
3955 TEST_c_c (casinh, -0x1p-113L, 0x1.0000000000000000000000000001p0L, -2.019699255375255198156433710951064632386e-17L, 1.570796326794896614463458507897073960405L);
3956 TEST_c_c (casinh, -0x1p-113L, -0x1.0000000000000000000000000001p0L, -2.019699255375255198156433710951064632386e-17L, -1.570796326794896614463458507897073960405L);
3957 TEST_c_c (casinh, 0x1.0000000000000000000000000001p0L, 0x1p-113L, 8.813735870195430252326093249797924452120e-1L, 6.809190618832224124185481406981900518193e-35L);
3958 TEST_c_c (casinh, -0x1.0000000000000000000000000001p0L, 0x1p-113L, -8.813735870195430252326093249797924452120e-1L, 6.809190618832224124185481406981900518193e-35L);
3959 TEST_c_c (casinh, 0x1.0000000000000000000000000001p0L, -0x1p-113L, 8.813735870195430252326093249797924452120e-1L, -6.809190618832224124185481406981900518193e-35L);
3960 TEST_c_c (casinh, -0x1.0000000000000000000000000001p0L, -0x1p-113L, -8.813735870195430252326093249797924452120e-1L, -6.809190618832224124185481406981900518193e-35L);
3961 TEST_c_c (casinh, 0x1.fp-16385L, 0x1.0000000000000000000000000001p0L, 1.962615573354718824241727964954454332780e-17L, 1.570796326794896619231321691639751442099L);
3962 TEST_c_c (casinh, 0x1.fp-16385L, -0x1.0000000000000000000000000001p0L, 1.962615573354718824241727964954454332780e-17L, -1.570796326794896619231321691639751442099L);
3963 TEST_c_c (casinh, -0x1.fp-16385L, 0x1.0000000000000000000000000001p0L, -1.962615573354718824241727964954454332780e-17L, 1.570796326794896619231321691639751442099L);
3964 TEST_c_c (casinh, -0x1.fp-16385L, -0x1.0000000000000000000000000001p0L, -1.962615573354718824241727964954454332780e-17L, -1.570796326794896619231321691639751442099L);
3965 TEST_c_c (casinh, 0x1.0000000000000000000000000001p0L, 0x1.fp-16385L, 8.813735870195430252326093249797924452120e-1L, 5.757683115456107044131264955348448400014e-4933L, UNDERFLOW_EXCEPTION);
3966 TEST_c_c (casinh, -0x1.0000000000000000000000000001p0L, 0x1.fp-16385L, -8.813735870195430252326093249797924452120e-1L, 5.757683115456107044131264955348448400014e-4933L, UNDERFLOW_EXCEPTION);
3967 TEST_c_c (casinh, 0x1.0000000000000000000000000001p0L, -0x1.fp-16385L, 8.813735870195430252326093249797924452120e-1L, -5.757683115456107044131264955348448400014e-4933L, UNDERFLOW_EXCEPTION);
3968 TEST_c_c (casinh, -0x1.0000000000000000000000000001p0L, -0x1.fp-16385L, -8.813735870195430252326093249797924452120e-1L, -5.757683115456107044131264955348448400014e-4933L, UNDERFLOW_EXCEPTION);
3969 TEST_c_c (casinh, 0.0L, 0x1.0000000000000000000000000001p0L, 1.962615573354718824241727964954454332780e-17L, 1.570796326794896619231321691639751442099L);
3970 TEST_c_c (casinh, 0.0L, -0x1.0000000000000000000000000001p0L, 1.962615573354718824241727964954454332780e-17L, -1.570796326794896619231321691639751442099L);
3971 TEST_c_c (casinh, -0.0L, 0x1.0000000000000000000000000001p0L, -1.962615573354718824241727964954454332780e-17L, 1.570796326794896619231321691639751442099L);
3972 TEST_c_c (casinh, -0.0L, -0x1.0000000000000000000000000001p0L, -1.962615573354718824241727964954454332780e-17L, -1.570796326794896619231321691639751442099L);
3973 TEST_c_c (casinh, 0x1.0000000000000000000000000001p0L, 0.0L, 8.813735870195430252326093249797924452120e-1L, 0.0L);
3974 TEST_c_c (casinh, -0x1.0000000000000000000000000001p0L, 0.0L, -8.813735870195430252326093249797924452120e-1L, 0.0L);
3975 TEST_c_c (casinh, 0x1.0000000000000000000000000001p0L, -0.0L, 8.813735870195430252326093249797924452120e-1L, -0.0L);
3976 TEST_c_c (casinh, -0x1.0000000000000000000000000001p0L, -0.0L, -8.813735870195430252326093249797924452120e-1L, -0.0L);
3a7182a1
JM		 3977#endif
3978
ccc8cadf
JM		 3979 TEST_c_c (casinh, 0x1p-23L, 0x0.ffffffp0L, 2.714321200917194650737217746780928423385e-4L, 1.570357140408705570520377172865353621698L);
3980 TEST_c_c (casinh, 0x1p-23L, -0x0.ffffffp0L, 2.714321200917194650737217746780928423385e-4L, -1.570357140408705570520377172865353621698L);
3981 TEST_c_c (casinh, -0x1p-23L, 0x0.ffffffp0L, -2.714321200917194650737217746780928423385e-4L, 1.570357140408705570520377172865353621698L);
3982 TEST_c_c (casinh, -0x1p-23L, -0x0.ffffffp0L, -2.714321200917194650737217746780928423385e-4L, -1.570357140408705570520377172865353621698L);
3983 TEST_c_c (casinh, 0x0.ffffffp0L, 0x1p-23L, 8.813735448726963984495965873956465777250e-1L, 8.429369953393598499000760938112968755257e-8L);
3984 TEST_c_c (casinh, -0x0.ffffffp0L, 0x1p-23L, -8.813735448726963984495965873956465777250e-1L, 8.429369953393598499000760938112968755257e-8L);
3985 TEST_c_c (casinh, 0x0.ffffffp0L, -0x1p-23L, 8.813735448726963984495965873956465777250e-1L, -8.429369953393598499000760938112968755257e-8L);
3986 TEST_c_c (casinh, -0x0.ffffffp0L, -0x1p-23L, -8.813735448726963984495965873956465777250e-1L, -8.429369953393598499000760938112968755257e-8L);
3987 TEST_c_c (casinh, 0x1.fp-129L, 0x0.ffffffp0L, 8.245504387859737323891843603996428534945e-36L, 1.570451059810180415643718442157112705601L);
3988 TEST_c_c (casinh, 0x1.fp-129L, -0x0.ffffffp0L, 8.245504387859737323891843603996428534945e-36L, -1.570451059810180415643718442157112705601L);
3989 TEST_c_c (casinh, -0x1.fp-129L, 0x0.ffffffp0L, -8.245504387859737323891843603996428534945e-36L, 1.570451059810180415643718442157112705601L);
3990 TEST_c_c (casinh, -0x1.fp-129L, -0x0.ffffffp0L, -8.245504387859737323891843603996428534945e-36L, -1.570451059810180415643718442157112705601L);
3991 TEST_c_c (casinh, 0x0.ffffffp0L, 0x1.fp-129L, 8.813735448726938863015878255140556727969e-1L, 2.013062624689288675911339929224634593425e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3992 TEST_c_c (casinh, -0x0.ffffffp0L, 0x1.fp-129L, -8.813735448726938863015878255140556727969e-1L, 2.013062624689288675911339929224634593425e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3993 TEST_c_c (casinh, 0x0.ffffffp0L, -0x1.fp-129L, 8.813735448726938863015878255140556727969e-1L, -2.013062624689288675911339929224634593425e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3994 TEST_c_c (casinh, -0x0.ffffffp0L, -0x1.fp-129L, -8.813735448726938863015878255140556727969e-1L, -2.013062624689288675911339929224634593425e-39L, UNDERFLOW_EXCEPTION_FLOAT);
3995 TEST_c_c (casinh, 0.0L, 0x0.ffffffp0L, 0.0L, 1.570451059810180415643718442157112705601L);
3996 TEST_c_c (casinh, 0.0L, -0x0.ffffffp0L, 0.0L, -1.570451059810180415643718442157112705601L);
3997 TEST_c_c (casinh, -0.0L, 0x0.ffffffp0L, -0.0L, 1.570451059810180415643718442157112705601L);
3998 TEST_c_c (casinh, -0.0L, -0x0.ffffffp0L, -0.0L, -1.570451059810180415643718442157112705601L);
3999 TEST_c_c (casinh, 0x0.ffffffp0L, 0.0L, 8.813735448726938863015878255140556727969e-1L, 0.0L);
4000 TEST_c_c (casinh, -0x0.ffffffp0L, 0.0L, -8.813735448726938863015878255140556727969e-1L, 0.0L);
4001 TEST_c_c (casinh, 0x0.ffffffp0L, -0.0L, 8.813735448726938863015878255140556727969e-1L, -0.0L);
4002 TEST_c_c (casinh, -0x0.ffffffp0L, -0.0L, -8.813735448726938863015878255140556727969e-1L, -0.0L);
4003 TEST_c_c (casinh, 0x1p-23L, 0.5L, 1.376510308240943236356088341381173571841e-7L, 5.235987755982934033165770729745469098254e-1L);
4004 TEST_c_c (casinh, 0x1p-23L, -0.5L, 1.376510308240943236356088341381173571841e-7L, -5.235987755982934033165770729745469098254e-1L);
4005 TEST_c_c (casinh, -0x1p-23L, 0.5L, -1.376510308240943236356088341381173571841e-7L, 5.235987755982934033165770729745469098254e-1L);
4006 TEST_c_c (casinh, -0x1p-23L, -0.5L, -1.376510308240943236356088341381173571841e-7L, -5.235987755982934033165770729745469098254e-1L);
4007 TEST_c_c (casinh, 0.5L, 0x1p-23L, 4.812118250596059896127318386463676808798e-1L, 1.066240299940009780479664302917201696886e-7L);
4008 TEST_c_c (casinh, -0.5L, 0x1p-23L, -4.812118250596059896127318386463676808798e-1L, 1.066240299940009780479664302917201696886e-7L);
4009 TEST_c_c (casinh, 0.5L, -0x1p-23L, 4.812118250596059896127318386463676808798e-1L, -1.066240299940009780479664302917201696886e-7L);
4010 TEST_c_c (casinh, -0.5L, -0x1p-23L, -4.812118250596059896127318386463676808798e-1L, -1.066240299940009780479664302917201696886e-7L);
4011 TEST_c_c (casinh, 0x1.fp-129L, 0.5L, 3.287317402534702257036015056278368274737e-39L, 5.235987755982988730771072305465838140329e-1L, UNDERFLOW_EXCEPTION_FLOAT);
4012 TEST_c_c (casinh, 0x1.fp-129L, -0.5L, 3.287317402534702257036015056278368274737e-39L, -5.235987755982988730771072305465838140329e-1L, UNDERFLOW_EXCEPTION_FLOAT);
4013 TEST_c_c (casinh, -0x1.fp-129L, 0.5L, -3.287317402534702257036015056278368274737e-39L, 5.235987755982988730771072305465838140329e-1L, UNDERFLOW_EXCEPTION_FLOAT);
4014 TEST_c_c (casinh, -0x1.fp-129L, -0.5L, -3.287317402534702257036015056278368274737e-39L, -5.235987755982988730771072305465838140329e-1L, UNDERFLOW_EXCEPTION_FLOAT);
4015 TEST_c_c (casinh, 0.5L, 0x1.fp-129L, 4.812118250596034474977589134243684231352e-1L, 2.546345110742945032959687790021055102355e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4016 TEST_c_c (casinh, -0.5L, 0x1.fp-129L, -4.812118250596034474977589134243684231352e-1L, 2.546345110742945032959687790021055102355e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4017 TEST_c_c (casinh, 0.5L, -0x1.fp-129L, 4.812118250596034474977589134243684231352e-1L, -2.546345110742945032959687790021055102355e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4018 TEST_c_c (casinh, -0.5L, -0x1.fp-129L, -4.812118250596034474977589134243684231352e-1L, -2.546345110742945032959687790021055102355e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4019 TEST_c_c (casinh, 0x1p-23L, 0x1p-23L, 1.192092895507818146886315028596704749235e-7L, 1.192092895507806853113684971258850504935e-7L);
4020 TEST_c_c (casinh, 0x1p-23L, -0x1p-23L, 1.192092895507818146886315028596704749235e-7L, -1.192092895507806853113684971258850504935e-7L);
4021 TEST_c_c (casinh, -0x1p-23L, 0x1p-23L, -1.192092895507818146886315028596704749235e-7L, 1.192092895507806853113684971258850504935e-7L);
4022 TEST_c_c (casinh, -0x1p-23L, -0x1p-23L, -1.192092895507818146886315028596704749235e-7L, -1.192092895507806853113684971258850504935e-7L);
4023 TEST_c_c (casinh, 0x1.fp-129L, 0x1p-23L, 2.846900380897747786805634596726756660388e-39L, 1.192092895507815323443157514352519154304e-7L, UNDERFLOW_EXCEPTION_FLOAT);
4024 TEST_c_c (casinh, 0x1.fp-129L, -0x1p-23L, 2.846900380897747786805634596726756660388e-39L, -1.192092895507815323443157514352519154304e-7L, UNDERFLOW_EXCEPTION_FLOAT);
4025 TEST_c_c (casinh, -0x1.fp-129L, 0x1p-23L, -2.846900380897747786805634596726756660388e-39L, 1.192092895507815323443157514352519154304e-7L, UNDERFLOW_EXCEPTION_FLOAT);
4026 TEST_c_c (casinh, -0x1.fp-129L, -0x1p-23L, -2.846900380897747786805634596726756660388e-39L, -1.192092895507815323443157514352519154304e-7L, UNDERFLOW_EXCEPTION_FLOAT);
4027 /* Bug 15319: underflow exception may be missing. */
4028 TEST_c_c (casinh, 0x1p-23L, 0x1.fp-129L, 1.192092895507809676556842485683592032154e-7L, 2.846900380897707329917933005874691056564e-39L, UNDERFLOW_EXCEPTION_OK_FLOAT);
4029 TEST_c_c (casinh, -0x1p-23L, 0x1.fp-129L, -1.192092895507809676556842485683592032154e-7L, 2.846900380897707329917933005874691056564e-39L, UNDERFLOW_EXCEPTION_OK_FLOAT);
4030 TEST_c_c (casinh, 0x1p-23L, -0x1.fp-129L, 1.192092895507809676556842485683592032154e-7L, -2.846900380897707329917933005874691056564e-39L, UNDERFLOW_EXCEPTION_OK_FLOAT);
4031 TEST_c_c (casinh, -0x1p-23L, -0x1.fp-129L, -1.192092895507809676556842485683592032154e-7L, -2.846900380897707329917933005874691056564e-39L, UNDERFLOW_EXCEPTION_OK_FLOAT);
4032 TEST_c_c (casinh, 0.0L, 0x1p-23L, 0.0L, 1.192092895507815323443157514352519154304e-7L);
4033 TEST_c_c (casinh, 0.0L, -0x1p-23L, 0.0L, -1.192092895507815323443157514352519154304e-7L);
4034 TEST_c_c (casinh, -0.0L, 0x1p-23L, -0.0L, 1.192092895507815323443157514352519154304e-7L);
4035 TEST_c_c (casinh, -0.0L, -0x1p-23L, -0.0L, -1.192092895507815323443157514352519154304e-7L);
4036 TEST_c_c (casinh, 0x1p-23L, 0.0L, 1.192092895507809676556842485683592032154e-7L, 0.0L);
4037 TEST_c_c (casinh, -0x1p-23L, 0.0L, -1.192092895507809676556842485683592032154e-7L, 0.0L);
4038 TEST_c_c (casinh, 0x1p-23L, -0.0L, 1.192092895507809676556842485683592032154e-7L, -0.0L);
4039 TEST_c_c (casinh, -0x1p-23L, -0.0L, -1.192092895507809676556842485683592032154e-7L, -0.0L);
4040 TEST_c_c (casinh, 0x1.fp-129L, 0x1.fp-129L, 2.846900380897727558361783801085126250967e-39L, 2.846900380897727558361783801085126250967e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4041 TEST_c_c (casinh, 0x1.fp-129L, -0x1.fp-129L, 2.846900380897727558361783801085126250967e-39L, -2.846900380897727558361783801085126250967e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4042 TEST_c_c (casinh, -0x1.fp-129L, 0x1.fp-129L, -2.846900380897727558361783801085126250967e-39L, 2.846900380897727558361783801085126250967e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4043 TEST_c_c (casinh, -0x1.fp-129L, -0x1.fp-129L, -2.846900380897727558361783801085126250967e-39L, -2.846900380897727558361783801085126250967e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4044#ifndef TEST_FLOAT
4045 TEST_c_c (casinh, 0x1p-52L, 0x0.fffffffffffff8p0L, 1.171456840272878582596796205397918831268e-8L, 1.570796307840326780080580569360500172043L);
4046 TEST_c_c (casinh, 0x1p-52L, -0x0.fffffffffffff8p0L, 1.171456840272878582596796205397918831268e-8L, -1.570796307840326780080580569360500172043L);
4047 TEST_c_c (casinh, -0x1p-52L, 0x0.fffffffffffff8p0L, -1.171456840272878582596796205397918831268e-8L, 1.570796307840326780080580569360500172043L);
4048 TEST_c_c (casinh, -0x1p-52L, -0x0.fffffffffffff8p0L, -1.171456840272878582596796205397918831268e-8L, -1.570796307840326780080580569360500172043L);
4049 TEST_c_c (casinh, 0x0.fffffffffffff8p0L, 0x1p-52L, 8.813735870195429467279863907910458761820e-1L, 1.570092458683775146551022293016031474627e-16L);
4050 TEST_c_c (casinh, -0x0.fffffffffffff8p0L, 0x1p-52L, -8.813735870195429467279863907910458761820e-1L, 1.570092458683775146551022293016031474627e-16L);
4051 TEST_c_c (casinh, 0x0.fffffffffffff8p0L, -0x1p-52L, 8.813735870195429467279863907910458761820e-1L, -1.570092458683775146551022293016031474627e-16L);
4052 TEST_c_c (casinh, -0x0.fffffffffffff8p0L, -0x1p-52L, -8.813735870195429467279863907910458761820e-1L, -1.570092458683775146551022293016031474627e-16L);
4053 TEST_c_c (casinh, 0x1.fp-1025L, 0x0.fffffffffffff8p0L, 3.616396521699973256461764099945789620604e-301L, 1.570796311893735425383665303776316016594L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
4054 TEST_c_c (casinh, 0x1.fp-1025L, -0x0.fffffffffffff8p0L, 3.616396521699973256461764099945789620604e-301L, -1.570796311893735425383665303776316016594L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
4055 TEST_c_c (casinh, -0x1.fp-1025L, 0x0.fffffffffffff8p0L, -3.616396521699973256461764099945789620604e-301L, 1.570796311893735425383665303776316016594L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
4056 TEST_c_c (casinh, -0x1.fp-1025L, -0x0.fffffffffffff8p0L, -3.616396521699973256461764099945789620604e-301L, -1.570796311893735425383665303776316016594L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
4057 TEST_c_c (casinh, 0x0.fffffffffffff8p0L, 0x1.fp-1025L, 8.813735870195429467279863907910371604180e-1L, 3.810492908885321954658152505985270452320e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4058 TEST_c_c (casinh, -0x0.fffffffffffff8p0L, 0x1.fp-1025L, -8.813735870195429467279863907910371604180e-1L, 3.810492908885321954658152505985270452320e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4059 TEST_c_c (casinh, 0x0.fffffffffffff8p0L, -0x1.fp-1025L, 8.813735870195429467279863907910371604180e-1L, -3.810492908885321954658152505985270452320e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4060 TEST_c_c (casinh, -0x0.fffffffffffff8p0L, -0x1.fp-1025L, -8.813735870195429467279863907910371604180e-1L, -3.810492908885321954658152505985270452320e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4061 TEST_c_c (casinh, 0.0L, 0x0.fffffffffffff8p0L, 0.0L, 1.570796311893735425383665303776316016594L);
4062 TEST_c_c (casinh, 0.0L, -0x0.fffffffffffff8p0L, 0.0L, -1.570796311893735425383665303776316016594L);
4063 TEST_c_c (casinh, -0.0L, 0x0.fffffffffffff8p0L, -0.0L, 1.570796311893735425383665303776316016594L);
4064 TEST_c_c (casinh, -0.0L, -0x0.fffffffffffff8p0L, -0.0L, -1.570796311893735425383665303776316016594L);
4065 TEST_c_c (casinh, 0x0.fffffffffffff8p0L, 0.0L, 8.813735870195429467279863907910371604180e-1L, 0.0L);
4066 TEST_c_c (casinh, -0x0.fffffffffffff8p0L, 0.0L, -8.813735870195429467279863907910371604180e-1L, 0.0L);
4067 TEST_c_c (casinh, 0x0.fffffffffffff8p0L, -0.0L, 8.813735870195429467279863907910371604180e-1L, -0.0L);
4068 TEST_c_c (casinh, -0x0.fffffffffffff8p0L, -0.0L, -8.813735870195429467279863907910371604180e-1L, -0.0L);
4069#endif
4070 TEST_c_c (casinh, 0x1p-52L, 0.5L, 2.563950248511418570403591756798643804971e-16L, 5.235987755982988730771072305465648369889e-1L);
4071 TEST_c_c (casinh, 0x1p-52L, -0.5L, 2.563950248511418570403591756798643804971e-16L, -5.235987755982988730771072305465648369889e-1L);
4072 TEST_c_c (casinh, -0x1p-52L, 0.5L, -2.563950248511418570403591756798643804971e-16L, 5.235987755982988730771072305465648369889e-1L);
4073 TEST_c_c (casinh, -0x1p-52L, -0.5L, -2.563950248511418570403591756798643804971e-16L, -5.235987755982988730771072305465648369889e-1L);
4074 TEST_c_c (casinh, 0.5L, 0x1p-52L, 4.812118250596034474977589134243772428682e-1L, 1.986027322597818397661816253158024383707e-16L);
4075 TEST_c_c (casinh, -0.5L, 0x1p-52L, -4.812118250596034474977589134243772428682e-1L, 1.986027322597818397661816253158024383707e-16L);
4076 TEST_c_c (casinh, 0.5L, -0x1p-52L, 4.812118250596034474977589134243772428682e-1L, -1.986027322597818397661816253158024383707e-16L);
4077 TEST_c_c (casinh, -0.5L, -0x1p-52L, -4.812118250596034474977589134243772428682e-1L, -1.986027322597818397661816253158024383707e-16L);
4078#ifndef TEST_FLOAT
4079 TEST_c_c (casinh, 0x1.fp-1025L, 0.5L, 6.222508863508420569166420770843207333493e-309L, 5.235987755982988730771072305465838140329e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
4080 TEST_c_c (casinh, 0x1.fp-1025L, -0.5L, 6.222508863508420569166420770843207333493e-309L, -5.235987755982988730771072305465838140329e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
4081 TEST_c_c (casinh, -0x1.fp-1025L, 0.5L, -6.222508863508420569166420770843207333493e-309L, 5.235987755982988730771072305465838140329e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
4082 TEST_c_c (casinh, -0x1.fp-1025L, -0.5L, -6.222508863508420569166420770843207333493e-309L, -5.235987755982988730771072305465838140329e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
4083 TEST_c_c (casinh, 0.5L, 0x1.fp-1025L, 4.812118250596034474977589134243684231352e-1L, 4.819934639999230680322935210539402497827e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4084 TEST_c_c (casinh, -0.5L, 0x1.fp-1025L, -4.812118250596034474977589134243684231352e-1L, 4.819934639999230680322935210539402497827e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4085 TEST_c_c (casinh, 0.5L, -0x1.fp-1025L, 4.812118250596034474977589134243684231352e-1L, -4.819934639999230680322935210539402497827e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4086 TEST_c_c (casinh, -0.5L, -0x1.fp-1025L, -4.812118250596034474977589134243684231352e-1L, -4.819934639999230680322935210539402497827e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4087#endif
4088 TEST_c_c (casinh, 0x1p-52L, 0x1p-52L, 2.220446049250313080847263336181677117148e-16L, 2.220446049250313080847263336181604132852e-16L);
4089 TEST_c_c (casinh, 0x1p-52L, -0x1p-52L, 2.220446049250313080847263336181677117148e-16L, -2.220446049250313080847263336181604132852e-16L);
4090 TEST_c_c (casinh, -0x1p-52L, 0x1p-52L, -2.220446049250313080847263336181677117148e-16L, 2.220446049250313080847263336181604132852e-16L);
4091 TEST_c_c (casinh, -0x1p-52L, -0x1p-52L, -2.220446049250313080847263336181677117148e-16L, -2.220446049250313080847263336181604132852e-16L);
4092#ifndef TEST_FLOAT
4093 TEST_c_c (casinh, 0x1.fp-1025L, 0x1p-52L, 5.388850751072128349671657362289548938458e-309L, 2.220446049250313080847263336181658871074e-16L, UNDERFLOW_EXCEPTION_DOUBLE);
4094 TEST_c_c (casinh, 0x1.fp-1025L, -0x1p-52L, 5.388850751072128349671657362289548938458e-309L, -2.220446049250313080847263336181658871074e-16L, UNDERFLOW_EXCEPTION_DOUBLE);
4095 TEST_c_c (casinh, -0x1.fp-1025L, 0x1p-52L, -5.388850751072128349671657362289548938458e-309L, 2.220446049250313080847263336181658871074e-16L, UNDERFLOW_EXCEPTION_DOUBLE);
4096 TEST_c_c (casinh, -0x1.fp-1025L, -0x1p-52L, -5.388850751072128349671657362289548938458e-309L, -2.220446049250313080847263336181658871074e-16L, UNDERFLOW_EXCEPTION_DOUBLE);
4097 /* Bug 15319: underflow exception may be missing. */
4098 TEST_c_c (casinh, 0x1p-52L, 0x1.fp-1025L, 2.220446049250313080847263336181622378926e-16L, 5.388850751072128349671657362289283247603e-309L, UNDERFLOW_EXCEPTION_OK_DOUBLE);
4099 TEST_c_c (casinh, -0x1p-52L, 0x1.fp-1025L, -2.220446049250313080847263336181622378926e-16L, 5.388850751072128349671657362289283247603e-309L, UNDERFLOW_EXCEPTION_OK_DOUBLE);
4100 TEST_c_c (casinh, 0x1p-52L, -0x1.fp-1025L, 2.220446049250313080847263336181622378926e-16L, -5.388850751072128349671657362289283247603e-309L, UNDERFLOW_EXCEPTION_OK_DOUBLE);
4101 TEST_c_c (casinh, -0x1p-52L, -0x1.fp-1025L, -2.220446049250313080847263336181622378926e-16L, -5.388850751072128349671657362289283247603e-309L, UNDERFLOW_EXCEPTION_OK_DOUBLE);
4102#endif
4103 TEST_c_c (casinh, 0.0L, 0x1p-52L, 0.0L, 2.220446049250313080847263336181658871074e-16L);
4104 TEST_c_c (casinh, 0.0L, -0x1p-52L, 0.0L, -2.220446049250313080847263336181658871074e-16L);
4105 TEST_c_c (casinh, -0.0L, 0x1p-52L, -0.0L, 2.220446049250313080847263336181658871074e-16L);
4106 TEST_c_c (casinh, -0.0L, -0x1p-52L, -0.0L, -2.220446049250313080847263336181658871074e-16L);
4107 TEST_c_c (casinh, 0x1p-52L, 0.0L, 2.220446049250313080847263336181622378926e-16L, 0.0L);
4108 TEST_c_c (casinh, -0x1p-52L, 0.0L, -2.220446049250313080847263336181622378926e-16L, 0.0L);
4109 TEST_c_c (casinh, 0x1p-52L, -0.0L, 2.220446049250313080847263336181622378926e-16L, -0.0L);
4110 TEST_c_c (casinh, -0x1p-52L, -0.0L, -2.220446049250313080847263336181622378926e-16L, -0.0L);
4111#ifndef TEST_FLOAT
4112 TEST_c_c (casinh, 0x1.fp-1025L, 0x1.fp-1025L, 5.388850751072128349671657362289416093031e-309L, 5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4113 TEST_c_c (casinh, 0x1.fp-1025L, -0x1.fp-1025L, 5.388850751072128349671657362289416093031e-309L, -5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4114 TEST_c_c (casinh, -0x1.fp-1025L, 0x1.fp-1025L, -5.388850751072128349671657362289416093031e-309L, 5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4115 TEST_c_c (casinh, -0x1.fp-1025L, -0x1.fp-1025L, -5.388850751072128349671657362289416093031e-309L, -5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4116#endif
4117#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64
4118 TEST_c_c (casinh, 0x1p-63L, 0x0.ffffffffffffffffp0L, 2.588578361325995866221775673638805081337e-10L, 1.570796326376055842114524927965556247908L);
4119 TEST_c_c (casinh, 0x1p-63L, -0x0.ffffffffffffffffp0L, 2.588578361325995866221775673638805081337e-10L, -1.570796326376055842114524927965556247908L);
4120 TEST_c_c (casinh, -0x1p-63L, 0x0.ffffffffffffffffp0L, -2.588578361325995866221775673638805081337e-10L, 1.570796326376055842114524927965556247908L);
4121 TEST_c_c (casinh, -0x1p-63L, -0x0.ffffffffffffffffp0L, -2.588578361325995866221775673638805081337e-10L, -1.570796326376055842114524927965556247908L);
4122 TEST_c_c (casinh, 0x0.ffffffffffffffffp0L, 0x1p-63L, 8.813735870195430251942769895627079569937e-1L, 7.666467083416870407402049869781566856442e-20L);
4123 TEST_c_c (casinh, -0x0.ffffffffffffffffp0L, 0x1p-63L, -8.813735870195430251942769895627079569937e-1L, 7.666467083416870407402049869781566856442e-20L);
4124 TEST_c_c (casinh, 0x0.ffffffffffffffffp0L, -0x1p-63L, 8.813735870195430251942769895627079569937e-1L, -7.666467083416870407402049869781566856442e-20L);
4125 TEST_c_c (casinh, -0x0.ffffffffffffffffp0L, -0x1p-63L, -8.813735870195430251942769895627079569937e-1L, -7.666467083416870407402049869781566856442e-20L);
4126# if LDBL_MIN_EXP <= -16381
4127 TEST_c_c (casinh, 0x1.fp-16385L, 0x0.ffffffffffffffffp0L, 2.472906068161537187835415298076415423459e-4923L, 1.570796326465624365239962068302568888898L);
4128 TEST_c_c (casinh, 0x1.fp-16385L, -0x0.ffffffffffffffffp0L, 2.472906068161537187835415298076415423459e-4923L, -1.570796326465624365239962068302568888898L);
4129 TEST_c_c (casinh, -0x1.fp-16385L, 0x0.ffffffffffffffffp0L, -2.472906068161537187835415298076415423459e-4923L, 1.570796326465624365239962068302568888898L);
4130 TEST_c_c (casinh, -0x1.fp-16385L, -0x0.ffffffffffffffffp0L, -2.472906068161537187835415298076415423459e-4923L, -1.570796326465624365239962068302568888898L);
4131 TEST_c_c (casinh, 0x0.ffffffffffffffffp0L, 0x1.fp-16385L, 8.813735870195430251942769895627079569917e-1L, 5.757683115456107044287327268904964422212e-4933L, UNDERFLOW_EXCEPTION);
4132 TEST_c_c (casinh, -0x0.ffffffffffffffffp0L, 0x1.fp-16385L, -8.813735870195430251942769895627079569917e-1L, 5.757683115456107044287327268904964422212e-4933L, UNDERFLOW_EXCEPTION);
4133 TEST_c_c (casinh, 0x0.ffffffffffffffffp0L, -0x1.fp-16385L, 8.813735870195430251942769895627079569917e-1L, -5.757683115456107044287327268904964422212e-4933L, UNDERFLOW_EXCEPTION);
4134 TEST_c_c (casinh, -0x0.ffffffffffffffffp0L, -0x1.fp-16385L, -8.813735870195430251942769895627079569917e-1L, -5.757683115456107044287327268904964422212e-4933L, UNDERFLOW_EXCEPTION);
4135# endif
4136 TEST_c_c (casinh, 0.0L, 0x0.ffffffffffffffffp0L, 0.0L, 1.570796326465624365239962068302568888898L);
4137 TEST_c_c (casinh, 0.0L, -0x0.ffffffffffffffffp0L, 0.0L, -1.570796326465624365239962068302568888898L);
4138 TEST_c_c (casinh, -0.0L, 0x0.ffffffffffffffffp0L, -0.0L, 1.570796326465624365239962068302568888898L);
4139 TEST_c_c (casinh, -0.0L, -0x0.ffffffffffffffffp0L, -0.0L, -1.570796326465624365239962068302568888898L);
4140 TEST_c_c (casinh, 0x0.ffffffffffffffffp0L, 0.0L, 8.813735870195430251942769895627079569917e-1L, 0.0L);
4141 TEST_c_c (casinh, -0x0.ffffffffffffffffp0L, 0.0L, -8.813735870195430251942769895627079569917e-1L, 0.0L);
4142 TEST_c_c (casinh, 0x0.ffffffffffffffffp0L, -0.0L, 8.813735870195430251942769895627079569917e-1L, -0.0L);
4143 TEST_c_c (casinh, -0x0.ffffffffffffffffp0L, -0.0L, -8.813735870195430251942769895627079569917e-1L, -0.0L);
4144#endif
4145 TEST_c_c (casinh, 0x1p-63L, 0.5L, 1.251928832280966098829878787499365228659e-19L, 5.235987755982988730771072305465838140283e-1L);
4146 TEST_c_c (casinh, 0x1p-63L, -0.5L, 1.251928832280966098829878787499365228659e-19L, -5.235987755982988730771072305465838140283e-1L);
4147 TEST_c_c (casinh, -0x1p-63L, 0.5L, -1.251928832280966098829878787499365228659e-19L, 5.235987755982988730771072305465838140283e-1L);
4148 TEST_c_c (casinh, -0x1p-63L, -0.5L, -1.251928832280966098829878787499365228659e-19L, -5.235987755982988730771072305465838140283e-1L);
4149 TEST_c_c (casinh, 0.5L, 0x1p-63L, 4.812118250596034474977589134243684231373e-1L, 9.697399036122160144833087173623140436413e-20L);
4150 TEST_c_c (casinh, -0.5L, 0x1p-63L, -4.812118250596034474977589134243684231373e-1L, 9.697399036122160144833087173623140436413e-20L);
4151 TEST_c_c (casinh, 0.5L, -0x1p-63L, 4.812118250596034474977589134243684231373e-1L, -9.697399036122160144833087173623140436413e-20L);
4152 TEST_c_c (casinh, -0.5L, -0x1p-63L, -4.812118250596034474977589134243684231373e-1L, -9.697399036122160144833087173623140436413e-20L);
4153#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
4154 TEST_c_c (casinh, 0x1.fp-16385L, 0.5L, 9.402257155670418112159334875199821342890e-4933L, 5.235987755982988730771072305465838140329e-1L, UNDERFLOW_EXCEPTION);
4155 TEST_c_c (casinh, 0x1.fp-16385L, -0.5L, 9.402257155670418112159334875199821342890e-4933L, -5.235987755982988730771072305465838140329e-1L, UNDERFLOW_EXCEPTION);
4156 TEST_c_c (casinh, -0x1.fp-16385L, 0.5L, -9.402257155670418112159334875199821342890e-4933L, 5.235987755982988730771072305465838140329e-1L, UNDERFLOW_EXCEPTION);
4157 TEST_c_c (casinh, -0x1.fp-16385L, -0.5L, -9.402257155670418112159334875199821342890e-4933L, -5.235987755982988730771072305465838140329e-1L, UNDERFLOW_EXCEPTION);
4158 TEST_c_c (casinh, 0.5L, 0x1.fp-16385L, 4.812118250596034474977589134243684231352e-1L, 7.282957076134209141226696333885150260319e-4933L, UNDERFLOW_EXCEPTION);
4159 TEST_c_c (casinh, -0.5L, 0x1.fp-16385L, -4.812118250596034474977589134243684231352e-1L, 7.282957076134209141226696333885150260319e-4933L, UNDERFLOW_EXCEPTION);
4160 TEST_c_c (casinh, 0.5L, -0x1.fp-16385L, 4.812118250596034474977589134243684231352e-1L, -7.282957076134209141226696333885150260319e-4933L, UNDERFLOW_EXCEPTION);
4161 TEST_c_c (casinh, -0.5L, -0x1.fp-16385L, -4.812118250596034474977589134243684231352e-1L, -7.282957076134209141226696333885150260319e-4933L, UNDERFLOW_EXCEPTION);
4162#endif
4163 TEST_c_c (casinh, 0x1p-63L, 0x1p-63L, 1.084202172485504434007452800869941711430e-19L, 1.084202172485504434007452800869941711422e-19L);
4164 TEST_c_c (casinh, 0x1p-63L, -0x1p-63L, 1.084202172485504434007452800869941711430e-19L, -1.084202172485504434007452800869941711422e-19L);
4165 TEST_c_c (casinh, -0x1p-63L, 0x1p-63L, -1.084202172485504434007452800869941711430e-19L, 1.084202172485504434007452800869941711422e-19L);
4166 TEST_c_c (casinh, -0x1p-63L, -0x1p-63L, -1.084202172485504434007452800869941711430e-19L, -1.084202172485504434007452800869941711422e-19L);
4167#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
4168 TEST_c_c (casinh, 0x1.fp-16385L, 0x1p-63L, 8.142593549724601460479922838826119584465e-4933L, 1.084202172485504434007452800869941711428e-19L, UNDERFLOW_EXCEPTION);
4169 TEST_c_c (casinh, 0x1.fp-16385L, -0x1p-63L, 8.142593549724601460479922838826119584465e-4933L, -1.084202172485504434007452800869941711428e-19L, UNDERFLOW_EXCEPTION);
4170 TEST_c_c (casinh, -0x1.fp-16385L, 0x1p-63L, -8.142593549724601460479922838826119584465e-4933L, 1.084202172485504434007452800869941711428e-19L, UNDERFLOW_EXCEPTION);
4171 TEST_c_c (casinh, -0x1.fp-16385L, -0x1p-63L, -8.142593549724601460479922838826119584465e-4933L, -1.084202172485504434007452800869941711428e-19L, UNDERFLOW_EXCEPTION);
4172 TEST_c_c (casinh, 0x1p-63L, 0x1.fp-16385L, 1.084202172485504434007452800869941711424e-19L, 8.142593549724601460479922838826119584369e-4933L, UNDERFLOW_EXCEPTION);
4173 TEST_c_c (casinh, -0x1p-63L, 0x1.fp-16385L, -1.084202172485504434007452800869941711424e-19L, 8.142593549724601460479922838826119584369e-4933L, UNDERFLOW_EXCEPTION);
4174 TEST_c_c (casinh, 0x1p-63L, -0x1.fp-16385L, 1.084202172485504434007452800869941711424e-19L, -8.142593549724601460479922838826119584369e-4933L, UNDERFLOW_EXCEPTION);
4175 TEST_c_c (casinh, -0x1p-63L, -0x1.fp-16385L, -1.084202172485504434007452800869941711424e-19L, -8.142593549724601460479922838826119584369e-4933L, UNDERFLOW_EXCEPTION);
4176#endif
4177 TEST_c_c (casinh, 0.0L, 0x1p-63L, 0.0L, 1.084202172485504434007452800869941711428e-19L);
4178 TEST_c_c (casinh, 0.0L, -0x1p-63L, 0.0L, -1.084202172485504434007452800869941711428e-19L);
4179 TEST_c_c (casinh, -0.0L, 0x1p-63L, -0.0L, 1.084202172485504434007452800869941711428e-19L);
4180 TEST_c_c (casinh, -0.0L, -0x1p-63L, -0.0L, -1.084202172485504434007452800869941711428e-19L);
4181 TEST_c_c (casinh, 0x1p-63L, 0.0L, 1.084202172485504434007452800869941711424e-19L, 0.0L);
4182 TEST_c_c (casinh, -0x1p-63L, 0.0L, -1.084202172485504434007452800869941711424e-19L, 0.0L);
4183 TEST_c_c (casinh, 0x1p-63L, -0.0L, 1.084202172485504434007452800869941711424e-19L, -0.0L);
4184 TEST_c_c (casinh, -0x1p-63L, -0.0L, -1.084202172485504434007452800869941711424e-19L, -0.0L);
4185#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
4186 TEST_c_c (casinh, 0x1.fp-16385L, 0x1.fp-16385L, 8.142593549724601460479922838826119584417e-4933L, 8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
4187 TEST_c_c (casinh, 0x1.fp-16385L, -0x1.fp-16385L, 8.142593549724601460479922838826119584417e-4933L, -8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
4188 TEST_c_c (casinh, -0x1.fp-16385L, 0x1.fp-16385L, -8.142593549724601460479922838826119584417e-4933L, 8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
4189 TEST_c_c (casinh, -0x1.fp-16385L, -0x1.fp-16385L, -8.142593549724601460479922838826119584417e-4933L, -8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
4190#endif
4191#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106
4192 TEST_c_c (casinh, 0x1p-105L, 0x0.ffffffffffffffffffffffffffcp0L, 1.234330349600789959989661887846005659983e-16L, 1.570796326794896419512475791677915736035L);
4193 TEST_c_c (casinh, 0x1p-105L, -0x0.ffffffffffffffffffffffffffcp0L, 1.234330349600789959989661887846005659983e-16L, -1.570796326794896419512475791677915736035L);
4194 TEST_c_c (casinh, -0x1p-105L, 0x0.ffffffffffffffffffffffffffcp0L, -1.234330349600789959989661887846005659983e-16L, 1.570796326794896419512475791677915736035L);
4195 TEST_c_c (casinh, -0x1p-105L, -0x0.ffffffffffffffffffffffffffcp0L, -1.234330349600789959989661887846005659983e-16L, -1.570796326794896419512475791677915736035L);
4196 TEST_c_c (casinh, 0x0.ffffffffffffffffffffffffffcp0L, 0x1p-105L, 8.813735870195430252326093249797835932642e-1L, 1.743152798421049375791483240187377443526e-32L);
4197 TEST_c_c (casinh, -0x0.ffffffffffffffffffffffffffcp0L, 0x1p-105L, -8.813735870195430252326093249797835932642e-1L, 1.743152798421049375791483240187377443526e-32L);
4198 TEST_c_c (casinh, 0x0.ffffffffffffffffffffffffffcp0L, -0x1p-105L, 8.813735870195430252326093249797835932642e-1L, -1.743152798421049375791483240187377443526e-32L);
4199 TEST_c_c (casinh, -0x0.ffffffffffffffffffffffffffcp0L, -0x1p-105L, -8.813735870195430252326093249797835932642e-1L, -1.743152798421049375791483240187377443526e-32L);
4200 TEST_c_c (casinh, 0x1.fp-1025L, 0x0.ffffffffffffffffffffffffffcp0L, 3.432186888910770473784103112009399360940e-293L, 1.570796326794896462222075823262245502760L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
4201 TEST_c_c (casinh, 0x1.fp-1025L, -0x0.ffffffffffffffffffffffffffcp0L, 3.432186888910770473784103112009399360940e-293L, -1.570796326794896462222075823262245502760L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
4202 TEST_c_c (casinh, -0x1.fp-1025L, 0x0.ffffffffffffffffffffffffffcp0L, -3.432186888910770473784103112009399360940e-293L, 1.570796326794896462222075823262245502760L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
4203 TEST_c_c (casinh, -0x1.fp-1025L, -0x0.ffffffffffffffffffffffffffcp0L, -3.432186888910770473784103112009399360940e-293L, -1.570796326794896462222075823262245502760L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
4204 TEST_c_c (casinh, 0x0.ffffffffffffffffffffffffffcp0L, 0x1.fp-1025L, 8.813735870195430252326093249797835932642e-1L, 3.810492908885321743133304375216641110205e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4205 TEST_c_c (casinh, -0x0.ffffffffffffffffffffffffffcp0L, 0x1.fp-1025L, -8.813735870195430252326093249797835932642e-1L, 3.810492908885321743133304375216641110205e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4206 TEST_c_c (casinh, 0x0.ffffffffffffffffffffffffffcp0L, -0x1.fp-1025L, 8.813735870195430252326093249797835932642e-1L, -3.810492908885321743133304375216641110205e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4207 TEST_c_c (casinh, -0x0.ffffffffffffffffffffffffffcp0L, -0x1.fp-1025L, -8.813735870195430252326093249797835932642e-1L, -3.810492908885321743133304375216641110205e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4208 TEST_c_c (casinh, 0.0L, 0x0.ffffffffffffffffffffffffffcp0L, 0.0L, 1.570796326794896462222075823262245502760L);
4209 TEST_c_c (casinh, 0.0L, -0x0.ffffffffffffffffffffffffffcp0L, 0.0L, -1.570796326794896462222075823262245502760L);
4210 TEST_c_c (casinh, -0.0L, 0x0.ffffffffffffffffffffffffffcp0L, -0.0L, 1.570796326794896462222075823262245502760L);
4211 TEST_c_c (casinh, -0.0L, -0x0.ffffffffffffffffffffffffffcp0L, -0.0L, -1.570796326794896462222075823262245502760L);
4212 TEST_c_c (casinh, 0x0.ffffffffffffffffffffffffffcp0L, 0.0L, 8.813735870195430252326093249797835932642e-1L, 0.0L);
4213 TEST_c_c (casinh, -0x0.ffffffffffffffffffffffffffcp0L, 0.0L, -8.813735870195430252326093249797835932642e-1L, 0.0L);
4214 TEST_c_c (casinh, 0x0.ffffffffffffffffffffffffffcp0L, -0.0L, 8.813735870195430252326093249797835932642e-1L, -0.0L);
4215 TEST_c_c (casinh, -0x0.ffffffffffffffffffffffffffcp0L, -0.0L, -8.813735870195430252326093249797835932642e-1L, -0.0L);
4216#endif
4217 TEST_c_c (casinh, 0x1p-105L, 0.5L, 2.846556599890768890940941645338546615370e-32L, 5.235987755982988730771072305465838140329e-1L);
4218 TEST_c_c (casinh, 0x1p-105L, -0.5L, 2.846556599890768890940941645338546615370e-32L, -5.235987755982988730771072305465838140329e-1L);
4219 TEST_c_c (casinh, -0x1p-105L, 0.5L, -2.846556599890768890940941645338546615370e-32L, 5.235987755982988730771072305465838140329e-1L);
4220 TEST_c_c (casinh, -0x1p-105L, -0.5L, -2.846556599890768890940941645338546615370e-32L, -5.235987755982988730771072305465838140329e-1L);
4221 TEST_c_c (casinh, 0.5L, 0x1p-105L, 4.812118250596034474977589134243684231352e-1L, 2.204933261082751447436996198490110245167e-32L);
4222 TEST_c_c (casinh, -0.5L, 0x1p-105L, -4.812118250596034474977589134243684231352e-1L, 2.204933261082751447436996198490110245167e-32L);
4223 TEST_c_c (casinh, 0.5L, -0x1p-105L, 4.812118250596034474977589134243684231352e-1L, -2.204933261082751447436996198490110245167e-32L);
4224 TEST_c_c (casinh, -0.5L, -0x1p-105L, -4.812118250596034474977589134243684231352e-1L, -2.204933261082751447436996198490110245167e-32L);
4225 TEST_c_c (casinh, 0x1p-105L, 0x1p-105L, 2.465190328815661891911651766508706967729e-32L, 2.465190328815661891911651766508706967729e-32L);
4226 TEST_c_c (casinh, 0x1p-105L, -0x1p-105L, 2.465190328815661891911651766508706967729e-32L, -2.465190328815661891911651766508706967729e-32L);
4227 TEST_c_c (casinh, -0x1p-105L, 0x1p-105L, -2.465190328815661891911651766508706967729e-32L, 2.465190328815661891911651766508706967729e-32L);
4228 TEST_c_c (casinh, -0x1p-105L, -0x1p-105L, -2.465190328815661891911651766508706967729e-32L, -2.465190328815661891911651766508706967729e-32L);
4229#ifndef TEST_FLOAT
4230 TEST_c_c (casinh, 0x1.fp-1025L, 0x1p-105L, 5.388850751072128349671657362289416093031e-309L, 2.465190328815661891911651766508706967729e-32L, UNDERFLOW_EXCEPTION_DOUBLE);
4231 TEST_c_c (casinh, 0x1.fp-1025L, -0x1p-105L, 5.388850751072128349671657362289416093031e-309L, -2.465190328815661891911651766508706967729e-32L, UNDERFLOW_EXCEPTION_DOUBLE);
4232 TEST_c_c (casinh, -0x1.fp-1025L, 0x1p-105L, -5.388850751072128349671657362289416093031e-309L, 2.465190328815661891911651766508706967729e-32L, UNDERFLOW_EXCEPTION_DOUBLE);
4233 TEST_c_c (casinh, -0x1.fp-1025L, -0x1p-105L, -5.388850751072128349671657362289416093031e-309L, -2.465190328815661891911651766508706967729e-32L, UNDERFLOW_EXCEPTION_DOUBLE);
4234 /* Bug 15319: underflow exception may be missing. */
4235 TEST_c_c (casinh, 0x1p-105L, 0x1.fp-1025L, 2.465190328815661891911651766508706967729e-32L, 5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_OK_DOUBLE);
4236 TEST_c_c (casinh, -0x1p-105L, 0x1.fp-1025L, -2.465190328815661891911651766508706967729e-32L, 5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_OK_DOUBLE);
4237 TEST_c_c (casinh, 0x1p-105L, -0x1.fp-1025L, 2.465190328815661891911651766508706967729e-32L, -5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_OK_DOUBLE);
4238 TEST_c_c (casinh, -0x1p-105L, -0x1.fp-1025L, -2.465190328815661891911651766508706967729e-32L, -5.388850751072128349671657362289416093031e-309L, UNDERFLOW_EXCEPTION_OK_DOUBLE);
4239#endif
4240 TEST_c_c (casinh, 0.0L, 0x1p-105L, 0.0L, 2.465190328815661891911651766508706967729e-32L);
4241 TEST_c_c (casinh, 0.0L, -0x1p-105L, 0.0L, -2.465190328815661891911651766508706967729e-32L);
4242 TEST_c_c (casinh, -0.0L, 0x1p-105L, -0.0L, 2.465190328815661891911651766508706967729e-32L);
4243 TEST_c_c (casinh, -0.0L, -0x1p-105L, -0.0L, -2.465190328815661891911651766508706967729e-32L);
4244 TEST_c_c (casinh, 0x1p-105L, 0.0L, 2.465190328815661891911651766508706967729e-32L, 0.0L);
4245 TEST_c_c (casinh, -0x1p-105L, 0.0L, -2.465190328815661891911651766508706967729e-32L, 0.0L);
4246 TEST_c_c (casinh, 0x1p-105L, -0.0L, 2.465190328815661891911651766508706967729e-32L, -0.0L);
4247 TEST_c_c (casinh, -0x1p-105L, -0.0L, -2.465190328815661891911651766508706967729e-32L, -0.0L);
4248#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 113
4249 TEST_c_c (casinh, 0x1p-112L, 0x0.ffffffffffffffffffffffffffff8p0L, 1.091004200533850618345330909857103457781e-17L, 1.570796326794896601578502908312986698624L);
4250 TEST_c_c (casinh, 0x1p-112L, -0x0.ffffffffffffffffffffffffffff8p0L, 1.091004200533850618345330909857103457781e-17L, -1.570796326794896601578502908312986698624L);
4251 TEST_c_c (casinh, -0x1p-112L, 0x0.ffffffffffffffffffffffffffff8p0L, -1.091004200533850618345330909857103457781e-17L, 1.570796326794896601578502908312986698624L);
4252 TEST_c_c (casinh, -0x1p-112L, -0x0.ffffffffffffffffffffffffffff8p0L, -1.091004200533850618345330909857103457781e-17L, -1.570796326794896601578502908312986698624L);
4253 TEST_c_c (casinh, 0x0.ffffffffffffffffffffffffffff8p0L, 0x1p-112L, 8.813735870195430252326093249797922409363e-1L, 1.361838123766444824837096281396380300349e-34L);
4254 TEST_c_c (casinh, -0x0.ffffffffffffffffffffffffffff8p0L, 0x1p-112L, -8.813735870195430252326093249797922409363e-1L, 1.361838123766444824837096281396380300349e-34L);
4255 TEST_c_c (casinh, 0x0.ffffffffffffffffffffffffffff8p0L, -0x1p-112L, 8.813735870195430252326093249797922409363e-1L, -1.361838123766444824837096281396380300349e-34L);
4256 TEST_c_c (casinh, -0x0.ffffffffffffffffffffffffffff8p0L, -0x1p-112L, -8.813735870195430252326093249797922409363e-1L, -1.361838123766444824837096281396380300349e-34L);
4257 TEST_c_c (casinh, 0x1.fp-16385L, 0x0.ffffffffffffffffffffffffffff8p0L, 5.867357004219059108790368268900490184505e-4916L, 1.570796326794896605353533883825294686803L);
4258 TEST_c_c (casinh, 0x1.fp-16385L, -0x0.ffffffffffffffffffffffffffff8p0L, 5.867357004219059108790368268900490184505e-4916L, -1.570796326794896605353533883825294686803L);
4259 TEST_c_c (casinh, -0x1.fp-16385L, 0x0.ffffffffffffffffffffffffffff8p0L, -5.867357004219059108790368268900490184505e-4916L, 1.570796326794896605353533883825294686803L);
4260 TEST_c_c (casinh, -0x1.fp-16385L, -0x0.ffffffffffffffffffffffffffff8p0L, -5.867357004219059108790368268900490184505e-4916L, -1.570796326794896605353533883825294686803L);
4261 TEST_c_c (casinh, 0x0.ffffffffffffffffffffffffffff8p0L, 0x1.fp-16385L, 8.813735870195430252326093249797922409363e-1L, 5.757683115456107044131264955348449231681e-4933L, UNDERFLOW_EXCEPTION);
4262 TEST_c_c (casinh, -0x0.ffffffffffffffffffffffffffff8p0L, 0x1.fp-16385L, -8.813735870195430252326093249797922409363e-1L, 5.757683115456107044131264955348449231681e-4933L, UNDERFLOW_EXCEPTION);
4263 TEST_c_c (casinh, 0x0.ffffffffffffffffffffffffffff8p0L, -0x1.fp-16385L, 8.813735870195430252326093249797922409363e-1L, -5.757683115456107044131264955348449231681e-4933L, UNDERFLOW_EXCEPTION);
4264 TEST_c_c (casinh, -0x0.ffffffffffffffffffffffffffff8p0L, -0x1.fp-16385L, -8.813735870195430252326093249797922409363e-1L, -5.757683115456107044131264955348449231681e-4933L, UNDERFLOW_EXCEPTION);
4265 TEST_c_c (casinh, 0.0L, 0x0.ffffffffffffffffffffffffffff8p0L, 0.0L, 1.570796326794896605353533883825294686803L);
4266 TEST_c_c (casinh, 0.0L, -0x0.ffffffffffffffffffffffffffff8p0L, 0.0L, -1.570796326794896605353533883825294686803L);
4267 TEST_c_c (casinh, -0.0L, 0x0.ffffffffffffffffffffffffffff8p0L, -0.0L, 1.570796326794896605353533883825294686803L);
4268 TEST_c_c (casinh, -0.0L, -0x0.ffffffffffffffffffffffffffff8p0L, -0.0L, -1.570796326794896605353533883825294686803L);
4269 TEST_c_c (casinh, 0x0.ffffffffffffffffffffffffffff8p0L, 0.0L, 8.813735870195430252326093249797922409363e-1L, 0.0L);
4270 TEST_c_c (casinh, -0x0.ffffffffffffffffffffffffffff8p0L, 0.0L, -8.813735870195430252326093249797922409363e-1L, 0.0L);
4271 TEST_c_c (casinh, 0x0.ffffffffffffffffffffffffffff8p0L, -0.0L, 8.813735870195430252326093249797922409363e-1L, -0.0L);
4272 TEST_c_c (casinh, -0x0.ffffffffffffffffffffffffffff8p0L, -0.0L, -8.813735870195430252326093249797922409363e-1L, -0.0L);
4273#endif
4274 TEST_c_c (casinh, 0x1p-112L, 0.5L, 2.223872343664663196047610660420739543258e-34L, 5.235987755982988730771072305465838140329e-1L);
4275 TEST_c_c (casinh, 0x1p-112L, -0.5L, 2.223872343664663196047610660420739543258e-34L, -5.235987755982988730771072305465838140329e-1L);
4276 TEST_c_c (casinh, -0x1p-112L, 0.5L, -2.223872343664663196047610660420739543258e-34L, 5.235987755982988730771072305465838140329e-1L);
4277 TEST_c_c (casinh, -0x1p-112L, -0.5L, -2.223872343664663196047610660420739543258e-34L, -5.235987755982988730771072305465838140329e-1L);
4278 TEST_c_c (casinh, 0.5L, 0x1p-112L, 4.812118250596034474977589134243684231352e-1L, 1.722604110220899568310153280070398629037e-34L);
4279 TEST_c_c (casinh, -0.5L, 0x1p-112L, -4.812118250596034474977589134243684231352e-1L, 1.722604110220899568310153280070398629037e-34L);
4280 TEST_c_c (casinh, 0.5L, -0x1p-112L, 4.812118250596034474977589134243684231352e-1L, -1.722604110220899568310153280070398629037e-34L);
4281 TEST_c_c (casinh, -0.5L, -0x1p-112L, -4.812118250596034474977589134243684231352e-1L, -1.722604110220899568310153280070398629037e-34L);
4282 TEST_c_c (casinh, 0x1p-112L, 0x1p-112L, 1.925929944387235853055977942584927318538e-34L, 1.925929944387235853055977942584927318538e-34L);
4283 TEST_c_c (casinh, 0x1p-112L, -0x1p-112L, 1.925929944387235853055977942584927318538e-34L, -1.925929944387235853055977942584927318538e-34L);
4284 TEST_c_c (casinh, -0x1p-112L, 0x1p-112L, -1.925929944387235853055977942584927318538e-34L, 1.925929944387235853055977942584927318538e-34L);
4285 TEST_c_c (casinh, -0x1p-112L, -0x1p-112L, -1.925929944387235853055977942584927318538e-34L, -1.925929944387235853055977942584927318538e-34L);
4286#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
4287 TEST_c_c (casinh, 0x1.fp-16385L, 0x1p-112L, 8.142593549724601460479922838826119584417e-4933L, 1.925929944387235853055977942584927318538e-34L, UNDERFLOW_EXCEPTION);
4288 TEST_c_c (casinh, 0x1.fp-16385L, -0x1p-112L, 8.142593549724601460479922838826119584417e-4933L, -1.925929944387235853055977942584927318538e-34L, UNDERFLOW_EXCEPTION);
4289 TEST_c_c (casinh, -0x1.fp-16385L, 0x1p-112L, -8.142593549724601460479922838826119584417e-4933L, 1.925929944387235853055977942584927318538e-34L, UNDERFLOW_EXCEPTION);
4290 TEST_c_c (casinh, -0x1.fp-16385L, -0x1p-112L, -8.142593549724601460479922838826119584417e-4933L, -1.925929944387235853055977942584927318538e-34L, UNDERFLOW_EXCEPTION);
4291 TEST_c_c (casinh, 0x1p-112L, 0x1.fp-16385L, 1.925929944387235853055977942584927318538e-34L, 8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
4292 TEST_c_c (casinh, -0x1p-112L, 0x1.fp-16385L, -1.925929944387235853055977942584927318538e-34L, 8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
4293 TEST_c_c (casinh, 0x1p-112L, -0x1.fp-16385L, 1.925929944387235853055977942584927318538e-34L, -8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
4294 TEST_c_c (casinh, -0x1p-112L, -0x1.fp-16385L, -1.925929944387235853055977942584927318538e-34L, -8.142593549724601460479922838826119584417e-4933L, UNDERFLOW_EXCEPTION);
4295#endif
4296 TEST_c_c (casinh, 0.0L, 0x1p-112L, 0.0L, 1.925929944387235853055977942584927318538e-34L);
4297 TEST_c_c (casinh, 0.0L, -0x1p-112L, 0.0L, -1.925929944387235853055977942584927318538e-34L);
4298 TEST_c_c (casinh, -0.0L, 0x1p-112L, -0.0L, 1.925929944387235853055977942584927318538e-34L);
4299 TEST_c_c (casinh, -0.0L, -0x1p-112L, -0.0L, -1.925929944387235853055977942584927318538e-34L);
4300 TEST_c_c (casinh, 0x1p-112L, 0.0L, 1.925929944387235853055977942584927318538e-34L, 0.0L);
4301 TEST_c_c (casinh, -0x1p-112L, 0.0L, -1.925929944387235853055977942584927318538e-34L, 0.0L);
4302 TEST_c_c (casinh, 0x1p-112L, -0.0L, 1.925929944387235853055977942584927318538e-34L, -0.0L);
4303 TEST_c_c (casinh, -0x1p-112L, -0.0L, -1.925929944387235853055977942584927318538e-34L, -0.0L);
4304
2550dfe9 4305 TEST_c_c (casinh, 0.75L, 1.25L, 1.03171853444778027336364058631006594L, 0.911738290968487636358489564316731207L);
33e885db 4306 TEST_c_c (casinh, -2, -3, -1.9686379257930962917886650952454982L, -0.96465850440760279204541105949953237L);
8847214f 4307
6815fabc 4308 END (casinh, complex);
8847214f
UD		 4309}
4310
4311
4312static void
4313catan_test (void)
4314{
aaca11d8 4315 errno = 0;
3c6cad26 4316 FUNC(catan) (BUILD_COMPLEX (0.7L, 1.2L));
aaca11d8
UD		 4317 if (errno == ENOSYS)
4318 /* Function not implemented. */
4319 return;
4320
8847214f
UD		 4321 START (catan);
4322
4323 TEST_c_c (catan, 0, 0, 0, 0);
4324 TEST_c_c (catan, minus_zero, 0, minus_zero, 0);
4325 TEST_c_c (catan, 0, minus_zero, 0, minus_zero);
4326 TEST_c_c (catan, minus_zero, minus_zero, minus_zero, minus_zero);
4327
5e221800
JM		 4328 TEST_c_c (catan, 1.0L, plus_zero, M_PI_4l, plus_zero);
4329 TEST_c_c (catan, 1.0L, minus_zero, M_PI_4l, minus_zero);
4330 TEST_c_c (catan, -1.0L, plus_zero, -M_PI_4l, plus_zero);
4331 TEST_c_c (catan, -1.0L, minus_zero, -M_PI_4l, minus_zero);
4332 TEST_c_c (catan, plus_zero, 1.0L, plus_zero, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4333 TEST_c_c (catan, minus_zero, 1.0L, minus_zero, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4334 TEST_c_c (catan, plus_zero, -1.0L, plus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4335 TEST_c_c (catan, minus_zero, -1.0L, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4336
8847214f
UD		 4337 TEST_c_c (catan, plus_infty, plus_infty, M_PI_2l, 0);
4338 TEST_c_c (catan, plus_infty, minus_infty, M_PI_2l, minus_zero);
4339 TEST_c_c (catan, minus_infty, plus_infty, -M_PI_2l, 0);
4340 TEST_c_c (catan, minus_infty, minus_infty, -M_PI_2l, minus_zero);
4341
4342
4343 TEST_c_c (catan, plus_infty, -10.0, M_PI_2l, minus_zero);
4344 TEST_c_c (catan, minus_infty, -10.0, -M_PI_2l, minus_zero);
4345 TEST_c_c (catan, plus_infty, minus_zero, M_PI_2l, minus_zero);
4346 TEST_c_c (catan, minus_infty, minus_zero, -M_PI_2l, minus_zero);
4347 TEST_c_c (catan, plus_infty, 0.0, M_PI_2l, 0);
4348 TEST_c_c (catan, minus_infty, 0.0, -M_PI_2l, 0);
3c6cad26
UD		 4349 TEST_c_c (catan, plus_infty, 0.1L, M_PI_2l, 0);
4350 TEST_c_c (catan, minus_infty, 0.1L, -M_PI_2l, 0);
8847214f
UD		 4351
4352 TEST_c_c (catan, 0.0, minus_infty, M_PI_2l, minus_zero);
4353 TEST_c_c (catan, minus_zero, minus_infty, -M_PI_2l, minus_zero);
4354 TEST_c_c (catan, 100.0, minus_infty, M_PI_2l, minus_zero);
4355 TEST_c_c (catan, -100.0, minus_infty, -M_PI_2l, minus_zero);
4356
4357 TEST_c_c (catan, 0.0, plus_infty, M_PI_2l, 0);
4358 TEST_c_c (catan, minus_zero, plus_infty, -M_PI_2l, 0);
4359 TEST_c_c (catan, 0.5, plus_infty, M_PI_2l, 0);
4360 TEST_c_c (catan, -0.5, plus_infty, -M_PI_2l, 0);
4361
67e971f1
TS		 4362 TEST_c_c (catan, qnan_value, 0.0, qnan_value, 0);
4363 TEST_c_c (catan, qnan_value, minus_zero, qnan_value, minus_zero);
8847214f 4364
67e971f1
TS		 4365 TEST_c_c (catan, qnan_value, plus_infty, qnan_value, 0);
4366 TEST_c_c (catan, qnan_value, minus_infty, qnan_value, minus_zero);
8847214f 4367
67e971f1
TS		 4368 TEST_c_c (catan, 0.0, qnan_value, qnan_value, qnan_value);
4369 TEST_c_c (catan, minus_zero, qnan_value, qnan_value, qnan_value);
8847214f 4370
67e971f1
TS		 4371 TEST_c_c (catan, plus_infty, qnan_value, M_PI_2l, 0, IGNORE_ZERO_INF_SIGN);
4372 TEST_c_c (catan, minus_infty, qnan_value, -M_PI_2l, 0, IGNORE_ZERO_INF_SIGN);
8847214f 4373
67e971f1
TS		 4374 TEST_c_c (catan, qnan_value, 10.5, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
4375 TEST_c_c (catan, qnan_value, -10.5, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 4376
67e971f1
TS		 4377 TEST_c_c (catan, 0.75, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
4378 TEST_c_c (catan, -0.75, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 4379
67e971f1 4380 TEST_c_c (catan, qnan_value, qnan_value, qnan_value, qnan_value);
8847214f 4381
2f38fbfe
JM		 4382 TEST_c_c (catan, 0x1p50L, 0.0L, 1.570796326794895731052901991514519103193L, 0.0L);
4383 TEST_c_c (catan, 0x1p50L, -0.0L, 1.570796326794895731052901991514519103193L, -0.0L);
4384 TEST_c_c (catan, -0x1p50L, 0.0L, -1.570796326794895731052901991514519103193L, 0.0L);
4385 TEST_c_c (catan, -0x1p50L, -0.0L, -1.570796326794895731052901991514519103193L, -0.0L);
4386 TEST_c_c (catan, 0.0L, 0x1p50L, 1.570796326794896619231321691639751442099L, 8.881784197001252323389053344728897997441e-16L);
4387 TEST_c_c (catan, -0.0L, 0x1p50L, -1.570796326794896619231321691639751442099L, 8.881784197001252323389053344728897997441e-16L);
4388 TEST_c_c (catan, 0.0L, -0x1p50L, 1.570796326794896619231321691639751442099L, -8.881784197001252323389053344728897997441e-16L);
4389 TEST_c_c (catan, -0.0L, -0x1p50L, -1.570796326794896619231321691639751442099L, -8.881784197001252323389053344728897997441e-16L);
4390#ifndef TEST_FLOAT
4391 TEST_c_c (catan, 0x1p500L, 0.0L, 1.570796326794896619231321691639751442099L, 0.0L);
4392 TEST_c_c (catan, 0x1p500L, -0.0L, 1.570796326794896619231321691639751442099L, -0.0L);
4393 TEST_c_c (catan, -0x1p500L, 0.0L, -1.570796326794896619231321691639751442099L, 0.0L);
4394 TEST_c_c (catan, -0x1p500L, -0.0L, -1.570796326794896619231321691639751442099L, -0.0L);
4395 TEST_c_c (catan, 0.0L, 0x1p500L, 1.570796326794896619231321691639751442099L, 3.054936363499604682051979393213617699789e-151L);
4396 TEST_c_c (catan, -0.0L, 0x1p500L, -1.570796326794896619231321691639751442099L, 3.054936363499604682051979393213617699789e-151L);
4397 TEST_c_c (catan, 0.0L, -0x1p500L, 1.570796326794896619231321691639751442099L, -3.054936363499604682051979393213617699789e-151L);
4398 TEST_c_c (catan, -0.0L, -0x1p500L, -1.570796326794896619231321691639751442099L, -3.054936363499604682051979393213617699789e-151L);
4399#endif
4400#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
4401 TEST_c_c (catan, 0x1p5000L, 0.0L, 1.570796326794896619231321691639751442099L, 0.0L);
4402 TEST_c_c (catan, 0x1p5000L, -0.0L, 1.570796326794896619231321691639751442099L, -0.0L);
4403 TEST_c_c (catan, -0x1p5000L, 0.0L, -1.570796326794896619231321691639751442099L, 0.0L);
4404 TEST_c_c (catan, -0x1p5000L, -0.0L, -1.570796326794896619231321691639751442099L, -0.0L);
4405 TEST_c_c (catan, 0.0L, 0x1p5000L, 1.570796326794896619231321691639751442099L, 7.079811261048172892385615158694057552948e-1506L);
4406 TEST_c_c (catan, -0.0L, 0x1p5000L, -1.570796326794896619231321691639751442099L, 7.079811261048172892385615158694057552948e-1506L);
4407 TEST_c_c (catan, 0.0L, -0x1p5000L, 1.570796326794896619231321691639751442099L, -7.079811261048172892385615158694057552948e-1506L);
4408 TEST_c_c (catan, -0.0L, -0x1p5000L, -1.570796326794896619231321691639751442099L, -7.079811261048172892385615158694057552948e-1506L);
4409#endif
9457fd95
JM		 4410 TEST_c_c (catan, 0x1p63L, 0.5L, 1.570796326794896619122901474391200998698L, 5.877471754111437539843682686111228389007e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4411 TEST_c_c (catan, 0x1p63L, -0.5L, 1.570796326794896619122901474391200998698L, -5.877471754111437539843682686111228389007e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4412 TEST_c_c (catan, -0x1p63L, 0.5L, -1.570796326794896619122901474391200998698L, 5.877471754111437539843682686111228389007e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4413 TEST_c_c (catan, -0x1p63L, -0.5L, -1.570796326794896619122901474391200998698L, -5.877471754111437539843682686111228389007e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4414 TEST_c_c (catan, 0.5L, 0x1p63L, 1.570796326794896619231321691639751442093L, 1.084202172485504434007452800869941711427e-19L);
4415 TEST_c_c (catan, -0.5L, 0x1p63L, -1.570796326794896619231321691639751442093L, 1.084202172485504434007452800869941711427e-19L);
4416 TEST_c_c (catan, 0.5L, -0x1p63L, 1.570796326794896619231321691639751442093L, -1.084202172485504434007452800869941711427e-19L);
4417 TEST_c_c (catan, -0.5L, -0x1p63L, -1.570796326794896619231321691639751442093L, -1.084202172485504434007452800869941711427e-19L);
4418#ifndef TEST_FLOAT
4419 TEST_c_c (catan, 0x1p511L, 0.5L, 1.570796326794896619231321691639751442099L, 1.112536929253600691545116358666202032110e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4420 TEST_c_c (catan, 0x1p511L, -0.5L, 1.570796326794896619231321691639751442099L, -1.112536929253600691545116358666202032110e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4421 TEST_c_c (catan, -0x1p511L, 0.5L, -1.570796326794896619231321691639751442099L, 1.112536929253600691545116358666202032110e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4422 TEST_c_c (catan, -0x1p511L, -0.5L, -1.570796326794896619231321691639751442099L, -1.112536929253600691545116358666202032110e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4423 TEST_c_c (catan, 0.5L, 0x1p511L, 1.570796326794896619231321691639751442099L, 1.491668146240041348658193063092586767475e-154L);
4424 TEST_c_c (catan, -0.5L, 0x1p511L, -1.570796326794896619231321691639751442099L, 1.491668146240041348658193063092586767475e-154L);
4425 TEST_c_c (catan, 0.5L, -0x1p511L, 1.570796326794896619231321691639751442099L, -1.491668146240041348658193063092586767475e-154L);
4426 TEST_c_c (catan, -0.5L, -0x1p511L, -1.570796326794896619231321691639751442099L, -1.491668146240041348658193063092586767475e-154L);
4427#endif
4428#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
4429 TEST_c_c (catan, 0x1p8191L, 0.5L, 1.570796326794896619231321691639751442099L, 1.681051571556046753131338908660876301299e-4932L, UNDERFLOW_EXCEPTION);
4430 TEST_c_c (catan, 0x1p8191L, -0.5L, 1.570796326794896619231321691639751442099L, -1.681051571556046753131338908660876301299e-4932L, UNDERFLOW_EXCEPTION);
4431 TEST_c_c (catan, -0x1p8191L, 0.5L, -1.570796326794896619231321691639751442099L, 1.681051571556046753131338908660876301299e-4932L, UNDERFLOW_EXCEPTION);
4432 TEST_c_c (catan, -0x1p8191L, -0.5L, -1.570796326794896619231321691639751442099L, -1.681051571556046753131338908660876301299e-4932L, UNDERFLOW_EXCEPTION);
4433 TEST_c_c (catan, 0.5L, 0x1p8191L, 1.570796326794896619231321691639751442099L, 1.833603867554847165621412392048483165956e-2466L);
4434 TEST_c_c (catan, -0.5L, 0x1p8191L, -1.570796326794896619231321691639751442099L, 1.833603867554847165621412392048483165956e-2466L);
4435 TEST_c_c (catan, 0.5L, -0x1p8191L, 1.570796326794896619231321691639751442099L, -1.833603867554847165621412392048483165956e-2466L);
4436 TEST_c_c (catan, -0.5L, -0x1p8191L, -1.570796326794896619231321691639751442099L, -1.833603867554847165621412392048483165956e-2466L);
4437#endif
5b4217d7
JM		 4438 TEST_c_c (catan, 0x1p100L, 0.0L, 1.570796326794896619231321691638962581193L, 0.0L);
4439 TEST_c_c (catan, 0x1p100L, -0.0L, 1.570796326794896619231321691638962581193L, -0.0L);
4440 TEST_c_c (catan, -0x1p100L, 0.0L, -1.570796326794896619231321691638962581193L, 0.0L);
4441 TEST_c_c (catan, -0x1p100L, -0.0L, -1.570796326794896619231321691638962581193L, -0.0L);
4442 TEST_c_c (catan, 0.0L, 0x1p100L, 1.570796326794896619231321691639751442099L, 7.888609052210118054117285652827862296732e-31L);
4443 TEST_c_c (catan, -0.0L, 0x1p100L, -1.570796326794896619231321691639751442099L, 7.888609052210118054117285652827862296732e-31L);
4444 TEST_c_c (catan, 0.0L, -0x1p100L, 1.570796326794896619231321691639751442099L, -7.888609052210118054117285652827862296732e-31L);
4445 TEST_c_c (catan, -0.0L, -0x1p100L, -1.570796326794896619231321691639751442099L, -7.888609052210118054117285652827862296732e-31L);
4446 TEST_c_c (catan, 0x1.fp127L, 0.0L, 1.570796326794896619231321691639751442096L, 0.0L);
4447 TEST_c_c (catan, 0x1.fp127L, -0.0L, 1.570796326794896619231321691639751442096L, -0.0L);
4448 TEST_c_c (catan, -0x1.fp127L, 0.0L, -1.570796326794896619231321691639751442096L, 0.0L);
4449 TEST_c_c (catan, -0x1.fp127L, -0.0L, -1.570796326794896619231321691639751442096L, -0.0L);
4450 TEST_c_c (catan, 0.0L, 0x1.fp127L, 1.570796326794896619231321691639751442099L, 3.033533808573645181854803967025150136306e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4451 TEST_c_c (catan, -0.0L, 0x1.fp127L, -1.570796326794896619231321691639751442099L, 3.033533808573645181854803967025150136306e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4452 TEST_c_c (catan, 0.0L, -0x1.fp127L, 1.570796326794896619231321691639751442099L, -3.033533808573645181854803967025150136306e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4453 TEST_c_c (catan, -0.0L, -0x1.fp127L, -1.570796326794896619231321691639751442099L, -3.033533808573645181854803967025150136306e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4454 TEST_c_c (catan, 0x1.fp127L, 0x1.fp127L, 1.570796326794896619231321691639751442097L, 1.516766904286822590927401983512575068153e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4455 TEST_c_c (catan, 0x1.fp127L, -0x1.fp127L, 1.570796326794896619231321691639751442097L, -1.516766904286822590927401983512575068153e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4456 TEST_c_c (catan, -0x1.fp127L, 0x1.fp127L, -1.570796326794896619231321691639751442097L, 1.516766904286822590927401983512575068153e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4457 TEST_c_c (catan, -0x1.fp127L, -0x1.fp127L, -1.570796326794896619231321691639751442097L, -1.516766904286822590927401983512575068153e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4458#ifndef TEST_FLOAT
4459 TEST_c_c (catan, 0x1p900L, 0.0L, 1.570796326794896619231321691639751442099L, 0.0L);
4460 TEST_c_c (catan, 0x1p900L, -0.0L, 1.570796326794896619231321691639751442099L, -0.0L);
4461 TEST_c_c (catan, -0x1p900L, 0.0L, -1.570796326794896619231321691639751442099L, 0.0L);
4462 TEST_c_c (catan, -0x1p900L, -0.0L, -1.570796326794896619231321691639751442099L, -0.0L);
4463 TEST_c_c (catan, 0.0L, 0x1p900L, 1.570796326794896619231321691639751442099L, 1.183052186166774710972751597518026531652e-271L);
4464 TEST_c_c (catan, -0.0L, 0x1p900L, -1.570796326794896619231321691639751442099L, 1.183052186166774710972751597518026531652e-271L);
4465 TEST_c_c (catan, 0.0L, -0x1p900L, 1.570796326794896619231321691639751442099L, -1.183052186166774710972751597518026531652e-271L);
4466 TEST_c_c (catan, -0.0L, -0x1p900L, -1.570796326794896619231321691639751442099L, -1.183052186166774710972751597518026531652e-271L);
4467 TEST_c_c (catan, 0x1.fp1023L, 0.0L, 1.570796326794896619231321691639751442099L, 0.0L);
4468 TEST_c_c (catan, 0x1.fp1023L, -0.0L, 1.570796326794896619231321691639751442099L, -0.0L);
4469 TEST_c_c (catan, -0x1.fp1023L, 0.0L, -1.570796326794896619231321691639751442099L, 0.0L);
4470 TEST_c_c (catan, -0x1.fp1023L, -0.0L, -1.570796326794896619231321691639751442099L, -0.0L);
4471 TEST_c_c (catan, 0.0L, 0x1.fp1023L, 1.570796326794896619231321691639751442099L, 5.742126086470197117652213464083623391533e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4472 TEST_c_c (catan, -0.0L, 0x1.fp1023L, -1.570796326794896619231321691639751442099L, 5.742126086470197117652213464083623391533e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4473 TEST_c_c (catan, 0.0L, -0x1.fp1023L, 1.570796326794896619231321691639751442099L, -5.742126086470197117652213464083623391533e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4474 TEST_c_c (catan, -0.0L, -0x1.fp1023L, -1.570796326794896619231321691639751442099L, -5.742126086470197117652213464083623391533e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4475 TEST_c_c (catan, 0x1.fp1023L, 0x1.fp1023L, 1.570796326794896619231321691639751442099L, 2.871063043235098558826106732041811695767e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4476 TEST_c_c (catan, 0x1.fp1023L, -0x1.fp1023L, 1.570796326794896619231321691639751442099L, -2.871063043235098558826106732041811695767e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4477 TEST_c_c (catan, -0x1.fp1023L, 0x1.fp1023L, -1.570796326794896619231321691639751442099L, 2.871063043235098558826106732041811695767e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4478 TEST_c_c (catan, -0x1.fp1023L, -0x1.fp1023L, -1.570796326794896619231321691639751442099L, -2.871063043235098558826106732041811695767e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
4479#endif
4480#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
4481 TEST_c_c (catan, 0x1p10000L, 0.0L, 1.570796326794896619231321691639751442099L, 0.0L);
4482 TEST_c_c (catan, 0x1p10000L, -0.0L, 1.570796326794896619231321691639751442099L, -0.0L);
4483 TEST_c_c (catan, -0x1p10000L, 0.0L, -1.570796326794896619231321691639751442099L, 0.0L);
4484 TEST_c_c (catan, -0x1p10000L, -0.0L, -1.570796326794896619231321691639751442099L, -0.0L);
4485 TEST_c_c (catan, 0.0L, 0x1p10000L, 1.570796326794896619231321691639751442099L, 5.012372749206452009297555933742977749322e-3011L);
4486 TEST_c_c (catan, -0.0L, 0x1p10000L, -1.570796326794896619231321691639751442099L, 5.012372749206452009297555933742977749322e-3011L);
4487 TEST_c_c (catan, 0.0L, -0x1p10000L, 1.570796326794896619231321691639751442099L, -5.012372749206452009297555933742977749322e-3011L);
4488 TEST_c_c (catan, -0.0L, -0x1p10000L, -1.570796326794896619231321691639751442099L, -5.012372749206452009297555933742977749322e-3011L);
4489 TEST_c_c (catan, 0x1.fp16383L, 0.0L, 1.570796326794896619231321691639751442099L, 0.0L);
4490 TEST_c_c (catan, 0x1.fp16383L, -0.0L, 1.570796326794896619231321691639751442099L, -0.0L);
4491 TEST_c_c (catan, -0x1.fp16383L, 0.0L, -1.570796326794896619231321691639751442099L, 0.0L);
4492 TEST_c_c (catan, -0x1.fp16383L, -0.0L, -1.570796326794896619231321691639751442099L, -0.0L);
4493 TEST_c_c (catan, 0.0L, 0x1.fp16383L, 1.570796326794896619231321691639751442099L, 8.676395208031209048419813722120651877672e-4933L, UNDERFLOW_EXCEPTION);
4494 TEST_c_c (catan, -0.0L, 0x1.fp16383L, -1.570796326794896619231321691639751442099L, 8.676395208031209048419813722120651877672e-4933L, UNDERFLOW_EXCEPTION);
4495 TEST_c_c (catan, 0.0L, -0x1.fp16383L, 1.570796326794896619231321691639751442099L, -8.676395208031209048419813722120651877672e-4933L, UNDERFLOW_EXCEPTION);
4496 TEST_c_c (catan, -0.0L, -0x1.fp16383L, -1.570796326794896619231321691639751442099L, -8.676395208031209048419813722120651877672e-4933L, UNDERFLOW_EXCEPTION);
4497 TEST_c_c (catan, 0x1.fp16383L, 0x1.fp16383L, 1.570796326794896619231321691639751442099L, 4.338197604015604524209906861060325938836e-4933L, UNDERFLOW_EXCEPTION);
4498 TEST_c_c (catan, 0x1.fp16383L, -0x1.fp16383L, 1.570796326794896619231321691639751442099L, -4.338197604015604524209906861060325938836e-4933L, UNDERFLOW_EXCEPTION);
4499 TEST_c_c (catan, -0x1.fp16383L, 0x1.fp16383L, -1.570796326794896619231321691639751442099L, 4.338197604015604524209906861060325938836e-4933L, UNDERFLOW_EXCEPTION);
4500 TEST_c_c (catan, -0x1.fp16383L, -0x1.fp16383L, -1.570796326794896619231321691639751442099L, -4.338197604015604524209906861060325938836e-4933L, UNDERFLOW_EXCEPTION);
4501#endif
caf84319
JM		 4502 TEST_c_c (catan, 0x1p-13L, 1.0L, 7.854286809755354140031716771044626356262e-1L, 4.852030264850939738801379894163661227127L);
4503 TEST_c_c (catan, 0x1p-13L, -1.0L, 7.854286809755354140031716771044626356262e-1L, -4.852030264850939738801379894163661227127L);
4504 TEST_c_c (catan, -0x1p-13L, 1.0L, -7.854286809755354140031716771044626356262e-1L, 4.852030264850939738801379894163661227127L);
4505 TEST_c_c (catan, -0x1p-13L, -1.0L, -7.854286809755354140031716771044626356262e-1L, -4.852030264850939738801379894163661227127L);
4506 TEST_c_c (catan, 1.0L, 0x1p-13L, 7.853981671227386080775748393881580082970e-1L, 6.103515609841754902688560615027452023669e-5L);
4507 TEST_c_c (catan, -1.0L, 0x1p-13L, -7.853981671227386080775748393881580082970e-1L, 6.103515609841754902688560615027452023669e-5L);
4508 TEST_c_c (catan, 1.0L, -0x1p-13L, 7.853981671227386080775748393881580082970e-1L, -6.103515609841754902688560615027452023669e-5L);
4509 TEST_c_c (catan, -1.0L, -0x1p-13L, -7.853981671227386080775748393881580082970e-1L, -6.103515609841754902688560615027452023669e-5L);
4510 TEST_c_c (catan, 0x1p-27L, 1.0L, 7.853981652600934588466178684534110069553e-1L, 9.704060527839234335310696652368086117807L);
4511 TEST_c_c (catan, 0x1p-27L, -1.0L, 7.853981652600934588466178684534110069553e-1L, -9.704060527839234335310696652368086117807L);
4512 TEST_c_c (catan, -0x1p-27L, 1.0L, -7.853981652600934588466178684534110069553e-1L, 9.704060527839234335310696652368086117807L);
4513 TEST_c_c (catan, -0x1p-27L, -1.0L, -7.853981652600934588466178684534110069553e-1L, -9.704060527839234335310696652368086117807L);
4514 TEST_c_c (catan, 1.0L, 0x1p-27L, 7.853981633974483234934486536343324763447e-1L, 3.725290298461914028034141143623846306386e-9L);
4515 TEST_c_c (catan, -1.0L, 0x1p-27L, -7.853981633974483234934486536343324763447e-1L, 3.725290298461914028034141143623846306386e-9L);
4516 TEST_c_c (catan, 1.0L, -0x1p-27L, 7.853981633974483234934486536343324763447e-1L, -3.725290298461914028034141143623846306386e-9L);
4517 TEST_c_c (catan, -1.0L, -0x1p-27L, -7.853981633974483234934486536343324763447e-1L, -3.725290298461914028034141143623846306386e-9L);
4518 TEST_c_c (catan, 0x1p-33L, 1.0L, 7.853981634265521400723945494331241018449e-1L, 1.178350206951907026009379309773625595762e1L);
4519 TEST_c_c (catan, 0x1p-33L, -1.0L, 7.853981634265521400723945494331241018449e-1L, -1.178350206951907026009379309773625595762e1L);
4520 TEST_c_c (catan, -0x1p-33L, 1.0L, -7.853981634265521400723945494331241018449e-1L, 1.178350206951907026009379309773625595762e1L);
4521 TEST_c_c (catan, -0x1p-33L, -1.0L, -7.853981634265521400723945494331241018449e-1L, -1.178350206951907026009379309773625595762e1L);
4522 TEST_c_c (catan, 1.0L, 0x1p-33L, 7.853981633974483096190489776088929224056e-1L, 5.820766091346740722643102318246316469910e-11L);
4523 TEST_c_c (catan, -1.0L, 0x1p-33L, -7.853981633974483096190489776088929224056e-1L, 5.820766091346740722643102318246316469910e-11L);
4524 TEST_c_c (catan, 1.0L, -0x1p-33L, 7.853981633974483096190489776088929224056e-1L, -5.820766091346740722643102318246316469910e-11L);
4525 TEST_c_c (catan, -1.0L, -0x1p-33L, -7.853981633974483096190489776088929224056e-1L, -5.820766091346740722643102318246316469910e-11L);
4526 TEST_c_c (catan, 0x1p-54L, 1.0L, 7.853981633974483234934486536343324763447e-1L, 1.906154746539849600897388334009985581467e1L);
4527 TEST_c_c (catan, 0x1p-54L, -1.0L, 7.853981633974483234934486536343324763447e-1L, -1.906154746539849600897388334009985581467e1L);
4528 TEST_c_c (catan, -0x1p-54L, 1.0L, -7.853981633974483234934486536343324763447e-1L, 1.906154746539849600897388334009985581467e1L);
4529 TEST_c_c (catan, -0x1p-54L, -1.0L, -7.853981633974483234934486536343324763447e-1L, -1.906154746539849600897388334009985581467e1L);
4530 TEST_c_c (catan, 1.0L, 0x1p-54L, 7.853981633974483096156608458198764914213e-1L, 2.775557561562891351059079170227049355775e-17L);
4531 TEST_c_c (catan, -1.0L, 0x1p-54L, -7.853981633974483096156608458198764914213e-1L, 2.775557561562891351059079170227049355775e-17L);
4532 TEST_c_c (catan, 1.0L, -0x1p-54L, 7.853981633974483096156608458198764914213e-1L, -2.775557561562891351059079170227049355775e-17L);
4533 TEST_c_c (catan, -1.0L, -0x1p-54L, -7.853981633974483096156608458198764914213e-1L, -2.775557561562891351059079170227049355775e-17L);
4534 TEST_c_c (catan, 0x1p-57L, 1.0L, 7.853981633974483113503843217966828154612e-1L, 2.010126823623841397309973152228712047720e1L);
4535 TEST_c_c (catan, 0x1p-57L, -1.0L, 7.853981633974483113503843217966828154612e-1L, -2.010126823623841397309973152228712047720e1L);
4536 TEST_c_c (catan, -0x1p-57L, 1.0L, -7.853981633974483113503843217966828154612e-1L, 2.010126823623841397309973152228712047720e1L);
4537 TEST_c_c (catan, -0x1p-57L, -1.0L, -7.853981633974483113503843217966828154612e-1L, -2.010126823623841397309973152228712047720e1L);
4538 TEST_c_c (catan, 1.0L, 0x1p-57L, 7.853981633974483096156608458198757330864e-1L, 3.469446951953614188823848962783813448721e-18L);
4539 TEST_c_c (catan, -1.0L, 0x1p-57L, -7.853981633974483096156608458198757330864e-1L, 3.469446951953614188823848962783813448721e-18L);
4540 TEST_c_c (catan, 1.0L, -0x1p-57L, 7.853981633974483096156608458198757330864e-1L, -3.469446951953614188823848962783813448721e-18L);
4541 TEST_c_c (catan, -1.0L, -0x1p-57L, -7.853981633974483096156608458198757330864e-1L, -3.469446951953614188823848962783813448721e-18L);
4542 TEST_c_c (catan, 0x1p-13L, 0x1.000002p0L, 7.859169620684960844300240092596908675974e-1L, 4.852030056234795712498957387213592193975L);
4543 TEST_c_c (catan, 0x1p-13L, -0x1.000002p0L, 7.859169620684960844300240092596908675974e-1L, -4.852030056234795712498957387213592193975L);
4544 TEST_c_c (catan, -0x1p-13L, 0x1.000002p0L, -7.859169620684960844300240092596908675974e-1L, 4.852030056234795712498957387213592193975L);
4545 TEST_c_c (catan, -0x1p-13L, -0x1.000002p0L, -7.859169620684960844300240092596908675974e-1L, -4.852030056234795712498957387213592193975L);
4546 TEST_c_c (catan, 0x1.000002p0L, 0x1p-13L, 7.853982267273793866654490522673596014524e-1L, 6.103514882246036852433556327261700380577e-5L);
4547 TEST_c_c (catan, -0x1.000002p0L, 0x1p-13L, -7.853982267273793866654490522673596014524e-1L, 6.103514882246036852433556327261700380577e-5L);
4548 TEST_c_c (catan, 0x1.000002p0L, -0x1p-13L, 7.853982267273793866654490522673596014524e-1L, -6.103514882246036852433556327261700380577e-5L);
4549 TEST_c_c (catan, -0x1.000002p0L, -0x1p-13L, -7.853982267273793866654490522673596014524e-1L, -6.103514882246036852433556327261700380577e-5L);
4550 TEST_c_c (catan, 0x1p-13L, 0x0.ffffffp0L, 7.851845403708474595909269086711426246675e-1L, 4.852030190345140708455871037447717761868L);
4551 TEST_c_c (catan, 0x1p-13L, -0x0.ffffffp0L, 7.851845403708474595909269086711426246675e-1L, -4.852030190345140708455871037447717761868L);
4552 TEST_c_c (catan, -0x1p-13L, 0x0.ffffffp0L, -7.851845403708474595909269086711426246675e-1L, 4.852030190345140708455871037447717761868L);
4553 TEST_c_c (catan, -0x1p-13L, -0x0.ffffffp0L, -7.851845403708474595909269086711426246675e-1L, -4.852030190345140708455871037447717761868L);
4554 TEST_c_c (catan, 0x0.ffffffp0L, 0x1p-13L, 7.853981373204155542484315721351697277336e-1L, 6.103515973639646453881721999956617260502e-5L);
4555 TEST_c_c (catan, -0x0.ffffffp0L, 0x1p-13L, -7.853981373204155542484315721351697277336e-1L, 6.103515973639646453881721999956617260502e-5L);
4556 TEST_c_c (catan, 0x0.ffffffp0L, -0x1p-13L, 7.853981373204155542484315721351697277336e-1L, -6.103515973639646453881721999956617260502e-5L);
4557 TEST_c_c (catan, -0x0.ffffffp0L, -0x1p-13L, -7.853981373204155542484315721351697277336e-1L, -6.103515973639646453881721999956617260502e-5L);
4558#ifndef TEST_FLOAT
4559 TEST_c_c (catan, 0x1p-27L, 0x1.0000000000001p0L, 7.853981801612546526942695000283242525531e-1L, 9.704060527839234168777242958594699810015L);
4560 TEST_c_c (catan, 0x1p-27L, -0x1.0000000000001p0L, 7.853981801612546526942695000283242525531e-1L, -9.704060527839234168777242958594699810015L);
4561 TEST_c_c (catan, -0x1p-27L, 0x1.0000000000001p0L, -7.853981801612546526942695000283242525531e-1L, 9.704060527839234168777242958594699810015L);
4562 TEST_c_c (catan, -0x1p-27L, -0x1.0000000000001p0L, -7.853981801612546526942695000283242525531e-1L, -9.704060527839234168777242958594699810015L);
4563 TEST_c_c (catan, 0x1.0000000000001p0L, 0x1p-27L, 7.853981633974484345157511161499711112683e-1L, 3.725290298461913200853528590596263270474e-9L);
4564 TEST_c_c (catan, -0x1.0000000000001p0L, 0x1p-27L, -7.853981633974484345157511161499711112683e-1L, 3.725290298461913200853528590596263270474e-9L);
4565 TEST_c_c (catan, 0x1.0000000000001p0L, -0x1p-27L, 7.853981633974484345157511161499711112683e-1L, -3.725290298461913200853528590596263270474e-9L);
4566 TEST_c_c (catan, -0x1.0000000000001p0L, -0x1p-27L, -7.853981633974484345157511161499711112683e-1L, -3.725290298461913200853528590596263270474e-9L);
4567 TEST_c_c (catan, 0x1p-27L, 0x0.fffffffffffff8p0L, 7.853981578095128619227903983047292781021e-1L, 9.704060527839234252043969805481351363824L);
4568 TEST_c_c (catan, 0x1p-27L, -0x0.fffffffffffff8p0L, 7.853981578095128619227903983047292781021e-1L, -9.704060527839234252043969805481351363824L);
4569 TEST_c_c (catan, -0x1p-27L, 0x0.fffffffffffff8p0L, -7.853981578095128619227903983047292781021e-1L, 9.704060527839234252043969805481351363824L);
4570 TEST_c_c (catan, -0x1p-27L, -0x0.fffffffffffff8p0L, -7.853981578095128619227903983047292781021e-1L, -9.704060527839234252043969805481351363824L);
4571 TEST_c_c (catan, 0x0.fffffffffffff8p0L, 0x1p-27L, 7.853981633974482679822974223765039144191e-1L, 3.725290298461914441624447420137706700965e-9L);
4572 TEST_c_c (catan, -0x0.fffffffffffff8p0L, 0x1p-27L, -7.853981633974482679822974223765039144191e-1L, 3.725290298461914441624447420137706700965e-9L);
4573 TEST_c_c (catan, 0x0.fffffffffffff8p0L, -0x1p-27L, 7.853981633974482679822974223765039144191e-1L, -3.725290298461914441624447420137706700965e-9L);
4574 TEST_c_c (catan, -0x0.fffffffffffff8p0L, -0x1p-27L, -7.853981633974482679822974223765039144191e-1L, -3.725290298461914441624447420137706700965e-9L);
4575#endif
4576#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64
4577 TEST_c_c (catan, 0x1p-33L, 0x1.0000000000000002p0L, 7.853981638922134273801338071094141188767e-1L, 1.178350206951907025990405771755129268176e1L);
4578 TEST_c_c (catan, 0x1p-33L, -0x1.0000000000000002p0L, 7.853981638922134273801338071094141188767e-1L, -1.178350206951907025990405771755129268176e1L);
4579 TEST_c_c (catan, -0x1p-33L, 0x1.0000000000000002p0L, -7.853981638922134273801338071094141188767e-1L, 1.178350206951907025990405771755129268176e1L);
4580 TEST_c_c (catan, -0x1p-33L, -0x1.0000000000000002p0L, -7.853981638922134273801338071094141188767e-1L, -1.178350206951907025990405771755129268176e1L);
4581 TEST_c_c (catan, 0x1.0000000000000002p0L, 0x1p-33L, 7.853981633974483096732590862331681441026e-1L, 5.820766091346740722012013594069507025615e-11L);
4582 TEST_c_c (catan, -0x1.0000000000000002p0L, 0x1p-33L, -7.853981633974483096732590862331681441026e-1L, 5.820766091346740722012013594069507025615e-11L);
4583 TEST_c_c (catan, 0x1.0000000000000002p0L, -0x1p-33L, 7.853981633974483096732590862331681441026e-1L, -5.820766091346740722012013594069507025615e-11L);
4584 TEST_c_c (catan, -0x1.0000000000000002p0L, -0x1p-33L, -7.853981633974483096732590862331681441026e-1L, -5.820766091346740722012013594069507025615e-11L);
4585 TEST_c_c (catan, 0x1p-33L, 0x0.ffffffffffffffffp0L, 7.853981631937214964185249205444919953948e-1L, 1.178350206951907026002603046195591193050e1L);
4586 TEST_c_c (catan, 0x1p-33L, -0x0.ffffffffffffffffp0L, 7.853981631937214964185249205444919953948e-1L, -1.178350206951907026002603046195591193050e1L);
4587 TEST_c_c (catan, -0x1p-33L, 0x0.ffffffffffffffffp0L, -7.853981631937214964185249205444919953948e-1L, 1.178350206951907026002603046195591193050e1L);
4588 TEST_c_c (catan, -0x1p-33L, -0x0.ffffffffffffffffp0L, -7.853981631937214964185249205444919953948e-1L, -1.178350206951907026002603046195591193050e1L);
4589 TEST_c_c (catan, 0x0.ffffffffffffffffp0L, 0x1p-33L, 7.853981633974483095919439232967553115548e-1L, 5.820766091346740722958646680334721192083e-11L);
4590 TEST_c_c (catan, -0x0.ffffffffffffffffp0L, 0x1p-33L, -7.853981633974483095919439232967553115548e-1L, 5.820766091346740722958646680334721192083e-11L);
4591 TEST_c_c (catan, 0x0.ffffffffffffffffp0L, -0x1p-33L, 7.853981633974483095919439232967553115548e-1L, -5.820766091346740722958646680334721192083e-11L);
4592 TEST_c_c (catan, -0x0.ffffffffffffffffp0L, -0x1p-33L, -7.853981633974483095919439232967553115548e-1L, -5.820766091346740722958646680334721192083e-11L);
4593#endif
4594#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106
4595 TEST_c_c (catan, 0x1p-54L, 0x1.000000000000000000000000008p0L, 7.853981633974485455380535786656405610710e-1L, 1.906154746539849600897388334009981267384e1L);
4596 TEST_c_c (catan, 0x1p-54L, -0x1.000000000000000000000000008p0L, 7.853981633974485455380535786656405610710e-1L, -1.906154746539849600897388334009981267384e1L);
4597 TEST_c_c (catan, -0x1p-54L, 0x1.000000000000000000000000008p0L, -7.853981633974485455380535786656405610710e-1L, 1.906154746539849600897388334009981267384e1L);
4598 TEST_c_c (catan, -0x1p-54L, -0x1.000000000000000000000000008p0L, -7.853981633974485455380535786656405610710e-1L, -1.906154746539849600897388334009981267384e1L);
4599 TEST_c_c (catan, 0x1.000000000000000000000000008p0L, 0x1p-54L, 7.853981633974483096156608458198888173729e-1L, 2.775557561562891351059079170226980932999e-17L);
4600 TEST_c_c (catan, -0x1.000000000000000000000000008p0L, 0x1p-54L, -7.853981633974483096156608458198888173729e-1L, 2.775557561562891351059079170226980932999e-17L);
4601 TEST_c_c (catan, 0x1.000000000000000000000000008p0L, -0x1p-54L, 7.853981633974483096156608458198888173729e-1L, -2.775557561562891351059079170226980932999e-17L);
4602 TEST_c_c (catan, -0x1.000000000000000000000000008p0L, -0x1p-54L, -7.853981633974483096156608458198888173729e-1L, -2.775557561562891351059079170226980932999e-17L);
4603 TEST_c_c (catan, 0x1p-54L, 0x0.ffffffffffffffffffffffffffcp0L, 7.853981633974482124711461911186784339815e-1L, 1.906154746539849600897388334009984040723e1L);
4604 TEST_c_c (catan, 0x1p-54L, -0x0.ffffffffffffffffffffffffffcp0L, 7.853981633974482124711461911186784339815e-1L, -1.906154746539849600897388334009984040723e1L);
4605 TEST_c_c (catan, -0x1p-54L, 0x0.ffffffffffffffffffffffffffcp0L, -7.853981633974482124711461911186784339815e-1L, 1.906154746539849600897388334009984040723e1L);
4606 TEST_c_c (catan, -0x1p-54L, -0x0.ffffffffffffffffffffffffffcp0L, -7.853981633974482124711461911186784339815e-1L, -1.906154746539849600897388334009984040723e1L);
4607 TEST_c_c (catan, 0x0.ffffffffffffffffffffffffffcp0L, 0x1p-54L, 7.853981633974483096156608458198703284454e-1L, 2.775557561562891351059079170227083567164e-17L);
4608 TEST_c_c (catan, -0x0.ffffffffffffffffffffffffffcp0L, 0x1p-54L, -7.853981633974483096156608458198703284454e-1L, 2.775557561562891351059079170227083567164e-17L);
4609 TEST_c_c (catan, 0x0.ffffffffffffffffffffffffffcp0L, -0x1p-54L, 7.853981633974483096156608458198703284454e-1L, -2.775557561562891351059079170227083567164e-17L);
4610 TEST_c_c (catan, -0x0.ffffffffffffffffffffffffffcp0L, -0x1p-54L, -7.853981633974483096156608458198703284454e-1L, -2.775557561562891351059079170227083567164e-17L);
4611#endif
4612#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 113
4613 TEST_c_c (catan, 0x1p-57L, 0x1.0000000000000000000000000001p0L, 7.853981633974483252281721296111395707566e-1L, 2.010126823623841397309973152228712033275e1L);
4614 TEST_c_c (catan, 0x1p-57L, -0x1.0000000000000000000000000001p0L, 7.853981633974483252281721296111395707566e-1L, -2.010126823623841397309973152228712033275e1L);
4615 TEST_c_c (catan, -0x1p-57L, 0x1.0000000000000000000000000001p0L, -7.853981633974483252281721296111395707566e-1L, 2.010126823623841397309973152228712033275e1L);
4616 TEST_c_c (catan, -0x1p-57L, -0x1.0000000000000000000000000001p0L, -7.853981633974483252281721296111395707566e-1L, -2.010126823623841397309973152228712033275e1L);
4617 TEST_c_c (catan, 0x1.0000000000000000000000000001p0L, 0x1p-57L, 7.853981633974483096156608458198758293829e-1L, 3.469446951953614188823848962783812780530e-18L);
4618 TEST_c_c (catan, -0x1.0000000000000000000000000001p0L, 0x1p-57L, -7.853981633974483096156608458198758293829e-1L, 3.469446951953614188823848962783812780530e-18L);
4619 TEST_c_c (catan, 0x1.0000000000000000000000000001p0L, -0x1p-57L, 7.853981633974483096156608458198758293829e-1L, -3.469446951953614188823848962783812780530e-18L);
4620 TEST_c_c (catan, -0x1.0000000000000000000000000001p0L, -0x1p-57L, -7.853981633974483096156608458198758293829e-1L, -3.469446951953614188823848962783812780530e-18L);
4621 TEST_c_c (catan, 0x1p-57L, 0x0.ffffffffffffffffffffffffffff8p0L, 7.853981633974483044114904178894544378135e-1L, 2.010126823623841397309973152228712040498e1L);
4622 TEST_c_c (catan, 0x1p-57L, -0x0.ffffffffffffffffffffffffffff8p0L, 7.853981633974483044114904178894544378135e-1L, -2.010126823623841397309973152228712040498e1L);
4623 TEST_c_c (catan, -0x1p-57L, 0x0.ffffffffffffffffffffffffffff8p0L, -7.853981633974483044114904178894544378135e-1L, 2.010126823623841397309973152228712040498e1L);
4624 TEST_c_c (catan, -0x1p-57L, -0x0.ffffffffffffffffffffffffffff8p0L, -7.853981633974483044114904178894544378135e-1L, -2.010126823623841397309973152228712040498e1L);
4625 TEST_c_c (catan, 0x0.ffffffffffffffffffffffffffff8p0L, 0x1p-57L, 7.853981633974483096156608458198756849381e-1L, 3.469446951953614188823848962783813782817e-18L);
4626 TEST_c_c (catan, -0x0.ffffffffffffffffffffffffffff8p0L, 0x1p-57L, -7.853981633974483096156608458198756849381e-1L, 3.469446951953614188823848962783813782817e-18L);
4627 TEST_c_c (catan, 0x0.ffffffffffffffffffffffffffff8p0L, -0x1p-57L, 7.853981633974483096156608458198756849381e-1L, -3.469446951953614188823848962783813782817e-18L);
4628 TEST_c_c (catan, -0x0.ffffffffffffffffffffffffffff8p0L, -0x1p-57L, -7.853981633974483096156608458198756849381e-1L, -3.469446951953614188823848962783813782817e-18L);
10de07f5
JM		 4629#endif
4630 TEST_c_c (catan, 1.0L, 0x1p-64L, 7.853981633974483096156608458198757210500e-1L, 2.710505431213761085018632002174854278563e-20L);
4631 TEST_c_c (catan, 1.0L, -0x1p-64L, 7.853981633974483096156608458198757210500e-1L, -2.710505431213761085018632002174854278563e-20L);
4632 TEST_c_c (catan, -1.0L, 0x1p-64L, -7.853981633974483096156608458198757210500e-1L, 2.710505431213761085018632002174854278563e-20L);
4633 TEST_c_c (catan, -1.0L, -0x1p-64L, -7.853981633974483096156608458198757210500e-1L, -2.710505431213761085018632002174854278563e-20L);
4634 TEST_c_c (catan, 0x1p-64L, 1.0L, 7.853981633974483096292133729759445264744e-1L, 2.252728336819822255606004394739073846245e1L);
4635 TEST_c_c (catan, -0x1p-64L, 1.0L, -7.853981633974483096292133729759445264744e-1L, 2.252728336819822255606004394739073846245e1L);
4636 TEST_c_c (catan, 0x1p-64L, -1.0L, 7.853981633974483096292133729759445264744e-1L, -2.252728336819822255606004394739073846245e1L);
4637 TEST_c_c (catan, -0x1p-64L, -1.0L, -7.853981633974483096292133729759445264744e-1L, -2.252728336819822255606004394739073846245e1L);
4638 TEST_c_c (catan, 1.0L, 0x1.3p-73L, 7.853981633974483096156608458198757210493e-1L, 6.286572655403010329022706059731717687100e-23L);
4639 TEST_c_c (catan, 1.0L, -0x1.3p-73L, 7.853981633974483096156608458198757210493e-1L, -6.286572655403010329022706059731717687100e-23L);
4640 TEST_c_c (catan, -1.0L, 0x1.3p-73L, -7.853981633974483096156608458198757210493e-1L, 6.286572655403010329022706059731717687100e-23L);
4641 TEST_c_c (catan, -1.0L, -0x1.3p-73L, -7.853981633974483096156608458198757210493e-1L, -6.286572655403010329022706059731717687100e-23L);
4642 TEST_c_c (catan, 0x1.3p-73L, 1.0L, 7.853981633974483096156922786831527361009e-1L, 2.556052055225464683726753902092495938633e1L);
4643 TEST_c_c (catan, -0x1.3p-73L, 1.0L, -7.853981633974483096156922786831527361009e-1L, 2.556052055225464683726753902092495938633e1L);
4644 TEST_c_c (catan, 0x1.3p-73L, -1.0L, 7.853981633974483096156922786831527361009e-1L, -2.556052055225464683726753902092495938633e1L);
4645 TEST_c_c (catan, -0x1.3p-73L, -1.0L, -7.853981633974483096156922786831527361009e-1L, -2.556052055225464683726753902092495938633e1L);
4646 TEST_c_c (catan, 1.0L, 0x1p-124L, 7.853981633974483096156608458198757210493e-1L, 2.350988701644575015937473074444491355637e-38L);
4647 TEST_c_c (catan, 1.0L, -0x1p-124L, 7.853981633974483096156608458198757210493e-1L, -2.350988701644575015937473074444491355637e-38L);
4648 TEST_c_c (catan, -1.0L, 0x1p-124L, -7.853981633974483096156608458198757210493e-1L, 2.350988701644575015937473074444491355637e-38L);
4649 TEST_c_c (catan, -1.0L, -0x1p-124L, -7.853981633974483096156608458198757210493e-1L, -2.350988701644575015937473074444491355637e-38L);
4650 TEST_c_c (catan, 0x1p-124L, 1.0L, 7.853981633974483096156608458198757210610e-1L, 4.332169878499658183857700759113603550472e1L);
4651 TEST_c_c (catan, -0x1p-124L, 1.0L, -7.853981633974483096156608458198757210610e-1L, 4.332169878499658183857700759113603550472e1L);
4652 TEST_c_c (catan, 0x1p-124L, -1.0L, 7.853981633974483096156608458198757210610e-1L, -4.332169878499658183857700759113603550472e1L);
4653 TEST_c_c (catan, -0x1p-124L, -1.0L, -7.853981633974483096156608458198757210610e-1L, -4.332169878499658183857700759113603550472e1L);
4654 TEST_c_c (catan, 0x1.000002p0L, 0x1p-126L, 7.853982230020895322927482174768220815493e-1L, 5.877471053462247139383742414506671233336e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4655 TEST_c_c (catan, 0x1.000002p0L, -0x1p-126L, 7.853982230020895322927482174768220815493e-1L, -5.877471053462247139383742414506671233336e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4656 TEST_c_c (catan, -0x1.000002p0L, 0x1p-126L, -7.853982230020895322927482174768220815493e-1L, 5.877471053462247139383742414506671233336e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4657 TEST_c_c (catan, -0x1.000002p0L, -0x1p-126L, -7.853982230020895322927482174768220815493e-1L, -5.877471053462247139383742414506671233336e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4658 TEST_c_c (catan, 0x1p-126L, 0x1.000002p0L, 1.570796326794896619231321691639702138295L, 8.317766196521665212523713550410777685446L);
4659 TEST_c_c (catan, -0x1p-126L, 0x1.000002p0L, -1.570796326794896619231321691639702138295L, 8.317766196521665212523713550410777685446L);
4660 TEST_c_c (catan, 0x1p-126L, -0x1.000002p0L, 1.570796326794896619231321691639702138295L, -8.317766196521665212523713550410777685446L);
4661 TEST_c_c (catan, -0x1p-126L, -0x1.000002p0L, -1.570796326794896619231321691639702138295L, -8.317766196521665212523713550410777685446L);
4662 TEST_c_c (catan, 0x0.ffffffp0L, 0x1p-126L, 7.853981335951250337419109991749089175724e-1L, 5.877472104436064061535099214664320916184e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4663 TEST_c_c (catan, 0x0.ffffffp0L, -0x1p-126L, 7.853981335951250337419109991749089175724e-1L, -5.877472104436064061535099214664320916184e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4664 TEST_c_c (catan, -0x0.ffffffp0L, 0x1p-126L, -7.853981335951250337419109991749089175724e-1L, 5.877472104436064061535099214664320916184e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4665 TEST_c_c (catan, -0x0.ffffffp0L, -0x1p-126L, -7.853981335951250337419109991749089175724e-1L, -5.877472104436064061535099214664320916184e-39L, UNDERFLOW_EXCEPTION_FLOAT);
4666 TEST_c_c (catan, 0x1p-126L, 0x0.ffffffp0L, 9.860761609136244031334147100512154160097e-32L, 8.664339742098154951823135931565866792454L);
4667 TEST_c_c (catan, -0x1p-126L, 0x0.ffffffp0L, -9.860761609136244031334147100512154160097e-32L, 8.664339742098154951823135931565866792454L);
4668 TEST_c_c (catan, 0x1p-126L, -0x0.ffffffp0L, 9.860761609136244031334147100512154160097e-32L, -8.664339742098154951823135931565866792454L);
4669 TEST_c_c (catan, -0x1p-126L, -0x0.ffffffp0L, -9.860761609136244031334147100512154160097e-32L, -8.664339742098154951823135931565866792454L);
4670#ifndef TEST_FLOAT
4671 TEST_c_c (catan, 1.0L, 0x1p-512L, 7.853981633974483096156608458198757210493e-1L, 3.729170365600103371645482657731466918688e-155L);
4672 TEST_c_c (catan, 1.0L, -0x1p-512L, 7.853981633974483096156608458198757210493e-1L, -3.729170365600103371645482657731466918688e-155L);
4673 TEST_c_c (catan, -1.0L, 0x1p-512L, -7.853981633974483096156608458198757210493e-1L, 3.729170365600103371645482657731466918688e-155L);
4674 TEST_c_c (catan, -1.0L, -0x1p-512L, -7.853981633974483096156608458198757210493e-1L, -3.729170365600103371645482657731466918688e-155L);
4675 TEST_c_c (catan, 0x1p-512L, 1.0L, 7.853981633974483096156608458198757210493e-1L, 1.777922518136259718655200391540222897114e2L);
4676 TEST_c_c (catan, -0x1p-512L, 1.0L, -7.853981633974483096156608458198757210493e-1L, 1.777922518136259718655200391540222897114e2L);
4677 TEST_c_c (catan, 0x1p-512L, -1.0L, 7.853981633974483096156608458198757210493e-1L, -1.777922518136259718655200391540222897114e2L);
4678 TEST_c_c (catan, -0x1p-512L, -1.0L, -7.853981633974483096156608458198757210493e-1L, -1.777922518136259718655200391540222897114e2L);
4679 TEST_c_c (catan, 1.0L, 0x1.3p-536L, 7.853981633974483096156608458198757210493e-1L, 2.639526015013529511588222179446290115084e-162L);
4680 TEST_c_c (catan, 1.0L, -0x1.3p-536L, 7.853981633974483096156608458198757210493e-1L, -2.639526015013529511588222179446290115084e-162L);
4681 TEST_c_c (catan, -1.0L, 0x1.3p-536L, -7.853981633974483096156608458198757210493e-1L, 2.639526015013529511588222179446290115084e-162L);
4682 TEST_c_c (catan, -1.0L, -0x1.3p-536L, -7.853981633974483096156608458198757210493e-1L, -2.639526015013529511588222179446290115084e-162L);
4683 TEST_c_c (catan, 0x1.3p-536L, 1.0L, 7.853981633974483096156608458198757210493e-1L, 1.860240928518819859673567751384928348958e2L);
4684 TEST_c_c (catan, -0x1.3p-536L, 1.0L, -7.853981633974483096156608458198757210493e-1L, 1.860240928518819859673567751384928348958e2L);
4685 TEST_c_c (catan, 0x1.3p-536L, -1.0L, 7.853981633974483096156608458198757210493e-1L, -1.860240928518819859673567751384928348958e2L);
4686 TEST_c_c (catan, -0x1.3p-536L, -1.0L, -7.853981633974483096156608458198757210493e-1L, -1.860240928518819859673567751384928348958e2L);
4687 TEST_c_c (catan, 1.0L, 0x1p-1020L, 7.853981633974483096156608458198757210493e-1L, 4.450147717014402766180465434664808128438e-308L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
4688 TEST_c_c (catan, 1.0L, -0x1p-1020L, 7.853981633974483096156608458198757210493e-1L, -4.450147717014402766180465434664808128438e-308L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
4689 TEST_c_c (catan, -1.0L, 0x1p-1020L, -7.853981633974483096156608458198757210493e-1L, 4.450147717014402766180465434664808128438e-308L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
4690 TEST_c_c (catan, -1.0L, -0x1p-1020L, -7.853981633974483096156608458198757210493e-1L, -4.450147717014402766180465434664808128438e-308L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
4691 TEST_c_c (catan, 0x1p-1020L, 1.0L, 7.853981633974483096156608458198757210493e-1L, 3.538516356758520804574969980043991380025e2L);
4692 TEST_c_c (catan, -0x1p-1020L, 1.0L, -7.853981633974483096156608458198757210493e-1L, 3.538516356758520804574969980043991380025e2L);
4693 TEST_c_c (catan, 0x1p-1020L, -1.0L, 7.853981633974483096156608458198757210493e-1L, -3.538516356758520804574969980043991380025e2L);
4694 TEST_c_c (catan, -0x1p-1020L, -1.0L, -7.853981633974483096156608458198757210493e-1L, -3.538516356758520804574969980043991380025e2L);
4695 TEST_c_c (catan, 0x1.0000000000001p0L, 0x1p-1022L, 7.853981633974484206379633083355174374608e-1L, 1.112536929253600444512293438042957369978e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4696 TEST_c_c (catan, 0x1.0000000000001p0L, -0x1p-1022L, 7.853981633974484206379633083355174374608e-1L, -1.112536929253600444512293438042957369978e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4697 TEST_c_c (catan, -0x1.0000000000001p0L, 0x1p-1022L, -7.853981633974484206379633083355174374608e-1L, 1.112536929253600444512293438042957369978e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4698 TEST_c_c (catan, -0x1.0000000000001p0L, -0x1p-1022L, -7.853981633974484206379633083355174374608e-1L, -1.112536929253600444512293438042957369978e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4699 TEST_c_c (catan, 0x1p-1022L, 0x1.0000000000001p0L, 1.570796326794896619231321691639751442099L, 1.836840028483855075506780244989950299369e1L);
4700 TEST_c_c (catan, -0x1p-1022L, 0x1.0000000000001p0L, -1.570796326794896619231321691639751442099L, 1.836840028483855075506780244989950299369e1L);
4701 TEST_c_c (catan, 0x1p-1022L, -0x1.0000000000001p0L, 1.570796326794896619231321691639751442099L, -1.836840028483855075506780244989950299369e1L);
4702 TEST_c_c (catan, -0x1p-1022L, -0x1.0000000000001p0L, -1.570796326794896619231321691639751442099L, -1.836840028483855075506780244989950299369e1L);
4703 TEST_c_c (catan, 0x0.fffffffffffff8p0L, 0x1p-1022L, 7.853981633974482541045096145620456183798e-1L, 1.112536929253600815061527818977844932790e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4704 TEST_c_c (catan, 0x0.fffffffffffff8p0L, -0x1p-1022L, 7.853981633974482541045096145620456183798e-1L, -1.112536929253600815061527818977844932790e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4705 TEST_c_c (catan, -0x0.fffffffffffff8p0L, 0x1p-1022L, -7.853981633974482541045096145620456183798e-1L, 1.112536929253600815061527818977844932790e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4706 TEST_c_c (catan, -0x0.fffffffffffff8p0L, -0x1p-1022L, -7.853981633974482541045096145620456183798e-1L, -1.112536929253600815061527818977844932790e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4707 TEST_c_c (catan, 0x1p-1022L, 0x0.fffffffffffff8p0L, 1.002084180004486444624900488355118689113e-292L, 1.871497387511852332650969166374185305708e1L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
4708 TEST_c_c (catan, -0x1p-1022L, 0x0.fffffffffffff8p0L, -1.002084180004486444624900488355118689113e-292L, 1.871497387511852332650969166374185305708e1L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
4709 TEST_c_c (catan, 0x1p-1022L, -0x0.fffffffffffff8p0L, 1.002084180004486444624900488355118689113e-292L, -1.871497387511852332650969166374185305708e1L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
4710 TEST_c_c (catan, -0x1p-1022L, -0x0.fffffffffffff8p0L, -1.002084180004486444624900488355118689113e-292L, -1.871497387511852332650969166374185305708e1L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
4711#endif
4712#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64
4713 TEST_c_c (catan, 0x1.0000000000000002p0L, 0x1p-1022L, 7.853981633974483096698709544441509427467e-1L, 1.112536929253600691424494863099491450042e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4714 TEST_c_c (catan, 0x1.0000000000000002p0L, -0x1p-1022L, 7.853981633974483096698709544441509427467e-1L, -1.112536929253600691424494863099491450042e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4715 TEST_c_c (catan, -0x1.0000000000000002p0L, 0x1p-1022L, -7.853981633974483096698709544441509427467e-1L, 1.112536929253600691424494863099491450042e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4716 TEST_c_c (catan, -0x1.0000000000000002p0L, -0x1p-1022L, -7.853981633974483096698709544441509427467e-1L, -1.112536929253600691424494863099491450042e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4717 TEST_c_c (catan, 0x1p-1022L, 0x1.0000000000000002p0L, 1.570796326794896619231321691639751442099L, 2.218070977791824990137853294097378778927e1L);
4718 TEST_c_c (catan, -0x1p-1022L, 0x1.0000000000000002p0L, -1.570796326794896619231321691639751442099L, 2.218070977791824990137853294097378778927e1L);
4719 TEST_c_c (catan, 0x1p-1022L, -0x1.0000000000000002p0L, 1.570796326794896619231321691639751442099L, -2.218070977791824990137853294097378778927e1L);
4720 TEST_c_c (catan, -0x1p-1022L, -0x1.0000000000000002p0L, -1.570796326794896619231321691639751442099L, -2.218070977791824990137853294097378778927e1L);
4721 TEST_c_c (catan, 0x0.ffffffffffffffffp0L, 0x1p-1022L, 7.853981633974483095885557915077381101984e-1L, 1.112536929253600691605427106449557323148e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4722 TEST_c_c (catan, 0x0.ffffffffffffffffp0L, -0x1p-1022L, 7.853981633974483095885557915077381101984e-1L, -1.112536929253600691605427106449557323148e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4723 TEST_c_c (catan, -0x0.ffffffffffffffffp0L, 0x1p-1022L, -7.853981633974483095885557915077381101984e-1L, 1.112536929253600691605427106449557323148e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4724 TEST_c_c (catan, -0x0.ffffffffffffffffp0L, -0x1p-1022L, -7.853981633974483095885557915077381101984e-1L, -1.112536929253600691605427106449557323148e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4725 TEST_c_c (catan, 0x1p-1022L, 0x0.ffffffffffffffffp0L, 2.052268400649188124723641491045245971623e-289L, 2.252728336819822255604649142023466965703e1L);
4726 TEST_c_c (catan, -0x1p-1022L, 0x0.ffffffffffffffffp0L, -2.052268400649188124723641491045245971623e-289L, 2.252728336819822255604649142023466965703e1L);
4727 TEST_c_c (catan, 0x1p-1022L, -0x0.ffffffffffffffffp0L, 2.052268400649188124723641491045245971623e-289L, -2.252728336819822255604649142023466965703e1L);
4728 TEST_c_c (catan, -0x1p-1022L, -0x0.ffffffffffffffffp0L, -2.052268400649188124723641491045245971623e-289L, -2.252728336819822255604649142023466965703e1L);
4729#endif
4730#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106
4731 TEST_c_c (catan, 0x1.000000000000000000000000008p0L, 0x1p-1022L, 7.853981633974483096156608458198880470009e-1L, 1.112536929253600691545116358666174605957e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4732 TEST_c_c (catan, 0x1.000000000000000000000000008p0L, -0x1p-1022L, 7.853981633974483096156608458198880470009e-1L, -1.112536929253600691545116358666174605957e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4733 TEST_c_c (catan, -0x1.000000000000000000000000008p0L, 0x1p-1022L, -7.853981633974483096156608458198880470009e-1L, 1.112536929253600691545116358666174605957e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4734 TEST_c_c (catan, -0x1.000000000000000000000000008p0L, -0x1p-1022L, -7.853981633974483096156608458198880470009e-1L, -1.112536929253600691545116358666174605957e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4735 TEST_c_c (catan, 0x1p-1022L, 0x1.000000000000000000000000008p0L, 1.570796326794896619231321691639751442099L, 3.673680056967710139911330243728336427098e1L);
4736 TEST_c_c (catan, -0x1p-1022L, 0x1.000000000000000000000000008p0L, -1.570796326794896619231321691639751442099L, 3.673680056967710139911330243728336427098e1L);
4737 TEST_c_c (catan, 0x1p-1022L, -0x1.000000000000000000000000008p0L, 1.570796326794896619231321691639751442099L, -3.673680056967710139911330243728336427098e1L);
4738 TEST_c_c (catan, -0x1p-1022L, -0x1.000000000000000000000000008p0L, -1.570796326794896619231321691639751442099L, -3.673680056967710139911330243728336427098e1L);
4739 TEST_c_c (catan, 0x0.ffffffffffffffffffffffffffcp0L, 0x1p-1022L, 7.853981633974483096156608458198695580735e-1L, 1.112536929253600691545116358666215745186e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4740 TEST_c_c (catan, 0x0.ffffffffffffffffffffffffffcp0L, -0x1p-1022L, 7.853981633974483096156608458198695580735e-1L, -1.112536929253600691545116358666215745186e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4741 TEST_c_c (catan, -0x0.ffffffffffffffffffffffffffcp0L, 0x1p-1022L, -7.853981633974483096156608458198695580735e-1L, 1.112536929253600691545116358666215745186e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4742 TEST_c_c (catan, -0x0.ffffffffffffffffffffffffffcp0L, -0x1p-1022L, -7.853981633974483096156608458198695580735e-1L, -1.112536929253600691545116358666215745186e-308L, UNDERFLOW_EXCEPTION_DOUBLE);
4743 TEST_c_c (catan, 0x1p-1022L, 0x0.ffffffffffffffffffffffffffcp0L, 9.025971879324147880346310405868788320726e-277L, 3.708337415995707405382191849801244331055e1L);
4744 TEST_c_c (catan, -0x1p-1022L, 0x0.ffffffffffffffffffffffffffcp0L, -9.025971879324147880346310405868788320726e-277L, 3.708337415995707405382191849801244331055e1L);
4745 TEST_c_c (catan, 0x1p-1022L, -0x0.ffffffffffffffffffffffffffcp0L, 9.025971879324147880346310405868788320726e-277L, -3.708337415995707405382191849801244331055e1L);
4746 TEST_c_c (catan, -0x1p-1022L, -0x0.ffffffffffffffffffffffffffcp0L, -9.025971879324147880346310405868788320726e-277L, -3.708337415995707405382191849801244331055e1L);
4747#endif
4748#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
4749 TEST_c_c (catan, 1.0L, 0x1p-8192L, 7.853981633974483096156608458198757210493e-1L, 4.584009668887117914053530980121207914891e-2467L);
4750 TEST_c_c (catan, 1.0L, -0x1p-8192L, 7.853981633974483096156608458198757210493e-1L, -4.584009668887117914053530980121207914891e-2467L);
4751 TEST_c_c (catan, -1.0L, 0x1p-8192L, -7.853981633974483096156608458198757210493e-1L, 4.584009668887117914053530980121207914891e-2467L);
4752 TEST_c_c (catan, -1.0L, -0x1p-8192L, -7.853981633974483096156608458198757210493e-1L, -4.584009668887117914053530980121207914891e-2467L);
4753 TEST_c_c (catan, 0x1p-8192L, 1.0L, 7.853981633974483096156608458198757210493e-1L, 2.839477425163815960027691385553420311121e3L);
4754 TEST_c_c (catan, -0x1p-8192L, 1.0L, -7.853981633974483096156608458198757210493e-1L, 2.839477425163815960027691385553420311121e3L);
4755 TEST_c_c (catan, 0x1p-8192L, -1.0L, 7.853981633974483096156608458198757210493e-1L, -2.839477425163815960027691385553420311121e3L);
4756 TEST_c_c (catan, -0x1p-8192L, -1.0L, -7.853981633974483096156608458198757210493e-1L, -2.839477425163815960027691385553420311121e3L);
4757 TEST_c_c (catan, 1.0L, 0x1.3p-8221L, 7.853981633974483096156608458198757210493e-1L, 1.013933025636421986471594877335044443409e-2475L);
4758 TEST_c_c (catan, 1.0L, -0x1.3p-8221L, 7.853981633974483096156608458198757210493e-1L, -1.013933025636421986471594877335044443409e-2475L);
4759 TEST_c_c (catan, -1.0L, 0x1.3p-8221L, -7.853981633974483096156608458198757210493e-1L, 1.013933025636421986471594877335044443409e-2475L);
4760 TEST_c_c (catan, -1.0L, -0x1.3p-8221L, -7.853981633974483096156608458198757210493e-1L, -1.013933025636421986471594877335044443409e-2475L);
4761 TEST_c_c (catan, 0x1.3p-8221L, 1.0L, 7.853981633974483096156608458198757210493e-1L, 2.849442134153471837403071201841536297726e3L);
4762 TEST_c_c (catan, -0x1.3p-8221L, 1.0L, -7.853981633974483096156608458198757210493e-1L, 2.849442134153471837403071201841536297726e3L);
4763 TEST_c_c (catan, 0x1.3p-8221L, -1.0L, 7.853981633974483096156608458198757210493e-1L, -2.849442134153471837403071201841536297726e3L);
4764 TEST_c_c (catan, -0x1.3p-8221L, -1.0L, -7.853981633974483096156608458198757210493e-1L, -2.849442134153471837403071201841536297726e3L);
4765 TEST_c_c (catan, 1.0L, 0x1.3p-8246L, 7.853981633974483096156608458198757210493e-1L, 3.021755890954798419688924781486524472858e-2483L);
4766 TEST_c_c (catan, 1.0L, -0x1.3p-8246L, 7.853981633974483096156608458198757210493e-1L, -3.021755890954798419688924781486524472858e-2483L);
4767 TEST_c_c (catan, -1.0L, 0x1.3p-8246L, -7.853981633974483096156608458198757210493e-1L, 3.021755890954798419688924781486524472858e-2483L);
4768 TEST_c_c (catan, -1.0L, -0x1.3p-8246L, -7.853981633974483096156608458198757210493e-1L, -3.021755890954798419688924781486524472858e-2483L);
4769 TEST_c_c (catan, 0x1.3p-8246L, 1.0L, 7.853981633974483096156608458198757210493e-1L, 2.858106473910471153770786603359763504827e3L);
4770 TEST_c_c (catan, -0x1.3p-8246L, 1.0L, -7.853981633974483096156608458198757210493e-1L, 2.858106473910471153770786603359763504827e3L);
4771 TEST_c_c (catan, 0x1.3p-8246L, -1.0L, 7.853981633974483096156608458198757210493e-1L, -2.858106473910471153770786603359763504827e3L);
4772 TEST_c_c (catan, -0x1.3p-8246L, -1.0L, -7.853981633974483096156608458198757210493e-1L, -2.858106473910471153770786603359763504827e3L);
4773 TEST_c_c (catan, 1.0L, 0x1p-16380L, 7.853981633974483096156608458198757210493e-1L, 6.724206286224187012525355634643505205196e-4932L);
4774 TEST_c_c (catan, 1.0L, -0x1p-16380L, 7.853981633974483096156608458198757210493e-1L, -6.724206286224187012525355634643505205196e-4932L);
4775 TEST_c_c (catan, -1.0L, 0x1p-16380L, -7.853981633974483096156608458198757210493e-1L, 6.724206286224187012525355634643505205196e-4932L);
4776 TEST_c_c (catan, -1.0L, -0x1p-16380L, -7.853981633974483096156608458198757210493e-1L, -6.724206286224187012525355634643505205196e-4932L);
4777 TEST_c_c (catan, 0x1p-16380L, 1.0L, 7.853981633974483096156608458198757210493e-1L, 5.677221982376232056781839690803195180822e3L);
4778 TEST_c_c (catan, -0x1p-16380L, 1.0L, -7.853981633974483096156608458198757210493e-1L, 5.677221982376232056781839690803195180822e3L);
4779 TEST_c_c (catan, 0x1p-16380L, -1.0L, 7.853981633974483096156608458198757210493e-1L, -5.677221982376232056781839690803195180822e3L);
4780 TEST_c_c (catan, -0x1p-16380L, -1.0L, -7.853981633974483096156608458198757210493e-1L, -5.677221982376232056781839690803195180822e3L);
4781 TEST_c_c (catan, 0x1.0000000000000002p0L, 0x1p-16382L, 7.853981633974483096698709544441509427467e-1L, 1.681051571556046752949078932066752571182e-4932L, UNDERFLOW_EXCEPTION);
4782 TEST_c_c (catan, 0x1.0000000000000002p0L, -0x1p-16382L, 7.853981633974483096698709544441509427467e-1L, -1.681051571556046752949078932066752571182e-4932L, UNDERFLOW_EXCEPTION);
4783 TEST_c_c (catan, -0x1.0000000000000002p0L, 0x1p-16382L, -7.853981633974483096698709544441509427467e-1L, 1.681051571556046752949078932066752571182e-4932L, UNDERFLOW_EXCEPTION);
4784 TEST_c_c (catan, -0x1.0000000000000002p0L, -0x1p-16382L, -7.853981633974483096698709544441509427467e-1L, -1.681051571556046752949078932066752571182e-4932L, UNDERFLOW_EXCEPTION);
4785 TEST_c_c (catan, 0x1p-16382L, 0x1.0000000000000002p0L, 1.570796326794896619231321691639751442099L, 2.218070977791824990137853294097378778927e1L);
4786 TEST_c_c (catan, -0x1p-16382L, 0x1.0000000000000002p0L, -1.570796326794896619231321691639751442099L, 2.218070977791824990137853294097378778927e1L);
4787 TEST_c_c (catan, 0x1p-16382L, -0x1.0000000000000002p0L, 1.570796326794896619231321691639751442099L, -2.218070977791824990137853294097378778927e1L);
4788 TEST_c_c (catan, -0x1p-16382L, -0x1.0000000000000002p0L, -1.570796326794896619231321691639751442099L, -2.218070977791824990137853294097378778927e1L);
4789 TEST_c_c (catan, 0x0.ffffffffffffffffp0L, 0x1p-16382L, 7.853981633974483095885557915077381101984e-1L, 1.681051571556046753222468896957938166365e-4932L, UNDERFLOW_EXCEPTION);
4790 TEST_c_c (catan, 0x0.ffffffffffffffffp0L, -0x1p-16382L, 7.853981633974483095885557915077381101984e-1L, -1.681051571556046753222468896957938166365e-4932L, UNDERFLOW_EXCEPTION);
4791 TEST_c_c (catan, -0x0.ffffffffffffffffp0L, 0x1p-16382L, -7.853981633974483095885557915077381101984e-1L, 1.681051571556046753222468896957938166365e-4932L, UNDERFLOW_EXCEPTION);
4792 TEST_c_c (catan, -0x0.ffffffffffffffffp0L, -0x1p-16382L, -7.853981633974483095885557915077381101984e-1L, -1.681051571556046753222468896957938166365e-4932L, UNDERFLOW_EXCEPTION);
4793 TEST_c_c (catan, 0x1p-16382L, 0x0.ffffffffffffffffp0L, 3.100992811520163369065387859792822623745e-4913L, 2.252728336819822255604649142023466965703e1L);
4794 TEST_c_c (catan, -0x1p-16382L, 0x0.ffffffffffffffffp0L, -3.100992811520163369065387859792822623745e-4913L, 2.252728336819822255604649142023466965703e1L);
4795 TEST_c_c (catan, 0x1p-16382L, -0x0.ffffffffffffffffp0L, 3.100992811520163369065387859792822623745e-4913L, -2.252728336819822255604649142023466965703e1L);
4796 TEST_c_c (catan, -0x1p-16382L, -0x0.ffffffffffffffffp0L, -3.100992811520163369065387859792822623745e-4913L, -2.252728336819822255604649142023466965703e1L);
4797# if LDBL_MANT_DIG >= 113
4798 TEST_c_c (catan, 0x1.0000000000000000000000000001p0L, 0x1p-16382L, 7.853981633974483096156608458198758173458e-1L, 1.681051571556046753131338908660875977540e-4932L, UNDERFLOW_EXCEPTION);
4799 TEST_c_c (catan, 0x1.0000000000000000000000000001p0L, -0x1p-16382L, 7.853981633974483096156608458198758173458e-1L, -1.681051571556046753131338908660875977540e-4932L, UNDERFLOW_EXCEPTION);
4800 TEST_c_c (catan, -0x1.0000000000000000000000000001p0L, 0x1p-16382L, -7.853981633974483096156608458198758173458e-1L, 1.681051571556046753131338908660875977540e-4932L, UNDERFLOW_EXCEPTION);
4801 TEST_c_c (catan, -0x1.0000000000000000000000000001p0L, -0x1p-16382L, -7.853981633974483096156608458198758173458e-1L, -1.681051571556046753131338908660875977540e-4932L, UNDERFLOW_EXCEPTION);
4802 TEST_c_c (catan, 0x1p-16382L, 0x1.0000000000000000000000000001p0L, 1.570796326794896619231321691639751442099L, 3.916281570163690998207361486238697614441e1L);
4803 TEST_c_c (catan, -0x1p-16382L, 0x1.0000000000000000000000000001p0L, -1.570796326794896619231321691639751442099L, 3.916281570163690998207361486238697614441e1L);
4804 TEST_c_c (catan, 0x1p-16382L, -0x1.0000000000000000000000000001p0L, 1.570796326794896619231321691639751442099L, -3.916281570163690998207361486238697614441e1L);
4805 TEST_c_c (catan, -0x1p-16382L, -0x1.0000000000000000000000000001p0L, -1.570796326794896619231321691639751442099L, -3.916281570163690998207361486238697614441e1L);
4806 TEST_c_c (catan, 0x0.ffffffffffffffffffffffffffff8p0L, 0x1p-16382L, 7.853981633974483096156608458198756729010e-1L, 1.681051571556046753131338908660876463178e-4932L, UNDERFLOW_EXCEPTION);
4807 TEST_c_c (catan, 0x0.ffffffffffffffffffffffffffff8p0L, -0x1p-16382L, 7.853981633974483096156608458198756729010e-1L, -1.681051571556046753131338908660876463178e-4932L, UNDERFLOW_EXCEPTION);
4808 TEST_c_c (catan, -0x0.ffffffffffffffffffffffffffff8p0L, 0x1p-16382L, -7.853981633974483096156608458198756729010e-1L, 1.681051571556046753131338908660876463178e-4932L, UNDERFLOW_EXCEPTION);
4809 TEST_c_c (catan, -0x0.ffffffffffffffffffffffffffff8p0L, -0x1p-16382L, -7.853981633974483096156608458198756729010e-1L, -1.681051571556046753131338908660876463178e-4932L, UNDERFLOW_EXCEPTION);
4810 TEST_c_c (catan, 0x1p-16382L, 0x0.ffffffffffffffffffffffffffff8p0L, 1.745703758805099310527547423749501866998e-4898L, 3.950938929191688263678223092311606435623e1L);
4811 TEST_c_c (catan, -0x1p-16382L, 0x0.ffffffffffffffffffffffffffff8p0L, -1.745703758805099310527547423749501866998e-4898L, 3.950938929191688263678223092311606435623e1L);
4812 TEST_c_c (catan, 0x1p-16382L, -0x0.ffffffffffffffffffffffffffff8p0L, 1.745703758805099310527547423749501866998e-4898L, -3.950938929191688263678223092311606435623e1L);
4813 TEST_c_c (catan, -0x1p-16382L, -0x0.ffffffffffffffffffffffffffff8p0L, -1.745703758805099310527547423749501866998e-4898L, -3.950938929191688263678223092311606435623e1L);
4814# endif
caf84319 4815#endif
2f38fbfe 4816
2550dfe9 4817 TEST_c_c (catan, 0.75L, 1.25L, 1.10714871779409050301706546017853704L, 0.549306144334054845697622618461262852L);
33e885db 4818 TEST_c_c (catan, -2, -3, -1.4099210495965755225306193844604208L, -0.22907268296853876629588180294200276L);
8847214f 4819
6815fabc 4820 END (catan, complex);
8847214f
UD		 4821}
4822
4823static void
4824catanh_test (void)
4825{
aaca11d8 4826 errno = 0;
3c6cad26 4827 FUNC(catanh) (BUILD_COMPLEX (0.7L, 1.2L));
aaca11d8
UD		 4828 if (errno == ENOSYS)
4829 /* Function not implemented. */
4830 return;
4831
8847214f
UD		 4832 START (catanh);
4833
4834 TEST_c_c (catanh, 0, 0, 0.0, 0.0);
4835 TEST_c_c (catanh, minus_zero, 0, minus_zero, 0.0);
4836 TEST_c_c (catanh, 0, minus_zero, 0.0, minus_zero);
4837 TEST_c_c (catanh, minus_zero, minus_zero, minus_zero, minus_zero);
4838
5e221800
JM		 4839 TEST_c_c (catanh, 1.0L, plus_zero, plus_infty, plus_zero, DIVIDE_BY_ZERO_EXCEPTION);
4840 TEST_c_c (catanh, 1.0L, minus_zero, plus_infty, minus_zero, DIVIDE_BY_ZERO_EXCEPTION);
4841 TEST_c_c (catanh, -1.0L, plus_zero, minus_infty, plus_zero, DIVIDE_BY_ZERO_EXCEPTION);
4842 TEST_c_c (catanh, -1.0L, minus_zero, minus_infty, minus_zero, DIVIDE_BY_ZERO_EXCEPTION);
4843 TEST_c_c (catanh, plus_zero, 1.0L, plus_zero, M_PI_4l);
4844 TEST_c_c (catanh, minus_zero, 1.0L, minus_zero, M_PI_4l);
4845 TEST_c_c (catanh, plus_zero, -1.0L, plus_zero, -M_PI_4l);
4846 TEST_c_c (catanh, minus_zero, -1.0L, minus_zero, -M_PI_4l);
4847
8847214f
UD		 4848 TEST_c_c (catanh, plus_infty, plus_infty, 0.0, M_PI_2l);
4849 TEST_c_c (catanh, plus_infty, minus_infty, 0.0, -M_PI_2l);
4850 TEST_c_c (catanh, minus_infty, plus_infty, minus_zero, M_PI_2l);
4851 TEST_c_c (catanh, minus_infty, minus_infty, minus_zero, -M_PI_2l);
4852
4853 TEST_c_c (catanh, -10.0, plus_infty, minus_zero, M_PI_2l);
4854 TEST_c_c (catanh, -10.0, minus_infty, minus_zero, -M_PI_2l);
4855 TEST_c_c (catanh, minus_zero, plus_infty, minus_zero, M_PI_2l);
4856 TEST_c_c (catanh, minus_zero, minus_infty, minus_zero, -M_PI_2l);
4857 TEST_c_c (catanh, 0, plus_infty, 0.0, M_PI_2l);
4858 TEST_c_c (catanh, 0, minus_infty, 0.0, -M_PI_2l);
3c6cad26
UD		 4859 TEST_c_c (catanh, 0.1L, plus_infty, 0.0, M_PI_2l);
4860 TEST_c_c (catanh, 0.1L, minus_infty, 0.0, -M_PI_2l);
8847214f
UD		 4861
4862 TEST_c_c (catanh, minus_infty, 0, minus_zero, M_PI_2l);
4863 TEST_c_c (catanh, minus_infty, minus_zero, minus_zero, -M_PI_2l);
4864 TEST_c_c (catanh, minus_infty, 100, minus_zero, M_PI_2l);
4865 TEST_c_c (catanh, minus_infty, -100, minus_zero, -M_PI_2l);
4866
4867 TEST_c_c (catanh, plus_infty, 0, 0.0, M_PI_2l);
4868 TEST_c_c (catanh, plus_infty, minus_zero, 0.0, -M_PI_2l);
4869 TEST_c_c (catanh, plus_infty, 0.5, 0.0, M_PI_2l);
4870 TEST_c_c (catanh, plus_infty, -0.5, 0.0, -M_PI_2l);
4871
67e971f1
TS		 4872 TEST_c_c (catanh, 0, qnan_value, 0.0, qnan_value);
4873 TEST_c_c (catanh, minus_zero, qnan_value, minus_zero, qnan_value);
8847214f 4874
67e971f1
TS		 4875 TEST_c_c (catanh, plus_infty, qnan_value, 0.0, qnan_value);
4876 TEST_c_c (catanh, minus_infty, qnan_value, minus_zero, qnan_value);
8847214f 4877
67e971f1
TS		 4878 TEST_c_c (catanh, qnan_value, 0, qnan_value, qnan_value);
4879 TEST_c_c (catanh, qnan_value, minus_zero, qnan_value, qnan_value);
8847214f 4880
67e971f1
TS		 4881 TEST_c_c (catanh, qnan_value, plus_infty, 0.0, M_PI_2l, IGNORE_ZERO_INF_SIGN);
4882 TEST_c_c (catanh, qnan_value, minus_infty, 0.0, -M_PI_2l, IGNORE_ZERO_INF_SIGN);
8847214f 4883
67e971f1
TS		 4884 TEST_c_c (catanh, 10.5, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
4885 TEST_c_c (catanh, -10.5, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 4886
67e971f1
TS		 4887 TEST_c_c (catanh, qnan_value, 0.75, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
4888 TEST_c_c (catanh, qnan_value, -0.75, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 4889
67e971f1 4890 TEST_c_c (catanh, qnan_value, qnan_value, qnan_value, qnan_value);
8847214f 4891
2f38fbfe
JM		 4892 TEST_c_c (catanh, 0x1p50L, 0.0L, 8.881784197001252323389053344728897997441e-16L, 1.570796326794896619231321691639751442099L);
4893 TEST_c_c (catanh, 0x1p50L, -0.0L, 8.881784197001252323389053344728897997441e-16L, -1.570796326794896619231321691639751442099L);
4894 TEST_c_c (catanh, -0x1p50L, 0.0L, -8.881784197001252323389053344728897997441e-16L, 1.570796326794896619231321691639751442099L);
4895 TEST_c_c (catanh, -0x1p50L, -0.0L, -8.881784197001252323389053344728897997441e-16L, -1.570796326794896619231321691639751442099L);
4896 TEST_c_c (catanh, 0.0L, 0x1p50L, 0.0L, 1.570796326794895731052901991514519103193L);
4897 TEST_c_c (catanh, -0.0L, 0x1p50L, -0.0L, 1.570796326794895731052901991514519103193L);
4898 TEST_c_c (catanh, 0.0L, -0x1p50L, 0.0L, -1.570796326794895731052901991514519103193L);
4899 TEST_c_c (catanh, -0.0L, -0x1p50L, -0.0L, -1.570796326794895731052901991514519103193L);
4900#ifndef TEST_FLOAT
4901 TEST_c_c (catanh, 0x1p500L, 0.0L, 3.054936363499604682051979393213617699789e-151L, 1.570796326794896619231321691639751442099L);
4902 TEST_c_c (catanh, 0x1p500L, -0.0L, 3.054936363499604682051979393213617699789e-151L, -1.570796326794896619231321691639751442099L);
4903 TEST_c_c (catanh, -0x1p500L, 0.0L, -3.054936363499604682051979393213617699789e-151L, 1.570796326794896619231321691639751442099L);
4904 TEST_c_c (catanh, -0x1p500L, -0.0L, -3.054936363499604682051979393213617699789e-151L, -1.570796326794896619231321691639751442099L);
4905 TEST_c_c (catanh, 0.0L, 0x1p500L, 0.0L, 1.570796326794896619231321691639751442099L);
4906 TEST_c_c (catanh, -0.0L, 0x1p500L, -0.0L, 1.570796326794896619231321691639751442099L);
4907 TEST_c_c (catanh, 0.0L, -0x1p500L, 0.0L, -1.570796326794896619231321691639751442099L);
4908 TEST_c_c (catanh, -0.0L, -0x1p500L, -0.0L, -1.570796326794896619231321691639751442099L);
4909#endif
4910#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
4911 TEST_c_c (catanh, 0x1p5000L, 0.0L, 7.079811261048172892385615158694057552948e-1506L, 1.570796326794896619231321691639751442099L);
4912 TEST_c_c (catanh, 0x1p5000L, -0.0L, 7.079811261048172892385615158694057552948e-1506L, -1.570796326794896619231321691639751442099L);
4913 TEST_c_c (catanh, -0x1p5000L, 0.0L, -7.079811261048172892385615158694057552948e-1506L, 1.570796326794896619231321691639751442099L);
4914 TEST_c_c (catanh, -0x1p5000L, -0.0L, -7.079811261048172892385615158694057552948e-1506L, -1.570796326794896619231321691639751442099L);
4915 TEST_c_c (catanh, 0.0L, 0x1p5000L, 0.0L, 1.570796326794896619231321691639751442099L);
4916 TEST_c_c (catanh, -0.0L, 0x1p5000L, -0.0L, 1.570796326794896619231321691639751442099L);
4917 TEST_c_c (catanh, 0.0L, -0x1p5000L, 0.0L, -1.570796326794896619231321691639751442099L);
4918 TEST_c_c (catanh, -0.0L, -0x1p5000L, -0.0L, -1.570796326794896619231321691639751442099L);
4919#endif
9457fd95
JM		 4920 TEST_c_c (catanh, 0x1p63L, 0.5L, 1.084202172485504434007452800869941711427e-19L, 1.570796326794896619231321691639751442093L);
4921 TEST_c_c (catanh, 0x1p63L, -0.5L, 1.084202172485504434007452800869941711427e-19L, -1.570796326794896619231321691639751442093L);
4922 TEST_c_c (catanh, -0x1p63L, 0.5L, -1.084202172485504434007452800869941711427e-19L, 1.570796326794896619231321691639751442093L);
4923 TEST_c_c (catanh, -0x1p63L, -0.5L, -1.084202172485504434007452800869941711427e-19L, -1.570796326794896619231321691639751442093L);
4924 TEST_c_c (catanh, 0.5L, 0x1p63L, 5.877471754111437539843682686111228389007e-39L, 1.570796326794896619122901474391200998698L, UNDERFLOW_EXCEPTION_FLOAT);
4925 TEST_c_c (catanh, -0.5L, 0x1p63L, -5.877471754111437539843682686111228389007e-39L, 1.570796326794896619122901474391200998698L, UNDERFLOW_EXCEPTION_FLOAT);
4926 TEST_c_c (catanh, 0.5L, -0x1p63L, 5.877471754111437539843682686111228389007e-39L, -1.570796326794896619122901474391200998698L, UNDERFLOW_EXCEPTION_FLOAT);
4927 TEST_c_c (catanh, -0.5L, -0x1p63L, -5.877471754111437539843682686111228389007e-39L, -1.570796326794896619122901474391200998698L, UNDERFLOW_EXCEPTION_FLOAT);
4928#ifndef TEST_FLOAT
4929 TEST_c_c (catanh, 0x1p511L, 0.5L, 1.491668146240041348658193063092586767475e-154L, 1.570796326794896619231321691639751442099L);
4930 TEST_c_c (catanh, 0x1p511L, -0.5L, 1.491668146240041348658193063092586767475e-154L, -1.570796326794896619231321691639751442099L);
4931 TEST_c_c (catanh, -0x1p511L, 0.5L, -1.491668146240041348658193063092586767475e-154L, 1.570796326794896619231321691639751442099L);
4932 TEST_c_c (catanh, -0x1p511L, -0.5L, -1.491668146240041348658193063092586767475e-154L, -1.570796326794896619231321691639751442099L);
4933 TEST_c_c (catanh, 0.5L, 0x1p511L, 1.112536929253600691545116358666202032110e-308L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
4934 TEST_c_c (catanh, -0.5L, 0x1p511L, -1.112536929253600691545116358666202032110e-308L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
4935 TEST_c_c (catanh, 0.5L, -0x1p511L, 1.112536929253600691545116358666202032110e-308L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
4936 TEST_c_c (catanh, -0.5L, -0x1p511L, -1.112536929253600691545116358666202032110e-308L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
4937#endif
4938#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
4939 TEST_c_c (catanh, 0x1p8191L, 0.5L, 1.833603867554847165621412392048483165956e-2466L, 1.570796326794896619231321691639751442099L);
4940 TEST_c_c (catanh, 0x1p8191L, -0.5L, 1.833603867554847165621412392048483165956e-2466L, -1.570796326794896619231321691639751442099L);
4941 TEST_c_c (catanh, -0x1p8191L, 0.5L, -1.833603867554847165621412392048483165956e-2466L, 1.570796326794896619231321691639751442099L);
4942 TEST_c_c (catanh, -0x1p8191L, -0.5L, -1.833603867554847165621412392048483165956e-2466L, -1.570796326794896619231321691639751442099L);
4943 TEST_c_c (catanh, 0.5L, 0x1p8191L, 1.681051571556046753131338908660876301299e-4932L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
4944 TEST_c_c (catanh, -0.5L, 0x1p8191L, -1.681051571556046753131338908660876301299e-4932L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
4945 TEST_c_c (catanh, 0.5L, -0x1p8191L, 1.681051571556046753131338908660876301299e-4932L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
4946 TEST_c_c (catanh, -0.5L, -0x1p8191L, -1.681051571556046753131338908660876301299e-4932L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
4947#endif
5b4217d7
JM		 4948 TEST_c_c (catanh, 0x1p100L, 0.0L, 7.888609052210118054117285652827862296732e-31L, 1.570796326794896619231321691639751442099L);
4949 TEST_c_c (catanh, 0x1p100L, -0.0L, 7.888609052210118054117285652827862296732e-31L, -1.570796326794896619231321691639751442099L);
4950 TEST_c_c (catanh, -0x1p100L, 0.0L, -7.888609052210118054117285652827862296732e-31L, 1.570796326794896619231321691639751442099L);
4951 TEST_c_c (catanh, -0x1p100L, -0.0L, -7.888609052210118054117285652827862296732e-31L, -1.570796326794896619231321691639751442099L);
4952 TEST_c_c (catanh, 0.0L, 0x1p100L, 0.0L, 1.570796326794896619231321691638962581193L);
4953 TEST_c_c (catanh, -0.0L, 0x1p100L, -0.0L, 1.570796326794896619231321691638962581193L);
4954 TEST_c_c (catanh, 0.0L, -0x1p100L, 0.0L, -1.570796326794896619231321691638962581193L);
4955 TEST_c_c (catanh, -0.0L, -0x1p100L, -0.0L, -1.570796326794896619231321691638962581193L);
4956 TEST_c_c (catanh, 0x1.fp127L, 0.0L, 3.033533808573645181854803967025150136306e-39L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_FLOAT);
4957 TEST_c_c (catanh, 0x1.fp127L, -0.0L, 3.033533808573645181854803967025150136306e-39L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_FLOAT);
4958 TEST_c_c (catanh, -0x1.fp127L, 0.0L, -3.033533808573645181854803967025150136306e-39L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_FLOAT);
4959 TEST_c_c (catanh, -0x1.fp127L, -0.0L, -3.033533808573645181854803967025150136306e-39L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_FLOAT);
4960 TEST_c_c (catanh, 0.0L, 0x1.fp127L, 0.0L, 1.570796326794896619231321691639751442096L);
4961 TEST_c_c (catanh, -0.0L, 0x1.fp127L, -0.0L, 1.570796326794896619231321691639751442096L);
4962 TEST_c_c (catanh, 0.0L, -0x1.fp127L, 0.0L, -1.570796326794896619231321691639751442096L);
4963 TEST_c_c (catanh, -0.0L, -0x1.fp127L, -0.0L, -1.570796326794896619231321691639751442096L);
4964 TEST_c_c (catanh, 0x1.fp127L, 0x1.fp127L, 1.516766904286822590927401983512575068153e-39L, 1.570796326794896619231321691639751442097L, UNDERFLOW_EXCEPTION_FLOAT);
4965 TEST_c_c (catanh, 0x1.fp127L, -0x1.fp127L, 1.516766904286822590927401983512575068153e-39L, -1.570796326794896619231321691639751442097L, UNDERFLOW_EXCEPTION_FLOAT);
4966 TEST_c_c (catanh, -0x1.fp127L, 0x1.fp127L, -1.516766904286822590927401983512575068153e-39L, 1.570796326794896619231321691639751442097L, UNDERFLOW_EXCEPTION_FLOAT);
4967 TEST_c_c (catanh, -0x1.fp127L, -0x1.fp127L, -1.516766904286822590927401983512575068153e-39L, -1.570796326794896619231321691639751442097L, UNDERFLOW_EXCEPTION_FLOAT);
4968#ifndef TEST_FLOAT
4969 TEST_c_c (catanh, 0x1p900L, 0.0L, 1.183052186166774710972751597518026531652e-271L, 1.570796326794896619231321691639751442099L);
4970 TEST_c_c (catanh, 0x1p900L, -0.0L, 1.183052186166774710972751597518026531652e-271L, -1.570796326794896619231321691639751442099L);
4971 TEST_c_c (catanh, -0x1p900L, 0.0L, -1.183052186166774710972751597518026531652e-271L, 1.570796326794896619231321691639751442099L);
4972 TEST_c_c (catanh, -0x1p900L, -0.0L, -1.183052186166774710972751597518026531652e-271L, -1.570796326794896619231321691639751442099L);
4973 TEST_c_c (catanh, 0.0L, 0x1p900L, 0.0L, 1.570796326794896619231321691639751442099L);
4974 TEST_c_c (catanh, -0.0L, 0x1p900L, -0.0L, 1.570796326794896619231321691639751442099L);
4975 TEST_c_c (catanh, 0.0L, -0x1p900L, 0.0L, -1.570796326794896619231321691639751442099L);
4976 TEST_c_c (catanh, -0.0L, -0x1p900L, -0.0L, -1.570796326794896619231321691639751442099L);
4977 TEST_c_c (catanh, 0x1.fp1023L, 0.0L, 5.742126086470197117652213464083623391533e-309L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
4978 TEST_c_c (catanh, 0x1.fp1023L, -0.0L, 5.742126086470197117652213464083623391533e-309L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
4979 TEST_c_c (catanh, -0x1.fp1023L, 0.0L, -5.742126086470197117652213464083623391533e-309L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
4980 TEST_c_c (catanh, -0x1.fp1023L, -0.0L, -5.742126086470197117652213464083623391533e-309L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
4981 TEST_c_c (catanh, 0.0L, 0x1.fp1023L, 0.0L, 1.570796326794896619231321691639751442099L);
4982 TEST_c_c (catanh, -0.0L, 0x1.fp1023L, -0.0L, 1.570796326794896619231321691639751442099L);
4983 TEST_c_c (catanh, 0.0L, -0x1.fp1023L, 0.0L, -1.570796326794896619231321691639751442099L);
4984 TEST_c_c (catanh, -0.0L, -0x1.fp1023L, -0.0L, -1.570796326794896619231321691639751442099L);
4985 TEST_c_c (catanh, 0x1.fp1023L, 0x1.fp1023L, 2.871063043235098558826106732041811695767e-309L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
4986 TEST_c_c (catanh, 0x1.fp1023L, -0x1.fp1023L, 2.871063043235098558826106732041811695767e-309L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
4987 TEST_c_c (catanh, -0x1.fp1023L, 0x1.fp1023L, -2.871063043235098558826106732041811695767e-309L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
4988 TEST_c_c (catanh, -0x1.fp1023L, -0x1.fp1023L, -2.871063043235098558826106732041811695767e-309L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
4989#endif
4990#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
4991 TEST_c_c (catanh, 0x1p10000L, 0.0L, 5.012372749206452009297555933742977749322e-3011L, 1.570796326794896619231321691639751442099L);
4992 TEST_c_c (catanh, 0x1p10000L, -0.0L, 5.012372749206452009297555933742977749322e-3011L, -1.570796326794896619231321691639751442099L);
4993 TEST_c_c (catanh, -0x1p10000L, 0.0L, -5.012372749206452009297555933742977749322e-3011L, 1.570796326794896619231321691639751442099L);
4994 TEST_c_c (catanh, -0x1p10000L, -0.0L, -5.012372749206452009297555933742977749322e-3011L, -1.570796326794896619231321691639751442099L);
4995 TEST_c_c (catanh, 0.0L, 0x1p10000L, 0.0L, 1.570796326794896619231321691639751442099L);
4996 TEST_c_c (catanh, -0.0L, 0x1p10000L, -0.0L, 1.570796326794896619231321691639751442099L);
4997 TEST_c_c (catanh, 0.0L, -0x1p10000L, 0.0L, -1.570796326794896619231321691639751442099L);
4998 TEST_c_c (catanh, -0.0L, -0x1p10000L, -0.0L, -1.570796326794896619231321691639751442099L);
4999 TEST_c_c (catanh, 0x1.fp16383L, 0.0L, 8.676395208031209048419813722120651877672e-4933L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
5000 TEST_c_c (catanh, 0x1.fp16383L, -0.0L, 8.676395208031209048419813722120651877672e-4933L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
5001 TEST_c_c (catanh, -0x1.fp16383L, 0.0L, -8.676395208031209048419813722120651877672e-4933L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
5002 TEST_c_c (catanh, -0x1.fp16383L, -0.0L, -8.676395208031209048419813722120651877672e-4933L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
5003 TEST_c_c (catanh, 0.0L, 0x1.fp16383L, 0.0L, 1.570796326794896619231321691639751442099L);
5004 TEST_c_c (catanh, -0.0L, 0x1.fp16383L, -0.0L, 1.570796326794896619231321691639751442099L);
5005 TEST_c_c (catanh, 0.0L, -0x1.fp16383L, 0.0L, -1.570796326794896619231321691639751442099L);
5006 TEST_c_c (catanh, -0.0L, -0x1.fp16383L, -0.0L, -1.570796326794896619231321691639751442099L);
5007 TEST_c_c (catanh, 0x1.fp16383L, 0x1.fp16383L, 4.338197604015604524209906861060325938836e-4933L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
5008 TEST_c_c (catanh, 0x1.fp16383L, -0x1.fp16383L, 4.338197604015604524209906861060325938836e-4933L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
5009 TEST_c_c (catanh, -0x1.fp16383L, 0x1.fp16383L, -4.338197604015604524209906861060325938836e-4933L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
5010 TEST_c_c (catanh, -0x1.fp16383L, -0x1.fp16383L, -4.338197604015604524209906861060325938836e-4933L, -1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
5011#endif
caf84319
JM		 5012 TEST_c_c (catanh, 0x1p-13L, 1.0L, 6.103515609841754902688560615027452023669e-5L, 7.853981671227386080775748393881580082970e-1L);
5013 TEST_c_c (catanh, 0x1p-13L, -1.0L, 6.103515609841754902688560615027452023669e-5L, -7.853981671227386080775748393881580082970e-1L);
5014 TEST_c_c (catanh, -0x1p-13L, 1.0L, -6.103515609841754902688560615027452023669e-5L, 7.853981671227386080775748393881580082970e-1L);
5015 TEST_c_c (catanh, -0x1p-13L, -1.0L, -6.103515609841754902688560615027452023669e-5L, -7.853981671227386080775748393881580082970e-1L);
5016 TEST_c_c (catanh, 1.0L, 0x1p-13L, 4.852030264850939738801379894163661227127L, 7.854286809755354140031716771044626356262e-1L);
5017 TEST_c_c (catanh, -1.0L, 0x1p-13L, -4.852030264850939738801379894163661227127L, 7.854286809755354140031716771044626356262e-1L);
5018 TEST_c_c (catanh, 1.0L, -0x1p-13L, 4.852030264850939738801379894163661227127L, -7.854286809755354140031716771044626356262e-1L);
5019 TEST_c_c (catanh, -1.0L, -0x1p-13L, -4.852030264850939738801379894163661227127L, -7.854286809755354140031716771044626356262e-1L);
5020 TEST_c_c (catanh, 0x1p-27L, 1.0L, 3.725290298461914028034141143623846306386e-9L, 7.853981633974483234934486536343324763447e-1L);
5021 TEST_c_c (catanh, 0x1p-27L, -1.0L, 3.725290298461914028034141143623846306386e-9L, -7.853981633974483234934486536343324763447e-1L);
5022 TEST_c_c (catanh, -0x1p-27L, 1.0L, -3.725290298461914028034141143623846306386e-9L, 7.853981633974483234934486536343324763447e-1L);
5023 TEST_c_c (catanh, -0x1p-27L, -1.0L, -3.725290298461914028034141143623846306386e-9L, -7.853981633974483234934486536343324763447e-1L);
5024 TEST_c_c (catanh, 1.0L, 0x1p-27L, 9.704060527839234335310696652368086117807L, 7.853981652600934588466178684534110069553e-1L);
5025 TEST_c_c (catanh, -1.0L, 0x1p-27L, -9.704060527839234335310696652368086117807L, 7.853981652600934588466178684534110069553e-1L);
5026 TEST_c_c (catanh, 1.0L, -0x1p-27L, 9.704060527839234335310696652368086117807L, -7.853981652600934588466178684534110069553e-1L);
5027 TEST_c_c (catanh, -1.0L, -0x1p-27L, -9.704060527839234335310696652368086117807L, -7.853981652600934588466178684534110069553e-1L);
5028 TEST_c_c (catanh, 0x1p-33L, 1.0L, 5.820766091346740722643102318246316469910e-11L, 7.853981633974483096190489776088929224056e-1L);
5029 TEST_c_c (catanh, 0x1p-33L, -1.0L, 5.820766091346740722643102318246316469910e-11L, -7.853981633974483096190489776088929224056e-1L);
5030 TEST_c_c (catanh, -0x1p-33L, 1.0L, -5.820766091346740722643102318246316469910e-11L, 7.853981633974483096190489776088929224056e-1L);
5031 TEST_c_c (catanh, -0x1p-33L, -1.0L, -5.820766091346740722643102318246316469910e-11L, -7.853981633974483096190489776088929224056e-1L);
5032 TEST_c_c (catanh, 1.0L, 0x1p-33L, 1.178350206951907026009379309773625595762e1L, 7.853981634265521400723945494331241018449e-1L);
5033 TEST_c_c (catanh, -1.0L, 0x1p-33L, -1.178350206951907026009379309773625595762e1L, 7.853981634265521400723945494331241018449e-1L);
5034 TEST_c_c (catanh, 1.0L, -0x1p-33L, 1.178350206951907026009379309773625595762e1L, -7.853981634265521400723945494331241018449e-1L);
5035 TEST_c_c (catanh, -1.0L, -0x1p-33L, -1.178350206951907026009379309773625595762e1L, -7.853981634265521400723945494331241018449e-1L);
5036 TEST_c_c (catanh, 0x1p-54L, 1.0L, 2.775557561562891351059079170227049355775e-17L, 7.853981633974483096156608458198764914213e-1L);
5037 TEST_c_c (catanh, 0x1p-54L, -1.0L, 2.775557561562891351059079170227049355775e-17L, -7.853981633974483096156608458198764914213e-1L);
5038 TEST_c_c (catanh, -0x1p-54L, 1.0L, -2.775557561562891351059079170227049355775e-17L, 7.853981633974483096156608458198764914213e-1L);
5039 TEST_c_c (catanh, -0x1p-54L, -1.0L, -2.775557561562891351059079170227049355775e-17L, -7.853981633974483096156608458198764914213e-1L);
5040 TEST_c_c (catanh, 1.0L, 0x1p-54L, 1.906154746539849600897388334009985581467e1L, 7.853981633974483234934486536343324763447e-1L);
5041 TEST_c_c (catanh, -1.0L, 0x1p-54L, -1.906154746539849600897388334009985581467e1L, 7.853981633974483234934486536343324763447e-1L);
5042 TEST_c_c (catanh, 1.0L, -0x1p-54L, 1.906154746539849600897388334009985581467e1L, -7.853981633974483234934486536343324763447e-1L);
5043 TEST_c_c (catanh, -1.0L, -0x1p-54L, -1.906154746539849600897388334009985581467e1L, -7.853981633974483234934486536343324763447e-1L);
5044 TEST_c_c (catanh, 0x1p-57L, 1.0L, 3.469446951953614188823848962783813448721e-18L, 7.853981633974483096156608458198757330864e-1L);
5045 TEST_c_c (catanh, 0x1p-57L, -1.0L, 3.469446951953614188823848962783813448721e-18L, -7.853981633974483096156608458198757330864e-1L);
5046 TEST_c_c (catanh, -0x1p-57L, 1.0L, -3.469446951953614188823848962783813448721e-18L, 7.853981633974483096156608458198757330864e-1L);
5047 TEST_c_c (catanh, -0x1p-57L, -1.0L, -3.469446951953614188823848962783813448721e-18L, -7.853981633974483096156608458198757330864e-1L);
5048 TEST_c_c (catanh, 1.0L, 0x1p-57L, 2.010126823623841397309973152228712047720e1L, 7.853981633974483113503843217966828154612e-1L);
5049 TEST_c_c (catanh, -1.0L, 0x1p-57L, -2.010126823623841397309973152228712047720e1L, 7.853981633974483113503843217966828154612e-1L);
5050 TEST_c_c (catanh, 1.0L, -0x1p-57L, 2.010126823623841397309973152228712047720e1L, -7.853981633974483113503843217966828154612e-1L);
5051 TEST_c_c (catanh, -1.0L, -0x1p-57L, -2.010126823623841397309973152228712047720e1L, -7.853981633974483113503843217966828154612e-1L);
5052 TEST_c_c (catanh, 0x1p-13L, 0x1.000002p0L, 6.103514882246036852433556327261700380577e-5L, 7.853982267273793866654490522673596014524e-1L);
5053 TEST_c_c (catanh, 0x1p-13L, -0x1.000002p0L, 6.103514882246036852433556327261700380577e-5L, -7.853982267273793866654490522673596014524e-1L);
5054 TEST_c_c (catanh, -0x1p-13L, 0x1.000002p0L, -6.103514882246036852433556327261700380577e-5L, 7.853982267273793866654490522673596014524e-1L);
5055 TEST_c_c (catanh, -0x1p-13L, -0x1.000002p0L, -6.103514882246036852433556327261700380577e-5L, -7.853982267273793866654490522673596014524e-1L);
5056 TEST_c_c (catanh, 0x1.000002p0L, 0x1p-13L, 4.852030056234795712498957387213592193975L, 7.859169620684960844300240092596908675974e-1L);
5057 TEST_c_c (catanh, -0x1.000002p0L, 0x1p-13L, -4.852030056234795712498957387213592193975L, 7.859169620684960844300240092596908675974e-1L);
5058 TEST_c_c (catanh, 0x1.000002p0L, -0x1p-13L, 4.852030056234795712498957387213592193975L, -7.859169620684960844300240092596908675974e-1L);
5059 TEST_c_c (catanh, -0x1.000002p0L, -0x1p-13L, -4.852030056234795712498957387213592193975L, -7.859169620684960844300240092596908675974e-1L);
5060 TEST_c_c (catanh, 0x1p-13L, 0x0.ffffffp0L, 6.103515973639646453881721999956617260502e-5L, 7.853981373204155542484315721351697277336e-1L);
5061 TEST_c_c (catanh, 0x1p-13L, -0x0.ffffffp0L, 6.103515973639646453881721999956617260502e-5L, -7.853981373204155542484315721351697277336e-1L);
5062 TEST_c_c (catanh, -0x1p-13L, 0x0.ffffffp0L, -6.103515973639646453881721999956617260502e-5L, 7.853981373204155542484315721351697277336e-1L);
5063 TEST_c_c (catanh, -0x1p-13L, -0x0.ffffffp0L, -6.103515973639646453881721999956617260502e-5L, -7.853981373204155542484315721351697277336e-1L);
5064 TEST_c_c (catanh, 0x0.ffffffp0L, 0x1p-13L, 4.852030190345140708455871037447717761868L, 7.851845403708474595909269086711426246675e-1L);
5065 TEST_c_c (catanh, -0x0.ffffffp0L, 0x1p-13L, -4.852030190345140708455871037447717761868L, 7.851845403708474595909269086711426246675e-1L);
5066 TEST_c_c (catanh, 0x0.ffffffp0L, -0x1p-13L, 4.852030190345140708455871037447717761868L, -7.851845403708474595909269086711426246675e-1L);
5067 TEST_c_c (catanh, -0x0.ffffffp0L, -0x1p-13L, -4.852030190345140708455871037447717761868L, -7.851845403708474595909269086711426246675e-1L);
5068#ifndef TEST_FLOAT
5069 TEST_c_c (catanh, 0x1p-27L, 0x1.0000000000001p0L, 3.725290298461913200853528590596263270474e-9L, 7.853981633974484345157511161499711112683e-1L);
5070 TEST_c_c (catanh, 0x1p-27L, -0x1.0000000000001p0L, 3.725290298461913200853528590596263270474e-9L, -7.853981633974484345157511161499711112683e-1L);
5071 TEST_c_c (catanh, -0x1p-27L, 0x1.0000000000001p0L, -3.725290298461913200853528590596263270474e-9L, 7.853981633974484345157511161499711112683e-1L);
5072 TEST_c_c (catanh, -0x1p-27L, -0x1.0000000000001p0L, -3.725290298461913200853528590596263270474e-9L, -7.853981633974484345157511161499711112683e-1L);
5073 TEST_c_c (catanh, 0x1.0000000000001p0L, 0x1p-27L, 9.704060527839234168777242958594699810015L, 7.853981801612546526942695000283242525531e-1L);
5074 TEST_c_c (catanh, -0x1.0000000000001p0L, 0x1p-27L, -9.704060527839234168777242958594699810015L, 7.853981801612546526942695000283242525531e-1L);
5075 TEST_c_c (catanh, 0x1.0000000000001p0L, -0x1p-27L, 9.704060527839234168777242958594699810015L, -7.853981801612546526942695000283242525531e-1L);
5076 TEST_c_c (catanh, -0x1.0000000000001p0L, -0x1p-27L, -9.704060527839234168777242958594699810015L, -7.853981801612546526942695000283242525531e-1L);
5077 TEST_c_c (catanh, 0x1p-27L, 0x0.fffffffffffff8p0L, 3.725290298461914441624447420137706700965e-9L, 7.853981633974482679822974223765039144191e-1L);
5078 TEST_c_c (catanh, 0x1p-27L, -0x0.fffffffffffff8p0L, 3.725290298461914441624447420137706700965e-9L, -7.853981633974482679822974223765039144191e-1L);
5079 TEST_c_c (catanh, -0x1p-27L, 0x0.fffffffffffff8p0L, -3.725290298461914441624447420137706700965e-9L, 7.853981633974482679822974223765039144191e-1L);
5080 TEST_c_c (catanh, -0x1p-27L, -0x0.fffffffffffff8p0L, -3.725290298461914441624447420137706700965e-9L, -7.853981633974482679822974223765039144191e-1L);
5081 TEST_c_c (catanh, 0x0.fffffffffffff8p0L, 0x1p-27L, 9.704060527839234252043969805481351363824L, 7.853981578095128619227903983047292781021e-1L);
5082 TEST_c_c (catanh, -0x0.fffffffffffff8p0L, 0x1p-27L, -9.704060527839234252043969805481351363824L, 7.853981578095128619227903983047292781021e-1L);
5083 TEST_c_c (catanh, 0x0.fffffffffffff8p0L, -0x1p-27L, 9.704060527839234252043969805481351363824L, -7.853981578095128619227903983047292781021e-1L);
5084 TEST_c_c (catanh, -0x0.fffffffffffff8p0L, -0x1p-27L, -9.704060527839234252043969805481351363824L, -7.853981578095128619227903983047292781021e-1L);
5085#endif
5086#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64
5087 TEST_c_c (catanh, 0x1p-33L, 0x1.0000000000000002p0L, 5.820766091346740722012013594069507025615e-11L, 7.853981633974483096732590862331681441026e-1L);
5088 TEST_c_c (catanh, 0x1p-33L, -0x1.0000000000000002p0L, 5.820766091346740722012013594069507025615e-11L, -7.853981633974483096732590862331681441026e-1L);
5089 TEST_c_c (catanh, -0x1p-33L, 0x1.0000000000000002p0L, -5.820766091346740722012013594069507025615e-11L, 7.853981633974483096732590862331681441026e-1L);
5090 TEST_c_c (catanh, -0x1p-33L, -0x1.0000000000000002p0L, -5.820766091346740722012013594069507025615e-11L, -7.853981633974483096732590862331681441026e-1L);
5091 TEST_c_c (catanh, 0x1.0000000000000002p0L, 0x1p-33L, 1.178350206951907025990405771755129268176e1L, 7.853981638922134273801338071094141188767e-1L);
5092 TEST_c_c (catanh, -0x1.0000000000000002p0L, 0x1p-33L, -1.178350206951907025990405771755129268176e1L, 7.853981638922134273801338071094141188767e-1L);
5093 TEST_c_c (catanh, 0x1.0000000000000002p0L, -0x1p-33L, 1.178350206951907025990405771755129268176e1L, -7.853981638922134273801338071094141188767e-1L);
5094 TEST_c_c (catanh, -0x1.0000000000000002p0L, -0x1p-33L, -1.178350206951907025990405771755129268176e1L, -7.853981638922134273801338071094141188767e-1L);
5095 TEST_c_c (catanh, 0x1p-33L, 0x0.ffffffffffffffffp0L, 5.820766091346740722958646680334721192083e-11L, 7.853981633974483095919439232967553115548e-1L);
5096 TEST_c_c (catanh, 0x1p-33L, -0x0.ffffffffffffffffp0L, 5.820766091346740722958646680334721192083e-11L, -7.853981633974483095919439232967553115548e-1L);
5097 TEST_c_c (catanh, -0x1p-33L, 0x0.ffffffffffffffffp0L, -5.820766091346740722958646680334721192083e-11L, 7.853981633974483095919439232967553115548e-1L);
5098 TEST_c_c (catanh, -0x1p-33L, -0x0.ffffffffffffffffp0L, -5.820766091346740722958646680334721192083e-11L, -7.853981633974483095919439232967553115548e-1L);
5099 TEST_c_c (catanh, 0x0.ffffffffffffffffp0L, 0x1p-33L, 1.178350206951907026002603046195591193050e1L, 7.853981631937214964185249205444919953948e-1L);
5100 TEST_c_c (catanh, -0x0.ffffffffffffffffp0L, 0x1p-33L, -1.178350206951907026002603046195591193050e1L, 7.853981631937214964185249205444919953948e-1L);
5101 TEST_c_c (catanh, 0x0.ffffffffffffffffp0L, -0x1p-33L, 1.178350206951907026002603046195591193050e1L, -7.853981631937214964185249205444919953948e-1L);
5102 TEST_c_c (catanh, -0x0.ffffffffffffffffp0L, -0x1p-33L, -1.178350206951907026002603046195591193050e1L, -7.853981631937214964185249205444919953948e-1L);
5103#endif
5104#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106
5105 TEST_c_c (catanh, 0x1p-54L, 0x1.000000000000000000000000008p0L, 2.775557561562891351059079170226980932999e-17L, 7.853981633974483096156608458198888173729e-1L);
5106 TEST_c_c (catanh, 0x1p-54L, -0x1.000000000000000000000000008p0L, 2.775557561562891351059079170226980932999e-17L, -7.853981633974483096156608458198888173729e-1L);
5107 TEST_c_c (catanh, -0x1p-54L, 0x1.000000000000000000000000008p0L, -2.775557561562891351059079170226980932999e-17L, 7.853981633974483096156608458198888173729e-1L);
5108 TEST_c_c (catanh, -0x1p-54L, -0x1.000000000000000000000000008p0L, -2.775557561562891351059079170226980932999e-17L, -7.853981633974483096156608458198888173729e-1L);
5109 TEST_c_c (catanh, 0x1.000000000000000000000000008p0L, 0x1p-54L, 1.906154746539849600897388334009981267384e1L, 7.853981633974485455380535786656405610710e-1L);
5110 TEST_c_c (catanh, -0x1.000000000000000000000000008p0L, 0x1p-54L, -1.906154746539849600897388334009981267384e1L, 7.853981633974485455380535786656405610710e-1L);
5111 TEST_c_c (catanh, 0x1.000000000000000000000000008p0L, -0x1p-54L, 1.906154746539849600897388334009981267384e1L, -7.853981633974485455380535786656405610710e-1L);
5112 TEST_c_c (catanh, -0x1.000000000000000000000000008p0L, -0x1p-54L, -1.906154746539849600897388334009981267384e1L, -7.853981633974485455380535786656405610710e-1L);
5113 TEST_c_c (catanh, 0x1p-54L, 0x0.ffffffffffffffffffffffffffcp0L, 2.775557561562891351059079170227083567164e-17L, 7.853981633974483096156608458198703284454e-1L);
5114 TEST_c_c (catanh, 0x1p-54L, -0x0.ffffffffffffffffffffffffffcp0L, 2.775557561562891351059079170227083567164e-17L, -7.853981633974483096156608458198703284454e-1L);
5115 TEST_c_c (catanh, -0x1p-54L, 0x0.ffffffffffffffffffffffffffcp0L, -2.775557561562891351059079170227083567164e-17L, 7.853981633974483096156608458198703284454e-1L);
5116 TEST_c_c (catanh, -0x1p-54L, -0x0.ffffffffffffffffffffffffffcp0L, -2.775557561562891351059079170227083567164e-17L, -7.853981633974483096156608458198703284454e-1L);
5117 TEST_c_c (catanh, 0x0.ffffffffffffffffffffffffffcp0L, 0x1p-54L, 1.906154746539849600897388334009984040723e1L, 7.853981633974482124711461911186784339815e-1L);
5118 TEST_c_c (catanh, -0x0.ffffffffffffffffffffffffffcp0L, 0x1p-54L, -1.906154746539849600897388334009984040723e1L, 7.853981633974482124711461911186784339815e-1L);
5119 TEST_c_c (catanh, 0x0.ffffffffffffffffffffffffffcp0L, -0x1p-54L, 1.906154746539849600897388334009984040723e1L, -7.853981633974482124711461911186784339815e-1L);
5120 TEST_c_c (catanh, -0x0.ffffffffffffffffffffffffffcp0L, -0x1p-54L, -1.906154746539849600897388334009984040723e1L, -7.853981633974482124711461911186784339815e-1L);
5121#endif
5122#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 113
5123 TEST_c_c (catanh, 0x1p-57L, 0x1.0000000000000000000000000001p0L, 3.469446951953614188823848962783812780530e-18L, 7.853981633974483096156608458198758293829e-1L);
5124 TEST_c_c (catanh, 0x1p-57L, -0x1.0000000000000000000000000001p0L, 3.469446951953614188823848962783812780530e-18L, -7.853981633974483096156608458198758293829e-1L);
5125 TEST_c_c (catanh, -0x1p-57L, 0x1.0000000000000000000000000001p0L, -3.469446951953614188823848962783812780530e-18L, 7.853981633974483096156608458198758293829e-1L);
5126 TEST_c_c (catanh, -0x1p-57L, -0x1.0000000000000000000000000001p0L, -3.469446951953614188823848962783812780530e-18L, -7.853981633974483096156608458198758293829e-1L);
5127 TEST_c_c (catanh, 0x1.0000000000000000000000000001p0L, 0x1p-57L, 2.010126823623841397309973152228712033275e1L, 7.853981633974483252281721296111395707566e-1L);
5128 TEST_c_c (catanh, -0x1.0000000000000000000000000001p0L, 0x1p-57L, -2.010126823623841397309973152228712033275e1L, 7.853981633974483252281721296111395707566e-1L);
5129 TEST_c_c (catanh, 0x1.0000000000000000000000000001p0L, -0x1p-57L, 2.010126823623841397309973152228712033275e1L, -7.853981633974483252281721296111395707566e-1L);
5130 TEST_c_c (catanh, -0x1.0000000000000000000000000001p0L, -0x1p-57L, -2.010126823623841397309973152228712033275e1L, -7.853981633974483252281721296111395707566e-1L);
5131 TEST_c_c (catanh, 0x1p-57L, 0x0.ffffffffffffffffffffffffffff8p0L, 3.469446951953614188823848962783813782817e-18L, 7.853981633974483096156608458198756849381e-1L);
5132 TEST_c_c (catanh, 0x1p-57L, -0x0.ffffffffffffffffffffffffffff8p0L, 3.469446951953614188823848962783813782817e-18L, -7.853981633974483096156608458198756849381e-1L);
5133 TEST_c_c (catanh, -0x1p-57L, 0x0.ffffffffffffffffffffffffffff8p0L, -3.469446951953614188823848962783813782817e-18L, 7.853981633974483096156608458198756849381e-1L);
5134 TEST_c_c (catanh, -0x1p-57L, -0x0.ffffffffffffffffffffffffffff8p0L, -3.469446951953614188823848962783813782817e-18L, -7.853981633974483096156608458198756849381e-1L);
5135 TEST_c_c (catanh, 0x0.ffffffffffffffffffffffffffff8p0L, 0x1p-57L, 2.010126823623841397309973152228712040498e1L, 7.853981633974483044114904178894544378135e-1L);
5136 TEST_c_c (catanh, -0x0.ffffffffffffffffffffffffffff8p0L, 0x1p-57L, -2.010126823623841397309973152228712040498e1L, 7.853981633974483044114904178894544378135e-1L);
5137 TEST_c_c (catanh, 0x0.ffffffffffffffffffffffffffff8p0L, -0x1p-57L, 2.010126823623841397309973152228712040498e1L, -7.853981633974483044114904178894544378135e-1L);
5138 TEST_c_c (catanh, -0x0.ffffffffffffffffffffffffffff8p0L, -0x1p-57L, -2.010126823623841397309973152228712040498e1L, -7.853981633974483044114904178894544378135e-1L);
10de07f5
JM		 5139#endif
5140 TEST_c_c (catanh, 1.0L, 0x1p-64L, 2.252728336819822255606004394739073846245e1L, 7.853981633974483096292133729759445264744e-1L);
5141 TEST_c_c (catanh, 1.0L, -0x1p-64L, 2.252728336819822255606004394739073846245e1L, -7.853981633974483096292133729759445264744e-1L);
5142 TEST_c_c (catanh, -1.0L, 0x1p-64L, -2.252728336819822255606004394739073846245e1L, 7.853981633974483096292133729759445264744e-1L);
5143 TEST_c_c (catanh, -1.0L, -0x1p-64L, -2.252728336819822255606004394739073846245e1L, -7.853981633974483096292133729759445264744e-1L);
5144 TEST_c_c (catanh, 0x1p-64L, 1.0L, 2.710505431213761085018632002174854278563e-20L, 7.853981633974483096156608458198757210500e-1L);
5145 TEST_c_c (catanh, -0x1p-64L, 1.0L, -2.710505431213761085018632002174854278563e-20L, 7.853981633974483096156608458198757210500e-1L);
5146 TEST_c_c (catanh, 0x1p-64L, -1.0L, 2.710505431213761085018632002174854278563e-20L, -7.853981633974483096156608458198757210500e-1L);
5147 TEST_c_c (catanh, -0x1p-64L, -1.0L, -2.710505431213761085018632002174854278563e-20L, -7.853981633974483096156608458198757210500e-1L);
5148 TEST_c_c (catanh, 1.0L, 0x1.3p-73L, 2.556052055225464683726753902092495938633e1L, 7.853981633974483096156922786831527361009e-1L);
5149 TEST_c_c (catanh, 1.0L, -0x1.3p-73L, 2.556052055225464683726753902092495938633e1L, -7.853981633974483096156922786831527361009e-1L);
5150 TEST_c_c (catanh, -1.0L, 0x1.3p-73L, -2.556052055225464683726753902092495938633e1L, 7.853981633974483096156922786831527361009e-1L);
5151 TEST_c_c (catanh, -1.0L, -0x1.3p-73L, -2.556052055225464683726753902092495938633e1L, -7.853981633974483096156922786831527361009e-1L);
5152 TEST_c_c (catanh, 0x1.3p-73L, 1.0L, 6.286572655403010329022706059731717687100e-23L, 7.853981633974483096156608458198757210493e-1L);
5153 TEST_c_c (catanh, -0x1.3p-73L, 1.0L, -6.286572655403010329022706059731717687100e-23L, 7.853981633974483096156608458198757210493e-1L);
5154 TEST_c_c (catanh, 0x1.3p-73L, -1.0L, 6.286572655403010329022706059731717687100e-23L, -7.853981633974483096156608458198757210493e-1L);
5155 TEST_c_c (catanh, -0x1.3p-73L, -1.0L, -6.286572655403010329022706059731717687100e-23L, -7.853981633974483096156608458198757210493e-1L);
5156 TEST_c_c (catanh, 1.0L, 0x1p-124L, 4.332169878499658183857700759113603550472e1L, 7.853981633974483096156608458198757210610e-1L);
5157 TEST_c_c (catanh, 1.0L, -0x1p-124L, 4.332169878499658183857700759113603550472e1L, -7.853981633974483096156608458198757210610e-1L);
5158 TEST_c_c (catanh, -1.0L, 0x1p-124L, -4.332169878499658183857700759113603550472e1L, 7.853981633974483096156608458198757210610e-1L);
5159 TEST_c_c (catanh, -1.0L, -0x1p-124L, -4.332169878499658183857700759113603550472e1L, -7.853981633974483096156608458198757210610e-1L);
5160 TEST_c_c (catanh, 0x1p-124L, 1.0L, 2.350988701644575015937473074444491355637e-38L, 7.853981633974483096156608458198757210493e-1L);
5161 TEST_c_c (catanh, -0x1p-124L, 1.0L, -2.350988701644575015937473074444491355637e-38L, 7.853981633974483096156608458198757210493e-1L);
5162 TEST_c_c (catanh, 0x1p-124L, -1.0L, 2.350988701644575015937473074444491355637e-38L, -7.853981633974483096156608458198757210493e-1L);
5163 TEST_c_c (catanh, -0x1p-124L, -1.0L, -2.350988701644575015937473074444491355637e-38L, -7.853981633974483096156608458198757210493e-1L);
5164 TEST_c_c (catanh, 0x1.000002p0L, 0x1p-126L, 8.317766196521665212523713550410777685446L, 1.570796326794896619231321691639702138295L);
5165 TEST_c_c (catanh, 0x1.000002p0L, -0x1p-126L, 8.317766196521665212523713550410777685446L, -1.570796326794896619231321691639702138295L);
5166 TEST_c_c (catanh, -0x1.000002p0L, 0x1p-126L, -8.317766196521665212523713550410777685446L, 1.570796326794896619231321691639702138295L);
5167 TEST_c_c (catanh, -0x1.000002p0L, -0x1p-126L, -8.317766196521665212523713550410777685446L, -1.570796326794896619231321691639702138295L);
5168 TEST_c_c (catanh, 0x1p-126L, 0x1.000002p0L, 5.877471053462247139383742414506671233336e-39L, 7.853982230020895322927482174768220815493e-1L, UNDERFLOW_EXCEPTION_FLOAT);
5169 TEST_c_c (catanh, -0x1p-126L, 0x1.000002p0L, -5.877471053462247139383742414506671233336e-39L, 7.853982230020895322927482174768220815493e-1L, UNDERFLOW_EXCEPTION_FLOAT);
5170 TEST_c_c (catanh, 0x1p-126L, -0x1.000002p0L, 5.877471053462247139383742414506671233336e-39L, -7.853982230020895322927482174768220815493e-1L, UNDERFLOW_EXCEPTION_FLOAT);
5171 TEST_c_c (catanh, -0x1p-126L, -0x1.000002p0L, -5.877471053462247139383742414506671233336e-39L, -7.853982230020895322927482174768220815493e-1L, UNDERFLOW_EXCEPTION_FLOAT);
5172 TEST_c_c (catanh, 0x0.ffffffp0L, 0x1p-126L, 8.664339742098154951823135931565866792454L, 9.860761609136244031334147100512154160097e-32L);
5173 TEST_c_c (catanh, 0x0.ffffffp0L, -0x1p-126L, 8.664339742098154951823135931565866792454L, -9.860761609136244031334147100512154160097e-32L);
5174 TEST_c_c (catanh, -0x0.ffffffp0L, 0x1p-126L, -8.664339742098154951823135931565866792454L, 9.860761609136244031334147100512154160097e-32L);
5175 TEST_c_c (catanh, -0x0.ffffffp0L, -0x1p-126L, -8.664339742098154951823135931565866792454L, -9.860761609136244031334147100512154160097e-32L);
5176 TEST_c_c (catanh, 0x1p-126L, 0x0.ffffffp0L, 5.877472104436064061535099214664320916184e-39L, 7.853981335951250337419109991749089175724e-1L, UNDERFLOW_EXCEPTION_FLOAT);
5177 TEST_c_c (catanh, -0x1p-126L, 0x0.ffffffp0L, -5.877472104436064061535099214664320916184e-39L, 7.853981335951250337419109991749089175724e-1L, UNDERFLOW_EXCEPTION_FLOAT);
5178 TEST_c_c (catanh, 0x1p-126L, -0x0.ffffffp0L, 5.877472104436064061535099214664320916184e-39L, -7.853981335951250337419109991749089175724e-1L, UNDERFLOW_EXCEPTION_FLOAT);
5179 TEST_c_c (catanh, -0x1p-126L, -0x0.ffffffp0L, -5.877472104436064061535099214664320916184e-39L, -7.853981335951250337419109991749089175724e-1L, UNDERFLOW_EXCEPTION_FLOAT);
5180#ifndef TEST_FLOAT
5181 TEST_c_c (catanh, 1.0L, 0x1p-512L, 1.777922518136259718655200391540222897114e2L, 7.853981633974483096156608458198757210493e-1L);
5182 TEST_c_c (catanh, 1.0L, -0x1p-512L, 1.777922518136259718655200391540222897114e2L, -7.853981633974483096156608458198757210493e-1L);
5183 TEST_c_c (catanh, -1.0L, 0x1p-512L, -1.777922518136259718655200391540222897114e2L, 7.853981633974483096156608458198757210493e-1L);
5184 TEST_c_c (catanh, -1.0L, -0x1p-512L, -1.777922518136259718655200391540222897114e2L, -7.853981633974483096156608458198757210493e-1L);
5185 TEST_c_c (catanh, 0x1p-512L, 1.0L, 3.729170365600103371645482657731466918688e-155L, 7.853981633974483096156608458198757210493e-1L);
5186 TEST_c_c (catanh, -0x1p-512L, 1.0L, -3.729170365600103371645482657731466918688e-155L, 7.853981633974483096156608458198757210493e-1L);
5187 TEST_c_c (catanh, 0x1p-512L, -1.0L, 3.729170365600103371645482657731466918688e-155L, -7.853981633974483096156608458198757210493e-1L);
5188 TEST_c_c (catanh, -0x1p-512L, -1.0L, -3.729170365600103371645482657731466918688e-155L, -7.853981633974483096156608458198757210493e-1L);
5189 TEST_c_c (catanh, 1.0L, 0x1.3p-536L, 1.860240928518819859673567751384928348958e2L, 7.853981633974483096156608458198757210493e-1L);
5190 TEST_c_c (catanh, 1.0L, -0x1.3p-536L, 1.860240928518819859673567751384928348958e2L, -7.853981633974483096156608458198757210493e-1L);
5191 TEST_c_c (catanh, -1.0L, 0x1.3p-536L, -1.860240928518819859673567751384928348958e2L, 7.853981633974483096156608458198757210493e-1L);
5192 TEST_c_c (catanh, -1.0L, -0x1.3p-536L, -1.860240928518819859673567751384928348958e2L, -7.853981633974483096156608458198757210493e-1L);
5193 TEST_c_c (catanh, 0x1.3p-536L, 1.0L, 2.639526015013529511588222179446290115084e-162L, 7.853981633974483096156608458198757210493e-1L);
5194 TEST_c_c (catanh, -0x1.3p-536L, 1.0L, -2.639526015013529511588222179446290115084e-162L, 7.853981633974483096156608458198757210493e-1L);
5195 TEST_c_c (catanh, 0x1.3p-536L, -1.0L, 2.639526015013529511588222179446290115084e-162L, -7.853981633974483096156608458198757210493e-1L);
5196 TEST_c_c (catanh, -0x1.3p-536L, -1.0L, -2.639526015013529511588222179446290115084e-162L, -7.853981633974483096156608458198757210493e-1L);
5197 TEST_c_c (catanh, 1.0L, 0x1p-1020L, 3.538516356758520804574969980043991380025e2L, 7.853981633974483096156608458198757210493e-1L);
5198 TEST_c_c (catanh, 1.0L, -0x1p-1020L, 3.538516356758520804574969980043991380025e2L, -7.853981633974483096156608458198757210493e-1L);
5199 TEST_c_c (catanh, -1.0L, 0x1p-1020L, -3.538516356758520804574969980043991380025e2L, 7.853981633974483096156608458198757210493e-1L);
5200 TEST_c_c (catanh, -1.0L, -0x1p-1020L, -3.538516356758520804574969980043991380025e2L, -7.853981633974483096156608458198757210493e-1L);
5201 TEST_c_c (catanh, 0x1p-1020L, 1.0L, 4.450147717014402766180465434664808128438e-308L, 7.853981633974483096156608458198757210493e-1L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
5202 TEST_c_c (catanh, -0x1p-1020L, 1.0L, -4.450147717014402766180465434664808128438e-308L, 7.853981633974483096156608458198757210493e-1L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
5203 TEST_c_c (catanh, 0x1p-1020L, -1.0L, 4.450147717014402766180465434664808128438e-308L, -7.853981633974483096156608458198757210493e-1L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
5204 TEST_c_c (catanh, -0x1p-1020L, -1.0L, -4.450147717014402766180465434664808128438e-308L, -7.853981633974483096156608458198757210493e-1L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
5205 TEST_c_c (catanh, 0x1.0000000000001p0L, 0x1p-1022L, 1.836840028483855075506780244989950299369e1L, 1.570796326794896619231321691639751442099L);
5206 TEST_c_c (catanh, 0x1.0000000000001p0L, -0x1p-1022L, 1.836840028483855075506780244989950299369e1L, -1.570796326794896619231321691639751442099L);
5207 TEST_c_c (catanh, -0x1.0000000000001p0L, 0x1p-1022L, -1.836840028483855075506780244989950299369e1L, 1.570796326794896619231321691639751442099L);
5208 TEST_c_c (catanh, -0x1.0000000000001p0L, -0x1p-1022L, -1.836840028483855075506780244989950299369e1L, -1.570796326794896619231321691639751442099L);
5209 TEST_c_c (catanh, 0x1p-1022L, 0x1.0000000000001p0L, 1.112536929253600444512293438042957369978e-308L, 7.853981633974484206379633083355174374608e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5210 TEST_c_c (catanh, -0x1p-1022L, 0x1.0000000000001p0L, -1.112536929253600444512293438042957369978e-308L, 7.853981633974484206379633083355174374608e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5211 TEST_c_c (catanh, 0x1p-1022L, -0x1.0000000000001p0L, 1.112536929253600444512293438042957369978e-308L, -7.853981633974484206379633083355174374608e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5212 TEST_c_c (catanh, -0x1p-1022L, -0x1.0000000000001p0L, -1.112536929253600444512293438042957369978e-308L, -7.853981633974484206379633083355174374608e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5213 TEST_c_c (catanh, 0x0.fffffffffffff8p0L, 0x1p-1022L, 1.871497387511852332650969166374185305708e1L, 1.002084180004486444624900488355118689113e-292L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
5214 TEST_c_c (catanh, 0x0.fffffffffffff8p0L, -0x1p-1022L, 1.871497387511852332650969166374185305708e1L, -1.002084180004486444624900488355118689113e-292L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
5215 TEST_c_c (catanh, -0x0.fffffffffffff8p0L, 0x1p-1022L, -1.871497387511852332650969166374185305708e1L, 1.002084180004486444624900488355118689113e-292L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
5216 TEST_c_c (catanh, -0x0.fffffffffffff8p0L, -0x1p-1022L, -1.871497387511852332650969166374185305708e1L, -1.002084180004486444624900488355118689113e-292L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
5217 TEST_c_c (catanh, 0x1p-1022L, 0x0.fffffffffffff8p0L, 1.112536929253600815061527818977844932790e-308L, 7.853981633974482541045096145620456183798e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5218 TEST_c_c (catanh, -0x1p-1022L, 0x0.fffffffffffff8p0L, -1.112536929253600815061527818977844932790e-308L, 7.853981633974482541045096145620456183798e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5219 TEST_c_c (catanh, 0x1p-1022L, -0x0.fffffffffffff8p0L, 1.112536929253600815061527818977844932790e-308L, -7.853981633974482541045096145620456183798e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5220 TEST_c_c (catanh, -0x1p-1022L, -0x0.fffffffffffff8p0L, -1.112536929253600815061527818977844932790e-308L, -7.853981633974482541045096145620456183798e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5221#endif
5222#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64
5223 TEST_c_c (catanh, 0x1.0000000000000002p0L, 0x1p-1022L, 2.218070977791824990137853294097378778927e1L, 1.570796326794896619231321691639751442099L);
5224 TEST_c_c (catanh, 0x1.0000000000000002p0L, -0x1p-1022L, 2.218070977791824990137853294097378778927e1L, -1.570796326794896619231321691639751442099L);
5225 TEST_c_c (catanh, -0x1.0000000000000002p0L, 0x1p-1022L, -2.218070977791824990137853294097378778927e1L, 1.570796326794896619231321691639751442099L);
5226 TEST_c_c (catanh, -0x1.0000000000000002p0L, -0x1p-1022L, -2.218070977791824990137853294097378778927e1L, -1.570796326794896619231321691639751442099L);
5227 TEST_c_c (catanh, 0x1p-1022L, 0x1.0000000000000002p0L, 1.112536929253600691424494863099491450042e-308L, 7.853981633974483096698709544441509427467e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5228 TEST_c_c (catanh, -0x1p-1022L, 0x1.0000000000000002p0L, -1.112536929253600691424494863099491450042e-308L, 7.853981633974483096698709544441509427467e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5229 TEST_c_c (catanh, 0x1p-1022L, -0x1.0000000000000002p0L, 1.112536929253600691424494863099491450042e-308L, -7.853981633974483096698709544441509427467e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5230 TEST_c_c (catanh, -0x1p-1022L, -0x1.0000000000000002p0L, -1.112536929253600691424494863099491450042e-308L, -7.853981633974483096698709544441509427467e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5231 TEST_c_c (catanh, 0x0.ffffffffffffffffp0L, 0x1p-1022L, 2.252728336819822255604649142023466965703e1L, 2.052268400649188124723641491045245971623e-289L);
5232 TEST_c_c (catanh, 0x0.ffffffffffffffffp0L, -0x1p-1022L, 2.252728336819822255604649142023466965703e1L, -2.052268400649188124723641491045245971623e-289L);
5233 TEST_c_c (catanh, -0x0.ffffffffffffffffp0L, 0x1p-1022L, -2.252728336819822255604649142023466965703e1L, 2.052268400649188124723641491045245971623e-289L);
5234 TEST_c_c (catanh, -0x0.ffffffffffffffffp0L, -0x1p-1022L, -2.252728336819822255604649142023466965703e1L, -2.052268400649188124723641491045245971623e-289L);
5235 TEST_c_c (catanh, 0x1p-1022L, 0x0.ffffffffffffffffp0L, 1.112536929253600691605427106449557323148e-308L, 7.853981633974483095885557915077381101984e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5236 TEST_c_c (catanh, -0x1p-1022L, 0x0.ffffffffffffffffp0L, -1.112536929253600691605427106449557323148e-308L, 7.853981633974483095885557915077381101984e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5237 TEST_c_c (catanh, 0x1p-1022L, -0x0.ffffffffffffffffp0L, 1.112536929253600691605427106449557323148e-308L, -7.853981633974483095885557915077381101984e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5238 TEST_c_c (catanh, -0x1p-1022L, -0x0.ffffffffffffffffp0L, -1.112536929253600691605427106449557323148e-308L, -7.853981633974483095885557915077381101984e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5239#endif
5240#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106
5241 TEST_c_c (catanh, 0x1.000000000000000000000000008p0L, 0x1p-1022L, 3.673680056967710139911330243728336427098e1L, 1.570796326794896619231321691639751442099L);
5242 TEST_c_c (catanh, 0x1.000000000000000000000000008p0L, -0x1p-1022L, 3.673680056967710139911330243728336427098e1L, -1.570796326794896619231321691639751442099L);
5243 TEST_c_c (catanh, -0x1.000000000000000000000000008p0L, 0x1p-1022L, -3.673680056967710139911330243728336427098e1L, 1.570796326794896619231321691639751442099L);
5244 TEST_c_c (catanh, -0x1.000000000000000000000000008p0L, -0x1p-1022L, -3.673680056967710139911330243728336427098e1L, -1.570796326794896619231321691639751442099L);
5245 TEST_c_c (catanh, 0x1p-1022L, 0x1.000000000000000000000000008p0L, 1.112536929253600691545116358666174605957e-308L, 7.853981633974483096156608458198880470009e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5246 TEST_c_c (catanh, -0x1p-1022L, 0x1.000000000000000000000000008p0L, -1.112536929253600691545116358666174605957e-308L, 7.853981633974483096156608458198880470009e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5247 TEST_c_c (catanh, 0x1p-1022L, -0x1.000000000000000000000000008p0L, 1.112536929253600691545116358666174605957e-308L, -7.853981633974483096156608458198880470009e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5248 TEST_c_c (catanh, -0x1p-1022L, -0x1.000000000000000000000000008p0L, -1.112536929253600691545116358666174605957e-308L, -7.853981633974483096156608458198880470009e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5249 TEST_c_c (catanh, 0x0.ffffffffffffffffffffffffffcp0L, 0x1p-1022L, 3.708337415995707405382191849801244331055e1L, 9.025971879324147880346310405868788320726e-277L);
5250 TEST_c_c (catanh, 0x0.ffffffffffffffffffffffffffcp0L, -0x1p-1022L, 3.708337415995707405382191849801244331055e1L, -9.025971879324147880346310405868788320726e-277L);
5251 TEST_c_c (catanh, -0x0.ffffffffffffffffffffffffffcp0L, 0x1p-1022L, -3.708337415995707405382191849801244331055e1L, 9.025971879324147880346310405868788320726e-277L);
5252 TEST_c_c (catanh, -0x0.ffffffffffffffffffffffffffcp0L, -0x1p-1022L, -3.708337415995707405382191849801244331055e1L, -9.025971879324147880346310405868788320726e-277L);
5253 TEST_c_c (catanh, 0x1p-1022L, 0x0.ffffffffffffffffffffffffffcp0L, 1.112536929253600691545116358666215745186e-308L, 7.853981633974483096156608458198695580735e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5254 TEST_c_c (catanh, -0x1p-1022L, 0x0.ffffffffffffffffffffffffffcp0L, -1.112536929253600691545116358666215745186e-308L, 7.853981633974483096156608458198695580735e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5255 TEST_c_c (catanh, 0x1p-1022L, -0x0.ffffffffffffffffffffffffffcp0L, 1.112536929253600691545116358666215745186e-308L, -7.853981633974483096156608458198695580735e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5256 TEST_c_c (catanh, -0x1p-1022L, -0x0.ffffffffffffffffffffffffffcp0L, -1.112536929253600691545116358666215745186e-308L, -7.853981633974483096156608458198695580735e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
5257#endif
5258#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
5259 TEST_c_c (catanh, 1.0L, 0x1p-8192L, 2.839477425163815960027691385553420311121e3L, 7.853981633974483096156608458198757210493e-1L);
5260 TEST_c_c (catanh, 1.0L, -0x1p-8192L, 2.839477425163815960027691385553420311121e3L, -7.853981633974483096156608458198757210493e-1L);
5261 TEST_c_c (catanh, -1.0L, 0x1p-8192L, -2.839477425163815960027691385553420311121e3L, 7.853981633974483096156608458198757210493e-1L);
5262 TEST_c_c (catanh, -1.0L, -0x1p-8192L, -2.839477425163815960027691385553420311121e3L, -7.853981633974483096156608458198757210493e-1L);
5263 TEST_c_c (catanh, 0x1p-8192L, 1.0L, 4.584009668887117914053530980121207914891e-2467L, 7.853981633974483096156608458198757210493e-1L);
5264 TEST_c_c (catanh, -0x1p-8192L, 1.0L, -4.584009668887117914053530980121207914891e-2467L, 7.853981633974483096156608458198757210493e-1L);
5265 TEST_c_c (catanh, 0x1p-8192L, -1.0L, 4.584009668887117914053530980121207914891e-2467L, -7.853981633974483096156608458198757210493e-1L);
5266 TEST_c_c (catanh, -0x1p-8192L, -1.0L, -4.584009668887117914053530980121207914891e-2467L, -7.853981633974483096156608458198757210493e-1L);
5267 TEST_c_c (catanh, 1.0L, 0x1.3p-8221L, 2.849442134153471837403071201841536297726e3L, 7.853981633974483096156608458198757210493e-1L);
5268 TEST_c_c (catanh, 1.0L, -0x1.3p-8221L, 2.849442134153471837403071201841536297726e3L, -7.853981633974483096156608458198757210493e-1L);
5269 TEST_c_c (catanh, -1.0L, 0x1.3p-8221L, -2.849442134153471837403071201841536297726e3L, 7.853981633974483096156608458198757210493e-1L);
5270 TEST_c_c (catanh, -1.0L, -0x1.3p-8221L, -2.849442134153471837403071201841536297726e3L, -7.853981633974483096156608458198757210493e-1L);
5271 TEST_c_c (catanh, 0x1.3p-8221L, 1.0L, 1.013933025636421986471594877335044443409e-2475L, 7.853981633974483096156608458198757210493e-1L);
5272 TEST_c_c (catanh, -0x1.3p-8221L, 1.0L, -1.013933025636421986471594877335044443409e-2475L, 7.853981633974483096156608458198757210493e-1L);
5273 TEST_c_c (catanh, 0x1.3p-8221L, -1.0L, 1.013933025636421986471594877335044443409e-2475L, -7.853981633974483096156608458198757210493e-1L);
5274 TEST_c_c (catanh, -0x1.3p-8221L, -1.0L, -1.013933025636421986471594877335044443409e-2475L, -7.853981633974483096156608458198757210493e-1L);
5275 TEST_c_c (catanh, 1.0L, 0x1.3p-8246L, 2.858106473910471153770786603359763504827e3L, 7.853981633974483096156608458198757210493e-1L);
5276 TEST_c_c (catanh, 1.0L, -0x1.3p-8246L, 2.858106473910471153770786603359763504827e3L, -7.853981633974483096156608458198757210493e-1L);
5277 TEST_c_c (catanh, -1.0L, 0x1.3p-8246L, -2.858106473910471153770786603359763504827e3L, 7.853981633974483096156608458198757210493e-1L);
5278 TEST_c_c (catanh, -1.0L, -0x1.3p-8246L, -2.858106473910471153770786603359763504827e3L, -7.853981633974483096156608458198757210493e-1L);
5279 TEST_c_c (catanh, 0x1.3p-8246L, 1.0L, 3.021755890954798419688924781486524472858e-2483L, 7.853981633974483096156608458198757210493e-1L);
5280 TEST_c_c (catanh, -0x1.3p-8246L, 1.0L, -3.021755890954798419688924781486524472858e-2483L, 7.853981633974483096156608458198757210493e-1L);
5281 TEST_c_c (catanh, 0x1.3p-8246L, -1.0L, 3.021755890954798419688924781486524472858e-2483L, -7.853981633974483096156608458198757210493e-1L);
5282 TEST_c_c (catanh, -0x1.3p-8246L, -1.0L, -3.021755890954798419688924781486524472858e-2483L, -7.853981633974483096156608458198757210493e-1L);
5283 TEST_c_c (catanh, 1.0L, 0x1p-16380L, 5.677221982376232056781839690803195180822e3L, 7.853981633974483096156608458198757210493e-1L);
5284 TEST_c_c (catanh, 1.0L, -0x1p-16380L, 5.677221982376232056781839690803195180822e3L, -7.853981633974483096156608458198757210493e-1L);
5285 TEST_c_c (catanh, -1.0L, 0x1p-16380L, -5.677221982376232056781839690803195180822e3L, 7.853981633974483096156608458198757210493e-1L);
5286 TEST_c_c (catanh, -1.0L, -0x1p-16380L, -5.677221982376232056781839690803195180822e3L, -7.853981633974483096156608458198757210493e-1L);
5287 TEST_c_c (catanh, 0x1p-16380L, 1.0L, 6.724206286224187012525355634643505205196e-4932L, 7.853981633974483096156608458198757210493e-1L);
5288 TEST_c_c (catanh, -0x1p-16380L, 1.0L, -6.724206286224187012525355634643505205196e-4932L, 7.853981633974483096156608458198757210493e-1L);
5289 TEST_c_c (catanh, 0x1p-16380L, -1.0L, 6.724206286224187012525355634643505205196e-4932L, -7.853981633974483096156608458198757210493e-1L);
5290 TEST_c_c (catanh, -0x1p-16380L, -1.0L, -6.724206286224187012525355634643505205196e-4932L, -7.853981633974483096156608458198757210493e-1L);
5291 TEST_c_c (catanh, 0x1.0000000000000002p0L, 0x1p-16382L, 2.218070977791824990137853294097378778927e1L, 1.570796326794896619231321691639751442099L);
5292 TEST_c_c (catanh, 0x1.0000000000000002p0L, -0x1p-16382L, 2.218070977791824990137853294097378778927e1L, -1.570796326794896619231321691639751442099L);
5293 TEST_c_c (catanh, -0x1.0000000000000002p0L, 0x1p-16382L, -2.218070977791824990137853294097378778927e1L, 1.570796326794896619231321691639751442099L);
5294 TEST_c_c (catanh, -0x1.0000000000000002p0L, -0x1p-16382L, -2.218070977791824990137853294097378778927e1L, -1.570796326794896619231321691639751442099L);
5295 TEST_c_c (catanh, 0x1p-16382L, 0x1.0000000000000002p0L, 1.681051571556046752949078932066752571182e-4932L, 7.853981633974483096698709544441509427467e-1L, UNDERFLOW_EXCEPTION);
5296 TEST_c_c (catanh, -0x1p-16382L, 0x1.0000000000000002p0L, -1.681051571556046752949078932066752571182e-4932L, 7.853981633974483096698709544441509427467e-1L, UNDERFLOW_EXCEPTION);
5297 TEST_c_c (catanh, 0x1p-16382L, -0x1.0000000000000002p0L, 1.681051571556046752949078932066752571182e-4932L, -7.853981633974483096698709544441509427467e-1L, UNDERFLOW_EXCEPTION);
5298 TEST_c_c (catanh, -0x1p-16382L, -0x1.0000000000000002p0L, -1.681051571556046752949078932066752571182e-4932L, -7.853981633974483096698709544441509427467e-1L, UNDERFLOW_EXCEPTION);
5299 TEST_c_c (catanh, 0x0.ffffffffffffffffp0L, 0x1p-16382L, 2.252728336819822255604649142023466965703e1L, 3.100992811520163369065387859792822623745e-4913L);
5300 TEST_c_c (catanh, 0x0.ffffffffffffffffp0L, -0x1p-16382L, 2.252728336819822255604649142023466965703e1L, -3.100992811520163369065387859792822623745e-4913L);
5301 TEST_c_c (catanh, -0x0.ffffffffffffffffp0L, 0x1p-16382L, -2.252728336819822255604649142023466965703e1L, 3.100992811520163369065387859792822623745e-4913L);
5302 TEST_c_c (catanh, -0x0.ffffffffffffffffp0L, -0x1p-16382L, -2.252728336819822255604649142023466965703e1L, -3.100992811520163369065387859792822623745e-4913L);
5303 TEST_c_c (catanh, 0x1p-16382L, 0x0.ffffffffffffffffp0L, 1.681051571556046753222468896957938166365e-4932L, 7.853981633974483095885557915077381101984e-1L, UNDERFLOW_EXCEPTION);
5304 TEST_c_c (catanh, -0x1p-16382L, 0x0.ffffffffffffffffp0L, -1.681051571556046753222468896957938166365e-4932L, 7.853981633974483095885557915077381101984e-1L, UNDERFLOW_EXCEPTION);
5305 TEST_c_c (catanh, 0x1p-16382L, -0x0.ffffffffffffffffp0L, 1.681051571556046753222468896957938166365e-4932L, -7.853981633974483095885557915077381101984e-1L, UNDERFLOW_EXCEPTION);
5306 TEST_c_c (catanh, -0x1p-16382L, -0x0.ffffffffffffffffp0L, -1.681051571556046753222468896957938166365e-4932L, -7.853981633974483095885557915077381101984e-1L, UNDERFLOW_EXCEPTION);
5307# if LDBL_MANT_DIG >= 113
5308 TEST_c_c (catanh, 0x1.0000000000000000000000000001p0L, 0x1p-16382L, 3.916281570163690998207361486238697614441e1L, 1.570796326794896619231321691639751442099L);
5309 TEST_c_c (catanh, 0x1.0000000000000000000000000001p0L, -0x1p-16382L, 3.916281570163690998207361486238697614441e1L, -1.570796326794896619231321691639751442099L);
5310 TEST_c_c (catanh, -0x1.0000000000000000000000000001p0L, 0x1p-16382L, -3.916281570163690998207361486238697614441e1L, 1.570796326794896619231321691639751442099L);
5311 TEST_c_c (catanh, -0x1.0000000000000000000000000001p0L, -0x1p-16382L, -3.916281570163690998207361486238697614441e1L, -1.570796326794896619231321691639751442099L);
5312 TEST_c_c (catanh, 0x1p-16382L, 0x1.0000000000000000000000000001p0L, 1.681051571556046753131338908660875977540e-4932L, 7.853981633974483096156608458198758173458e-1L, UNDERFLOW_EXCEPTION);
5313 TEST_c_c (catanh, -0x1p-16382L, 0x1.0000000000000000000000000001p0L, -1.681051571556046753131338908660875977540e-4932L, 7.853981633974483096156608458198758173458e-1L, UNDERFLOW_EXCEPTION);
5314 TEST_c_c (catanh, 0x1p-16382L, -0x1.0000000000000000000000000001p0L, 1.681051571556046753131338908660875977540e-4932L, -7.853981633974483096156608458198758173458e-1L, UNDERFLOW_EXCEPTION);
5315 TEST_c_c (catanh, -0x1p-16382L, -0x1.0000000000000000000000000001p0L, -1.681051571556046753131338908660875977540e-4932L, -7.853981633974483096156608458198758173458e-1L, UNDERFLOW_EXCEPTION);
5316 TEST_c_c (catanh, 0x0.ffffffffffffffffffffffffffff8p0L, 0x1p-16382L, 3.950938929191688263678223092311606435623e1L, 1.745703758805099310527547423749501866998e-4898L);
5317 TEST_c_c (catanh, 0x0.ffffffffffffffffffffffffffff8p0L, -0x1p-16382L, 3.950938929191688263678223092311606435623e1L, -1.745703758805099310527547423749501866998e-4898L);
5318 TEST_c_c (catanh, -0x0.ffffffffffffffffffffffffffff8p0L, 0x1p-16382L, -3.950938929191688263678223092311606435623e1L, 1.745703758805099310527547423749501866998e-4898L);
5319 TEST_c_c (catanh, -0x0.ffffffffffffffffffffffffffff8p0L, -0x1p-16382L, -3.950938929191688263678223092311606435623e1L, -1.745703758805099310527547423749501866998e-4898L);
5320 TEST_c_c (catanh, 0x1p-16382L, 0x0.ffffffffffffffffffffffffffff8p0L, 1.681051571556046753131338908660876463178e-4932L, 7.853981633974483096156608458198756729010e-1L, UNDERFLOW_EXCEPTION);
5321 TEST_c_c (catanh, -0x1p-16382L, 0x0.ffffffffffffffffffffffffffff8p0L, -1.681051571556046753131338908660876463178e-4932L, 7.853981633974483096156608458198756729010e-1L, UNDERFLOW_EXCEPTION);
5322 TEST_c_c (catanh, 0x1p-16382L, -0x0.ffffffffffffffffffffffffffff8p0L, 1.681051571556046753131338908660876463178e-4932L, -7.853981633974483096156608458198756729010e-1L, UNDERFLOW_EXCEPTION);
5323 TEST_c_c (catanh, -0x1p-16382L, -0x0.ffffffffffffffffffffffffffff8p0L, -1.681051571556046753131338908660876463178e-4932L, -7.853981633974483096156608458198756729010e-1L, UNDERFLOW_EXCEPTION);
5324# endif
caf84319 5325#endif
2f38fbfe 5326
2550dfe9 5327 TEST_c_c (catanh, 0.75L, 1.25L, 0.261492138795671927078652057366532140L, 0.996825126463918666098902241310446708L);
33e885db 5328 TEST_c_c (catanh, -2, -3, -0.14694666622552975204743278515471595L, -1.3389725222944935611241935759091443L);
8847214f 5329
6815fabc 5330 END (catanh, complex);
8847214f
UD		 5331}
5332
5333static void
5334cbrt_test (void)
5335{
42be70d4
UD		 5336 errno = 0;
5337 FUNC(cbrt) (8);
5338 if (errno == ENOSYS)
5339 /* Function not implemented. */
5340 return;
5341
8847214f
UD		 5342 START (cbrt);
5343
5344 TEST_f_f (cbrt, 0.0, 0.0);
5345 TEST_f_f (cbrt, minus_zero, minus_zero);
5346
5347 TEST_f_f (cbrt, plus_infty, plus_infty);
5348 TEST_f_f (cbrt, minus_infty, minus_infty);
67e971f1 5349 TEST_f_f (cbrt, qnan_value, qnan_value);
8847214f 5350
3c6cad26 5351 TEST_f_f (cbrt, -0.001L, -0.1L);
8847214f
UD		 5352 TEST_f_f (cbrt, 8, 2);
5353 TEST_f_f (cbrt, -27.0, -3.0);
2550dfe9
AJ		 5354 TEST_f_f (cbrt, 0.9921875L, 0.997389022060725270579075195353955217L);
5355 TEST_f_f (cbrt, 0.75L, 0.908560296416069829445605878163630251L);
8847214f
UD		 5356
5357 END (cbrt);
5358}
5359
2550dfe9 5360
8847214f
UD		 5361static void
5362ccos_test (void)
5363{
aaca11d8
UD		 5364 errno = 0;
5365 FUNC(ccos) (BUILD_COMPLEX (0, 0));
5366 if (errno == ENOSYS)
5367 /* Function not implemented. */
5368 return;
8847214f
UD		 5369
5370 START (ccos);
5371
5372 TEST_c_c (ccos, 0.0, 0.0, 1.0, minus_zero);
5373 TEST_c_c (ccos, minus_zero, 0.0, 1.0, 0.0);
5374 TEST_c_c (ccos, 0.0, minus_zero, 1.0, 0.0);
5375 TEST_c_c (ccos, minus_zero, minus_zero, 1.0, minus_zero);
5376
67e971f1
TS		 5377 TEST_c_c (ccos, plus_infty, 0.0, qnan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
5378 TEST_c_c (ccos, plus_infty, minus_zero, qnan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
5379 TEST_c_c (ccos, minus_infty, 0.0, qnan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
5380 TEST_c_c (ccos, minus_infty, minus_zero, qnan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
8847214f
UD		 5381
5382 TEST_c_c (ccos, 0.0, plus_infty, plus_infty, minus_zero);
5383 TEST_c_c (ccos, 0.0, minus_infty, plus_infty, 0.0);
5384 TEST_c_c (ccos, minus_zero, plus_infty, plus_infty, 0.0);
5385 TEST_c_c (ccos, minus_zero, minus_infty, plus_infty, minus_zero);
5386
67e971f1
TS		 5387 TEST_c_c (ccos, plus_infty, plus_infty, plus_infty, qnan_value, INVALID_EXCEPTION);
5388 TEST_c_c (ccos, minus_infty, plus_infty, plus_infty, qnan_value, INVALID_EXCEPTION);
5389 TEST_c_c (ccos, plus_infty, minus_infty, plus_infty, qnan_value, INVALID_EXCEPTION);
5390 TEST_c_c (ccos, minus_infty, minus_infty, plus_infty, qnan_value, INVALID_EXCEPTION);
8847214f
UD		 5391
5392 TEST_c_c (ccos, 4.625, plus_infty, minus_infty, plus_infty);
5393 TEST_c_c (ccos, 4.625, minus_infty, minus_infty, minus_infty);
5394 TEST_c_c (ccos, -4.625, plus_infty, minus_infty, minus_infty);
5395 TEST_c_c (ccos, -4.625, minus_infty, minus_infty, plus_infty);
5396
67e971f1
TS		 5397 TEST_c_c (ccos, plus_infty, 6.75, qnan_value, qnan_value, INVALID_EXCEPTION);
5398 TEST_c_c (ccos, plus_infty, -6.75, qnan_value, qnan_value, INVALID_EXCEPTION);
5399 TEST_c_c (ccos, minus_infty, 6.75, qnan_value, qnan_value, INVALID_EXCEPTION);
5400 TEST_c_c (ccos, minus_infty, -6.75, qnan_value, qnan_value, INVALID_EXCEPTION);
8847214f 5401
67e971f1
TS		 5402 TEST_c_c (ccos, qnan_value, 0.0, qnan_value, 0.0, IGNORE_ZERO_INF_SIGN);
5403 TEST_c_c (ccos, qnan_value, minus_zero, qnan_value, 0.0, IGNORE_ZERO_INF_SIGN);
8847214f 5404
67e971f1
TS		 5405 TEST_c_c (ccos, qnan_value, plus_infty, plus_infty, qnan_value);
5406 TEST_c_c (ccos, qnan_value, minus_infty, plus_infty, qnan_value);
8847214f 5407
67e971f1
TS		 5408 TEST_c_c (ccos, qnan_value, 9.0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
5409 TEST_c_c (ccos, qnan_value, -9.0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 5410
67e971f1
TS		 5411 TEST_c_c (ccos, 0.0, qnan_value, qnan_value, 0.0, IGNORE_ZERO_INF_SIGN);
5412 TEST_c_c (ccos, minus_zero, qnan_value, qnan_value, 0.0, IGNORE_ZERO_INF_SIGN);
8847214f 5413
67e971f1
TS		 5414 TEST_c_c (ccos, 10.0, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
5415 TEST_c_c (ccos, -10.0, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 5416
67e971f1
TS		 5417 TEST_c_c (ccos, plus_infty, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
5418 TEST_c_c (ccos, minus_infty, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 5419
67e971f1 5420 TEST_c_c (ccos, qnan_value, qnan_value, qnan_value, qnan_value);
8847214f 5421
2550dfe9 5422 TEST_c_c (ccos, 0.75L, 1.25L, 1.38173873063425888530729933139078645L, -1.09193013555397466170919531722024128L);
79df8ce5 5423 TEST_c_c (ccos, -2, -3, -4.18962569096880723013255501961597373L, -9.10922789375533659797919726277886212L);
8847214f 5424
e0b16cc2
JM		 5425 TEST_c_c (ccos, 0.75, 89.5, 2.708024460708609732016532185663087200560e38L, -2.522786001038096774676288412995370563339e38L);
5426 TEST_c_c (ccos, 0.75, -89.5, 2.708024460708609732016532185663087200560e38L, 2.522786001038096774676288412995370563339e38L);
5427 TEST_c_c (ccos, -0.75, 89.5, 2.708024460708609732016532185663087200560e38L, 2.522786001038096774676288412995370563339e38L);
5428 TEST_c_c (ccos, -0.75, -89.5, 2.708024460708609732016532185663087200560e38L, -2.522786001038096774676288412995370563339e38L);
5429
5430#ifndef TEST_FLOAT
5431 TEST_c_c (ccos, 0.75, 710.5, 1.347490911916428129246890157395342279438e308L, -1.255317763348154410745082950806112487736e308L);
5432 TEST_c_c (ccos, 0.75, -710.5, 1.347490911916428129246890157395342279438e308L, 1.255317763348154410745082950806112487736e308L);
5433 TEST_c_c (ccos, -0.75, 710.5, 1.347490911916428129246890157395342279438e308L, 1.255317763348154410745082950806112487736e308L);
5434 TEST_c_c (ccos, -0.75, -710.5, 1.347490911916428129246890157395342279438e308L, -1.255317763348154410745082950806112487736e308L);
5435#endif
5436
5437#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
5438 TEST_c_c (ccos, 0.75, 11357.25, 9.001213196851067077465606717616495588201e4931L, -8.385498349388321535962327491346664141020e4931L);
5439 TEST_c_c (ccos, 0.75, -11357.25, 9.001213196851067077465606717616495588201e4931L, 8.385498349388321535962327491346664141020e4931L);
5440 TEST_c_c (ccos, -0.75, 11357.25, 9.001213196851067077465606717616495588201e4931L, 8.385498349388321535962327491346664141020e4931L);
5441 TEST_c_c (ccos, -0.75, -11357.25, 9.001213196851067077465606717616495588201e4931L, -8.385498349388321535962327491346664141020e4931L);
5442#endif
5443
5444#ifdef TEST_FLOAT
5445 TEST_c_c (ccos, 0x1p-149, 180, plus_infty, -1.043535896672617552965983803453927655332e33L, OVERFLOW_EXCEPTION);
5446#endif
5447
5448#if defined TEST_DOUBLE || (defined TEST_LDOUBLE && LDBL_MAX_EXP == 1024)
5449 TEST_c_c (ccos, 0x1p-1074, 1440, plus_infty, -5.981479269486130556466515778180916082415e301L, OVERFLOW_EXCEPTION);
5450#endif
5451
5452#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
5453 TEST_c_c (ccos, 0x1p-16434L, 22730, plus_infty, -1.217853148905605987081057582351152052687e4924L, OVERFLOW_EXCEPTION);
5454#endif
5455
f0302940
JM		 5456 TEST_c_c (ccos, min_subnorm_value * 0x1p120, 0x1p-120, 1.0, -min_subnorm_value, UNDERFLOW_EXCEPTION);
5457 TEST_c_c (ccos, 0x1p-120, min_subnorm_value * 0x1p120, 1.0, -min_subnorm_value, UNDERFLOW_EXCEPTION);
5458
6815fabc 5459 END (ccos, complex);
8847214f
UD		 5460}
5461
5462
5463static void
5464ccosh_test (void)
5465{
aaca11d8 5466 errno = 0;
3c6cad26 5467 FUNC(ccosh) (BUILD_COMPLEX (0.7L, 1.2L));
aaca11d8
UD		 5468 if (errno == ENOSYS)
5469 /* Function not implemented. */
5470 return;
8847214f
UD		 5471
5472 START (ccosh);
5473
5474 TEST_c_c (ccosh, 0.0, 0.0, 1.0, 0.0);
5475 TEST_c_c (ccosh, minus_zero, 0.0, 1.0, minus_zero);
5476 TEST_c_c (ccosh, 0.0, minus_zero, 1.0, minus_zero);
5477 TEST_c_c (ccosh, minus_zero, minus_zero, 1.0, 0.0);
5478
67e971f1
TS		 5479 TEST_c_c (ccosh, 0.0, plus_infty, qnan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
5480 TEST_c_c (ccosh, minus_zero, plus_infty, qnan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
5481 TEST_c_c (ccosh, 0.0, minus_infty, qnan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
5482 TEST_c_c (ccosh, minus_zero, minus_infty, qnan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
8847214f
UD		 5483
5484 TEST_c_c (ccosh, plus_infty, 0.0, plus_infty, 0.0);
5485 TEST_c_c (ccosh, minus_infty, 0.0, plus_infty, minus_zero);
5486 TEST_c_c (ccosh, plus_infty, minus_zero, plus_infty, minus_zero);
5487 TEST_c_c (ccosh, minus_infty, minus_zero, plus_infty, 0.0);
5488
67e971f1
TS		 5489 TEST_c_c (ccosh, plus_infty, plus_infty, plus_infty, qnan_value, INVALID_EXCEPTION);
5490 TEST_c_c (ccosh, minus_infty, plus_infty, plus_infty, qnan_value, INVALID_EXCEPTION);
5491 TEST_c_c (ccosh, plus_infty, minus_infty, plus_infty, qnan_value, INVALID_EXCEPTION);
5492 TEST_c_c (ccosh, minus_infty, minus_infty, plus_infty, qnan_value, INVALID_EXCEPTION);
8847214f
UD		 5493
5494 TEST_c_c (ccosh, plus_infty, 4.625, minus_infty, minus_infty);
5495 TEST_c_c (ccosh, minus_infty, 4.625, minus_infty, plus_infty);
5496 TEST_c_c (ccosh, plus_infty, -4.625, minus_infty, plus_infty);
5497 TEST_c_c (ccosh, minus_infty, -4.625, minus_infty, minus_infty);
5498
67e971f1
TS		 5499 TEST_c_c (ccosh, 6.75, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
5500 TEST_c_c (ccosh, -6.75, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
5501 TEST_c_c (ccosh, 6.75, minus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
5502 TEST_c_c (ccosh, -6.75, minus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
8847214f 5503
67e971f1
TS		 5504 TEST_c_c (ccosh, 0.0, qnan_value, qnan_value, 0.0, IGNORE_ZERO_INF_SIGN);
5505 TEST_c_c (ccosh, minus_zero, qnan_value, qnan_value, 0.0, IGNORE_ZERO_INF_SIGN);
8847214f 5506
67e971f1
TS		 5507 TEST_c_c (ccosh, plus_infty, qnan_value, plus_infty, qnan_value);
5508 TEST_c_c (ccosh, minus_infty, qnan_value, plus_infty, qnan_value);
8847214f 5509
67e971f1
TS		 5510 TEST_c_c (ccosh, 9.0, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
5511 TEST_c_c (ccosh, -9.0, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 5512
67e971f1
TS		 5513 TEST_c_c (ccosh, qnan_value, 0.0, qnan_value, 0.0, IGNORE_ZERO_INF_SIGN);
5514 TEST_c_c (ccosh, qnan_value, minus_zero, qnan_value, 0.0, IGNORE_ZERO_INF_SIGN);
8847214f 5515
67e971f1
TS		 5516 TEST_c_c (ccosh, qnan_value, 10.0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
5517 TEST_c_c (ccosh, qnan_value, -10.0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 5518
67e971f1
TS		 5519 TEST_c_c (ccosh, qnan_value, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
5520 TEST_c_c (ccosh, qnan_value, minus_infty, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 5521
67e971f1 5522 TEST_c_c (ccosh, qnan_value, qnan_value, qnan_value, qnan_value);
8847214f 5523
2550dfe9 5524 TEST_c_c (ccosh, 0.75L, 1.25L, 0.408242591877968807788852146397499084L, 0.780365930845853240391326216300863152L);
8847214f 5525
79df8ce5 5526 TEST_c_c (ccosh, -2, -3, -3.72454550491532256547397070325597253L, 0.511822569987384608834463849801875634L);
8847214f 5527
e0b16cc2
JM		 5528 TEST_c_c (ccosh, 89.5, 0.75, 2.708024460708609732016532185663087200560e38L, 2.522786001038096774676288412995370563339e38L);
5529 TEST_c_c (ccosh, -89.5, 0.75, 2.708024460708609732016532185663087200560e38L, -2.522786001038096774676288412995370563339e38L);
5530 TEST_c_c (ccosh, 89.5, -0.75, 2.708024460708609732016532185663087200560e38L, -2.522786001038096774676288412995370563339e38L);
5531 TEST_c_c (ccosh, -89.5, -0.75, 2.708024460708609732016532185663087200560e38L, 2.522786001038096774676288412995370563339e38L);
5532
5533#ifndef TEST_FLOAT
5534 TEST_c_c (ccosh, 710.5, 0.75, 1.347490911916428129246890157395342279438e308L, 1.255317763348154410745082950806112487736e308L);
5535 TEST_c_c (ccosh, -710.5, 0.75, 1.347490911916428129246890157395342279438e308L, -1.255317763348154410745082950806112487736e308L);
5536 TEST_c_c (ccosh, 710.5, -0.75, 1.347490911916428129246890157395342279438e308L, -1.255317763348154410745082950806112487736e308L);
5537 TEST_c_c (ccosh, -710.5, -0.75, 1.347490911916428129246890157395342279438e308L, 1.255317763348154410745082950806112487736e308L);
5538#endif
5539
5540#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
5541 TEST_c_c (ccosh, 11357.25, 0.75, 9.001213196851067077465606717616495588201e4931L, 8.385498349388321535962327491346664141020e4931L);
5542 TEST_c_c (ccosh, -11357.25, 0.75, 9.001213196851067077465606717616495588201e4931L, -8.385498349388321535962327491346664141020e4931L);
5543 TEST_c_c (ccosh, 11357.25, -0.75, 9.001213196851067077465606717616495588201e4931L, -8.385498349388321535962327491346664141020e4931L);
5544 TEST_c_c (ccosh, -11357.25, -0.75, 9.001213196851067077465606717616495588201e4931L, 8.385498349388321535962327491346664141020e4931L);
5545#endif
5546
5547#ifdef TEST_FLOAT
5548 TEST_c_c (ccosh, 180, 0x1p-149, plus_infty, 1.043535896672617552965983803453927655332e33L, OVERFLOW_EXCEPTION);
5549#endif
5550
5551#if defined TEST_DOUBLE || (defined TEST_LDOUBLE && LDBL_MAX_EXP == 1024)
5552 TEST_c_c (ccosh, 1440, 0x1p-1074, plus_infty, 5.981479269486130556466515778180916082415e301L, OVERFLOW_EXCEPTION);
5553#endif
5554
5555#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
5556 TEST_c_c (ccosh, 22730, 0x1p-16434L, plus_infty, 1.217853148905605987081057582351152052687e4924L, OVERFLOW_EXCEPTION);
5557#endif
5558
f0302940
JM		 5559 TEST_c_c (ccosh, min_subnorm_value * 0x1p120, 0x1p-120, 1.0, min_subnorm_value, UNDERFLOW_EXCEPTION);
5560 TEST_c_c (ccosh, 0x1p-120, min_subnorm_value * 0x1p120, 1.0, min_subnorm_value, UNDERFLOW_EXCEPTION);
5561
6815fabc 5562 END (ccosh, complex);
8847214f
UD		 5563}
5564
5565
5566static void
5567ceil_test (void)
5568{
5569 START (ceil);
5570
5571 TEST_f_f (ceil, 0.0, 0.0);
5572 TEST_f_f (ceil, minus_zero, minus_zero);
5573 TEST_f_f (ceil, plus_infty, plus_infty);
5574 TEST_f_f (ceil, minus_infty, minus_infty);
67e971f1 5575 TEST_f_f (ceil, qnan_value, qnan_value);
8847214f
UD		 5576
5577 TEST_f_f (ceil, M_PIl, 4.0);
5578 TEST_f_f (ceil, -M_PIl, -3.0);
5c68d401 5579 TEST_f_f (ceil, 0.1, 1.0);
45740f46 5580 TEST_f_f (ceil, 0.25, 1.0);
5c68d401
RM		 5581 TEST_f_f (ceil, 0.625, 1.0);
5582 TEST_f_f (ceil, -0.1, minus_zero);
97fd3a30 5583 TEST_f_f (ceil, -0.25, minus_zero);
5c68d401 5584 TEST_f_f (ceil, -0.625, minus_zero);
8847214f 5585
f964490f
RM		 5586#ifdef TEST_LDOUBLE
5587 /* The result can only be represented in long double. */
5588 TEST_f_f (ceil, 4503599627370495.5L, 4503599627370496.0L);
5589 TEST_f_f (ceil, 4503599627370496.25L, 4503599627370497.0L);
5590 TEST_f_f (ceil, 4503599627370496.5L, 4503599627370497.0L);
5591 TEST_f_f (ceil, 4503599627370496.75L, 4503599627370497.0L);
5592 TEST_f_f (ceil, 4503599627370497.5L, 4503599627370498.0L);
5593
5594 TEST_f_f (ceil, -4503599627370495.5L, -4503599627370495.0L);
5595 TEST_f_f (ceil, -4503599627370496.25L, -4503599627370496.0L);
5596 TEST_f_f (ceil, -4503599627370496.5L, -4503599627370496.0L);
5597 TEST_f_f (ceil, -4503599627370496.75L, -4503599627370496.0L);
5598 TEST_f_f (ceil, -4503599627370497.5L, -4503599627370497.0L);
5599
5c68d401
RM		 5600# if LDBL_MANT_DIG > 100
5601 TEST_f_f (ceil, 4503599627370494.5000000000001L, 4503599627370495.0L);
5602 TEST_f_f (ceil, 4503599627370495.5000000000001L, 4503599627370496.0L);
5603 TEST_f_f (ceil, 4503599627370496.5000000000001L, 4503599627370497.0L);
5604 TEST_f_f (ceil, -4503599627370494.5000000000001L, -4503599627370494.0L);
5605 TEST_f_f (ceil, -4503599627370495.5000000000001L, -4503599627370495.0L);
5606 TEST_f_f (ceil, -4503599627370496.5000000000001L, -4503599627370496.0L);
5607# endif
5608
f964490f
RM		 5609 TEST_f_f (ceil, 9007199254740991.5L, 9007199254740992.0L);
5610 TEST_f_f (ceil, 9007199254740992.25L, 9007199254740993.0L);
5611 TEST_f_f (ceil, 9007199254740992.5L, 9007199254740993.0L);
5612 TEST_f_f (ceil, 9007199254740992.75L, 9007199254740993.0L);
5613 TEST_f_f (ceil, 9007199254740993.5L, 9007199254740994.0L);
5614
5615 TEST_f_f (ceil, -9007199254740991.5L, -9007199254740991.0L);
5616 TEST_f_f (ceil, -9007199254740992.25L, -9007199254740992.0L);
5617 TEST_f_f (ceil, -9007199254740992.5L, -9007199254740992.0L);
5618 TEST_f_f (ceil, -9007199254740992.75L, -9007199254740992.0L);
5619 TEST_f_f (ceil, -9007199254740993.5L, -9007199254740993.0L);
5620
5c68d401
RM		 5621# if LDBL_MANT_DIG > 100
5622 TEST_f_f (ceil, 9007199254740991.0000000000001L, 9007199254740992.0L);
5623 TEST_f_f (ceil, 9007199254740992.0000000000001L, 9007199254740993.0L);
5624 TEST_f_f (ceil, 9007199254740993.0000000000001L, 9007199254740994.0L);
5625 TEST_f_f (ceil, 9007199254740991.5000000000001L, 9007199254740992.0L);
5626 TEST_f_f (ceil, 9007199254740992.5000000000001L, 9007199254740993.0L);
5627 TEST_f_f (ceil, 9007199254740993.5000000000001L, 9007199254740994.0L);
5628
5629 TEST_f_f (ceil, -9007199254740991.0000000000001L, -9007199254740991.0L);
5630 TEST_f_f (ceil, -9007199254740992.0000000000001L, -9007199254740992.0L);
5631 TEST_f_f (ceil, -9007199254740993.0000000000001L, -9007199254740993.0L);
5632 TEST_f_f (ceil, -9007199254740991.5000000000001L, -9007199254740991.0L);
5633 TEST_f_f (ceil, -9007199254740992.5000000000001L, -9007199254740992.0L);
5634 TEST_f_f (ceil, -9007199254740993.5000000000001L, -9007199254740993.0L);
5635# endif
5636
f964490f
RM		 5637 TEST_f_f (ceil, 72057594037927935.5L, 72057594037927936.0L);
5638 TEST_f_f (ceil, 72057594037927936.25L, 72057594037927937.0L);
5639 TEST_f_f (ceil, 72057594037927936.5L, 72057594037927937.0L);
5640 TEST_f_f (ceil, 72057594037927936.75L, 72057594037927937.0L);
5641 TEST_f_f (ceil, 72057594037927937.5L, 72057594037927938.0L);
5642
5643 TEST_f_f (ceil, -72057594037927935.5L, -72057594037927935.0L);
5644 TEST_f_f (ceil, -72057594037927936.25L, -72057594037927936.0L);
5645 TEST_f_f (ceil, -72057594037927936.5L, -72057594037927936.0L);
5646 TEST_f_f (ceil, -72057594037927936.75L, -72057594037927936.0L);
5647 TEST_f_f (ceil, -72057594037927937.5L, -72057594037927937.0L);
5648
5649 TEST_f_f (ceil, 10141204801825835211973625643007.5L, 10141204801825835211973625643008.0L);
5650 TEST_f_f (ceil, 10141204801825835211973625643008.25L, 10141204801825835211973625643009.0L);
5651 TEST_f_f (ceil, 10141204801825835211973625643008.5L, 10141204801825835211973625643009.0L);
5652 TEST_f_f (ceil, 10141204801825835211973625643008.75L, 10141204801825835211973625643009.0L);
5653 TEST_f_f (ceil, 10141204801825835211973625643009.5L, 10141204801825835211973625643010.0L);
5654#endif
5655
8847214f
UD		 5656 END (ceil);
5657}
5658
5659
5660static void
5661cexp_test (void)
5662{
aaca11d8
UD		 5663 errno = 0;
5664 FUNC(cexp) (BUILD_COMPLEX (0, 0));
5665 if (errno == ENOSYS)
5666 /* Function not implemented. */
5667 return;
5668
8847214f
UD		 5669 START (cexp);
5670
5671 TEST_c_c (cexp, plus_zero, plus_zero, 1, 0.0);
5672 TEST_c_c (cexp, minus_zero, plus_zero, 1, 0.0);
5673 TEST_c_c (cexp, plus_zero, minus_zero, 1, minus_zero);
5674 TEST_c_c (cexp, minus_zero, minus_zero, 1, minus_zero);
5675
5676 TEST_c_c (cexp, plus_infty, plus_zero, plus_infty, 0.0);
5677 TEST_c_c (cexp, plus_infty, minus_zero, plus_infty, minus_zero);
5678
5679 TEST_c_c (cexp, minus_infty, plus_zero, 0.0, 0.0);
5680 TEST_c_c (cexp, minus_infty, minus_zero, 0.0, minus_zero);
5681
67e971f1
TS		 5682 TEST_c_c (cexp, 0.0, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
5683 TEST_c_c (cexp, minus_zero, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
8847214f 5684
67e971f1
TS		 5685 TEST_c_c (cexp, 0.0, minus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
5686 TEST_c_c (cexp, minus_zero, minus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
8847214f 5687
67e971f1
TS		 5688 TEST_c_c (cexp, 100.0, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
5689 TEST_c_c (cexp, -100.0, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
8847214f 5690
67e971f1
TS		 5691 TEST_c_c (cexp, 100.0, minus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
5692 TEST_c_c (cexp, -100.0, minus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
8847214f
UD		 5693
5694 TEST_c_c (cexp, minus_infty, 2.0, minus_zero, 0.0);
5695 TEST_c_c (cexp, minus_infty, 4.0, minus_zero, minus_zero);
5696 TEST_c_c (cexp, plus_infty, 2.0, minus_infty, plus_infty);
5697 TEST_c_c (cexp, plus_infty, 4.0, minus_infty, minus_infty);
5698
67e971f1
TS		 5699 TEST_c_c (cexp, plus_infty, plus_infty, plus_infty, qnan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
5700 TEST_c_c (cexp, plus_infty, minus_infty, plus_infty, qnan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
8847214f
UD		 5701
5702 TEST_c_c (cexp, minus_infty, plus_infty, 0.0, 0.0, IGNORE_ZERO_INF_SIGN);
5703 TEST_c_c (cexp, minus_infty, minus_infty, 0.0, minus_zero, IGNORE_ZERO_INF_SIGN);
5704
67e971f1 5705 TEST_c_c (cexp, minus_infty, qnan_value, 0, 0, IGNORE_ZERO_INF_SIGN);
8847214f 5706
67e971f1 5707 TEST_c_c (cexp, plus_infty, qnan_value, plus_infty, qnan_value);
8847214f 5708
67e971f1
TS		 5709 TEST_c_c (cexp, qnan_value, 0.0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
5710 TEST_c_c (cexp, qnan_value, 1.0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 5711
67e971f1
TS		 5712 TEST_c_c (cexp, qnan_value, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
5713 TEST_c_c (cexp, 0, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
5714 TEST_c_c (cexp, 1, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
5715 TEST_c_c (cexp, qnan_value, qnan_value, qnan_value, qnan_value);
8847214f 5716
9d0c92b2 5717 TEST_c_c (cexp, 0.75L, 1.25L, 0.667537446429131586942201977015932112L, 2.00900045494094876258347228145863909L);
d8337213 5718 TEST_c_c (cexp, -2.0, -3.0, -0.13398091492954261346140525546115575L, -0.019098516261135196432576240858800925L);
8847214f 5719
1a4ac776
JM		 5720 TEST_c_c (cexp, 0, 0x1p65, 0.99888622066058013610642172179340364209972L, -0.047183876212354673805106149805700013943218L);
5721 TEST_c_c (cexp, 0, -0x1p65, 0.99888622066058013610642172179340364209972L, 0.047183876212354673805106149805700013943218L);
5722 TEST_c_c (cexp, 50, 0x1p127, 4.053997150228616856622417636046265337193e21L, 3.232070315463388524466674772633810238819e21L);
5723
5724#ifndef TEST_FLOAT
5725 TEST_c_c (cexp, 0, 1e22, 0.5232147853951389454975944733847094921409L, -0.8522008497671888017727058937530293682618L);
5726 TEST_c_c (cexp, 0, 0x1p1023, -0.826369834614147994500785680811743734805L, 0.5631277798508840134529434079444683477104L);
5727 TEST_c_c (cexp, 500, 0x1p1023, -1.159886268932754433233243794561351783426e217L, 7.904017694554466595359379965081774849708e216L);
5728#endif
5729
5730#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
5731 TEST_c_c (cexp, 0, 0x1p16383L, 0.9210843909921906206874509522505756251609L, 0.3893629985894208126948115852610595405563L);
5732 TEST_c_c (cexp, -10000, 0x1p16383L, 1.045876464564882298442774542991176546722e-4343L, 4.421154026488516836023811173959413420548e-4344L);
5733#endif
5734
7c69cd14 5735 TEST_c_c (cexp, 88.75, 0.75, 2.558360358486542817001900410314204322891e38L, 2.383359453227311447654736314679677655100e38L);
80bad0cc 5736 TEST_c_c (cexp, -95, 0.75, 4.039714446238306526889476684000081624047e-42L, 3.763383677300535390271646960780570275931e-42L, UNDERFLOW_EXCEPTION_FLOAT);
7c69cd14
JM		 5737
5738#ifndef TEST_FLOAT
5739 TEST_c_c (cexp, 709.8125, 0.75, 1.355121963080879535248452862759108365762e308L, 1.262426823598609432507811340856186873507e308L);
80bad0cc 5740 TEST_c_c (cexp, -720, 0.75, 1.486960657116368433685753325516638551722e-313L, 1.385247284245720590980701226843815229385e-313L, UNDERFLOW_EXCEPTION_DOUBLE);
7c69cd14
JM		 5741#endif
5742
5743#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
5744 TEST_c_c (cexp, 11356.5625, 0.75, 9.052188470850960144814815984311663764287e4931L, 8.432986734191301036267148978260970230200e4931L);
80bad0cc 5745 TEST_c_c (cexp, -11370, 0.75, 8.631121063182211587489310508568170739592e-4939L, 8.040721827809267291427062346918413482824e-4939L, UNDERFLOW_EXCEPTION);
7c69cd14
JM		 5746#endif
5747
5748#ifdef TEST_FLOAT
5749 TEST_c_c (cexp, 180, 0x1p-149, plus_infty, 2.087071793345235105931967606907855310664e33L, OVERFLOW_EXCEPTION);
5750#endif
5751
5752#if defined TEST_DOUBLE || (defined TEST_LDOUBLE && LDBL_MAX_EXP == 1024)
5753 TEST_c_c (cexp, 1440, 0x1p-1074, plus_infty, 1.196295853897226111293303155636183216483e302L, OVERFLOW_EXCEPTION);
5754#endif
5755
5756#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
5757 TEST_c_c (cexp, 22730, 0x1p-16434L, plus_infty, 2.435706297811211974162115164702304105374e4924L, OVERFLOW_EXCEPTION);
5758#endif
5759
5760 TEST_c_c (cexp, 1e6, 0, plus_infty, 0, OVERFLOW_EXCEPTION);
5761 TEST_c_c (cexp, 1e6, min_value, plus_infty, plus_infty, OVERFLOW_EXCEPTION);
5762 TEST_c_c (cexp, 1e6, -min_value, plus_infty, minus_infty, OVERFLOW_EXCEPTION);
5763
05e166c8
JM		 5764 TEST_c_c (cexp, min_value, min_subnorm_value, 1.0, min_subnorm_value, UNDERFLOW_EXCEPTION);
5765 TEST_c_c (cexp, min_value, -min_subnorm_value, 1.0, -min_subnorm_value, UNDERFLOW_EXCEPTION);
5766
6815fabc 5767 END (cexp, complex);
8847214f
UD		 5768}
5769
2550dfe9 5770
0cdc8e6f
UD		 5771static void
5772cimag_test (void)
5773{
5774 START (cimag);
5775 TEST_c_f (cimag, 1.0, 0.0, 0.0);
5776 TEST_c_f (cimag, 1.0, minus_zero, minus_zero);
67e971f1
TS		 5777 TEST_c_f (cimag, 1.0, qnan_value, qnan_value);
5778 TEST_c_f (cimag, qnan_value, qnan_value, qnan_value);
0cdc8e6f
UD		 5779 TEST_c_f (cimag, 1.0, plus_infty, plus_infty);
5780 TEST_c_f (cimag, 1.0, minus_infty, minus_infty);
5781 TEST_c_f (cimag, 2.0, 3.0, 3.0);
5782
5783 END (cimag);
5784}
5785
8847214f
UD		 5786static void
5787clog_test (void)
5788{
aaca11d8
UD		 5789 errno = 0;
5790 FUNC(clog) (BUILD_COMPLEX (-2, -3));
5791 if (errno == ENOSYS)
5792 /* Function not implemented. */
5793 return;
5794
8847214f
UD		 5795 START (clog);
5796
5797 TEST_c_c (clog, minus_zero, 0, minus_infty, M_PIl, DIVIDE_BY_ZERO_EXCEPTION);
5798 TEST_c_c (clog, minus_zero, minus_zero, minus_infty, -M_PIl, DIVIDE_BY_ZERO_EXCEPTION);
5799
5800 TEST_c_c (clog, 0, 0, minus_infty, 0.0, DIVIDE_BY_ZERO_EXCEPTION);
5801 TEST_c_c (clog, 0, minus_zero, minus_infty, minus_zero, DIVIDE_BY_ZERO_EXCEPTION);
5802
5803 TEST_c_c (clog, minus_infty, plus_infty, plus_infty, M_PI_34l);
5804 TEST_c_c (clog, minus_infty, minus_infty, plus_infty, -M_PI_34l);
5805
5806 TEST_c_c (clog, plus_infty, plus_infty, plus_infty, M_PI_4l);
5807 TEST_c_c (clog, plus_infty, minus_infty, plus_infty, -M_PI_4l);
5808
5809 TEST_c_c (clog, 0, plus_infty, plus_infty, M_PI_2l);
5810 TEST_c_c (clog, 3, plus_infty, plus_infty, M_PI_2l);
5811 TEST_c_c (clog, minus_zero, plus_infty, plus_infty, M_PI_2l);
5812 TEST_c_c (clog, -3, plus_infty, plus_infty, M_PI_2l);
5813 TEST_c_c (clog, 0, minus_infty, plus_infty, -M_PI_2l);
5814 TEST_c_c (clog, 3, minus_infty, plus_infty, -M_PI_2l);
5815 TEST_c_c (clog, minus_zero, minus_infty, plus_infty, -M_PI_2l);
5816 TEST_c_c (clog, -3, minus_infty, plus_infty, -M_PI_2l);
5817
5818 TEST_c_c (clog, minus_infty, 0, plus_infty, M_PIl);
5819 TEST_c_c (clog, minus_infty, 1, plus_infty, M_PIl);
5820 TEST_c_c (clog, minus_infty, minus_zero, plus_infty, -M_PIl);
5821 TEST_c_c (clog, minus_infty, -1, plus_infty, -M_PIl);
5822
5823 TEST_c_c (clog, plus_infty, 0, plus_infty, 0.0);
5824 TEST_c_c (clog, plus_infty, 1, plus_infty, 0.0);
5825 TEST_c_c (clog, plus_infty, minus_zero, plus_infty, minus_zero);
5826 TEST_c_c (clog, plus_infty, -1, plus_infty, minus_zero);
5827
67e971f1
TS		 5828 TEST_c_c (clog, plus_infty, qnan_value, plus_infty, qnan_value);
5829 TEST_c_c (clog, minus_infty, qnan_value, plus_infty, qnan_value);
8847214f 5830
67e971f1
TS		 5831 TEST_c_c (clog, qnan_value, plus_infty, plus_infty, qnan_value);
5832 TEST_c_c (clog, qnan_value, minus_infty, plus_infty, qnan_value);
8847214f 5833
67e971f1
TS		 5834 TEST_c_c (clog, 0, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
5835 TEST_c_c (clog, 3, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
5836 TEST_c_c (clog, minus_zero, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
5837 TEST_c_c (clog, -3, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 5838
67e971f1
TS		 5839 TEST_c_c (clog, qnan_value, 0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
5840 TEST_c_c (clog, qnan_value, 5, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
5841 TEST_c_c (clog, qnan_value, minus_zero, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
5842 TEST_c_c (clog, qnan_value, -5, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 5843
67e971f1 5844 TEST_c_c (clog, qnan_value, qnan_value, qnan_value, qnan_value);
2550dfe9
AJ		 5845
5846 TEST_c_c (clog, 0.75L, 1.25L, 0.376885901188190075998919126749298416L, 1.03037682652431246378774332703115153L);
33e885db 5847 TEST_c_c (clog, -2, -3, 1.2824746787307683680267437207826593L, -2.1587989303424641704769327722648368L);
8847214f 5848
1897ad44 5849 TEST_c_c (clog, 0x1.fffffep+127L, 0x1.fffffep+127L, 89.06941264234832570836679262104313101776L, M_PI_4l);
80bad0cc 5850 TEST_c_c (clog, 0x1.fffffep+127L, 1.0L, 88.72283905206835305365817656031404273372L, 2.938736052218037251011746307725933020145e-39L, UNDERFLOW_EXCEPTION_FLOAT);
1897ad44
JM		 5851 TEST_c_c (clog, 0x1p-149L, 0x1p-149L, -102.9323563131518784484589700365392203592L, M_PI_4l);
5852 TEST_c_c (clog, 0x1p-147L, 0x1p-147L, -101.5460619520319878296245057936228672231L, M_PI_4l);
5853
5854#ifndef TEST_FLOAT
5855 TEST_c_c (clog, 0x1.fffffffffffffp+1023L, 0x1.fffffffffffffp+1023L, 710.1292864836639693869320059713862337880L, M_PI_4l);
5856 TEST_c_c (clog, 0x1.fffffffffffffp+1023L, 0x1p+1023L, 709.8942846690411016323109979483151967689L, 0.4636476090008061606231772164674799632783L);
5857 TEST_c_c (clog, 0x1p-1074L, 0x1p-1074L, -744.0934983311012896593986823853525458290L, M_PI_4l);
5858 TEST_c_c (clog, 0x1p-1073L, 0x1p-1073L, -743.4003511505413443499814502638943692610L, M_PI_4l);
5859#endif
5860
5861#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
5862 TEST_c_c (clog, 0x1.fp+16383L, 0x1.fp+16383L, 11356.83823118610934184548269774874545400L, M_PI_4l);
5863 TEST_c_c (clog, 0x1.fp+16383L, 0x1p+16383L, 11356.60974243783798653123798337822335902L, 0.4764674194737066993385333770295162295856L);
5864 TEST_c_c (clog, 0x1p-16440L, 0x1p-16441L, -11395.22807662984378194141292922726786191L, 0.4636476090008061162142562314612144020285L);
5865#endif
5866
638a572e
JM		 5867 TEST_c_c (clog, 0x1p-149L, 0x1.fp+127L, 88.69109041335841930424871526389807508374L, M_PI_2l);
5868 TEST_c_c (clog, -0x1p-149L, 0x1.fp+127L, 88.69109041335841930424871526389807508374L, M_PI_2l);
5869 TEST_c_c (clog, 0x1p-149L, -0x1.fp+127L, 88.69109041335841930424871526389807508374L, -M_PI_2l);
5870 TEST_c_c (clog, -0x1p-149L, -0x1.fp+127L, 88.69109041335841930424871526389807508374L, -M_PI_2l);
5871 TEST_c_c (clog, -0x1.fp+127L, 0x1p-149L, 88.69109041335841930424871526389807508374L, M_PIl);
5872 TEST_c_c (clog, -0x1.fp+127L, -0x1p-149L, 88.69109041335841930424871526389807508374L, -M_PIl);
5873#ifdef TEST_FLOAT
5874 TEST_c_c (clog, 0x1.fp+127L, 0x1p-149L, 88.69109041335841930424871526389807508374L, plus_zero, UNDERFLOW_EXCEPTION);
5875 TEST_c_c (clog, 0x1.fp+127L, -0x1p-149L, 88.69109041335841930424871526389807508374L, minus_zero, UNDERFLOW_EXCEPTION);
5876#endif
5877
5878#ifndef TEST_FLOAT
5879 TEST_c_c (clog, 0x1p-1074L, 0x1.fp+1023L, 709.7509641950694165420886960904242800794L, M_PI_2l);
5880 TEST_c_c (clog, -0x1p-1074L, 0x1.fp+1023L, 709.7509641950694165420886960904242800794L, M_PI_2l);
5881 TEST_c_c (clog, 0x1p-1074L, -0x1.fp+1023L, 709.7509641950694165420886960904242800794L, -M_PI_2l);
5882 TEST_c_c (clog, -0x1p-1074L, -0x1.fp+1023L, 709.7509641950694165420886960904242800794L, -M_PI_2l);
5883 TEST_c_c (clog, -0x1.fp+1023L, 0x1p-1074L, 709.7509641950694165420886960904242800794L, M_PIl);
5884 TEST_c_c (clog, -0x1.fp+1023L, -0x1p-1074L, 709.7509641950694165420886960904242800794L, -M_PIl);
5885#endif
5886#if defined TEST_DOUBLE || (defined TEST_LDOUBLE && LDBL_MAX_EXP == 1024)
5887 TEST_c_c (clog, 0x1.fp+1023L, 0x1p-1074L, 709.7509641950694165420886960904242800794L, plus_zero, UNDERFLOW_EXCEPTION);
5888 TEST_c_c (clog, 0x1.fp+1023L, -0x1p-1074L, 709.7509641950694165420886960904242800794L, minus_zero, UNDERFLOW_EXCEPTION);
5889#endif
5890
5891#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
5892 TEST_c_c (clog, 0x1p-16445L, 0x1.fp+16383L, 11356.49165759582936919077408168801636572L, M_PI_2l);
5893 TEST_c_c (clog, -0x1p-16445L, 0x1.fp+16383L, 11356.49165759582936919077408168801636572L, M_PI_2l);
5894 TEST_c_c (clog, 0x1p-16445L, -0x1.fp+16383L, 11356.49165759582936919077408168801636572L, -M_PI_2l);
5895 TEST_c_c (clog, -0x1p-16445L, -0x1.fp+16383L, 11356.49165759582936919077408168801636572L, -M_PI_2l);
5896 TEST_c_c (clog, -0x1.fp+16383L, 0x1p-16445L, 11356.49165759582936919077408168801636572L, M_PIl);
5897 TEST_c_c (clog, -0x1.fp+16383L, -0x1p-16445L, 11356.49165759582936919077408168801636572L, -M_PIl);
5898 TEST_c_c (clog, 0x1.fp+16383L, 0x1p-16445L, 11356.49165759582936919077408168801636572L, plus_zero, UNDERFLOW_EXCEPTION);
5899 TEST_c_c (clog, 0x1.fp+16383L, -0x1p-16445L, 11356.49165759582936919077408168801636572L, minus_zero, UNDERFLOW_EXCEPTION);
5900# if LDBL_MANT_DIG >= 113
5901 TEST_c_c (clog, 0x1p-16494L, 0x1.fp+16383L, 11356.49165759582936919077408168801636572L, M_PI_2l);
5902 TEST_c_c (clog, -0x1p-16494L, 0x1.fp+16383L, 11356.49165759582936919077408168801636572L, M_PI_2l);
5903 TEST_c_c (clog, 0x1p-16494L, -0x1.fp+16383L, 11356.49165759582936919077408168801636572L, -M_PI_2l);
5904 TEST_c_c (clog, -0x1p-16494L, -0x1.fp+16383L, 11356.49165759582936919077408168801636572L, -M_PI_2l);
5905 TEST_c_c (clog, -0x1.fp+16383L, 0x1p-16494L, 11356.49165759582936919077408168801636572L, M_PIl);
5906 TEST_c_c (clog, -0x1.fp+16383L, -0x1p-16494L, 11356.49165759582936919077408168801636572L, -M_PIl);
5907 TEST_c_c (clog, 0x1.fp+16383L, 0x1p-16494L, 11356.49165759582936919077408168801636572L, plus_zero, UNDERFLOW_EXCEPTION);
5908 TEST_c_c (clog, 0x1.fp+16383L, -0x1p-16494L, 11356.49165759582936919077408168801636572L, minus_zero, UNDERFLOW_EXCEPTION);
5909# endif
5910#endif
5911
da865e95
JM		 5912 TEST_c_c (clog, 1.0L, 0x1.234566p-10L, 6.172834701221959432440126967147726538097e-7L, 1.111110564353742042376451655136933182201e-3L);
5913 TEST_c_c (clog, -1.0L, 0x1.234566p-20L, 5.886877547844618300918562490463748605537e-13L, 3.141591568520436206990380699322226378452L);
5914 TEST_c_c (clog, 0x1.234566p-30L, 1.0L, 5.614163921211322622623353961365728040115e-19L, 1.570796325735258575254858696548386439740L);
5915 TEST_c_c (clog, -0x1.234566p-40L, -1.0L, 5.354083939753840089583620652120903838944e-25L, -1.570796326795931422008642456283782656359L);
5916 TEST_c_c (clog, 0x1.234566p-50L, 1.0L, 5.106052341226425256332038420428899201070e-31L, 1.570796326794895608681734464330528755366L);
5917 TEST_c_c (clog, 0x1.234566p-60L, 1.0L, 4.869510976053643471080816669875627875933e-37L, 1.570796326794896618244456860363082279319L);
5918 TEST_c_c (clog, 0x1p-62L, 1.0L, 2.350988701644575015937473074444491355582e-38L, 1.570796326794896619014481257142650555297L);
5919 TEST_c_c (clog, 0x1p-63L, 1.0L, 5.877471754111437539843682686111228389059e-39L, 1.570796326794896619122901474391200998698L, UNDERFLOW_EXCEPTION_FLOAT);
5920 TEST_c_c (clog, 0x1p-64L, 1.0L, 1.469367938527859384960920671527807097271e-39L, 1.570796326794896619177111583015476220398L, UNDERFLOW_EXCEPTION_FLOAT);
5921#ifndef TEST_FLOAT
5922 TEST_c_c (clog, 0x1p-510L, 1.0L, 4.450147717014402766180465434664808128438e-308L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
5923 TEST_c_c (clog, 0x1p-511L, 1.0L, 1.112536929253600691545116358666202032110e-308L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
5924 TEST_c_c (clog, 0x1p-512L, 1.0L, 2.781342323134001728862790896665505080274e-309L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION_DOUBLE);
5925#endif
5926#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
5927 TEST_c_c (clog, 0x1p-8190L, 1.0L, 6.724206286224187012525355634643505205196e-4932L, 1.570796326794896619231321691639751442099L);
5928 TEST_c_c (clog, 0x1p-8191L, 1.0L, 1.681051571556046753131338908660876301299e-4932L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
5929 TEST_c_c (clog, 0x1p-8192L, 1.0L, 4.202628928890116882828347271652190753248e-4933L, 1.570796326794896619231321691639751442099L, UNDERFLOW_EXCEPTION);
5930#endif
5931
d0419dbf
JM		 5932 TEST_c_c (clog, 0x1.000566p0L, 0x1.234p-10L, 8.298731898331237038231468223024422855654e-5L, 1.110938609507128729312743251313024793990e-3L);
5933 TEST_c_c (clog, 0x1.000566p0L, 0x1.234p-100L, 8.237022655933121125560939513260027133767e-5L, 8.974094312218060110948251664314290484113e-31L);
5934#ifndef TEST_FLOAT
5935 TEST_c_c (clog, -0x1.0000000123456p0L, 0x1.2345678p-30L, 2.649094282537168795982991778475646793277e-10L, 3.141592652530155111500161671113150737892L);
5936 TEST_c_c (clog, -0x1.0000000123456p0L, 0x1.2345678p-1000L, 2.649094276923003995420209214900915462737e-10L, 3.141592653589793238462643383279502884197L);
5937#endif
5938#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106
5939 TEST_c_c (clog, 0x1.00000000000000123456789abcp0L, 0x1.23456789p-60L, 9.868649107778739757272772275265050767867e-19L, 9.868649106423871142816660980898339912137e-19L);
c9c0279b 5940 TEST_c_c (clog, 0x1.00000000000000123456789abcp0L, 0x1.23456789p-1000L, 9.868649107778739752403260515979017248596e-19L, 1.061846605795612822522063052130030717368e-301L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
d0419dbf
JM		 5941#endif
5942
d032e0d2
JM		 5943 TEST_c_c (clog, 0x0.ffffffp0L, 0x0.ffffffp-100L, -5.960464655174753498633255797994360530379e-8L, 7.888609052210118054117285652827862296732e-31L);
5944#ifndef TEST_FLOAT
c9c0279b 5945 TEST_c_c (clog, 0x0.fffffffffffff8p0L, 0x0.fffffffffffff8p-1000L, -1.110223024625156602053389888482372171810e-16L, 9.332636185032188789900895447238171696171e-302L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
d032e0d2
JM		 5946#endif
5947#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
5948 TEST_c_c (clog, 0x0.ffffffffffffffffp0L, 0x0.ffffffffffffffffp-15000L, -5.421010862427522170184200798202494495630e-20L, 3.548665303440282824232502561095699343814e-4516L);
5949#endif
5950
5951 TEST_c_c (clog, 0x1a6p-10L, 0x3a5p-10L, -1.4305135209763571252847059962654228661815e-06L, 1.1460277178115757370775644871674016684074L);
5952 TEST_c_c (clog, 0xf2p-10L, 0x3e3p-10L, 6.1988446308070710970664736815277450078106e-06L, 1.3322126499153926210226335249558203898460L);
5953 TEST_c_c (clog, 0x4d4ep-15L, 0x6605p-15L, -1.6298145321400412054744424587143483169412e-08L, 0.9223574537155056772124552172295398141249L);
5954 TEST_c_c (clog, 0x2818p-15L, 0x798fp-15L, 1.5366822245016167178749091974664853785194e-08L, 1.2522014929038946066987318471922169174157L);
5955 TEST_c_c (clog, 0x9b57bp-20L, 0xcb7b4p-20L, -3.9563019528687610863490232935890272740908e-11L, 0.9187593477446338910857133065497364950682L);
5956 TEST_c_c (clog, 0x2731p-20L, 0xfffd0p-20L, 4.4110493034041283943115971658295280288115e-11L, 1.5612279663766352262688735061954290528838L);
5957 TEST_c_c (clog, 0x2ede88p-23L, 0x771c3fp-23L, -4.4764192352906350039050902870893173560494e-13L, 1.1959106857549200806818600493552847793381L);
5958 TEST_c_c (clog, 0x11682p-23L, 0x7ffed1p-23L, 1.1723955140027907954461000991619077811832e-12L, 1.5622968405332756349813737986164832897108L);
5959 TEST_c_c (clog, 0xa1f2c1p-24L, 0xc643aep-24L, -1.0480505352462576151523512837107080269981e-13L, 0.8858771987699967480545613322309315260313L);
5960 TEST_c_c (clog, 0x659feap-24L, 0xeaf6f9p-24L, 3.7303493627403868207597214252239749960738e-14L, 1.1625816408046866464773042283673653469061L);
5961#ifndef TEST_FLOAT
5962 TEST_c_c (clog, 0x4447d7175p-35L, 0x6c445e00ap-35L, -1.4823076576950255933915367361099865652625e-20L, 1.0081311552703893116404606212158840190615L);
5963 TEST_c_c (clog, 0x2dd46725bp-35L, 0x7783a1284p-35L, 4.4469229730850767799109418892826021157328e-20L, 1.2046235979300843056806465045930070146351L);
5964 TEST_c_c (clog, 0x164c74eea876p-45L, 0x16f393482f77p-45L, -3.0292258760486853327810377824479932031744e-26L, 0.7998237934177411746093524982030330293980L);
5965 TEST_c_c (clog, 0xfe961079616p-45L, 0x1bc37e09e6d1p-45L, 5.3718272201930019901317065495843842735179e-26L, 1.0503831592447830576186444373011142397404L);
5966 TEST_c_c (clog, 0xa4722f19346cp-51L, 0x7f9631c5e7f07p-51L, -6.2122796286154679676173624516405339768606e-30L, 1.4904138780720095276446375492434049214172L);
5967 TEST_c_c (clog, 0x10673dd0f2481p-51L, 0x7ef1d17cefbd2p-51L, 3.2047474274603604594851472963586149973093e-29L, 1.4422922682185099608731642353544207976604L);
5968 TEST_c_c (clog, 0x8ecbf810c4ae6p-52L, 0xd479468b09a37p-52L, -9.7375017988218644730510244778042114638107e-30L, 0.9790637929494922564724108399524154766631L);
5969 TEST_c_c (clog, 0x5b06b680ea2ccp-52L, 0xef452b965da9fp-52L, 8.3076914081087805757422664530653247447136e-30L, 1.2072712126771536614482822173033535043206L);
5970 TEST_c_c (clog, 0x659b70ab7971bp-53L, 0x1f5d111e08abecp-53L, -2.5083311595699359750201056724289010648701e-30L, 1.3710185432462268491534742969536240564640L);
5971 TEST_c_c (clog, 0x15cfbd1990d1ffp-53L, 0x176a3973e09a9ap-53L, 1.0168910106364605304135563536838075568606e-30L, 0.8208373755522359859870890246475340086663L);
5972 TEST_c_c (clog, 0x1367a310575591p-54L, 0x3cfcc0a0541f60p-54L, 5.0844550531823026520677817684239496041087e-32L, 1.2627468605458094918919206628466016525397L);
5973 TEST_c_c (clog, 0x55cb6d0c83af5p-55L, 0x7fe33c0c7c4e90p-55L, -5.2000108498455368032511404449795741611813e-32L, 1.5288921536982513453421343495466824420259L);
5974#endif
5975#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64
5976 TEST_c_c (clog, 0x298c62cb546588a7p-63L, 0x7911b1dfcc4ecdaep-63L, -1.1931267660846218205882675852805793644095e-36L, 1.2402109774337032400594953899784058127412L);
5977 TEST_c_c (clog, 0x4d9c37e2b5cb4533p-63L, 0x65c98be2385a042ep-63L, 6.4064442119814669184296141278612389400075e-37L, 0.9193591364645830864185131402313014890145L);
5978 TEST_c_c (clog, 0x602fd5037c4792efp-64L, 0xed3e2086dcca80b8p-64L, -2.3362950222592964220878638677292132852104e-37L, 1.1856121127236268105413184264288408265852L);
5979 TEST_c_c (clog, 0x6b10b4f3520217b6p-64L, 0xe8893cbb449253a1p-64L, 2.4244570985709679851855191080208817099132e-37L, 1.1393074519572050614551047548718495655972L);
5980 TEST_c_c (clog, 0x81b7efa81fc35ad1p-65L, 0x1ef4b835f1c79d812p-65L, -9.9182335850630508484862145328126979066934e-39L, 1.3146479888794807046338799047003947008804L);
5981#endif
5982#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106
5983 TEST_c_c (clog, 0x3f96469050f650869c2p-75L, 0x6f16b2c9c8b05988335p-75L, -1.0509738482436128031927971874674370984602e-45L, 1.0509191467640012308402149909370784281448L);
5984 TEST_c_c (clog, 0x3157fc1d73233e580c8p-75L, 0x761b52ccd435d7c7f5fp-75L, 1.3487497719126364307640897239165442763573e-43L, 1.1750493008528425228929764149024375035382L);
5985 TEST_c_c (clog, 0x155f8afc4c48685bf63610p-85L, 0x17d0cf2652cdbeb1294e19p-85L, -4.7775669192897997174762089350332738583822e-50L, 0.8393953487996880419413728440067635213372L);
5986 TEST_c_c (clog, 0x13836d58a13448d750b4b9p-85L, 0x195ca7bc3ab4f9161edbe6p-85L, 2.8398125044729578740243199963484494962411e-50L, 0.9149964976334130461795060758257083099706L);
5987 TEST_c_c (clog, 0x1df515eb171a808b9e400266p-95L, 0x7c71eb0cd4688dfe98581c77p-95L, -3.5048022044913950094635368750889659723004e-57L, 1.3345633256521815205858155673950177421079L);
5988 TEST_c_c (clog, 0xe33f66c9542ca25cc43c867p-95L, 0x7f35a68ebd3704a43c465864p-95L, 4.1101771307217268747345114262406964584250e-56L, 1.4596065864518742494094402406719567059585L);
5989 TEST_c_c (clog, 0x6771f22c64ed551b857c128b4cp-105L, 0x1f570e7a13cc3cf2f44fd793ea1p-105L, -1.4281333889622737316199756373421183559948e-62L, 1.3673546561165378090903506783353927980633L);
5990 TEST_c_c (clog, 0x15d8ab6ed05ca514086ac3a1e84p-105L, 0x1761e480aa094c0b10b34b09ce9p-105L, 1.0027319539522347477331743836657426754857e-62L, 0.8193464073721167323313606647411269414759L);
5991 TEST_c_c (clog, 0x187190c1a334497bdbde5a95f48p-106L, 0x3b25f08062d0a095c4cfbbc338dp-106L, -1.7471844652198029695350765775994001163767e-63L, 1.1789110097072986038243729592318526094314L);
5992 TEST_c_c (clog, 0x6241ef0da53f539f02fad67dabp-106L, 0x3fb46641182f7efd9caa769dac0p-106L, 4.3299788920664682288477984749202524623248e-63L, 1.4746938237585656250866370987773473745867L);
5993#endif
5994#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 113
5995 TEST_c_c (clog, 0x3e1d0a105ac4ebeacd9c6952d34cp-112L, 0xf859b3d1b06d005dcbb5516d5479p-112L, -1.1683999374665377365054966073875064467108e-66L, 1.3257197596350832748781065387304444940172L);
5996 TEST_c_c (clog, 0x47017a2e36807acb1e5214b209dep-112L, 0xf5f4a550c9d75e3bb1839d865f0dp-112L, 1.5077923002544367932999503838191154621839e-65L, 1.2897445708311412721399861948957141824914L);
5997 TEST_c_c (clog, 0x148f818cb7a9258fca942ade2a0cap-113L, 0x18854a34780b8333ec53310ad7001p-113L, -7.1865869169568789348552370692485515571497e-67L, 0.8730167479365994646287897223471819363668L);
5998 TEST_c_c (clog, 0xfd95243681c055c2632286921092p-113L, 0x1bccabcd29ca2152860ec29e34ef7p-113L, 6.6255694866654064502633121109394710807528e-66L, 1.0526409614996288387567810726095850312049L);
5999 TEST_c_c (clog, 0xdb85c467ee2aadd5f425fe0f4b8dp-114L, 0x3e83162a0f95f1dcbf97dddf410eap-114L, 4.6017338806965821566734340588575402712716e-67L, 1.3547418904611758959096647942223384691728L);
6000 TEST_c_c (clog, 0x1415bcaf2105940d49a636e98ae59p-115L, 0x7e6a150adfcd1b0921d44b31f40f4p-115L, 2.5993421227864195179698176012564317527271e-67L, 1.4132318089683022770487383611430906982461L);
6001#endif
6002
6815fabc 6003 END (clog, complex);
8847214f
UD		 6004}
6005
6006
6007static void
6008clog10_test (void)
6009{
aaca11d8 6010 errno = 0;
3c6cad26 6011 FUNC(clog10) (BUILD_COMPLEX (0.7L, 1.2L));
aaca11d8
UD		 6012 if (errno == ENOSYS)
6013 /* Function not implemented. */
6014 return;
6015
8847214f
UD		 6016 START (clog10);
6017
6018 TEST_c_c (clog10, minus_zero, 0, minus_infty, M_PIl, DIVIDE_BY_ZERO_EXCEPTION);
6019 TEST_c_c (clog10, minus_zero, minus_zero, minus_infty, -M_PIl, DIVIDE_BY_ZERO_EXCEPTION);
6020
6021 TEST_c_c (clog10, 0, 0, minus_infty, 0.0, DIVIDE_BY_ZERO_EXCEPTION);
6022 TEST_c_c (clog10, 0, minus_zero, minus_infty, minus_zero, DIVIDE_BY_ZERO_EXCEPTION);
6023
6024 TEST_c_c (clog10, minus_infty, plus_infty, plus_infty, M_PI_34_LOG10El);
6025
6026 TEST_c_c (clog10, plus_infty, plus_infty, plus_infty, M_PI4_LOG10El);
6027 TEST_c_c (clog10, plus_infty, minus_infty, plus_infty, -M_PI4_LOG10El);
6028
6029 TEST_c_c (clog10, 0, plus_infty, plus_infty, M_PI2_LOG10El);
6030 TEST_c_c (clog10, 3, plus_infty, plus_infty, M_PI2_LOG10El);
6031 TEST_c_c (clog10, minus_zero, plus_infty, plus_infty, M_PI2_LOG10El);
6032 TEST_c_c (clog10, -3, plus_infty, plus_infty, M_PI2_LOG10El);
6033 TEST_c_c (clog10, 0, minus_infty, plus_infty, -M_PI2_LOG10El);
6034 TEST_c_c (clog10, 3, minus_infty, plus_infty, -M_PI2_LOG10El);
6035 TEST_c_c (clog10, minus_zero, minus_infty, plus_infty, -M_PI2_LOG10El);
6036 TEST_c_c (clog10, -3, minus_infty, plus_infty, -M_PI2_LOG10El);
6037
6038 TEST_c_c (clog10, minus_infty, 0, plus_infty, M_PI_LOG10El);
6039 TEST_c_c (clog10, minus_infty, 1, plus_infty, M_PI_LOG10El);
6040 TEST_c_c (clog10, minus_infty, minus_zero, plus_infty, -M_PI_LOG10El);
6041 TEST_c_c (clog10, minus_infty, -1, plus_infty, -M_PI_LOG10El);
6042
6043 TEST_c_c (clog10, plus_infty, 0, plus_infty, 0.0);
6044 TEST_c_c (clog10, plus_infty, 1, plus_infty, 0.0);
6045 TEST_c_c (clog10, plus_infty, minus_zero, plus_infty, minus_zero);
6046 TEST_c_c (clog10, plus_infty, -1, plus_infty, minus_zero);
6047
67e971f1
TS		 6048 TEST_c_c (clog10, plus_infty, qnan_value, plus_infty, qnan_value);
6049 TEST_c_c (clog10, minus_infty, qnan_value, plus_infty, qnan_value);
8847214f 6050
67e971f1
TS		 6051 TEST_c_c (clog10, qnan_value, plus_infty, plus_infty, qnan_value);
6052 TEST_c_c (clog10, qnan_value, minus_infty, plus_infty, qnan_value);
8847214f 6053
67e971f1
TS		 6054 TEST_c_c (clog10, 0, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6055 TEST_c_c (clog10, 3, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6056 TEST_c_c (clog10, minus_zero, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6057 TEST_c_c (clog10, -3, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 6058
67e971f1
TS		 6059 TEST_c_c (clog10, qnan_value, 0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6060 TEST_c_c (clog10, qnan_value, 5, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6061 TEST_c_c (clog10, qnan_value, minus_zero, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6062 TEST_c_c (clog10, qnan_value, -5, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 6063
67e971f1 6064 TEST_c_c (clog10, qnan_value, qnan_value, qnan_value, qnan_value);
8847214f 6065
2550dfe9 6066 TEST_c_c (clog10, 0.75L, 1.25L, 0.163679467193165171449476605077428975L, 0.447486970040493067069984724340855636L);
79df8ce5 6067 TEST_c_c (clog10, -2, -3, 0.556971676153418384603252578971164214L, -0.937554462986374708541507952140189646L);
8847214f 6068
1897ad44 6069 TEST_c_c (clog10, 0x1.fffffep+127L, 0x1.fffffep+127L, 38.68235441693561449174780668781319348761L, M_PI4_LOG10El);
80bad0cc 6070 TEST_c_c (clog10, 0x1.fffffep+127L, 1.0L, 38.53183941910362389414093724045094697423L, 1.276276851248440096917018665609900318458e-39L, UNDERFLOW_EXCEPTION_FLOAT);
1897ad44
JM		 6071 TEST_c_c (clog10, 0x1p-149L, 0x1p-149L, -44.70295435610120748924022586658721447508L, M_PI4_LOG10El);
6072 TEST_c_c (clog10, 0x1p-147L, 0x1p-147L, -44.10089436477324509881274807713822842154L, M_PI4_LOG10El);
6073
6074#ifndef TEST_FLOAT
6075 TEST_c_c (clog10, 0x1.fffffffffffffp+1023L, 0x1.fffffffffffffp+1023L, 308.4052305577487344482591243175787477115L, M_PI4_LOG10El);
6076 TEST_c_c (clog10, 0x1.fffffffffffffp+1023L, 0x1p+1023L, 308.3031705664207720674749211936626341569L, 0.2013595981366865903254995612594728746470L);
6077 TEST_c_c (clog10, 0x1p-1074L, 0x1p-1074L, -323.1557003452838130619487034867432642357L, M_PI4_LOG10El);
6078 TEST_c_c (clog10, 0x1p-1073L, 0x1p-1073L, -322.8546703496198318667349645920187712089L, M_PI4_LOG10El);
6079#endif
6080
6081#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
6082 TEST_c_c (clog10, 0x1.fp+16383L, 0x1.fp+16383L, 4932.212175672014259683102930239951947672L, M_PI4_LOG10El);
6083 TEST_c_c (clog10, 0x1.fp+16383L, 0x1p+16383L, 4932.112944269463028900262609694408579449L, 0.2069271710841128115912940666587802677383L);
6084 TEST_c_c (clog10, 0x1p-16440L, 0x1p-16441L, -4948.884673709346821106688037612752099609L, 0.2013595981366865710389502301937289472543L);
6085#endif
6086
638a572e
JM		 6087 TEST_c_c (clog10, 0x1p-149L, 0x1.fp+127L, 38.51805116050395969095658815123105801479L, 0.6821881769209206737428918127156778851051L);
6088 TEST_c_c (clog10, -0x1p-149L, 0x1.fp+127L, 38.51805116050395969095658815123105801479L, 0.6821881769209206737428918127156778851051L);
6089 TEST_c_c (clog10, 0x1p-149L, -0x1.fp+127L, 38.51805116050395969095658815123105801479L, -0.6821881769209206737428918127156778851051L);
6090 TEST_c_c (clog10, -0x1p-149L, -0x1.fp+127L, 38.51805116050395969095658815123105801479L, -0.6821881769209206737428918127156778851051L);
6091 TEST_c_c (clog10, -0x1.fp+127L, 0x1p-149L, 38.51805116050395969095658815123105801479L, 1.364376353841841347485783625431355770210L);
6092 TEST_c_c (clog10, -0x1.fp+127L, -0x1p-149L, 38.51805116050395969095658815123105801479L, -1.364376353841841347485783625431355770210L);
6093#ifdef TEST_FLOAT
6094 TEST_c_c (clog10, 0x1.fp+127L, 0x1p-149L, 38.51805116050395969095658815123105801479L, plus_zero, UNDERFLOW_EXCEPTION);
6095 TEST_c_c (clog10, 0x1.fp+127L, -0x1p-149L, 38.51805116050395969095658815123105801479L, minus_zero, UNDERFLOW_EXCEPTION);
6096#endif
6097
6098#ifndef TEST_FLOAT
6099 TEST_c_c (clog10, 0x1p-1074L, 0x1.fp+1023L, 308.2409272754311106024666378243768099991L, 0.6821881769209206737428918127156778851051L);
6100 TEST_c_c (clog10, -0x1p-1074L, 0x1.fp+1023L, 308.2409272754311106024666378243768099991L, 0.6821881769209206737428918127156778851051L);
6101 TEST_c_c (clog10, 0x1p-1074L, -0x1.fp+1023L, 308.2409272754311106024666378243768099991L, -0.6821881769209206737428918127156778851051L);
6102 TEST_c_c (clog10, -0x1p-1074L, -0x1.fp+1023L, 308.2409272754311106024666378243768099991L, -0.6821881769209206737428918127156778851051L);
6103 TEST_c_c (clog10, -0x1.fp+1023L, 0x1p-1074L, 308.2409272754311106024666378243768099991L, 1.364376353841841347485783625431355770210L);
6104 TEST_c_c (clog10, -0x1.fp+1023L, -0x1p-1074L, 308.2409272754311106024666378243768099991L, -1.364376353841841347485783625431355770210L);
6105#endif
6106#if defined TEST_DOUBLE || (defined TEST_LDOUBLE && LDBL_MAX_EXP == 1024)
6107 TEST_c_c (clog10, 0x1.fp+1023L, 0x1p-1074L, 308.2409272754311106024666378243768099991L, plus_zero, UNDERFLOW_EXCEPTION);
6108 TEST_c_c (clog10, 0x1.fp+1023L, -0x1p-1074L, 308.2409272754311106024666378243768099991L, minus_zero, UNDERFLOW_EXCEPTION);
6109#endif
6110
6111#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
6112 TEST_c_c (clog10, 0x1p-16445L, 0x1.fp+16383L, 4932.061660674182269085496060792589701158L, 0.6821881769209206737428918127156778851051L);
6113 TEST_c_c (clog10, -0x1p-16445L, 0x1.fp+16383L, 4932.061660674182269085496060792589701158L, 0.6821881769209206737428918127156778851051L);
6114 TEST_c_c (clog10, 0x1p-16445L, -0x1.fp+16383L, 4932.061660674182269085496060792589701158L, -0.6821881769209206737428918127156778851051L);
6115 TEST_c_c (clog10, -0x1p-16445L, -0x1.fp+16383L, 4932.061660674182269085496060792589701158L, -0.6821881769209206737428918127156778851051L);
6116 TEST_c_c (clog10, -0x1.fp+16383L, 0x1p-16445L, 4932.061660674182269085496060792589701158L, 1.364376353841841347485783625431355770210L);
6117 TEST_c_c (clog10, -0x1.fp+16383L, -0x1p-16445L, 4932.061660674182269085496060792589701158L, -1.364376353841841347485783625431355770210L);
6118 TEST_c_c (clog10, 0x1.fp+16383L, 0x1p-16445L, 4932.061660674182269085496060792589701158L, plus_zero, UNDERFLOW_EXCEPTION);
6119 TEST_c_c (clog10, 0x1.fp+16383L, -0x1p-16445L, 4932.061660674182269085496060792589701158L, minus_zero, UNDERFLOW_EXCEPTION);
6120# if LDBL_MANT_DIG >= 113
6121 TEST_c_c (clog10, 0x1p-16494L, 0x1.fp+16383L, 4932.061660674182269085496060792589701158L, 0.6821881769209206737428918127156778851051L);
6122 TEST_c_c (clog10, -0x1p-16494L, 0x1.fp+16383L, 4932.061660674182269085496060792589701158L, 0.6821881769209206737428918127156778851051L);
6123 TEST_c_c (clog10, 0x1p-16494L, -0x1.fp+16383L, 4932.061660674182269085496060792589701158L, -0.6821881769209206737428918127156778851051L);
6124 TEST_c_c (clog10, -0x1p-16494L, -0x1.fp+16383L, 4932.061660674182269085496060792589701158L, -0.6821881769209206737428918127156778851051L);
6125 TEST_c_c (clog10, -0x1.fp+16383L, 0x1p-16494L, 4932.061660674182269085496060792589701158L, 1.364376353841841347485783625431355770210L);
6126 TEST_c_c (clog10, -0x1.fp+16383L, -0x1p-16494L, 4932.061660674182269085496060792589701158L, -1.364376353841841347485783625431355770210L);
6127 TEST_c_c (clog10, 0x1.fp+16383L, 0x1p-16494L, 4932.061660674182269085496060792589701158L, plus_zero, UNDERFLOW_EXCEPTION);
6128 TEST_c_c (clog10, 0x1.fp+16383L, -0x1p-16494L, 4932.061660674182269085496060792589701158L, minus_zero, UNDERFLOW_EXCEPTION);
6129# endif
6130#endif
6131
da865e95
JM		 6132 TEST_c_c (clog10, 1.0L, 0x1.234566p-10L, 2.680828048441605163181684680300513080769e-7L, 4.825491868832381486767558728169977751564e-4L);
6133 TEST_c_c (clog10, -1.0L, 0x1.234566p-20L, 2.556638434669064077889576526006849923281e-13L, 1.364375882602207106407956770293808181427L);
6134 TEST_c_c (clog10, 0x1.234566p-30L, 1.0L, 2.438200411482400072282924063740535840474e-19L, 6.821881764607257184291586401763604544928e-1L);
6135 TEST_c_c (clog10, -0x1.234566p-40L, -1.0L, 2.325249110681915353442924915876654139373e-25L, -6.821881769213700828789403802671540158935e-1L);
6136 TEST_c_c (clog10, 0x1.234566p-50L, 1.0L, 2.217530356103816369479108963807448194409e-31L, 6.821881769209202348667823902864283966959e-1L);
6137 TEST_c_c (clog10, 0x1.234566p-60L, 1.0L, 2.114801746467415208319767917450504756866e-37L, 6.821881769209206733143018621078368211515e-1L);
6138 TEST_c_c (clog10, 0x1p-61L, 1.0L, 4.084085680564517578238994467153626207224e-38L, 6.821881769209206735545466044044889962925e-1L);
6139 TEST_c_c (clog10, 0x1p-62L, 1.0L, 1.021021420141129394559748616788406551878e-38L, 6.821881769209206736487192085600834406988e-1L, UNDERFLOW_EXCEPTION_FLOAT);
6140 TEST_c_c (clog10, 0x1p-63L, 1.0L, 2.552553550352823486399371541971016379740e-39L, 6.821881769209206736958055106378806629019e-1L, UNDERFLOW_EXCEPTION_FLOAT);
6141#ifndef TEST_FLOAT
6142 TEST_c_c (clog10, 0x1p-509L, 1.0L, 7.730698388614835910296270976605350994446e-308L, 6.821881769209206737428918127156778851051e-1L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
6143 TEST_c_c (clog10, 0x1p-510L, 1.0L, 1.932674597153708977574067744151337748612e-308L, 6.821881769209206737428918127156778851051e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
6144 TEST_c_c (clog10, 0x1p-511L, 1.0L, 4.831686492884272443935169360378344371529e-309L, 6.821881769209206737428918127156778851051e-1L, UNDERFLOW_EXCEPTION_DOUBLE);
6145#endif
6146#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
6147 TEST_c_c (clog10, 0x1p-8189L, 1.0L, 1.168114274114528946314738738025008370069e-4931L, 6.821881769209206737428918127156778851051e-1L);
6148 TEST_c_c (clog10, 0x1p-8190L, 1.0L, 2.920285685286322365786846845062520925172e-4932L, 6.821881769209206737428918127156778851051e-1L, UNDERFLOW_EXCEPTION);
6149 TEST_c_c (clog10, 0x1p-8191L, 1.0L, 7.300714213215805914467117112656302312931e-4933L, 6.821881769209206737428918127156778851051e-1L, UNDERFLOW_EXCEPTION);
6150#endif
6151
d0419dbf
JM		 6152 TEST_c_c (clog10, 0x1.000566p0L, 0x1.234p-10L, 3.604093470239754109961125085078190708674e-5L, 4.824745078422174667425851670822596859720e-4L);
6153 TEST_c_c (clog10, 0x1.000566p0L, 0x1.234p-100L, 3.577293486783822178310971763308187385546e-5L, 3.897399639875661463735636919790792140598e-31L);
6154#ifndef TEST_FLOAT
6155 TEST_c_c (clog10, -0x1.0000000123456p0L, 0x1.2345678p-30L, 1.150487028947346337782682105935961875822e-10L, 1.364376353381646356131680448946397884147L);
6156 TEST_c_c (clog10, -0x1.0000000123456p0L, 0x1.2345678p-1000L, 1.150487026509145544402795327729455391948e-10L, 1.364376353841841347485783625431355770210L);
6157#endif
6158#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106
6159 TEST_c_c (clog10, 0x1.00000000000000123456789abcp0L, 0x1.23456789p-60L, 4.285899851347756188767674032946882584784e-19L, 4.285899850759344225805480528847018395861e-19L);
c9c0279b 6160 TEST_c_c (clog10, 0x1.00000000000000123456789abcp0L, 0x1.23456789p-1000L, 4.285899851347756186652871946325962330640e-19L, 4.611541215247321502041995872887317363241e-302L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
d0419dbf
JM		 6161#endif
6162
d032e0d2
JM		 6163 TEST_c_c (clog10, 0x0.ffffffp0L, 0x0.ffffffp-100L, -2.588596909321764128428416045209904492216e-8L, 3.425979381266895667295625489912064603415e-31L);
6164#ifndef TEST_FLOAT
c9c0279b 6165 TEST_c_c (clog10, 0x0.fffffffffffff8p0L, 0x0.fffffffffffff8p-1000L, -4.821637332766435821255375046554377090472e-17L, 4.053112396770095089737411317782466262176e-302L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
d032e0d2
JM		 6166#endif
6167#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
6168 TEST_c_c (clog10, 0x0.ffffffffffffffffp0L, 0x0.ffffffffffffffffp-15000L, -2.354315103889861110220423157644627849164e-20L, 1.541165759405643564697852372112893034397e-4516L);
6169#endif
6170
6171 TEST_c_c (clog10, 0x1a6p-10L, 0x3a5p-10L, -6.2126412844802358329771948751248003038444e-07L, 0.4977135139537443711784513409096950995985L);
6172 TEST_c_c (clog10, 0xf2p-10L, 0x3e3p-10L, 2.6921240173351112953324592659528481616879e-06L, 0.5785726025799636431142862788413361783862L);
6173 TEST_c_c (clog10, 0x4d4ep-15L, 0x6605p-15L, -7.0781945783414996953799915941870192015212e-09L, 0.4005747524909781155537088181659175147564L);
6174 TEST_c_c (clog10, 0x2818p-15L, 0x798fp-15L, 6.6737261053986614395049481326819059203910e-09L, 0.5438241985991753781478398141908629586460L);
6175 TEST_c_c (clog10, 0x9b57bp-20L, 0xcb7b4p-20L, -1.7182001068739620267773842120965071561416e-11L, 0.3990121149225253562859800593935899629087L);
6176 TEST_c_c (clog10, 0x2731p-20L, 0xfffd0p-20L, 1.9156943718715958194239364991329064049438e-11L, 0.6780326907904082601285090019969008967595L);
6177 TEST_c_c (clog10, 0x2ede88p-23L, 0x771c3fp-23L, -1.9440841725722970687903291200493082253766e-13L, 0.5193774116724956222518530053006822210323L);
6178 TEST_c_c (clog10, 0x11682p-23L, 0x7ffed1p-23L, 5.0916490233953865181284669870035717560498e-13L, 0.6784968969384861816694467029319146542069L);
6179 TEST_c_c (clog10, 0xa1f2c1p-24L, 0xc643aep-24L, -4.5516256421319921959681423447271490869664e-14L, 0.3847315790697197749315054516562206543710L);
6180 TEST_c_c (clog10, 0x659feap-24L, 0xeaf6f9p-24L, 1.6200701438094619117335617123525612051457e-14L, 0.5049027913635038013499728086604870749732L);
6181#ifndef TEST_FLOAT
6182 TEST_c_c (clog10, 0x4447d7175p-35L, 0x6c445e00ap-35L, -6.4375803621988389731799033530075237868110e-21L, 0.4378257977686804492768642780897650927167L);
6183 TEST_c_c (clog10, 0x2dd46725bp-35L, 0x7783a1284p-35L, 1.9312741086596516918394613098872836703188e-20L, 0.5231613813514771042838490538484014771862L);
6184 TEST_c_c (clog10, 0x164c74eea876p-45L, 0x16f393482f77p-45L, -1.3155760824064879362415202279780039150764e-26L, 0.3473590599762514228227328130640352044313L);
6185 TEST_c_c (clog10, 0xfe961079616p-45L, 0x1bc37e09e6d1p-45L, 2.3329549194675052736016290082882121135546e-26L, 0.4561756099441139182878993697611751382976L);
6186 TEST_c_c (clog10, 0xa4722f19346cp-51L, 0x7f9631c5e7f07p-51L, -2.6979587627476803379953050733225113494503e-30L, 0.6472785229986997177606324374555347813105L);
6187 TEST_c_c (clog10, 0x10673dd0f2481p-51L, 0x7ef1d17cefbd2p-51L, 1.3918041236396763648388478552321724382899e-29L, 0.6263795733790237053262025311642907438291L);
6188 TEST_c_c (clog10, 0x8ecbf810c4ae6p-52L, 0xd479468b09a37p-52L, -4.2289432987513243393180377141513840878196e-30L, 0.4252020027092323591068799049905597805296L);
6189 TEST_c_c (clog10, 0x5b06b680ea2ccp-52L, 0xef452b965da9fp-52L, 3.6079845358966994996207055940336690133424e-30L, 0.5243112258263349992771652393178033846555L);
6190 TEST_c_c (clog10, 0x659b70ab7971bp-53L, 0x1f5d111e08abecp-53L, -1.0893543813872082317104059174982092534059e-30L, 0.5954257879188711495921161433751775633232L);
6191 TEST_c_c (clog10, 0x15cfbd1990d1ffp-53L, 0x176a3973e09a9ap-53L, 4.4163015461643576961232672330852798804976e-31L, 0.3564851427422832755956993418877523303529L);
6192 TEST_c_c (clog10, 0x1367a310575591p-54L, 0x3cfcc0a0541f60p-54L, 2.2081507730821788480616336165447731164865e-32L, 0.5484039935757001196548030312819898864760L);
6193 TEST_c_c (clog10, 0x55cb6d0c83af5p-55L, 0x7fe33c0c7c4e90p-55L, -2.2583360179249556400630343805573865814771e-32L, 0.6639894257763289307423302343317622430835L);
6194#endif
6195#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64
6196 TEST_c_c (clog10, 0x298c62cb546588a7p-63L, 0x7911b1dfcc4ecdaep-63L, -5.1816837072162316773907242302011632570857e-37L, 0.5386167838952956925896424154370364458140L);
6197 TEST_c_c (clog10, 0x4d9c37e2b5cb4533p-63L, 0x65c98be2385a042ep-63L, 2.7822833698845776001753149807484078521508e-37L, 0.3992725998539071066769046272515417679815L);
6198 TEST_c_c (clog10, 0x602fd5037c4792efp-64L, 0xed3e2086dcca80b8p-64L, -1.0146400362652473358437501879334790111898e-37L, 0.5149047982335273098246594109614460842099L);
6199 TEST_c_c (clog10, 0x6b10b4f3520217b6p-64L, 0xe8893cbb449253a1p-64L, 1.0529283395205396881397407610630442563938e-37L, 0.4947949395762683446121140513971996916447L);
6200 TEST_c_c (clog10, 0x81b7efa81fc35ad1p-65L, 0x1ef4b835f1c79d812p-65L, -4.3074341162203896332989394770760901408798e-39L, 0.5709443672155660428417571212549720987784L);
6201#endif
6202#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106
6203 TEST_c_c (clog10, 0x3f96469050f650869c2p-75L, 0x6f16b2c9c8b05988335p-75L, -4.5643214291682663316715446865040356750881e-46L, 0.4564083863660793840592614609053162690362L);
6204 TEST_c_c (clog10, 0x3157fc1d73233e580c8p-75L, 0x761b52ccd435d7c7f5fp-75L, 5.8575458340992751256451490143468457830297e-44L, 0.5103174273246635294300470585396890237265L);
6205 TEST_c_c (clog10, 0x155f8afc4c48685bf63610p-85L, 0x17d0cf2652cdbeb1294e19p-85L, -2.0748709499710785084693619097712106753591e-50L, 0.3645447681189598740620098186365764884771L);
6206 TEST_c_c (clog10, 0x13836d58a13448d750b4b9p-85L, 0x195ca7bc3ab4f9161edbe6p-85L, 1.2333149003324592532859843519619084433953e-50L, 0.3973779298829931059309198145608711073016L);
6207 TEST_c_c (clog10, 0x1df515eb171a808b9e400266p-95L, 0x7c71eb0cd4688dfe98581c77p-95L, -1.5221162575729652613635150540947625639689e-57L, 0.5795934880811949230121092882659698986043L);
6208 TEST_c_c (clog10, 0xe33f66c9542ca25cc43c867p-95L, 0x7f35a68ebd3704a43c465864p-95L, 1.7850272475173865337808494725293124613817e-56L, 0.6338990862456906754888183278564382516852L);
6209 TEST_c_c (clog10, 0x6771f22c64ed551b857c128b4cp-105L, 0x1f570e7a13cc3cf2f44fd793ea1p-105L, -6.2023045024810589256360494043570293518879e-63L, 0.5938345819561308555003145899438513900776L);
6210 TEST_c_c (clog10, 0x15d8ab6ed05ca514086ac3a1e84p-105L, 0x1761e480aa094c0b10b34b09ce9p-105L, 4.3548095442952115860848857519953610343042e-63L, 0.3558376234889641500775150477035448866763L);
6211 TEST_c_c (clog10, 0x187190c1a334497bdbde5a95f48p-106L, 0x3b25f08062d0a095c4cfbbc338dp-106L, -7.5879257211204444302994221436282805900756e-64L, 0.5119945461708707332160859198685423099187L);
6212 TEST_c_c (clog10, 0x6241ef0da53f539f02fad67dabp-106L, 0x3fb46641182f7efd9caa769dac0p-106L, 1.8804859395820231849002915747252695375405e-63L, 0.6404513901551516189871978418046651877394L);
6213#endif
6214#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 113
6215 TEST_c_c (clog10, 0x3e1d0a105ac4ebeacd9c6952d34cp-112L, 0xf859b3d1b06d005dcbb5516d5479p-112L, -5.0742964549782184008668435276046798273476e-67L, 0.5757527761596220360985719127090110408283L);
6216 TEST_c_c (clog10, 0x47017a2e36807acb1e5214b209dep-112L, 0xf5f4a550c9d75e3bb1839d865f0dp-112L, 6.5482587585671294601662599808612773010057e-66L, 0.5601289501766423782280643144987875760229L);
6217 TEST_c_c (clog10, 0x148f818cb7a9258fca942ade2a0cap-113L, 0x18854a34780b8333ec53310ad7001p-113L, -3.1210950417524756037077807411854181477733e-67L, 0.3791463562379872585396164879981280044658L);
6218 TEST_c_c (clog10, 0xfd95243681c055c2632286921092p-113L, 0x1bccabcd29ca2152860ec29e34ef7p-113L, 2.8774482675253468630312378575186855052697e-66L, 0.4571561610046221605554903008571429975493L);
6219 TEST_c_c (clog10, 0xdb85c467ee2aadd5f425fe0f4b8dp-114L, 0x3e83162a0f95f1dcbf97dddf410eap-114L, 1.9985076315737626043096596036300177494613e-67L, 0.5883569274304683249184005177865521205198L);
6220 TEST_c_c (clog10, 0x1415bcaf2105940d49a636e98ae59p-115L, 0x7e6a150adfcd1b0921d44b31f40f4p-115L, 1.1288799405048268615023706955013387413519e-67L, 0.6137587762850841972073301550420510507903L);
6221#endif
6222
6815fabc 6223 END (clog10, complex);
8847214f
UD		 6224}
6225
2550dfe9 6226
0cdc8e6f
UD		 6227static void
6228conj_test (void)
6229{
6230 START (conj);
6231 TEST_c_c (conj, 0.0, 0.0, 0.0, minus_zero);
6232 TEST_c_c (conj, 0.0, minus_zero, 0.0, 0.0);
67e971f1 6233 TEST_c_c (conj, qnan_value, qnan_value, qnan_value, qnan_value);
0cdc8e6f
UD		 6234 TEST_c_c (conj, plus_infty, minus_infty, plus_infty, plus_infty);
6235 TEST_c_c (conj, plus_infty, plus_infty, plus_infty, minus_infty);
6236 TEST_c_c (conj, 1.0, 2.0, 1.0, -2.0);
6237 TEST_c_c (conj, 3.0, -4.0, 3.0, 4.0);
6238
6239 END (conj, complex);
6240}
6241
6242
8847214f
UD		 6243static void
6244copysign_test (void)
6245{
6246 START (copysign);
6247
6248 TEST_ff_f (copysign, 0, 4, 0);
6249 TEST_ff_f (copysign, 0, -4, minus_zero);
6250 TEST_ff_f (copysign, minus_zero, 4, 0);
6251 TEST_ff_f (copysign, minus_zero, -4, minus_zero);
6252
6253 TEST_ff_f (copysign, plus_infty, 0, plus_infty);
6254 TEST_ff_f (copysign, plus_infty, minus_zero, minus_infty);
6255 TEST_ff_f (copysign, minus_infty, 0, plus_infty);
6256 TEST_ff_f (copysign, minus_infty, minus_zero, minus_infty);
6257
6258 TEST_ff_f (copysign, 0, plus_infty, 0);
6259 TEST_ff_f (copysign, 0, minus_zero, minus_zero);
6260 TEST_ff_f (copysign, minus_zero, plus_infty, 0);
6261 TEST_ff_f (copysign, minus_zero, minus_zero, minus_zero);
6262
6263 /* XXX More correctly we would have to check the sign of the NaN. */
67e971f1
TS		 6264 TEST_ff_f (copysign, qnan_value, 0, qnan_value);
6265 TEST_ff_f (copysign, qnan_value, minus_zero, qnan_value);
6266 TEST_ff_f (copysign, -qnan_value, 0, qnan_value);
6267 TEST_ff_f (copysign, -qnan_value, minus_zero, qnan_value);
8847214f
UD		 6268
6269 END (copysign);
6270}
6271
2550dfe9 6272
8847214f
UD		 6273static void
6274cos_test (void)
6275{
e6d3c4a7
AJ		 6276 errno = 0;
6277 FUNC(cos) (0);
6278 if (errno == ENOSYS)
6279 /* Function not implemented. */
6280 return;
6281
8847214f
UD		 6282 START (cos);
6283
6284 TEST_f_f (cos, 0, 1);
6285 TEST_f_f (cos, minus_zero, 1);
f2da7793
JM		 6286 TEST_f_f (cos, plus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
6287 TEST_f_f (cos, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
6288 TEST_f_f (cos, qnan_value, qnan_value, ERRNO_UNCHANGED);
8847214f
UD		 6289
6290 TEST_f_f (cos, M_PI_6l * 2.0, 0.5);
6291 TEST_f_f (cos, M_PI_6l * 4.0, -0.5);
aba5e333
CD		 6292
6293 /* The value of M_PI_2l is never exactly PI/2, and therefore the
6294 answer is never exactly zero. The answer is equal to the error
6295 in rounding PI/2 for the type used. Thus the answer is unique
6296 to each type. */
6297#ifdef TEST_FLOAT
6298 /* 32-bit float. */
418601aa 6299 TEST_f_f (cos, M_PI_2l, -0x1.777a5cp-25L);
aba5e333
CD		 6300#endif
6301#if defined TEST_DOUBLE || (defined TEST_LDOUBLE && LDBL_MANT_DIG == 53)
6302 /* 64-bit double or 64-bit long double. */
418601aa 6303 TEST_f_f (cos, M_PI_2l, 0x1.1a62633145c07p-54L);
aba5e333
CD		 6304#endif
6305#if defined TEST_LDOUBLE && LDBL_MANT_DIG == 64
6306 /* 96-bit long double. */
418601aa 6307 TEST_f_f (cos, M_PI_2l, -0xe.ce675d1fc8f8cbbp-69L);
aba5e333
CD		 6308#endif
6309#if defined TEST_LDOUBLE && LDBL_MANT_DIG == 106
6310 /* 128-bit IBM long double. */
418601aa 6311 TEST_f_f (cos, M_PI_2l, 0x1.c1cd129024e088a67cc74020bcp-107L);
aba5e333
CD		 6312#endif
6313#if defined TEST_LDOUBLE && LDBL_MANT_DIG == 113
6314 /* 128-bit long double. */
418601aa 6315 TEST_f_f (cos, M_PI_2l, 0x1.cd129024e088a67cc74020bbea64p-115L);
aba5e333 6316#endif
8847214f 6317
2550dfe9 6318 TEST_f_f (cos, 0.75L, 0.731688868873820886311838753000084544L);
8847214f 6319
ea40808a
AJ		 6320 TEST_f_f (cos, 0x1p65, 0.99888622066058013610642172179340364209972L);
6321 TEST_f_f (cos, -0x1p65, 0.99888622066058013610642172179340364209972L);
8c0247db 6322
d32e4346
RM		 6323#ifdef TEST_DOUBLE
6324 TEST_f_f (cos, 0.80190127184058835, 0.69534156199418473);
8848d99d
JM		 6325#endif
6326
7a845b2c
JM		 6327 TEST_f_f (cos, 0x1.442f74p+15, 2.4407839902314016628485779006274989801517e-06L);
6328
8848d99d
JM		 6329#ifndef TEST_FLOAT
6330 TEST_f_f (cos, 1e22, 0.5232147853951389454975944733847094921409L);
6331 TEST_f_f (cos, 0x1p1023, -0.826369834614147994500785680811743734805L);
6332#endif
6333
6334#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
6335 TEST_f_f (cos, 0x1p16383L, 0.9210843909921906206874509522505756251609L);
d32e4346
RM		 6336#endif
6337
4ffffbd2
LD		 6338 TEST_f_f (cos, 0x1p+120, -9.25879022854837867303861764107414946730833e-01L);
6339 TEST_f_f (cos, 0x1p+127, 7.81914638714960072263910298466369236613162e-01L);
6340 TEST_f_f (cos, 0x1.fffff8p+127, 9.98819362551949040703862043664101081064641e-01L);
6341 TEST_f_f (cos, 0x1.fffffep+127, 8.53021039830304158051791467692161107353094e-01L);
6342 TEST_f_f (cos, 0x1p+50, 8.68095904660550604334592502063501320395739e-01L);
6343 TEST_f_f (cos, 0x1p+28, -1.65568979490578758865468278195361551113358e-01L);
6344
8847214f
UD		 6345 END (cos);
6346}
6347
2550dfe9 6348
804360ed
JM		 6349static void
6350cos_test_tonearest (void)
6351{
6352 int save_round_mode;
6353 errno = 0;
6354 FUNC(cos) (0);
6355 if (errno == ENOSYS)
6356 /* Function not implemented. */
6357 return;
6358
6359 START (cos_tonearest);
6360
6361 save_round_mode = fegetround ();
6362
6363 if (!fesetround (FE_TONEAREST))
6364 {
6365 TEST_f_f (cos, 1, 0.5403023058681397174009366074429766037323L);
6366 TEST_f_f (cos, 2, -0.4161468365471423869975682295007621897660L);
6367 TEST_f_f (cos, 3, -0.9899924966004454572715727947312613023937L);
6368 TEST_f_f (cos, 4, -0.6536436208636119146391681830977503814241L);
6369 TEST_f_f (cos, 5, 0.2836621854632262644666391715135573083344L);
6370 TEST_f_f (cos, 6, 0.9601702866503660205456522979229244054519L);
6371 TEST_f_f (cos, 7, 0.7539022543433046381411975217191820122183L);
6372 TEST_f_f (cos, 8, -0.1455000338086135258688413818311946826093L);
6373 TEST_f_f (cos, 9, -0.9111302618846769883682947111811653112463L);
6374 TEST_f_f (cos, 10, -0.8390715290764524522588639478240648345199L);
6375 }
6376
6377 fesetround (save_round_mode);
6378
6379 END (cos_tonearest);
6380}
6381
6382
6383static void
6384cos_test_towardzero (void)
6385{
6386 int save_round_mode;
6387 errno = 0;
6388 FUNC(cos) (0);
6389 if (errno == ENOSYS)
6390 /* Function not implemented. */
6391 return;
6392
6393 START (cos_towardzero);
6394
6395 save_round_mode = fegetround ();
6396
6397 if (!fesetround (FE_TOWARDZERO))
6398 {
6399 TEST_f_f (cos, 1, 0.5403023058681397174009366074429766037323L);
6400 TEST_f_f (cos, 2, -0.4161468365471423869975682295007621897660L);
6401 TEST_f_f (cos, 3, -0.9899924966004454572715727947312613023937L);
6402 TEST_f_f (cos, 4, -0.6536436208636119146391681830977503814241L);
6403 TEST_f_f (cos, 5, 0.2836621854632262644666391715135573083344L);
6404 TEST_f_f (cos, 6, 0.9601702866503660205456522979229244054519L);
6405 TEST_f_f (cos, 7, 0.7539022543433046381411975217191820122183L);
6406 TEST_f_f (cos, 8, -0.1455000338086135258688413818311946826093L);
6407 TEST_f_f (cos, 9, -0.9111302618846769883682947111811653112463L);
6408 TEST_f_f (cos, 10, -0.8390715290764524522588639478240648345199L);
6409 }
6410
6411 fesetround (save_round_mode);
6412
6413 END (cos_towardzero);
6414}
6415
6416
6417static void
6418cos_test_downward (void)
6419{
6420 int save_round_mode;
6421 errno = 0;
6422 FUNC(cos) (0);
6423 if (errno == ENOSYS)
6424 /* Function not implemented. */
6425 return;
6426
6427 START (cos_downward);
6428
6429 save_round_mode = fegetround ();
6430
6431 if (!fesetround (FE_DOWNWARD))
6432 {
6433 TEST_f_f (cos, 1, 0.5403023058681397174009366074429766037323L);
6434 TEST_f_f (cos, 2, -0.4161468365471423869975682295007621897660L);
6435 TEST_f_f (cos, 3, -0.9899924966004454572715727947312613023937L);
6436 TEST_f_f (cos, 4, -0.6536436208636119146391681830977503814241L);
6437 TEST_f_f (cos, 5, 0.2836621854632262644666391715135573083344L);
6438 TEST_f_f (cos, 6, 0.9601702866503660205456522979229244054519L);
6439 TEST_f_f (cos, 7, 0.7539022543433046381411975217191820122183L);
6440 TEST_f_f (cos, 8, -0.1455000338086135258688413818311946826093L);
6441 TEST_f_f (cos, 9, -0.9111302618846769883682947111811653112463L);
6442 TEST_f_f (cos, 10, -0.8390715290764524522588639478240648345199L);
6443 }
6444
6445 fesetround (save_round_mode);
6446
6447 END (cos_downward);
6448}
6449
6450
6451static void
6452cos_test_upward (void)
6453{
6454 int save_round_mode;
6455 errno = 0;
6456 FUNC(cos) (0);
6457 if (errno == ENOSYS)
6458 /* Function not implemented. */
6459 return;
6460
6461 START (cos_upward);
6462
6463 save_round_mode = fegetround ();
6464
6465 if (!fesetround (FE_UPWARD))
6466 {
6467 TEST_f_f (cos, 1, 0.5403023058681397174009366074429766037323L);
6468 TEST_f_f (cos, 2, -0.4161468365471423869975682295007621897660L);
6469 TEST_f_f (cos, 3, -0.9899924966004454572715727947312613023937L);
6470 TEST_f_f (cos, 4, -0.6536436208636119146391681830977503814241L);
6471 TEST_f_f (cos, 5, 0.2836621854632262644666391715135573083344L);
6472 TEST_f_f (cos, 6, 0.9601702866503660205456522979229244054519L);
6473 TEST_f_f (cos, 7, 0.7539022543433046381411975217191820122183L);
6474 TEST_f_f (cos, 8, -0.1455000338086135258688413818311946826093L);
6475 TEST_f_f (cos, 9, -0.9111302618846769883682947111811653112463L);
6476 TEST_f_f (cos, 10, -0.8390715290764524522588639478240648345199L);
6477 }
6478
6479 fesetround (save_round_mode);
6480
6481 END (cos_upward);
6482}
6483
6484
8847214f
UD		 6485static void
6486cosh_test (void)
6487{
aaca11d8 6488 errno = 0;
3c6cad26 6489 FUNC(cosh) (0.7L);
aaca11d8
UD		 6490 if (errno == ENOSYS)
6491 /* Function not implemented. */
6492 return;
6493
8847214f
UD		 6494 START (cosh);
6495 TEST_f_f (cosh, 0, 1);
6496 TEST_f_f (cosh, minus_zero, 1);
6497
15daa639 6498#ifndef TEST_INLINE
8847214f
UD		 6499 TEST_f_f (cosh, plus_infty, plus_infty);
6500 TEST_f_f (cosh, minus_infty, plus_infty);
15daa639 6501#endif
67e971f1 6502 TEST_f_f (cosh, qnan_value, qnan_value);
8847214f 6503
2550dfe9
AJ		 6504 TEST_f_f (cosh, 0.75L, 1.29468328467684468784170818539018176L);
6505
e2283f38
JM		 6506#ifndef TEST_FLOAT
6507 TEST_f_f (cosh, 709.8893558127259666434838436543941497802734375L, 9.9999998999995070652573675944761818416035e+307L);
6508 TEST_f_f (cosh, -709.8893558127259666434838436543941497802734375L, 9.9999998999995070652573675944761818416035e+307L);
6509#endif
6510
8847214f
UD		 6511 END (cosh);
6512}
6513
6514
ca811b22
JM		 6515static void
6516cosh_test_tonearest (void)
6517{
6518 int save_round_mode;
6519 errno = 0;
6520 FUNC(cosh) (0);
6521 if (errno == ENOSYS)
6522 /* Function not implemented. */
6523 return;
6524
6525 START (cosh_tonearest);
6526
6527 save_round_mode = fegetround ();
6528
6529 if (!fesetround (FE_TONEAREST))
6530 {
6531 TEST_f_f (cosh, 22, 1792456423.065795780980053377632656584997L);
6532 TEST_f_f (cosh, 23, 4872401723.124451300068625740569997090344L);
6533 TEST_f_f (cosh, 24, 13244561064.92173614708845674912733665919L);
6534 }
6535
6536 fesetround (save_round_mode);
6537
6538 END (cosh_tonearest);
6539}
6540
6541
6542static void
6543cosh_test_towardzero (void)
6544{
6545 int save_round_mode;
6546 errno = 0;
6547 FUNC(cosh) (0);
6548 if (errno == ENOSYS)
6549 /* Function not implemented. */
6550 return;
6551
6552 START (cosh_towardzero);
6553
6554 save_round_mode = fegetround ();
6555
6556 if (!fesetround (FE_TOWARDZERO))
6557 {
6558 TEST_f_f (cosh, 22, 1792456423.065795780980053377632656584997L);
6559 TEST_f_f (cosh, 23, 4872401723.124451300068625740569997090344L);
6560 TEST_f_f (cosh, 24, 13244561064.92173614708845674912733665919L);
6561 }
6562
6563 fesetround (save_round_mode);
6564
6565 END (cosh_towardzero);
6566}
6567
6568
6569static void
6570cosh_test_downward (void)
6571{
6572 int save_round_mode;
6573 errno = 0;
6574 FUNC(cosh) (0);
6575 if (errno == ENOSYS)
6576 /* Function not implemented. */
6577 return;
6578
6579 START (cosh_downward);
6580
6581 save_round_mode = fegetround ();
6582
6583 if (!fesetround (FE_DOWNWARD))
6584 {
6585 TEST_f_f (cosh, 22, 1792456423.065795780980053377632656584997L);
6586 TEST_f_f (cosh, 23, 4872401723.124451300068625740569997090344L);
6587 TEST_f_f (cosh, 24, 13244561064.92173614708845674912733665919L);
6588 }
6589
6590 fesetround (save_round_mode);
6591
6592 END (cosh_downward);
6593}
6594
6595
6596static void
6597cosh_test_upward (void)
6598{
6599 int save_round_mode;
6600 errno = 0;
6601 FUNC(cosh) (0);
6602 if (errno == ENOSYS)
6603 /* Function not implemented. */
6604 return;
6605
6606 START (cosh_upward);
6607
6608 save_round_mode = fegetround ();
6609
6610 if (!fesetround (FE_UPWARD))
6611 {
6612 TEST_f_f (cosh, 22, 1792456423.065795780980053377632656584997L);
6613 TEST_f_f (cosh, 23, 4872401723.124451300068625740569997090344L);
6614 TEST_f_f (cosh, 24, 13244561064.92173614708845674912733665919L);
6615 }
6616
6617 fesetround (save_round_mode);
6618
6619 END (cosh_upward);
6620}
6621
6622
8847214f
UD		 6623static void
6624cpow_test (void)
6625{
aaca11d8
UD		 6626 errno = 0;
6627 FUNC(cpow) (BUILD_COMPLEX (1, 0), BUILD_COMPLEX (0, 0));
6628 if (errno == ENOSYS)
6629 /* Function not implemented. */
6630 return;
6631
8847214f
UD		 6632 START (cpow);
6633
6634 TEST_cc_c (cpow, 1, 0, 0, 0, 1.0, 0.0);
6635 TEST_cc_c (cpow, 2, 0, 10, 0, 1024.0, 0.0);
6636
6637 TEST_cc_c (cpow, M_El, 0, 0, 2 * M_PIl, 1.0, 0.0);
6638 TEST_cc_c (cpow, 2, 3, 4, 0, -119.0, -120.0);
6639
67e971f1 6640 TEST_cc_c (cpow, qnan_value, qnan_value, qnan_value, qnan_value, qnan_value, qnan_value);
15daa639 6641
96d10bdf
AJ		 6642 TEST_cc_c (cpow, 0.75L, 1.25L, 0.75L, 1.25L, 0.117506293914473555420279832210420483L, 0.346552747708338676483025352060418001L);
6643 TEST_cc_c (cpow, 0.75L, 1.25L, 1.0L, 1.0L, 0.0846958290317209430433805274189191353L, 0.513285749182902449043287190519090481L);
2550dfe9 6644 TEST_cc_c (cpow, 0.75L, 1.25L, 1.0L, 0.0L, 0.75L, 1.25L);
96d10bdf 6645 TEST_cc_c (cpow, 0.75L, 1.25L, 0.0L, 1.0L, 0.331825439177608832276067945276730566L, 0.131338600281188544930936345230903032L);
2550dfe9 6646
6815fabc 6647 END (cpow, complex);
8847214f
UD		 6648}
6649
2550dfe9 6650
8847214f
UD		 6651static void
6652cproj_test (void)
6653{
6654 START (cproj);
6655 TEST_c_c (cproj, 0.0, 0.0, 0.0, 0.0);
6656 TEST_c_c (cproj, minus_zero, minus_zero, minus_zero, minus_zero);
6657 TEST_c_c (cproj, 0.0, minus_zero, 0.0, minus_zero);
6658 TEST_c_c (cproj, minus_zero, 0.0, minus_zero, 0.0);
6659
67e971f1 6660 TEST_c_c (cproj, qnan_value, qnan_value, qnan_value, qnan_value);
8847214f
UD		 6661
6662 TEST_c_c (cproj, plus_infty, plus_infty, plus_infty, 0.0);
6663 TEST_c_c (cproj, plus_infty, minus_infty, plus_infty, minus_zero);
6664 TEST_c_c (cproj, minus_infty, plus_infty, plus_infty, 0.0);
6665 TEST_c_c (cproj, minus_infty, minus_infty, plus_infty, minus_zero);
6666
6667 TEST_c_c (cproj, 1.0, 0.0, 1.0, 0.0);
88e236a6 6668 TEST_c_c (cproj, 2.0, 3.0, 2.0, 3.0);
8847214f 6669
6815fabc 6670 END (cproj, complex);
8847214f
UD		 6671}
6672
2550dfe9 6673
0cdc8e6f
UD		 6674static void
6675creal_test (void)
6676{
6677 START (creal);
6678 TEST_c_f (creal, 0.0, 1.0, 0.0);
6679 TEST_c_f (creal, minus_zero, 1.0, minus_zero);
67e971f1
TS		 6680 TEST_c_f (creal, qnan_value, 1.0, qnan_value);
6681 TEST_c_f (creal, qnan_value, qnan_value, qnan_value);
0cdc8e6f
UD		 6682 TEST_c_f (creal, plus_infty, 1.0, plus_infty);
6683 TEST_c_f (creal, minus_infty, 1.0, minus_infty);
6684 TEST_c_f (creal, 2.0, 3.0, 2.0);
6685
6686 END (creal);
6687}
8847214f
UD		 6688
6689static void
6690csin_test (void)
6691{
aaca11d8 6692 errno = 0;
3c6cad26 6693 FUNC(csin) (BUILD_COMPLEX (0.7L, 1.2L));
aaca11d8
UD		 6694 if (errno == ENOSYS)
6695 /* Function not implemented. */
6696 return;
8847214f
UD		 6697
6698 START (csin);
6699
6700 TEST_c_c (csin, 0.0, 0.0, 0.0, 0.0);
6701 TEST_c_c (csin, minus_zero, 0.0, minus_zero, 0.0);
6702 TEST_c_c (csin, 0.0, minus_zero, 0, minus_zero);
6703 TEST_c_c (csin, minus_zero, minus_zero, minus_zero, minus_zero);
6704
6705 TEST_c_c (csin, 0.0, plus_infty, 0.0, plus_infty);
6706 TEST_c_c (csin, minus_zero, plus_infty, minus_zero, plus_infty);
6707 TEST_c_c (csin, 0.0, minus_infty, 0.0, minus_infty);
6708 TEST_c_c (csin, minus_zero, minus_infty, minus_zero, minus_infty);
6709
67e971f1
TS		 6710 TEST_c_c (csin, plus_infty, 0.0, qnan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
6711 TEST_c_c (csin, minus_infty, 0.0, qnan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
6712 TEST_c_c (csin, plus_infty, minus_zero, qnan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
6713 TEST_c_c (csin, minus_infty, minus_zero, qnan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
8847214f 6714
67e971f1
TS		 6715 TEST_c_c (csin, plus_infty, plus_infty, qnan_value, plus_infty, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
6716 TEST_c_c (csin, minus_infty, plus_infty, qnan_value, plus_infty, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
6717 TEST_c_c (csin, plus_infty, minus_infty, qnan_value, plus_infty, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
6718 TEST_c_c (csin, minus_infty, minus_infty, qnan_value, plus_infty, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
8847214f 6719
67e971f1
TS		 6720 TEST_c_c (csin, plus_infty, 6.75, qnan_value, qnan_value, INVALID_EXCEPTION);
6721 TEST_c_c (csin, plus_infty, -6.75, qnan_value, qnan_value, INVALID_EXCEPTION);
6722 TEST_c_c (csin, minus_infty, 6.75, qnan_value, qnan_value, INVALID_EXCEPTION);
6723 TEST_c_c (csin, minus_infty, -6.75, qnan_value, qnan_value, INVALID_EXCEPTION);
8847214f
UD		 6724
6725 TEST_c_c (csin, 4.625, plus_infty, minus_infty, minus_infty);
6726 TEST_c_c (csin, 4.625, minus_infty, minus_infty, plus_infty);
6727 TEST_c_c (csin, -4.625, plus_infty, plus_infty, minus_infty);
6728 TEST_c_c (csin, -4.625, minus_infty, plus_infty, plus_infty);
6729
67e971f1
TS		 6730 TEST_c_c (csin, qnan_value, 0.0, qnan_value, 0.0, IGNORE_ZERO_INF_SIGN);
6731 TEST_c_c (csin, qnan_value, minus_zero, qnan_value, 0.0, IGNORE_ZERO_INF_SIGN);
8847214f 6732
67e971f1
TS		 6733 TEST_c_c (csin, qnan_value, plus_infty, qnan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
6734 TEST_c_c (csin, qnan_value, minus_infty, qnan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
8847214f 6735
67e971f1
TS		 6736 TEST_c_c (csin, qnan_value, 9.0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6737 TEST_c_c (csin, qnan_value, -9.0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 6738
67e971f1
TS		 6739 TEST_c_c (csin, 0.0, qnan_value, 0.0, qnan_value);
6740 TEST_c_c (csin, minus_zero, qnan_value, minus_zero, qnan_value);
8847214f 6741
67e971f1
TS		 6742 TEST_c_c (csin, 10.0, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6743 TEST_c_c (csin, qnan_value, -10.0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 6744
67e971f1
TS		 6745 TEST_c_c (csin, plus_infty, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6746 TEST_c_c (csin, minus_infty, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 6747
67e971f1 6748 TEST_c_c (csin, qnan_value, qnan_value, qnan_value, qnan_value);
8847214f 6749
2550dfe9 6750 TEST_c_c (csin, 0.75L, 1.25L, 1.28722291002649188575873510790565441L, 1.17210635989270256101081285116138863L);
79df8ce5 6751 TEST_c_c (csin, -2, -3, -9.15449914691142957346729954460983256L, 4.16890695996656435075481305885375484L);
8847214f 6752
e0b16cc2
JM		 6753 TEST_c_c (csin, 0.75, 89.5, 2.522786001038096774676288412995370563339e38L, 2.708024460708609732016532185663087200560e38L);
6754 TEST_c_c (csin, 0.75, -89.5, 2.522786001038096774676288412995370563339e38L, -2.708024460708609732016532185663087200560e38L);
6755 TEST_c_c (csin, -0.75, 89.5, -2.522786001038096774676288412995370563339e38L, 2.708024460708609732016532185663087200560e38L);
6756 TEST_c_c (csin, -0.75, -89.5, -2.522786001038096774676288412995370563339e38L, -2.708024460708609732016532185663087200560e38L);
6757
6758#ifndef TEST_FLOAT
6759 TEST_c_c (csin, 0.75, 710.5, 1.255317763348154410745082950806112487736e308L, 1.347490911916428129246890157395342279438e308L);
6760 TEST_c_c (csin, 0.75, -710.5, 1.255317763348154410745082950806112487736e308L, -1.347490911916428129246890157395342279438e308L);
6761 TEST_c_c (csin, -0.75, 710.5, -1.255317763348154410745082950806112487736e308L, 1.347490911916428129246890157395342279438e308L);
6762 TEST_c_c (csin, -0.75, -710.5, -1.255317763348154410745082950806112487736e308L, -1.347490911916428129246890157395342279438e308L);
6763#endif
6764
6765#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
6766 TEST_c_c (csin, 0.75, 11357.25, 8.385498349388321535962327491346664141020e4931L, 9.001213196851067077465606717616495588201e4931L);
6767 TEST_c_c (csin, 0.75, -11357.25, 8.385498349388321535962327491346664141020e4931L, -9.001213196851067077465606717616495588201e4931L);
6768 TEST_c_c (csin, -0.75, 11357.25, -8.385498349388321535962327491346664141020e4931L, 9.001213196851067077465606717616495588201e4931L);
6769 TEST_c_c (csin, -0.75, -11357.25, -8.385498349388321535962327491346664141020e4931L, -9.001213196851067077465606717616495588201e4931L);
6770#endif
6771
6772#ifdef TEST_FLOAT
6773 TEST_c_c (csin, 0x1p-149, 180, 1.043535896672617552965983803453927655332e33L, plus_infty, OVERFLOW_EXCEPTION);
6774#endif
6775
6776#if defined TEST_DOUBLE || (defined TEST_LDOUBLE && LDBL_MAX_EXP == 1024)
6777 TEST_c_c (csin, 0x1p-1074, 1440, 5.981479269486130556466515778180916082415e301L, plus_infty, OVERFLOW_EXCEPTION);
6778#endif
6779
6780#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
6781 TEST_c_c (csin, 0x1p-16434L, 22730, 1.217853148905605987081057582351152052687e4924L, plus_infty, OVERFLOW_EXCEPTION);
6782#endif
6783
f0302940
JM		 6784 TEST_c_c (csin, min_subnorm_value, min_value, min_subnorm_value, min_value, UNDERFLOW_EXCEPTION);
6785 TEST_c_c (csin, min_value, min_subnorm_value, min_value, min_subnorm_value, UNDERFLOW_EXCEPTION);
6786
6815fabc 6787 END (csin, complex);
8847214f
UD		 6788}
6789
6790
6791static void
6792csinh_test (void)
6793{
aaca11d8 6794 errno = 0;
3c6cad26 6795 FUNC(csinh) (BUILD_COMPLEX (0.7L, 1.2L));
aaca11d8
UD		 6796 if (errno == ENOSYS)
6797 /* Function not implemented. */
6798 return;
8847214f
UD		 6799
6800 START (csinh);
6801
6802 TEST_c_c (csinh, 0.0, 0.0, 0.0, 0.0);
6803 TEST_c_c (csinh, minus_zero, 0.0, minus_zero, 0.0);
6804 TEST_c_c (csinh, 0.0, minus_zero, 0.0, minus_zero);
6805 TEST_c_c (csinh, minus_zero, minus_zero, minus_zero, minus_zero);
6806
67e971f1
TS		 6807 TEST_c_c (csinh, 0.0, plus_infty, 0.0, qnan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
6808 TEST_c_c (csinh, minus_zero, plus_infty, 0.0, qnan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
6809 TEST_c_c (csinh, 0.0, minus_infty, 0.0, qnan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
6810 TEST_c_c (csinh, minus_zero, minus_infty, 0.0, qnan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
8847214f
UD		 6811
6812 TEST_c_c (csinh, plus_infty, 0.0, plus_infty, 0.0);
6813 TEST_c_c (csinh, minus_infty, 0.0, minus_infty, 0.0);
6814 TEST_c_c (csinh, plus_infty, minus_zero, plus_infty, minus_zero);
6815 TEST_c_c (csinh, minus_infty, minus_zero, minus_infty, minus_zero);
6816
67e971f1
TS		 6817 TEST_c_c (csinh, plus_infty, plus_infty, plus_infty, qnan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
6818 TEST_c_c (csinh, minus_infty, plus_infty, plus_infty, qnan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
6819 TEST_c_c (csinh, plus_infty, minus_infty, plus_infty, qnan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
6820 TEST_c_c (csinh, minus_infty, minus_infty, plus_infty, qnan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
8847214f
UD		 6821
6822 TEST_c_c (csinh, plus_infty, 4.625, minus_infty, minus_infty);
6823 TEST_c_c (csinh, minus_infty, 4.625, plus_infty, minus_infty);
6824 TEST_c_c (csinh, plus_infty, -4.625, minus_infty, plus_infty);
6825 TEST_c_c (csinh, minus_infty, -4.625, plus_infty, plus_infty);
6826
67e971f1
TS		 6827 TEST_c_c (csinh, 6.75, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
6828 TEST_c_c (csinh, -6.75, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
6829 TEST_c_c (csinh, 6.75, minus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
6830 TEST_c_c (csinh, -6.75, minus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
8847214f 6831
67e971f1
TS		 6832 TEST_c_c (csinh, 0.0, qnan_value, 0.0, qnan_value, IGNORE_ZERO_INF_SIGN);
6833 TEST_c_c (csinh, minus_zero, qnan_value, 0.0, qnan_value, IGNORE_ZERO_INF_SIGN);
8847214f 6834
67e971f1
TS		 6835 TEST_c_c (csinh, plus_infty, qnan_value, plus_infty, qnan_value, IGNORE_ZERO_INF_SIGN);
6836 TEST_c_c (csinh, minus_infty, qnan_value, plus_infty, qnan_value, IGNORE_ZERO_INF_SIGN);
8847214f 6837
67e971f1
TS		 6838 TEST_c_c (csinh, 9.0, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6839 TEST_c_c (csinh, -9.0, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 6840
67e971f1
TS		 6841 TEST_c_c (csinh, qnan_value, 0.0, qnan_value, 0.0);
6842 TEST_c_c (csinh, qnan_value, minus_zero, qnan_value, minus_zero);
8847214f 6843
67e971f1
TS		 6844 TEST_c_c (csinh, qnan_value, 10.0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6845 TEST_c_c (csinh, qnan_value, -10.0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 6846
67e971f1
TS		 6847 TEST_c_c (csinh, qnan_value, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6848 TEST_c_c (csinh, qnan_value, minus_infty, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 6849
67e971f1 6850 TEST_c_c (csinh, qnan_value, qnan_value, qnan_value, qnan_value);
8847214f 6851
2550dfe9 6852 TEST_c_c (csinh, 0.75L, 1.25L, 0.259294854551162779153349830618433028L, 1.22863452409509552219214606515777594L);
79df8ce5 6853 TEST_c_c (csinh, -2, -3, 3.59056458998577995201256544779481679L, -0.530921086248519805267040090660676560L);
8847214f 6854
e0b16cc2
JM		 6855 TEST_c_c (csinh, 89.5, 0.75, 2.708024460708609732016532185663087200560e38L, 2.522786001038096774676288412995370563339e38L);
6856 TEST_c_c (csinh, -89.5, 0.75, -2.708024460708609732016532185663087200560e38L, 2.522786001038096774676288412995370563339e38L);
6857 TEST_c_c (csinh, 89.5, -0.75, 2.708024460708609732016532185663087200560e38L, -2.522786001038096774676288412995370563339e38L);
6858 TEST_c_c (csinh, -89.5, -0.75, -2.708024460708609732016532185663087200560e38L, -2.522786001038096774676288412995370563339e38L);
6859
6860#ifndef TEST_FLOAT
6861 TEST_c_c (csinh, 710.5, 0.75, 1.347490911916428129246890157395342279438e308L, 1.255317763348154410745082950806112487736e308L);
6862 TEST_c_c (csinh, -710.5, 0.75, -1.347490911916428129246890157395342279438e308L, 1.255317763348154410745082950806112487736e308L);
6863 TEST_c_c (csinh, 710.5, -0.75, 1.347490911916428129246890157395342279438e308L, -1.255317763348154410745082950806112487736e308L);
6864 TEST_c_c (csinh, -710.5, -0.75, -1.347490911916428129246890157395342279438e308L, -1.255317763348154410745082950806112487736e308L);
6865#endif
6866
6867#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
6868 TEST_c_c (csinh, 11357.25, 0.75, 9.001213196851067077465606717616495588201e4931L, 8.385498349388321535962327491346664141020e4931L);
6869 TEST_c_c (csinh, -11357.25, 0.75, -9.001213196851067077465606717616495588201e4931L, 8.385498349388321535962327491346664141020e4931L);
6870 TEST_c_c (csinh, 11357.25, -0.75, 9.001213196851067077465606717616495588201e4931L, -8.385498349388321535962327491346664141020e4931L);
6871 TEST_c_c (csinh, -11357.25, -0.75, -9.001213196851067077465606717616495588201e4931L, -8.385498349388321535962327491346664141020e4931L);
6872#endif
6873
6874#ifdef TEST_FLOAT
6875 TEST_c_c (csinh, 180, 0x1p-149, plus_infty, 1.043535896672617552965983803453927655332e33L, OVERFLOW_EXCEPTION);
6876#endif
6877
6878#if defined TEST_DOUBLE || (defined TEST_LDOUBLE && LDBL_MAX_EXP == 1024)
6879 TEST_c_c (csinh, 1440, 0x1p-1074, plus_infty, 5.981479269486130556466515778180916082415e301L, OVERFLOW_EXCEPTION);
6880#endif
6881
6882#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
6883 TEST_c_c (csinh, 22730, 0x1p-16434L, plus_infty, 1.217853148905605987081057582351152052687e4924L, OVERFLOW_EXCEPTION);
6884#endif
6885
f0302940
JM		 6886 TEST_c_c (csinh, min_subnorm_value, min_value, min_subnorm_value, min_value, UNDERFLOW_EXCEPTION);
6887 TEST_c_c (csinh, min_value, min_subnorm_value, min_value, min_subnorm_value, UNDERFLOW_EXCEPTION);
6888
6815fabc 6889 END (csinh, complex);
8847214f
UD		 6890}
6891
2550dfe9 6892
8847214f
UD		 6893static void
6894csqrt_test (void)
6895{
aaca11d8
UD		 6896 errno = 0;
6897 FUNC(csqrt) (BUILD_COMPLEX (-1, 0));
6898 if (errno == ENOSYS)
6899 /* Function not implemented. */
6900 return;
6901
8847214f
UD		 6902 START (csqrt);
6903
6904 TEST_c_c (csqrt, 0, 0, 0.0, 0.0);
6905 TEST_c_c (csqrt, 0, minus_zero, 0, minus_zero);
6906 TEST_c_c (csqrt, minus_zero, 0, 0.0, 0.0);
6907 TEST_c_c (csqrt, minus_zero, minus_zero, 0.0, minus_zero);
6908
6909 TEST_c_c (csqrt, minus_infty, 0, 0.0, plus_infty);
6910 TEST_c_c (csqrt, minus_infty, 6, 0.0, plus_infty);
6911 TEST_c_c (csqrt, minus_infty, minus_zero, 0.0, minus_infty);
6912 TEST_c_c (csqrt, minus_infty, -6, 0.0, minus_infty);
6913
6914 TEST_c_c (csqrt, plus_infty, 0, plus_infty, 0.0);
6915 TEST_c_c (csqrt, plus_infty, 6, plus_infty, 0.0);
6916 TEST_c_c (csqrt, plus_infty, minus_zero, plus_infty, minus_zero);
6917 TEST_c_c (csqrt, plus_infty, -6, plus_infty, minus_zero);
6918
6919 TEST_c_c (csqrt, 0, plus_infty, plus_infty, plus_infty);
6920 TEST_c_c (csqrt, 4, plus_infty, plus_infty, plus_infty);
6921 TEST_c_c (csqrt, plus_infty, plus_infty, plus_infty, plus_infty);
6922 TEST_c_c (csqrt, minus_zero, plus_infty, plus_infty, plus_infty);
6923 TEST_c_c (csqrt, -4, plus_infty, plus_infty, plus_infty);
6924 TEST_c_c (csqrt, minus_infty, plus_infty, plus_infty, plus_infty);
6925 TEST_c_c (csqrt, 0, minus_infty, plus_infty, minus_infty);
6926 TEST_c_c (csqrt, 4, minus_infty, plus_infty, minus_infty);
6927 TEST_c_c (csqrt, plus_infty, minus_infty, plus_infty, minus_infty);
6928 TEST_c_c (csqrt, minus_zero, minus_infty, plus_infty, minus_infty);
6929 TEST_c_c (csqrt, -4, minus_infty, plus_infty, minus_infty);
6930 TEST_c_c (csqrt, minus_infty, minus_infty, plus_infty, minus_infty);
6931
67e971f1 6932 TEST_c_c (csqrt, minus_infty, qnan_value, qnan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
8847214f 6933
67e971f1 6934 TEST_c_c (csqrt, plus_infty, qnan_value, plus_infty, qnan_value);
8847214f 6935
67e971f1
TS		 6936 TEST_c_c (csqrt, 0, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6937 TEST_c_c (csqrt, 1, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6938 TEST_c_c (csqrt, minus_zero, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6939 TEST_c_c (csqrt, -1, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 6940
67e971f1
TS		 6941 TEST_c_c (csqrt, qnan_value, 0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6942 TEST_c_c (csqrt, qnan_value, 8, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6943 TEST_c_c (csqrt, qnan_value, minus_zero, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
6944 TEST_c_c (csqrt, qnan_value, -8, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 6945
67e971f1 6946 TEST_c_c (csqrt, qnan_value, qnan_value, qnan_value, qnan_value);
8847214f
UD		 6947
6948 TEST_c_c (csqrt, 16.0, -30.0, 5.0, -3.0);
6949 TEST_c_c (csqrt, -1, 0, 0.0, 1.0);
6950 TEST_c_c (csqrt, 0, 2, 1.0, 1.0);
6951 TEST_c_c (csqrt, 119, 120, 12.0, 5.0);
2550dfe9 6952 TEST_c_c (csqrt, 0.75L, 1.25L, 1.05065169626078392338656675760808326L, 0.594868882070379067881984030639932657L);
d8337213
UD		 6953 TEST_c_c (csqrt, -2, -3, 0.89597747612983812471573375529004348L, -1.6741492280355400404480393008490519L);
6954 TEST_c_c (csqrt, -2, 3, 0.89597747612983812471573375529004348L, 1.6741492280355400404480393008490519L);
72c7a71d
UD		 6955 /* Principal square root should be returned (i.e., non-negative real
6956 part). */
6957 TEST_c_c (csqrt, 0, -1, M_SQRT_2_2, -M_SQRT_2_2);
8847214f 6958
e456826d
JM		 6959 TEST_c_c (csqrt, 0x1.fffffep+127L, 0x1.fffffep+127L, 2.026714405498316804978751017492482558075e+19L, 8.394925938143272988211878516208015586281e+18L);
6960 TEST_c_c (csqrt, 0x1.fffffep+127L, 1.0L, 1.844674352395372953599975585936590505260e+19L, 2.710505511993121390769065968615872097053e-20L);
6961 TEST_c_c (csqrt, 0x1p-149L, 0x1p-149L, 4.112805464342778798097003462770175200803e-23L, 1.703579802732953750368659735601389709551e-23L);
6962 TEST_c_c (csqrt, 0x1p-147L, 0x1p-147L, 8.225610928685557596194006925540350401606e-23L, 3.407159605465907500737319471202779419102e-23L);
6963
cdfe2c5e
JM		 6964 TEST_c_c (csqrt, plus_zero, 0x1p-149L, 2.646977960169688559588507814623881131411e-23L, 2.646977960169688559588507814623881131411e-23L);
6965 TEST_c_c (csqrt, 0x1p-50L, 0x1p-149L, 2.980232238769531250000000000000000000000e-8L, 2.350988701644575015937473074444491355637e-38L);
6966#ifdef TEST_FLOAT
6967 TEST_c_c (csqrt, 0x1p+127L, 0x1p-149L, 1.304381782533278221234957180625250836888e19L, plus_zero, UNDERFLOW_EXCEPTION);
6968#endif
6969 TEST_c_c (csqrt, 0x1p-149L, 0x1p+127L, 9.223372036854775808000000000000000000000e18L, 9.223372036854775808000000000000000000000e18L);
6970 TEST_c_c (csqrt, 0x1.000002p-126L, 0x1.000002p-126L, 1.191195773697904627170323731331667740087e-19L, 4.934094449071842328766868579214125217132e-20L);
6971 TEST_c_c (csqrt, -0x1.000002p-126L, -0x1.000002p-126L, 4.934094449071842328766868579214125217132e-20L, -1.191195773697904627170323731331667740087e-19L);
6972
e456826d
JM		 6973#ifndef TEST_FLOAT
6974 TEST_c_c (csqrt, 0x1.fffffffffffffp+1023L, 0x1.fffffffffffffp+1023L, 1.473094556905565378990473658199034571917e+154L, 6.101757441282702188537080005372547713595e+153L);
6975 TEST_c_c (csqrt, 0x1.fffffffffffffp+1023L, 0x1p+1023L, 1.379778091031440685006200821918878702861e+154L, 3.257214233483129514781233066898042490248e+153L);
cdfe2c5e
JM		 6976 TEST_c_c (csqrt, 0x1p-1074L, 0x1p-1074L, 2.442109726130830256743814843868934877597e-162L, 1.011554969366634726113090867589031782487e-162L);
6977 TEST_c_c (csqrt, 0x1p-1073L, 0x1p-1073L, 3.453664695497464982856905711457966660085e-162L, 1.430554756764195530630723976279903095110e-162L);
6978
6979 TEST_c_c (csqrt, plus_zero, 0x1p-1074L, 1.571727784702628688909515672805082228285e-162L, 1.571727784702628688909515672805082228285e-162L);
6980 TEST_c_c (csqrt, 0x1p-500L, 0x1p-1074L, 5.527147875260444560247265192192255725514e-76L, 4.469444793151709302716387622440056066334e-249L);
6981#if defined TEST_DOUBLE || (defined TEST_LDOUBLE && LDBL_MAX_EXP == 1024)
6982 TEST_c_c (csqrt, 0x1p+1023L, 0x1p-1074L, 9.480751908109176726832526455652159260085e153L, plus_zero, UNDERFLOW_EXCEPTION);
6983#endif
6984 TEST_c_c (csqrt, 0x1p-1074L, 0x1p+1023L, 6.703903964971298549787012499102923063740e153L, 6.703903964971298549787012499102923063740e153L);
6985 TEST_c_c (csqrt, 0x1.0000000000001p-1022L, 0x1.0000000000001p-1022L, 1.638872094839911521020410942677082920935e-154L, 6.788430486774966350907249113759995429568e-155L);
6986 TEST_c_c (csqrt, -0x1.0000000000001p-1022L, -0x1.0000000000001p-1022L, 6.788430486774966350907249113759995429568e-155L, -1.638872094839911521020410942677082920935e-154L);
e456826d
JM		 6987#endif
6988
6989#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
6990 TEST_c_c (csqrt, 0x1.fp+16383L, 0x1.fp+16383L, 1.179514222452201722651836720466795901016e+2466L, 4.885707879516577666702435054303191575148e+2465L);
6991 TEST_c_c (csqrt, 0x1.fp+16383L, 0x1p+16383L, 1.106698967236475180613254276996359485630e+2466L, 2.687568007603946993388538156299100955642e+2465L);
6992 TEST_c_c (csqrt, 0x1p-16440L, 0x1p-16441L, 3.514690655930285351254618340783294558136e-2475L, 8.297059146828716918029689466551384219370e-2476L);
cdfe2c5e
JM		 6993
6994 TEST_c_c (csqrt, plus_zero, 0x1p-16445L, 4.269191686890197837775136325621239761720e-2476L, 4.269191686890197837775136325621239761720e-2476L);
6995 TEST_c_c (csqrt, 0x1p-5000L, 0x1p-16445L, 2.660791472672778409283210520357607795518e-753L, 6.849840675828785164910701384823702064234e-4199L);
6996 TEST_c_c (csqrt, 0x1p+16383L, 0x1p-16445L, 7.712754032630730034273323365543179095045e2465L, plus_zero, UNDERFLOW_EXCEPTION);
6997 TEST_c_c (csqrt, 0x1p-16445L, 0x1p+16383L, 5.453740678097079647314921223668914312241e2465L, 5.453740678097079647314921223668914312241e2465L);
6998 TEST_c_c (csqrt, 0x1.0000000000000002p-16382L, 0x1.0000000000000002p-16382L, 2.014551439675644900131815801350165472778e-2466L, 8.344545284118961664300307045791497724440e-2467L);
6999 TEST_c_c (csqrt, -0x1.0000000000000002p-16382L, -0x1.0000000000000002p-16382L, 8.344545284118961664300307045791497724440e-2467L, -2.014551439675644900131815801350165472778e-2466L);
7000
7001# if LDBL_MANT_DIG >= 113
7002 TEST_c_c (csqrt, plus_zero, 0x1p-16494L, 1.799329752913293143453817328207572571442e-2483L, 1.799329752913293143453817328207572571442e-2483L);
7003 TEST_c_c (csqrt, 0x1p-5000L, 0x1p-16494L, 2.660791472672778409283210520357607795518e-753L, 1.216776133331049643422030716668249905907e-4213L);
7004 TEST_c_c (csqrt, 0x1p+16383L, 0x1p-16494L, 7.712754032630730034273323365543179095045e2465L, plus_zero, UNDERFLOW_EXCEPTION);
7005 TEST_c_c (csqrt, 0x1p-16494L, 0x1p+16383L, 5.453740678097079647314921223668914312241e2465L, 5.453740678097079647314921223668914312241e2465L);
7006 TEST_c_c (csqrt, 0x1.0000000000000000000000000001p-16382L, 0x1.0000000000000000000000000001p-16382L, 2.014551439675644900022606748976158925145e-2466L, 8.344545284118961663847948339519226074126e-2467L);
7007 TEST_c_c (csqrt, -0x1.0000000000000000000000000001p-16382L, -0x1.0000000000000000000000000001p-16382L, 8.344545284118961663847948339519226074126e-2467L, -2.014551439675644900022606748976158925145e-2466L);
7008# endif
e456826d
JM		 7009#endif
7010
6815fabc 7011 END (csqrt, complex);
8847214f
UD		 7012}
7013
7014static void
7015ctan_test (void)
7016{
aaca11d8 7017 errno = 0;
3c6cad26 7018 FUNC(ctan) (BUILD_COMPLEX (0.7L, 1.2L));
aaca11d8
UD		 7019 if (errno == ENOSYS)
7020 /* Function not implemented. */
7021 return;
7022
8847214f
UD		 7023 START (ctan);
7024
7025 TEST_c_c (ctan, 0, 0, 0.0, 0.0);
7026 TEST_c_c (ctan, 0, minus_zero, 0.0, minus_zero);
7027 TEST_c_c (ctan, minus_zero, 0, minus_zero, 0.0);
7028 TEST_c_c (ctan, minus_zero, minus_zero, minus_zero, minus_zero);
7029
7030 TEST_c_c (ctan, 0, plus_infty, 0.0, 1.0);
7031 TEST_c_c (ctan, 1, plus_infty, 0.0, 1.0);
7032 TEST_c_c (ctan, minus_zero, plus_infty, minus_zero, 1.0);
7033 TEST_c_c (ctan, -1, plus_infty, minus_zero, 1.0);
7034
7035 TEST_c_c (ctan, 0, minus_infty, 0.0, -1.0);
7036 TEST_c_c (ctan, 1, minus_infty, 0.0, -1.0);
7037 TEST_c_c (ctan, minus_zero, minus_infty, minus_zero, -1.0);
7038 TEST_c_c (ctan, -1, minus_infty, minus_zero, -1.0);
7039
67e971f1
TS		 7040 TEST_c_c (ctan, plus_infty, 0, qnan_value, qnan_value, INVALID_EXCEPTION);
7041 TEST_c_c (ctan, plus_infty, 2, qnan_value, qnan_value, INVALID_EXCEPTION);
7042 TEST_c_c (ctan, minus_infty, 0, qnan_value, qnan_value, INVALID_EXCEPTION);
7043 TEST_c_c (ctan, minus_infty, 2, qnan_value, qnan_value, INVALID_EXCEPTION);
7044 TEST_c_c (ctan, plus_infty, minus_zero, qnan_value, qnan_value, INVALID_EXCEPTION);
7045 TEST_c_c (ctan, plus_infty, -2, qnan_value, qnan_value, INVALID_EXCEPTION);
7046 TEST_c_c (ctan, minus_infty, minus_zero, qnan_value, qnan_value, INVALID_EXCEPTION);
7047 TEST_c_c (ctan, minus_infty, -2, qnan_value, qnan_value, INVALID_EXCEPTION);
8847214f 7048
67e971f1
TS		 7049 TEST_c_c (ctan, qnan_value, plus_infty, 0.0, 1.0, IGNORE_ZERO_INF_SIGN);
7050 TEST_c_c (ctan, qnan_value, minus_infty, 0.0, -1.0, IGNORE_ZERO_INF_SIGN);
8847214f 7051
67e971f1
TS		 7052 TEST_c_c (ctan, 0, qnan_value, 0.0, qnan_value);
7053 TEST_c_c (ctan, minus_zero, qnan_value, minus_zero, qnan_value);
8847214f 7054
67e971f1
TS		 7055 TEST_c_c (ctan, 0.5, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
7056 TEST_c_c (ctan, -4.5, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 7057
67e971f1
TS		 7058 TEST_c_c (ctan, qnan_value, 0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
7059 TEST_c_c (ctan, qnan_value, 5, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
7060 TEST_c_c (ctan, qnan_value, minus_zero, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
7061 TEST_c_c (ctan, qnan_value, -0.25, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 7062
67e971f1 7063 TEST_c_c (ctan, qnan_value, qnan_value, qnan_value, qnan_value);
8847214f 7064
2550dfe9 7065 TEST_c_c (ctan, 0.75L, 1.25L, 0.160807785916206426725166058173438663L, 0.975363285031235646193581759755216379L);
79df8ce5 7066 TEST_c_c (ctan, -2, -3, 0.376402564150424829275122113032269084e-2L, -1.00323862735360980144635859782192726L);
8847214f 7067
80bad0cc
JM		 7068 TEST_c_c (ctan, 1, 45, 1.490158918874345552942703234806348520895e-39L, 1.000000000000000000000000000000000000001L, UNDERFLOW_EXCEPTION_FLOAT);
7069 TEST_c_c (ctan, 1, 47, 2.729321264492904590777293425576722354636e-41L, 1.0, UNDERFLOW_EXCEPTION_FLOAT);
bcc8d661
JM		 7070
7071#ifndef TEST_FLOAT
80bad0cc
JM		 7072 TEST_c_c (ctan, 1, 355, 8.140551093483276762350406321792653551513e-309L, 1.0, UNDERFLOW_EXCEPTION_DOUBLE);
7073 TEST_c_c (ctan, 1, 365, 1.677892637497921890115075995898773550884e-317L, 1.0, UNDERFLOW_EXCEPTION_DOUBLE);
bcc8d661
JM		 7074#endif
7075
7076#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
80bad0cc
JM		 7077 TEST_c_c (ctan, 1, 5680, 4.725214596136812019616700920476949798307e-4934L, 1.0, UNDERFLOW_EXCEPTION);
7078 TEST_c_c (ctan, 1, 5690, 9.739393181626937151720816611272607059057e-4943L, 1.0, UNDERFLOW_EXCEPTION);
bcc8d661
JM		 7079#endif
7080
7081 TEST_c_c (ctan, 0x3.243f6cp-1, 0, -2.287733242885645987394874673945769518150e7L, 0.0);
7082
7083 TEST_c_c (ctan, 0x1p127, 1, 0.2446359391192790896381501310437708987204L, 0.9101334047676183761532873794426475906201L);
7084
7085#ifndef TEST_FLOAT
7086 TEST_c_c (ctan, 0x1p1023, 1, -0.2254627924997545057926782581695274244229L, 0.8786063118883068695462540226219865087189L);
7087#endif
7088
7089#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
7090 TEST_c_c (ctan, 0x1p16383L, 1, 0.1608598776370396607204448234354670036772L, 0.8133818522051542536316746743877629761488L);
7091#endif
7092
80bad0cc
JM		 7093 TEST_c_c (ctan, 50000, 50000, plus_zero, 1.0, UNDERFLOW_EXCEPTION);
7094 TEST_c_c (ctan, 50000, -50000, plus_zero, -1.0, UNDERFLOW_EXCEPTION);
7095 TEST_c_c (ctan, -50000, 50000, minus_zero, 1.0, UNDERFLOW_EXCEPTION);
7096 TEST_c_c (ctan, -50000, -50000, minus_zero, -1.0, UNDERFLOW_EXCEPTION);
bcc8d661 7097
6815fabc 7098 END (ctan, complex);
8847214f
UD		 7099}
7100
7101
ca61cf32
JM		 7102static void
7103ctan_test_tonearest (void)
7104{
7105 int save_round_mode;
7106 errno = 0;
7107 FUNC(ctan) (BUILD_COMPLEX (0.7L, 1.2L));
7108 if (errno == ENOSYS)
7109 /* Function not implemented. */
7110 return;
7111
7112 START (ctan_tonearest);
7113
7114 save_round_mode = fegetround ();
7115
7116 if (!fesetround (FE_TONEAREST))
7117 {
7118 TEST_c_c (ctan, 0x1.921fb6p+0, 0x1p-149, -2.287733242885645987394874673945769518150e7L, 7.334008549954377778731880988481078535821e-31L);
7119
7120#ifndef TEST_FLOAT
7121 TEST_c_c (ctan, 0x1.921fb54442d18p+0, 0x1p-1074, 1.633123935319536975596773704152891653086e16L, 1.317719414943508315995636961402669067843e-291L);
7122#endif
7123
7124#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
7125 TEST_c_c (ctan, 0x1.921fb54442d1846ap+0L, 0x1p-16445L, -3.986797629811710706723242948653362815645e19L, 5.793882568875674066286163141055208625180e-4912L);
7126#endif
7127 }
7128
7129 fesetround (save_round_mode);
7130
7131 END (ctan_tonearest, complex);
7132}
7133
7134
7135static void
7136ctan_test_towardzero (void)
7137{
7138 int save_round_mode;
7139 errno = 0;
7140 FUNC(ctan) (BUILD_COMPLEX (0.7L, 1.2L));
7141 if (errno == ENOSYS)
7142 /* Function not implemented. */
7143 return;
7144
7145 START (ctan_towardzero);
7146
7147 save_round_mode = fegetround ();
7148
7149 if (!fesetround (FE_TOWARDZERO))
7150 {
7151 TEST_c_c (ctan, 0x1.921fb6p+0, 0x1p-149, -2.287733242885645987394874673945769518150e7L, 7.334008549954377778731880988481078535821e-31L);
7152
7153#ifndef TEST_FLOAT
7154 TEST_c_c (ctan, 0x1.921fb54442d18p+0, 0x1p-1074, 1.633123935319536975596773704152891653086e16L, 1.317719414943508315995636961402669067843e-291L);
7155#endif
7156
7157#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
7158 TEST_c_c (ctan, 0x1.921fb54442d1846ap+0L, 0x1p-16445L, -3.986797629811710706723242948653362815645e19L, 5.793882568875674066286163141055208625180e-4912L);
7159#endif
7160 }
7161
7162 fesetround (save_round_mode);
7163
7164 END (ctan_towardzero, complex);
7165}
7166
7167
7168static void
7169ctan_test_downward (void)
7170{
7171 int save_round_mode;
7172 errno = 0;
7173 FUNC(ctan) (BUILD_COMPLEX (0.7L, 1.2L));
7174 if (errno == ENOSYS)
7175 /* Function not implemented. */
7176 return;
7177
7178 START (ctan_downward);
7179
7180 save_round_mode = fegetround ();
7181
7182 if (!fesetround (FE_DOWNWARD))
7183 {
7184 TEST_c_c (ctan, 0x1.921fb6p+0, 0x1p-149, -2.287733242885645987394874673945769518150e7L, 7.334008549954377778731880988481078535821e-31L);
7185
7186#ifndef TEST_FLOAT
7187 TEST_c_c (ctan, 0x1.921fb54442d18p+0, 0x1p-1074, 1.633123935319536975596773704152891653086e16L, 1.317719414943508315995636961402669067843e-291L);
7188#endif
7189
7190#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
7191 TEST_c_c (ctan, 0x1.921fb54442d1846ap+0L, 0x1p-16445L, -3.986797629811710706723242948653362815645e19L, 5.793882568875674066286163141055208625180e-4912L);
7192#endif
7193 }
7194
7195 fesetround (save_round_mode);
7196
7197 END (ctan_downward, complex);
7198}
7199
7200
7201static void
7202ctan_test_upward (void)
7203{
7204 int save_round_mode;
7205 errno = 0;
7206 FUNC(ctan) (BUILD_COMPLEX (0.7L, 1.2L));
7207 if (errno == ENOSYS)
7208 /* Function not implemented. */
7209 return;
7210
7211 START (ctan_upward);
7212
7213 save_round_mode = fegetround ();
7214
7215 if (!fesetround (FE_UPWARD))
7216 {
7217 TEST_c_c (ctan, 0x1.921fb6p+0, 0x1p-149, -2.287733242885645987394874673945769518150e7L, 7.334008549954377778731880988481078535821e-31L);
7218
7219#ifndef TEST_FLOAT
7220 TEST_c_c (ctan, 0x1.921fb54442d18p+0, 0x1p-1074, 1.633123935319536975596773704152891653086e16L, 1.317719414943508315995636961402669067843e-291L);
7221#endif
7222
7223#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
7224 TEST_c_c (ctan, 0x1.921fb54442d1846ap+0L, 0x1p-16445L, -3.986797629811710706723242948653362815645e19L, 5.793882568875674066286163141055208625180e-4912L);
7225#endif
7226 }
7227
7228 fesetround (save_round_mode);
7229
7230 END (ctan_upward, complex);
7231}
7232
7233
8847214f
UD		 7234static void
7235ctanh_test (void)
7236{
aaca11d8
UD		 7237 errno = 0;
7238 FUNC(ctanh) (BUILD_COMPLEX (0, 0));
7239 if (errno == ENOSYS)
7240 /* Function not implemented. */
7241 return;
7242
8847214f
UD		 7243 START (ctanh);
7244
7245 TEST_c_c (ctanh, 0, 0, 0.0, 0.0);
7246 TEST_c_c (ctanh, 0, minus_zero, 0.0, minus_zero);
7247 TEST_c_c (ctanh, minus_zero, 0, minus_zero, 0.0);
7248 TEST_c_c (ctanh, minus_zero, minus_zero, minus_zero, minus_zero);
7249
7250 TEST_c_c (ctanh, plus_infty, 0, 1.0, 0.0);
7251 TEST_c_c (ctanh, plus_infty, 1, 1.0, 0.0);
7252 TEST_c_c (ctanh, plus_infty, minus_zero, 1.0, minus_zero);
7253 TEST_c_c (ctanh, plus_infty, -1, 1.0, minus_zero);
7254 TEST_c_c (ctanh, minus_infty, 0, -1.0, 0.0);
7255 TEST_c_c (ctanh, minus_infty, 1, -1.0, 0.0);
7256 TEST_c_c (ctanh, minus_infty, minus_zero, -1.0, minus_zero);
7257 TEST_c_c (ctanh, minus_infty, -1, -1.0, minus_zero);
7258
67e971f1
TS		 7259 TEST_c_c (ctanh, 0, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
7260 TEST_c_c (ctanh, 2, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
7261 TEST_c_c (ctanh, 0, minus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
7262 TEST_c_c (ctanh, 2, minus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
7263 TEST_c_c (ctanh, minus_zero, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
7264 TEST_c_c (ctanh, -2, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
7265 TEST_c_c (ctanh, minus_zero, minus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
7266 TEST_c_c (ctanh, -2, minus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
8847214f 7267
67e971f1
TS		 7268 TEST_c_c (ctanh, plus_infty, qnan_value, 1.0, 0.0, IGNORE_ZERO_INF_SIGN);
7269 TEST_c_c (ctanh, minus_infty, qnan_value, -1.0, 0.0, IGNORE_ZERO_INF_SIGN);
8847214f 7270
67e971f1
TS		 7271 TEST_c_c (ctanh, qnan_value, 0, qnan_value, 0.0);
7272 TEST_c_c (ctanh, qnan_value, minus_zero, qnan_value, minus_zero);
8847214f 7273
67e971f1
TS		 7274 TEST_c_c (ctanh, qnan_value, 0.5, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
7275 TEST_c_c (ctanh, qnan_value, -4.5, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 7276
67e971f1
TS		 7277 TEST_c_c (ctanh, 0, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
7278 TEST_c_c (ctanh, 5, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
7279 TEST_c_c (ctanh, minus_zero, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
7280 TEST_c_c (ctanh, -0.25, qnan_value, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8847214f 7281
67e971f1 7282 TEST_c_c (ctanh, qnan_value, qnan_value, qnan_value, qnan_value);
8847214f
UD		 7283
7284 TEST_c_c (ctanh, 0, M_PI_4l, 0.0, 1.0);
7285
2550dfe9 7286 TEST_c_c (ctanh, 0.75L, 1.25L, 1.37260757053378320258048606571226857L, 0.385795952609750664177596760720790220L);
79df8ce5 7287 TEST_c_c (ctanh, -2, -3, -0.965385879022133124278480269394560686L, 0.988437503832249372031403430350121098e-2L);
8847214f 7288
80bad0cc
JM		 7289 TEST_c_c (ctanh, 45, 1, 1.000000000000000000000000000000000000001L, 1.490158918874345552942703234806348520895e-39L, UNDERFLOW_EXCEPTION_FLOAT);
7290 TEST_c_c (ctanh, 47, 1, 1.0, 2.729321264492904590777293425576722354636e-41L, UNDERFLOW_EXCEPTION_FLOAT);
bcc8d661
JM		 7291
7292#ifndef TEST_FLOAT
80bad0cc
JM		 7293 TEST_c_c (ctanh, 355, 1, 1.0, 8.140551093483276762350406321792653551513e-309L, UNDERFLOW_EXCEPTION_DOUBLE);
7294 TEST_c_c (ctanh, 365, 1, 1.0, 1.677892637497921890115075995898773550884e-317L, UNDERFLOW_EXCEPTION_DOUBLE);
bcc8d661
JM		 7295#endif
7296
7297#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
80bad0cc
JM		 7298 TEST_c_c (ctanh, 5680, 1, 1.0, 4.725214596136812019616700920476949798307e-4934L, UNDERFLOW_EXCEPTION);
7299 TEST_c_c (ctanh, 5690, 1, 1.0, 9.739393181626937151720816611272607059057e-4943L, UNDERFLOW_EXCEPTION);
bcc8d661
JM		 7300#endif
7301
7302 TEST_c_c (ctanh, 0, 0x3.243f6cp-1, 0.0, -2.287733242885645987394874673945769518150e7L);
7303
7304 TEST_c_c (ctanh, 1, 0x1p127, 0.9101334047676183761532873794426475906201L, 0.2446359391192790896381501310437708987204L);
7305
7306#ifndef TEST_FLOAT
7307 TEST_c_c (ctanh, 1, 0x1p1023, 0.8786063118883068695462540226219865087189L, -0.2254627924997545057926782581695274244229L);
7308#endif
7309
7310#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
7311 TEST_c_c (ctanh, 1, 0x1p16383L, 0.8133818522051542536316746743877629761488L, 0.1608598776370396607204448234354670036772L);
7312#endif
7313
80bad0cc
JM		 7314 TEST_c_c (ctanh, 50000, 50000, 1.0, plus_zero, UNDERFLOW_EXCEPTION);
7315 TEST_c_c (ctanh, 50000, -50000, 1.0, minus_zero, UNDERFLOW_EXCEPTION);
7316 TEST_c_c (ctanh, -50000, 50000, -1.0, plus_zero, UNDERFLOW_EXCEPTION);
7317 TEST_c_c (ctanh, -50000, -50000, -1.0, minus_zero, UNDERFLOW_EXCEPTION);
bcc8d661 7318
6815fabc 7319 END (ctanh, complex);
8847214f
UD		 7320}
7321
2550dfe9 7322
ca61cf32
JM		 7323static void
7324ctanh_test_tonearest (void)
7325{
7326 int save_round_mode;
7327 errno = 0;
7328 FUNC(ctanh) (BUILD_COMPLEX (0.7L, 1.2L));
7329 if (errno == ENOSYS)
7330 /* Function not implemented. */
7331 return;
7332
7333 START (ctanh_tonearest);
7334
7335 save_round_mode = fegetround ();
7336
7337 if (!fesetround (FE_TONEAREST))
7338 {
7339 TEST_c_c (ctanh, 0x1p-149, 0x1.921fb6p+0, 7.334008549954377778731880988481078535821e-31L, -2.287733242885645987394874673945769518150e7L);
7340
7341#ifndef TEST_FLOAT
7342 TEST_c_c (ctanh, 0x1p-1074, 0x1.921fb54442d18p+0, 1.317719414943508315995636961402669067843e-291L, 1.633123935319536975596773704152891653086e16L);
7343#endif
7344
7345#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
7346 TEST_c_c (ctanh, 0x1p-16445L, 0x1.921fb54442d1846ap+0L, 5.793882568875674066286163141055208625180e-4912L, -3.986797629811710706723242948653362815645e19L);
7347#endif
7348 }
7349
7350 fesetround (save_round_mode);
7351
7352 END (ctanh_tonearest, complex);
7353}
7354
7355
7356static void
7357ctanh_test_towardzero (void)
7358{
7359 int save_round_mode;
7360 errno = 0;
7361 FUNC(ctanh) (BUILD_COMPLEX (0.7L, 1.2L));
7362 if (errno == ENOSYS)
7363 /* Function not implemented. */
7364 return;
7365
7366 START (ctanh_towardzero);
7367
7368 save_round_mode = fegetround ();
7369
7370 if (!fesetround (FE_TOWARDZERO))
7371 {
7372 TEST_c_c (ctanh, 0x1p-149, 0x1.921fb6p+0, 7.334008549954377778731880988481078535821e-31L, -2.287733242885645987394874673945769518150e7L);
7373
7374#ifndef TEST_FLOAT
7375 TEST_c_c (ctanh, 0x1p-1074, 0x1.921fb54442d18p+0, 1.317719414943508315995636961402669067843e-291L, 1.633123935319536975596773704152891653086e16L);
7376#endif
7377
7378#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
7379 TEST_c_c (ctanh, 0x1p-16445L, 0x1.921fb54442d1846ap+0L, 5.793882568875674066286163141055208625180e-4912L, -3.986797629811710706723242948653362815645e19L);
7380#endif
7381 }
7382
7383 fesetround (save_round_mode);
7384
7385 END (ctanh_towardzero, complex);
7386}
7387
7388
7389static void
7390ctanh_test_downward (void)
7391{
7392 int save_round_mode;
7393 errno = 0;
7394 FUNC(ctanh) (BUILD_COMPLEX (0.7L, 1.2L));
7395 if (errno == ENOSYS)
7396 /* Function not implemented. */
7397 return;
7398
7399 START (ctanh_downward);
7400
7401 save_round_mode = fegetround ();
7402
7403 if (!fesetround (FE_DOWNWARD))
7404 {
7405 TEST_c_c (ctanh, 0x1p-149, 0x1.921fb6p+0, 7.334008549954377778731880988481078535821e-31L, -2.287733242885645987394874673945769518150e7L);
7406
7407#ifndef TEST_FLOAT
7408 TEST_c_c (ctanh, 0x1p-1074, 0x1.921fb54442d18p+0, 1.317719414943508315995636961402669067843e-291L, 1.633123935319536975596773704152891653086e16L);
7409#endif
7410
7411#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
7412 TEST_c_c (ctanh, 0x1p-16445L, 0x1.921fb54442d1846ap+0L, 5.793882568875674066286163141055208625180e-4912L, -3.986797629811710706723242948653362815645e19L);
7413#endif
7414 }
7415
7416 fesetround (save_round_mode);
7417
7418 END (ctanh_downward, complex);
7419}
7420
7421
7422static void
7423ctanh_test_upward (void)
7424{
7425 int save_round_mode;
7426 errno = 0;
7427 FUNC(ctanh) (BUILD_COMPLEX (0.7L, 1.2L));
7428 if (errno == ENOSYS)
7429 /* Function not implemented. */
7430 return;
7431
7432 START (ctanh_upward);
7433
7434 save_round_mode = fegetround ();
7435
7436 if (!fesetround (FE_UPWARD))
7437 {
7438 TEST_c_c (ctanh, 0x1p-149, 0x1.921fb6p+0, 7.334008549954377778731880988481078535821e-31L, -2.287733242885645987394874673945769518150e7L);
7439
7440#ifndef TEST_FLOAT
7441 TEST_c_c (ctanh, 0x1p-1074, 0x1.921fb54442d18p+0, 1.317719414943508315995636961402669067843e-291L, 1.633123935319536975596773704152891653086e16L);
7442#endif
7443
7444#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
7445 TEST_c_c (ctanh, 0x1p-16445L, 0x1.921fb54442d1846ap+0L, 5.793882568875674066286163141055208625180e-4912L, -3.986797629811710706723242948653362815645e19L);
7446#endif
7447 }
7448
7449 fesetround (save_round_mode);
7450
7451 END (ctanh_upward, complex);
7452}
7453
7454
8847214f
UD		 7455static void
7456erf_test (void)
7457{
7458 errno = 0;
7459 FUNC(erf) (0);
7460 if (errno == ENOSYS)
7461 /* Function not implemented. */
7462 return;
7463
7464 START (erf);
7465
7466 TEST_f_f (erf, 0, 0);
7467 TEST_f_f (erf, minus_zero, minus_zero);
7468 TEST_f_f (erf, plus_infty, 1);
7469 TEST_f_f (erf, minus_infty, -1);
67e971f1 7470 TEST_f_f (erf, qnan_value, qnan_value);
8847214f 7471
2550dfe9
AJ		 7472 TEST_f_f (erf, 0.125L, 0.140316204801333817393029446521623398L);
7473 TEST_f_f (erf, 0.75L, 0.711155633653515131598937834591410777L);
7474 TEST_f_f (erf, 1.25L, 0.922900128256458230136523481197281140L);
7475 TEST_f_f (erf, 2.0L, 0.995322265018952734162069256367252929L);
7476 TEST_f_f (erf, 4.125L, 0.999999994576599200434933994687765914L);
7477 TEST_f_f (erf, 27.0L, 1.0L);
8847214f
UD		 7478
7479 END (erf);
7480}
7481
7482
7483static void
7484erfc_test (void)
7485{
7486 errno = 0;
7487 FUNC(erfc) (0);
7488 if (errno == ENOSYS)
7489 /* Function not implemented. */
7490 return;
7491
7492 START (erfc);
7493
7494 TEST_f_f (erfc, plus_infty, 0.0);
7495 TEST_f_f (erfc, minus_infty, 2.0);
7496 TEST_f_f (erfc, 0.0, 1.0);
7497 TEST_f_f (erfc, minus_zero, 1.0);
67e971f1 7498 TEST_f_f (erfc, qnan_value, qnan_value);
8847214f 7499
2550dfe9
AJ		 7500 TEST_f_f (erfc, 0.125L, 0.859683795198666182606970553478376602L);
7501 TEST_f_f (erfc, 0.75L, 0.288844366346484868401062165408589223L);
7502 TEST_f_f (erfc, 1.25L, 0.0770998717435417698634765188027188596L);
7503 TEST_f_f (erfc, 2.0L, 0.00467773498104726583793074363274707139L);
7b1902cb 7504 TEST_f_f (erfc, 0x1.f7303cp+1L, 2.705500297238986897105236321218861842255e-8L);
2550dfe9 7505 TEST_f_f (erfc, 4.125L, 0.542340079956506600531223408575531062e-8L);
7b1902cb
JM		 7506 TEST_f_f (erfc, 0x1.ffa002p+2L, 1.233585992097580296336099501489175967033e-29L);
7507 TEST_f_f (erfc, 0x1.ffffc8p+2L, 1.122671365033056305522366683719541099329e-29L);
2550dfe9
AJ		 7508#ifdef TEST_LDOUBLE
7509 /* The result can only be represented in long double. */
f964490f 7510# if LDBL_MIN_10_EXP < -319
2550dfe9 7511 TEST_f_f (erfc, 27.0L, 0.523704892378925568501606768284954709e-318L);
f964490f 7512# endif
7b1902cb
JM		 7513# if LDBL_MANT_DIG >= 106
7514 TEST_f_f (erfc, 0x1.ffff56789abcdef0123456789a8p+2L, 1.123161416304655390092138725253789378459e-29L);
7515# endif
2550dfe9 7516#endif
8847214f
UD		 7517
7518 END (erfc);
7519}
7520
2550dfe9 7521
8847214f
UD		 7522static void
7523exp_test (void)
7524{
e6d3c4a7
AJ		 7525 errno = 0;
7526 FUNC(exp) (0);
7527 if (errno == ENOSYS)
7528 /* Function not implemented. */
7529 return;
7530
8847214f
UD		 7531 START (exp);
7532
7533 TEST_f_f (exp, 0, 1);
7534 TEST_f_f (exp, minus_zero, 1);
7535
15daa639 7536#ifndef TEST_INLINE
8847214f
UD		 7537 TEST_f_f (exp, plus_infty, plus_infty);
7538 TEST_f_f (exp, minus_infty, 0);
15daa639 7539#endif
67e971f1 7540 TEST_f_f (exp, qnan_value, qnan_value);
8847214f
UD		 7541 TEST_f_f (exp, 1, M_El);
7542
7543 TEST_f_f (exp, 2, M_E2l);
7544 TEST_f_f (exp, 3, M_E3l);
2550dfe9 7545 TEST_f_f (exp, 0.75L, 2.11700001661267466854536981983709561L);
4c95adde 7546 TEST_f_f (exp, 50.0L, 5184705528587072464087.45332293348538L);
a7eb802f 7547 TEST_f_f (exp, 88.72269439697265625L, 3.40233126623160774937554134772290447915e38L);
e42a38dd
AZ		 7548#ifndef TEST_FLOAT
7549 TEST_f_f (exp, 709.75L, 1.739836873264160557698252711673830393864768e+308L);
7550#endif
8fb0af98
UD		 7551#if defined TEST_LDOUBLE && __LDBL_MAX_EXP__ > 1024
7552 /* The result can only be represented in sane long double. */
4c95adde
AJ		 7553 TEST_f_f (exp, 1000.0L, 0.197007111401704699388887935224332313e435L);
7554#endif
2550dfe9 7555
41498f4d
JM		 7556#if !(defined TEST_LDOUBLE && LDBL_MAX_EXP > 1024)
7557 TEST_f_f (exp, 710, plus_infty, OVERFLOW_EXCEPTION);
7a25eb06 7558 TEST_f_f (exp, -1234, plus_zero, UNDERFLOW_EXCEPTION);
41498f4d
JM		 7559#endif
7560 TEST_f_f (exp, 1e5, plus_infty, OVERFLOW_EXCEPTION);
7561 TEST_f_f (exp, max_value, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 7562 TEST_f_f (exp, -max_value, 0, UNDERFLOW_EXCEPTION);
41bf21a1 7563
8847214f
UD		 7564 END (exp);
7565}
7566
7567
28afd92d
JM		 7568static void
7569exp_test_tonearest (void)
7570{
7571 int save_round_mode;
7572 errno = 0;
7573 FUNC(exp) (0);
7574 if (errno == ENOSYS)
7575 /* Function not implemented. */
7576 return;
7577
7578 START (exp_tonearest);
7579
7580 save_round_mode = fegetround ();
7581
7582 if (!fesetround (FE_TONEAREST))
7583 {
7584 TEST_f_f (exp, 1, M_El);
7585 TEST_f_f (exp, 2, M_E2l);
7586 TEST_f_f (exp, 3, M_E3l);
7587 }
7588
7589 fesetround (save_round_mode);
7590
7591 END (exp_tonearest);
7592}
7593
7594
7595static void
7596exp_test_towardzero (void)
7597{
7598 int save_round_mode;
7599 errno = 0;
7600 FUNC(exp) (0);
7601 if (errno == ENOSYS)
7602 /* Function not implemented. */
7603 return;
7604
7605 START (exp_towardzero);
7606
7607 save_round_mode = fegetround ();
7608
7609 if (!fesetround (FE_TOWARDZERO))
7610 {
7611 TEST_f_f (exp, 1, M_El);
7612 TEST_f_f (exp, 2, M_E2l);
7613 TEST_f_f (exp, 3, M_E3l);
7614 }
7615
7616 fesetround (save_round_mode);
7617
7618 END (exp_towardzero);
7619}
7620
7621
7622static void
7623exp_test_downward (void)
7624{
7625 int save_round_mode;
7626 errno = 0;
7627 FUNC(exp) (0);
7628 if (errno == ENOSYS)
7629 /* Function not implemented. */
7630 return;
7631
7632 START (exp_downward);
7633
7634 save_round_mode = fegetround ();
7635
7636 if (!fesetround (FE_DOWNWARD))
7637 {
7638 TEST_f_f (exp, 1, M_El);
7639 TEST_f_f (exp, 2, M_E2l);
7640 TEST_f_f (exp, 3, M_E3l);
7641 }
7642
7643 fesetround (save_round_mode);
7644
7645 END (exp_downward);
7646}
7647
7648
7649static void
7650exp_test_upward (void)
7651{
7652 int save_round_mode;
7653 errno = 0;
7654 FUNC(exp) (0);
7655 if (errno == ENOSYS)
7656 /* Function not implemented. */
7657 return;
7658
7659 START (exp_upward);
7660
7661 save_round_mode = fegetround ();
7662
7663 if (!fesetround (FE_UPWARD))
7664 {
7665 TEST_f_f (exp, 1, M_El);
7666 TEST_f_f (exp, 2, M_E2l);
7667 TEST_f_f (exp, 3, M_E3l);
7668 }
7669
7670 fesetround (save_round_mode);
7671
7672 END (exp_upward);
7673}
7674
7675
8847214f
UD		 7676static void
7677exp10_test (void)
7678{
7679 errno = 0;
7680 FUNC(exp10) (0);
7681 if (errno == ENOSYS)
7682 /* Function not implemented. */
7683 return;
7684
7685 START (exp10);
7686
7687 TEST_f_f (exp10, 0, 1);
7688 TEST_f_f (exp10, minus_zero, 1);
7689
7690 TEST_f_f (exp10, plus_infty, plus_infty);
7691 TEST_f_f (exp10, minus_infty, 0);
67e971f1 7692 TEST_f_f (exp10, qnan_value, qnan_value);
8847214f 7693 TEST_f_f (exp10, 3, 1000);
42be70d4 7694 TEST_f_f (exp10, -1, 0.1L);
9568c0c2 7695 TEST_f_f (exp10, 36, 1.0e36L);
d8b82cad
JM		 7696 TEST_f_f (exp10, -36, 1.0e-36L);
7697#ifndef TEST_FLOAT
7698 TEST_f_f (exp10, 305, 1.0e305L);
80bad0cc 7699 TEST_f_f (exp10, -305, 1.0e-305L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM);
d8b82cad
JM		 7700#endif
7701#if defined TEST_LDOUBLE && LDBL_MAX_10_EXP >= 4932
7702 TEST_f_f (exp10, 4932, 1.0e4932L);
80bad0cc 7703 TEST_f_f (exp10, -4932, 1.0e-4932L, UNDERFLOW_EXCEPTION);
9568c0c2 7704#endif
c135cc1b 7705 TEST_f_f (exp10, 1e6, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 7706 TEST_f_f (exp10, -1e6, 0, UNDERFLOW_EXCEPTION);
41bf21a1 7707 TEST_f_f (exp10, max_value, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 7708 TEST_f_f (exp10, -max_value, 0, UNDERFLOW_EXCEPTION);
2550dfe9 7709 TEST_f_f (exp10, 0.75L, 5.62341325190349080394951039776481231L);
8847214f
UD		 7710
7711 END (exp10);
7712}
7713
2550dfe9 7714
8847214f
UD		 7715static void
7716exp2_test (void)
7717{
7718 errno = 0;
7719 FUNC(exp2) (0);
7720 if (errno == ENOSYS)
7721 /* Function not implemented. */
7722 return;
7723
7724 START (exp2);
7725
7726 TEST_f_f (exp2, 0, 1);
7727 TEST_f_f (exp2, minus_zero, 1);
7728 TEST_f_f (exp2, plus_infty, plus_infty);
7729 TEST_f_f (exp2, minus_infty, 0);
67e971f1 7730 TEST_f_f (exp2, qnan_value, qnan_value);
15daa639 7731
8847214f
UD		 7732 TEST_f_f (exp2, 10, 1024);
7733 TEST_f_f (exp2, -1, 0.5);
0cb7efc5 7734 TEST_f_f (exp2, 1e6, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 7735 TEST_f_f (exp2, -1e6, 0, UNDERFLOW_EXCEPTION);
41bf21a1 7736 TEST_f_f (exp2, max_value, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 7737 TEST_f_f (exp2, -max_value, 0, UNDERFLOW_EXCEPTION);
2550dfe9 7738 TEST_f_f (exp2, 0.75L, 1.68179283050742908606225095246642979L);
8847214f 7739
48e44791
JM		 7740 TEST_f_f (exp2, 100.5, 1.792728671193156477399422023278661496394e+30L);
7741 TEST_f_f (exp2, 127, 0x1p127);
7742 TEST_f_f (exp2, -149, 0x1p-149);
7743
7744#ifndef TEST_FLOAT
7745 TEST_f_f (exp2, 1000.25, 1.274245659452564874772384918171765416737e+301L);
7746 TEST_f_f (exp2, 1023, 0x1p1023);
7747 TEST_f_f (exp2, -1074, 0x1p-1074);
7748#endif
7749
7750#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
7751 TEST_f_f (exp2, 16383, 0x1p16383L);
7752 TEST_f_f (exp2, -16400, 0x1p-16400L);
7753#endif
7754
8847214f
UD		 7755 END (exp2);
7756}
7757
2550dfe9 7758
8847214f
UD		 7759static void
7760expm1_test (void)
7761{
e6d3c4a7
AJ		 7762 errno = 0;
7763 FUNC(expm1) (0);
7764 if (errno == ENOSYS)
7765 /* Function not implemented. */
7766 return;
7767
8847214f
UD		 7768 START (expm1);
7769
7770 TEST_f_f (expm1, 0, 0);
7771 TEST_f_f (expm1, minus_zero, minus_zero);
7772
15daa639 7773#ifndef TEST_INLINE
8847214f
UD		 7774 TEST_f_f (expm1, plus_infty, plus_infty);
7775 TEST_f_f (expm1, minus_infty, -1);
15daa639 7776#endif
67e971f1 7777 TEST_f_f (expm1, qnan_value, qnan_value);
8847214f
UD		 7778
7779 TEST_f_f (expm1, 1, M_El - 1.0);
2550dfe9 7780 TEST_f_f (expm1, 0.75L, 1.11700001661267466854536981983709561L);
8847214f 7781
495fd99f
JM		 7782 TEST_f_f (expm1, 50.0L, 5.1847055285870724640864533229334853848275e+21L);
7783
7784#ifndef TEST_FLOAT
7785 TEST_f_f (expm1, 127.0L, 1.4302079958348104463583671072905261080748e+55L);
7786 TEST_f_f (expm1, 500.0L, 1.4035922178528374107397703328409120821806e+217L);
7787#endif
7788
0fcad3e2
JM		 7789#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
7790 TEST_f_f (expm1, 11356.25L, 9.05128237311923300051376115753226014206e+4931L);
7791#endif
7792
f17ac40d
JM		 7793 TEST_f_f (expm1, -10.0, -0.9999546000702375151484644084844394493898L);
7794 TEST_f_f (expm1, -16.0, -0.9999998874648252807408854862248209398728L);
7795 TEST_f_f (expm1, -17.0, -0.9999999586006228121483334034897228104472L);
7796 TEST_f_f (expm1, -18.0, -0.9999999847700202552873715638633707664826L);
7797 TEST_f_f (expm1, -36.0, -0.9999999999999997680477169756430611687736L);
7798 TEST_f_f (expm1, -37.0, -0.9999999999999999146695237425593420572195L);
7799 TEST_f_f (expm1, -38.0, -0.9999999999999999686086720795197037129104L);
7800 TEST_f_f (expm1, -44.0, -0.9999999999999999999221886775886620348429L);
7801 TEST_f_f (expm1, -45.0, -0.9999999999999999999713748141945060635553L);
7802 TEST_f_f (expm1, -46.0, -0.9999999999999999999894693826424461876212L);
7803 TEST_f_f (expm1, -73.0, -0.9999999999999999999999999999999802074012L);
7804 TEST_f_f (expm1, -74.0, -0.9999999999999999999999999999999927187098L);
7805 TEST_f_f (expm1, -75.0, -0.9999999999999999999999999999999973213630L);
7806 TEST_f_f (expm1, -78.0, -0.9999999999999999999999999999999998666385L);
7807 TEST_f_f (expm1, -79.0, -0.9999999999999999999999999999999999509391L);
7808 TEST_f_f (expm1, -80.0, -0.9999999999999999999999999999999999819515L);
7809 TEST_f_f (expm1, -100.0, -1.0);
7810 TEST_f_f (expm1, -1000.0, -1.0);
7811 TEST_f_f (expm1, -10000.0, -1.0);
7812 TEST_f_f (expm1, -100000.0, -1.0);
7813
f2da7793 7814 TEST_f_f (expm1, 100000.0, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE);
41498f4d 7815 TEST_f_f (expm1, max_value, plus_infty, OVERFLOW_EXCEPTION);
f17ac40d 7816 TEST_f_f (expm1, -max_value, -1);
bbc5d74d 7817
8847214f
UD		 7818 END (expm1);
7819}
7820
2550dfe9 7821
8847214f
UD		 7822static void
7823fabs_test (void)
7824{
7825 START (fabs);
7826
7827 TEST_f_f (fabs, 0, 0);
7828 TEST_f_f (fabs, minus_zero, 0);
7829
7830 TEST_f_f (fabs, plus_infty, plus_infty);
7831 TEST_f_f (fabs, minus_infty, plus_infty);
67e971f1 7832 TEST_f_f (fabs, qnan_value, qnan_value);
8847214f
UD		 7833
7834 TEST_f_f (fabs, 38.0, 38.0);
7835 TEST_f_f (fabs, -M_El, M_El);
7836
7837 END (fabs);
7838}
7839
2550dfe9 7840
8847214f
UD		 7841static void
7842fdim_test (void)
7843{
7844 START (fdim);
7845
7846 TEST_ff_f (fdim, 0, 0, 0);
7847 TEST_ff_f (fdim, 9, 0, 9);
7848 TEST_ff_f (fdim, 0, 9, 0);
7849 TEST_ff_f (fdim, -9, 0, 0);
7850 TEST_ff_f (fdim, 0, -9, 9);
7851
7852 TEST_ff_f (fdim, plus_infty, 9, plus_infty);
7853 TEST_ff_f (fdim, plus_infty, -9, plus_infty);
7854 TEST_ff_f (fdim, minus_infty, 9, 0);
7855 TEST_ff_f (fdim, minus_infty, -9, 0);
7856 TEST_ff_f (fdim, 9, minus_infty, plus_infty);
7857 TEST_ff_f (fdim, -9, minus_infty, plus_infty);
7858 TEST_ff_f (fdim, 9, plus_infty, 0);
7859 TEST_ff_f (fdim, -9, plus_infty, 0);
7860
67e971f1
TS		 7861 TEST_ff_f (fdim, 0, qnan_value, qnan_value);
7862 TEST_ff_f (fdim, 9, qnan_value, qnan_value);
7863 TEST_ff_f (fdim, -9, qnan_value, qnan_value);
7864 TEST_ff_f (fdim, qnan_value, 9, qnan_value);
7865 TEST_ff_f (fdim, qnan_value, -9, qnan_value);
7866 TEST_ff_f (fdim, plus_infty, qnan_value, qnan_value);
7867 TEST_ff_f (fdim, minus_infty, qnan_value, qnan_value);
7868 TEST_ff_f (fdim, qnan_value, plus_infty, qnan_value);
7869 TEST_ff_f (fdim, qnan_value, minus_infty, qnan_value);
7870 TEST_ff_f (fdim, qnan_value, qnan_value, qnan_value);
8847214f 7871
6497a1d0
UD		 7872 TEST_ff_f (fdim, plus_infty, plus_infty, 0);
7873
8847214f
UD		 7874 END (fdim);
7875}
7876
2550dfe9 7877
ef1bb361
JM		 7878static void
7879finite_test (void)
7880{
7881 START (finite);
7882
7883 TEST_f_b (finite, 0, 1);
7884 TEST_f_b (finite, minus_zero, 1);
7885 TEST_f_b (finite, 10, 1);
7886 TEST_f_b (finite, min_subnorm_value, 1);
7887 TEST_f_b (finite, plus_infty, 0);
7888 TEST_f_b (finite, minus_infty, 0);
67e971f1 7889 TEST_f_b (finite, qnan_value, 0);
ef1bb361
JM		 7890
7891 END (finite);
7892}
7893
7894
8847214f
UD		 7895static void
7896floor_test (void)
7897{
7898 START (floor);
7899
7900 TEST_f_f (floor, 0.0, 0.0);
7901 TEST_f_f (floor, minus_zero, minus_zero);
7902 TEST_f_f (floor, plus_infty, plus_infty);
7903 TEST_f_f (floor, minus_infty, minus_infty);
67e971f1 7904 TEST_f_f (floor, qnan_value, qnan_value);
8847214f
UD		 7905
7906 TEST_f_f (floor, M_PIl, 3.0);
7907 TEST_f_f (floor, -M_PIl, -4.0);
7908
5c68d401 7909 TEST_f_f (floor, 0.1, 0.0);
97fd3a30 7910 TEST_f_f (floor, 0.25, 0.0);
5c68d401
RM		 7911 TEST_f_f (floor, 0.625, 0.0);
7912 TEST_f_f (floor, -0.1, -1.0);
97fd3a30 7913 TEST_f_f (floor, -0.25, -1.0);
5c68d401 7914 TEST_f_f (floor, -0.625, -1.0);
f964490f
RM		 7915
7916#ifdef TEST_LDOUBLE
7917 /* The result can only be represented in long double. */
7918 TEST_f_f (floor, 4503599627370495.5L, 4503599627370495.0L);
7919 TEST_f_f (floor, 4503599627370496.25L, 4503599627370496.0L);
7920 TEST_f_f (floor, 4503599627370496.5L, 4503599627370496.0L);
7921 TEST_f_f (floor, 4503599627370496.75L, 4503599627370496.0L);
7922 TEST_f_f (floor, 4503599627370497.5L, 4503599627370497.0L);
5c68d401
RM		 7923# if LDBL_MANT_DIG > 100
7924 TEST_f_f (floor, 4503599627370494.5000000000001L, 4503599627370494.0L);
7925 TEST_f_f (floor, 4503599627370495.5000000000001L, 4503599627370495.0L);
7926 TEST_f_f (floor, 4503599627370496.5000000000001L, 4503599627370496.0L);
7927# endif
f964490f
RM		 7928
7929 TEST_f_f (floor, -4503599627370495.5L, -4503599627370496.0L);
7930 TEST_f_f (floor, -4503599627370496.25L, -4503599627370497.0L);
7931 TEST_f_f (floor, -4503599627370496.5L, -4503599627370497.0L);
7932 TEST_f_f (floor, -4503599627370496.75L, -4503599627370497.0L);
7933 TEST_f_f (floor, -4503599627370497.5L, -4503599627370498.0L);
5c68d401
RM		 7934# if LDBL_MANT_DIG > 100
7935 TEST_f_f (floor, -4503599627370494.5000000000001L, -4503599627370495.0L);
7936 TEST_f_f (floor, -4503599627370495.5000000000001L, -4503599627370496.0L);
7937 TEST_f_f (floor, -4503599627370496.5000000000001L, -4503599627370497.0L);
7938# endif
f964490f
RM		 7939
7940 TEST_f_f (floor, 9007199254740991.5L, 9007199254740991.0L);
7941 TEST_f_f (floor, 9007199254740992.25L, 9007199254740992.0L);
7942 TEST_f_f (floor, 9007199254740992.5L, 9007199254740992.0L);
7943 TEST_f_f (floor, 9007199254740992.75L, 9007199254740992.0L);
7944 TEST_f_f (floor, 9007199254740993.5L, 9007199254740993.0L);
7945
5c68d401
RM		 7946# if LDBL_MANT_DIG > 100
7947 TEST_f_f (floor, 9007199254740991.0000000000001L, 9007199254740991.0L);
7948 TEST_f_f (floor, 9007199254740992.0000000000001L, 9007199254740992.0L);
7949 TEST_f_f (floor, 9007199254740993.0000000000001L, 9007199254740993.0L);
7950 TEST_f_f (floor, 9007199254740991.5000000000001L, 9007199254740991.0L);
7951 TEST_f_f (floor, 9007199254740992.5000000000001L, 9007199254740992.0L);
7952 TEST_f_f (floor, 9007199254740993.5000000000001L, 9007199254740993.0L);
7953# endif
7954
f964490f
RM		 7955 TEST_f_f (floor, -9007199254740991.5L, -9007199254740992.0L);
7956 TEST_f_f (floor, -9007199254740992.25L, -9007199254740993.0L);
7957 TEST_f_f (floor, -9007199254740992.5L, -9007199254740993.0L);
7958 TEST_f_f (floor, -9007199254740992.75L, -9007199254740993.0L);
7959 TEST_f_f (floor, -9007199254740993.5L, -9007199254740994.0L);
7960
5c68d401
RM		 7961# if LDBL_MANT_DIG > 100
7962 TEST_f_f (floor, -9007199254740991.0000000000001L, -9007199254740992.0L);
7963 TEST_f_f (floor, -9007199254740992.0000000000001L, -9007199254740993.0L);
7964 TEST_f_f (floor, -9007199254740993.0000000000001L, -9007199254740994.0L);
7965 TEST_f_f (floor, -9007199254740991.5000000000001L, -9007199254740992.0L);
7966 TEST_f_f (floor, -9007199254740992.5000000000001L, -9007199254740993.0L);
7967 TEST_f_f (floor, -9007199254740993.5000000000001L, -9007199254740994.0L);
7968# endif
7969
f964490f
RM		 7970 TEST_f_f (floor, 72057594037927935.5L, 72057594037927935.0L);
7971 TEST_f_f (floor, 72057594037927936.25L, 72057594037927936.0L);
7972 TEST_f_f (floor, 72057594037927936.5L, 72057594037927936.0L);
7973 TEST_f_f (floor, 72057594037927936.75L, 72057594037927936.0L);
7974 TEST_f_f (floor, 72057594037927937.5L, 72057594037927937.0L);
7975
7976 TEST_f_f (floor, -72057594037927935.5L, -72057594037927936.0L);
7977 TEST_f_f (floor, -72057594037927936.25L, -72057594037927937.0L);
7978 TEST_f_f (floor, -72057594037927936.5L, -72057594037927937.0L);
7979 TEST_f_f (floor, -72057594037927936.75L, -72057594037927937.0L);
7980 TEST_f_f (floor, -72057594037927937.5L, -72057594037927938.0L);
7981
7982 TEST_f_f (floor, 10141204801825835211973625643007.5L, 10141204801825835211973625643007.0L);
7983 TEST_f_f (floor, 10141204801825835211973625643008.25L, 10141204801825835211973625643008.0L);
7984 TEST_f_f (floor, 10141204801825835211973625643008.5L, 10141204801825835211973625643008.0L);
7985 TEST_f_f (floor, 10141204801825835211973625643008.75L, 10141204801825835211973625643008.0L);
7986 TEST_f_f (floor, 10141204801825835211973625643009.5L, 10141204801825835211973625643009.0L);
94e02fc4
AZ		 7987
7988 TEST_f_f (floor, 0xf.ffffffffffffff8p+47L, 0xf.fffffffffffep+47L);
7989 TEST_f_f (floor, -0x8.000000000000004p+48L, -0x8.000000000001p+48L);
f964490f
RM		 7990#endif
7991
8847214f
UD		 7992 END (floor);
7993}
7994
2550dfe9 7995
8847214f
UD		 7996static void
7997fma_test (void)
7998{
7999 START (fma);
8000
8001 TEST_fff_f (fma, 1.0, 2.0, 3.0, 5.0);
67e971f1
TS		 8002 TEST_fff_f (fma, qnan_value, 2.0, 3.0, qnan_value);
8003 TEST_fff_f (fma, 1.0, qnan_value, 3.0, qnan_value);
8004 TEST_fff_f (fma, 1.0, 2.0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8005 TEST_fff_f (fma, plus_infty, 0.0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8006 TEST_fff_f (fma, minus_infty, 0.0, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8007 TEST_fff_f (fma, 0.0, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8008 TEST_fff_f (fma, 0.0, minus_infty, qnan_value, qnan_value, INVALID_EXCEPTION_OK);
8009 TEST_fff_f (fma, plus_infty, 0.0, 1.0, qnan_value, INVALID_EXCEPTION);
8010 TEST_fff_f (fma, minus_infty, 0.0, 1.0, qnan_value, INVALID_EXCEPTION);
8011 TEST_fff_f (fma, 0.0, plus_infty, 1.0, qnan_value, INVALID_EXCEPTION);
8012 TEST_fff_f (fma, 0.0, minus_infty, 1.0, qnan_value, INVALID_EXCEPTION);
8013
8014 TEST_fff_f (fma, plus_infty, plus_infty, minus_infty, qnan_value, INVALID_EXCEPTION);
8015 TEST_fff_f (fma, minus_infty, plus_infty, plus_infty, qnan_value, INVALID_EXCEPTION);
8016 TEST_fff_f (fma, plus_infty, minus_infty, plus_infty, qnan_value, INVALID_EXCEPTION);
8017 TEST_fff_f (fma, minus_infty, minus_infty, minus_infty, qnan_value, INVALID_EXCEPTION);
8018 TEST_fff_f (fma, plus_infty, 3.5L, minus_infty, qnan_value, INVALID_EXCEPTION);
8019 TEST_fff_f (fma, minus_infty, -7.5L, minus_infty, qnan_value, INVALID_EXCEPTION);
8020 TEST_fff_f (fma, -13.5L, plus_infty, plus_infty, qnan_value, INVALID_EXCEPTION);
8021 TEST_fff_f (fma, minus_infty, 7.5L, plus_infty, qnan_value, INVALID_EXCEPTION);
8847214f 8022
2550dfe9 8023 TEST_fff_f (fma, 1.25L, 0.75L, 0.0625L, 1.0L);
3e692e05
JJ		 8024
8025 FLOAT fltmax = CHOOSE (LDBL_MAX, DBL_MAX, FLT_MAX,
8026 LDBL_MAX, DBL_MAX, FLT_MAX);
8027 TEST_fff_f (fma, -fltmax, -fltmax, minus_infty, minus_infty);
8028 TEST_fff_f (fma, fltmax / 2, fltmax / 2, minus_infty, minus_infty);
8029 TEST_fff_f (fma, -fltmax, fltmax, plus_infty, plus_infty);
8030 TEST_fff_f (fma, fltmax / 2, -fltmax / 4, plus_infty, plus_infty);
8031 TEST_fff_f (fma, plus_infty, 4, plus_infty, plus_infty);
8032 TEST_fff_f (fma, 2, minus_infty, minus_infty, minus_infty);
8033 TEST_fff_f (fma, minus_infty, minus_infty, plus_infty, plus_infty);
8034 TEST_fff_f (fma, plus_infty, minus_infty, minus_infty, minus_infty);
8035
8ec5b013
JM		 8036 TEST_fff_f (fma, plus_zero, plus_zero, plus_zero, plus_zero);
8037 TEST_fff_f (fma, plus_zero, plus_zero, minus_zero, plus_zero);
8038 TEST_fff_f (fma, plus_zero, minus_zero, plus_zero, plus_zero);
8039 TEST_fff_f (fma, plus_zero, minus_zero, minus_zero, minus_zero);
8040 TEST_fff_f (fma, minus_zero, plus_zero, plus_zero, plus_zero);
8041 TEST_fff_f (fma, minus_zero, plus_zero, minus_zero, minus_zero);
8042 TEST_fff_f (fma, minus_zero, minus_zero, plus_zero, plus_zero);
8043 TEST_fff_f (fma, minus_zero, minus_zero, minus_zero, plus_zero);
8044 TEST_fff_f (fma, 1.0, plus_zero, plus_zero, plus_zero);
8045 TEST_fff_f (fma, 1.0, plus_zero, minus_zero, plus_zero);
8046 TEST_fff_f (fma, 1.0, minus_zero, plus_zero, plus_zero);
8047 TEST_fff_f (fma, 1.0, minus_zero, minus_zero, minus_zero);
8048 TEST_fff_f (fma, -1.0, plus_zero, plus_zero, plus_zero);
8049 TEST_fff_f (fma, -1.0, plus_zero, minus_zero, minus_zero);
8050 TEST_fff_f (fma, -1.0, minus_zero, plus_zero, plus_zero);
8051 TEST_fff_f (fma, -1.0, minus_zero, minus_zero, plus_zero);
8052 TEST_fff_f (fma, plus_zero, 1.0, plus_zero, plus_zero);
8053 TEST_fff_f (fma, plus_zero, 1.0, minus_zero, plus_zero);
8054 TEST_fff_f (fma, plus_zero, -1.0, plus_zero, plus_zero);
8055 TEST_fff_f (fma, plus_zero, -1.0, minus_zero, minus_zero);
8056 TEST_fff_f (fma, minus_zero, 1.0, plus_zero, plus_zero);
8057 TEST_fff_f (fma, minus_zero, 1.0, minus_zero, minus_zero);
8058 TEST_fff_f (fma, minus_zero, -1.0, plus_zero, plus_zero);
8059 TEST_fff_f (fma, minus_zero, -1.0, minus_zero, plus_zero);
8060
8061 TEST_fff_f (fma, 1.0, 1.0, -1.0, plus_zero);
8062 TEST_fff_f (fma, 1.0, -1.0, 1.0, plus_zero);
8063 TEST_fff_f (fma, -1.0, 1.0, 1.0, plus_zero);
8064 TEST_fff_f (fma, -1.0, -1.0, -1.0, plus_zero);
8065
bec749fd
JM		 8066 TEST_fff_f (fma, min_value, min_value, plus_zero, plus_zero, UNDERFLOW_EXCEPTION);
8067 TEST_fff_f (fma, min_value, min_value, minus_zero, plus_zero, UNDERFLOW_EXCEPTION);
8068 TEST_fff_f (fma, min_value, -min_value, plus_zero, minus_zero, UNDERFLOW_EXCEPTION);
8069 TEST_fff_f (fma, min_value, -min_value, minus_zero, minus_zero, UNDERFLOW_EXCEPTION);
8070 TEST_fff_f (fma, -min_value, min_value, plus_zero, minus_zero, UNDERFLOW_EXCEPTION);
8071 TEST_fff_f (fma, -min_value, min_value, minus_zero, minus_zero, UNDERFLOW_EXCEPTION);
8072 TEST_fff_f (fma, -min_value, -min_value, plus_zero, plus_zero, UNDERFLOW_EXCEPTION);
8073 TEST_fff_f (fma, -min_value, -min_value, minus_zero, plus_zero, UNDERFLOW_EXCEPTION);
8074
a0c2940d
JM		 8075 TEST_fff_f (fma, max_value, max_value, min_value, plus_infty, OVERFLOW_EXCEPTION);
8076 TEST_fff_f (fma, max_value, max_value, -min_value, plus_infty, OVERFLOW_EXCEPTION);
8077 TEST_fff_f (fma, max_value, -max_value, min_value, minus_infty, OVERFLOW_EXCEPTION);
8078 TEST_fff_f (fma, max_value, -max_value, -min_value, minus_infty, OVERFLOW_EXCEPTION);
8079 TEST_fff_f (fma, -max_value, max_value, min_value, minus_infty, OVERFLOW_EXCEPTION);
8080 TEST_fff_f (fma, -max_value, max_value, -min_value, minus_infty, OVERFLOW_EXCEPTION);
8081 TEST_fff_f (fma, -max_value, -max_value, min_value, plus_infty, OVERFLOW_EXCEPTION);
8082 TEST_fff_f (fma, -max_value, -max_value, -min_value, plus_infty, OVERFLOW_EXCEPTION);
8083
5e908464 8084#if defined (TEST_FLOAT) && FLT_MANT_DIG == 24
9ff8d36f
JJ		 8085 TEST_fff_f (fma, 0x1.7ff8p+13, 0x1.000002p+0, 0x1.ffffp-24, 0x1.7ff802p+13);
8086 TEST_fff_f (fma, 0x1.fffp+0, 0x1.00001p+0, -0x1.fffp+0, 0x1.fffp-20);
5e908464
JJ		 8087 TEST_fff_f (fma, 0x1.9abcdep+127, 0x0.9abcdep-126, -0x1.f08948p+0, 0x1.bb421p-25);
8088 TEST_fff_f (fma, 0x1.9abcdep+100, 0x0.9abcdep-126, -0x1.f08948p-27, 0x1.bb421p-52);
8089 TEST_fff_f (fma, 0x1.fffffep+127, 0x1.001p+0, -0x1.fffffep+127, 0x1.fffffep+115);
8090 TEST_fff_f (fma, -0x1.fffffep+127, 0x1.fffffep+0, 0x1.fffffep+127, -0x1.fffffap+127);
8091 TEST_fff_f (fma, 0x1.fffffep+127, 2.0, -0x1.fffffep+127, 0x1.fffffep+127);
8627a232
JM		 8092 TEST_fff_f (fma, 0x1.4p-126, 0x1.000004p-1, 0x1p-128, 0x1.c00004p-127, UNDERFLOW_EXCEPTION);
8093 TEST_fff_f (fma, -0x1.4p-126, 0x1.000004p-1, -0x1p-128, -0x1.c00004p-127, UNDERFLOW_EXCEPTION);
ef82f4da
JM		 8094 TEST_fff_f (fma, 0x1.fffff8p-126, 0x1.000002p-1, 0x1p-149, 0x1p-126, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8095 TEST_fff_f (fma, -0x1.fffff8p-126, 0x1.000002p-1, -0x1p-149, -0x1p-126, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8096 TEST_fff_f (fma, 0x1p-149, 0x1p-1, 0x0.fffffep-126, 0x1p-126, UNDERFLOW_EXCEPTION);
8097 TEST_fff_f (fma, -0x1p-149, 0x1p-1, -0x0.fffffep-126, -0x1p-126, UNDERFLOW_EXCEPTION);
8098 TEST_fff_f (fma, 0x1p-149, 0x1.1p-1, 0x0.fffffep-126, 0x1p-126, UNDERFLOW_EXCEPTION);
8099 TEST_fff_f (fma, -0x1p-149, 0x1.1p-1, -0x0.fffffep-126, -0x1p-126, UNDERFLOW_EXCEPTION);
473611b2
JM		 8100 TEST_fff_f (fma, 0x1p-149, 0x1p-149, 0x1p127, 0x1p127);
8101 TEST_fff_f (fma, 0x1p-149, -0x1p-149, 0x1p127, 0x1p127);
8102 TEST_fff_f (fma, 0x1p-149, 0x1p-149, -0x1p127, -0x1p127);
8103 TEST_fff_f (fma, 0x1p-149, -0x1p-149, -0x1p127, -0x1p127);
8104 TEST_fff_f (fma, 0x1p-149, 0x1p-149, 0x1p-126, 0x1p-126);
8105 TEST_fff_f (fma, 0x1p-149, -0x1p-149, 0x1p-126, 0x1p-126, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8106 TEST_fff_f (fma, 0x1p-149, 0x1p-149, -0x1p-126, -0x1p-126, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8107 TEST_fff_f (fma, 0x1p-149, -0x1p-149, -0x1p-126, -0x1p-126);
8108 TEST_fff_f (fma, 0x1p-149, 0x1p-149, 0x0.fffffep-126, 0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8109 TEST_fff_f (fma, 0x1p-149, -0x1p-149, 0x0.fffffep-126, 0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8110 TEST_fff_f (fma, 0x1p-149, 0x1p-149, -0x0.fffffep-126, -0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8111 TEST_fff_f (fma, 0x1p-149, -0x1p-149, -0x0.fffffep-126, -0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8112 TEST_fff_f (fma, 0x1p-149, 0x1p-149, 0x1p-149, 0x1p-149, UNDERFLOW_EXCEPTION);
8113 TEST_fff_f (fma, 0x1p-149, -0x1p-149, 0x1p-149, 0x1p-149, UNDERFLOW_EXCEPTION);
8114 TEST_fff_f (fma, 0x1p-149, 0x1p-149, -0x1p-149, -0x1p-149, UNDERFLOW_EXCEPTION);
8115 TEST_fff_f (fma, 0x1p-149, -0x1p-149, -0x1p-149, -0x1p-149, UNDERFLOW_EXCEPTION);
5b5b04d6
JM		 8116 TEST_fff_f (fma, 0x0.fffp0, 0x0.fffp0, -0x0.ffep0, 0x1p-24);
8117 TEST_fff_f (fma, 0x0.fffp0, -0x0.fffp0, 0x0.ffep0, -0x1p-24);
8118 TEST_fff_f (fma, -0x0.fffp0, 0x0.fffp0, 0x0.ffep0, -0x1p-24);
8119 TEST_fff_f (fma, -0x0.fffp0, -0x0.fffp0, -0x0.ffep0, 0x1p-24);
82477c28
JM		 8120 TEST_fff_f (fma, 0x1.000002p-126, 0x1.000002p-26, 0x1p127, 0x1p127);
8121 TEST_fff_f (fma, 0x1.000002p-126, -0x1.000002p-26, 0x1p127, 0x1p127);
8122 TEST_fff_f (fma, 0x1.000002p-126, 0x1.000002p-26, -0x1p127, -0x1p127);
8123 TEST_fff_f (fma, 0x1.000002p-126, -0x1.000002p-26, -0x1p127, -0x1p127);
8124 TEST_fff_f (fma, 0x1.000002p-126, 0x1.000002p-26, 0x1p103, 0x1p103);
8125 TEST_fff_f (fma, 0x1.000002p-126, -0x1.000002p-26, 0x1p103, 0x1p103);
8126 TEST_fff_f (fma, 0x1.000002p-126, 0x1.000002p-26, -0x1p103, -0x1p103);
8127 TEST_fff_f (fma, 0x1.000002p-126, -0x1.000002p-26, -0x1p103, -0x1p103);
5e908464
JJ		 8128#endif
8129#if defined (TEST_DOUBLE) && DBL_MANT_DIG == 53
8130 TEST_fff_f (fma, 0x1.7fp+13, 0x1.0000000000001p+0, 0x1.ffep-48, 0x1.7f00000000001p+13);
8131 TEST_fff_f (fma, 0x1.fffp+0, 0x1.0000000000001p+0, -0x1.fffp+0, 0x1.fffp-52);
8132 TEST_fff_f (fma, 0x1.0000002p+0, 0x1.ffffffcp-1, 0x1p-300, 1.0);
8133 TEST_fff_f (fma, 0x1.0000002p+0, 0x1.ffffffcp-1, -0x1p-300, 0x1.fffffffffffffp-1);
8134 TEST_fff_f (fma, 0x1.deadbeef2feedp+1023, 0x0.deadbeef2feedp-1022, -0x1.a05f8c01a4bfbp+1, 0x1.0989687bc9da4p-53);
8135 TEST_fff_f (fma, 0x1.deadbeef2feedp+900, 0x0.deadbeef2feedp-1022, -0x1.a05f8c01a4bfbp-122, 0x1.0989687bc9da4p-176);
8136 TEST_fff_f (fma, 0x1.fffffffffffffp+1023, 0x1.001p+0, -0x1.fffffffffffffp+1023, 0x1.fffffffffffffp+1011);
8137 TEST_fff_f (fma, -0x1.fffffffffffffp+1023, 0x1.fffffffffffffp+0, 0x1.fffffffffffffp+1023, -0x1.ffffffffffffdp+1023);
8138 TEST_fff_f (fma, 0x1.fffffffffffffp+1023, 2.0, -0x1.fffffffffffffp+1023, 0x1.fffffffffffffp+1023);
80bad0cc
JM		 8139 TEST_fff_f (fma, 0x1.6a09e667f3bccp-538, 0x1.6a09e667f3bccp-538, 0.0, 0.0, UNDERFLOW_EXCEPTION);
8140 TEST_fff_f (fma, 0x1.deadbeef2feedp-495, 0x1.deadbeef2feedp-495, -0x1.bf86a5786a574p-989, 0x0.0000042625a1fp-1022, UNDERFLOW_EXCEPTION);
8141 TEST_fff_f (fma, 0x1.deadbeef2feedp-503, 0x1.deadbeef2feedp-503, -0x1.bf86a5786a574p-1005, 0x0.0000000004262p-1022, UNDERFLOW_EXCEPTION);
8142 TEST_fff_f (fma, 0x1p-537, 0x1p-538, 0x1p-1074, 0x0.0000000000002p-1022, UNDERFLOW_EXCEPTION);
8143 TEST_fff_f (fma, 0x1.7fffff8p-968, 0x1p-106, 0x0.000001p-1022, 0x0.0000010000001p-1022, UNDERFLOW_EXCEPTION);
8144 TEST_fff_f (fma, 0x1.4000004p-967, 0x1p-106, 0x0.000001p-1022, 0x0.0000010000003p-1022, UNDERFLOW_EXCEPTION);
8145 TEST_fff_f (fma, 0x1.4p-967, -0x1p-106, -0x0.000001p-1022, -0x0.0000010000002p-1022, UNDERFLOW_EXCEPTION);
8146 TEST_fff_f (fma, -0x1.19cab66d73e17p-959, 0x1.c7108a8c5ff51p-107, -0x0.80b0ad65d9b64p-1022, -0x0.80b0ad65d9d59p-1022, UNDERFLOW_EXCEPTION);
8627a232 8147 TEST_fff_f (fma, -0x1.d2eaed6e8e9d3p-979, -0x1.4e066c62ac9ddp-63, -0x0.9245e6b003454p-1022, -0x0.9245c09c5fb5dp-1022, UNDERFLOW_EXCEPTION);
80bad0cc 8148 TEST_fff_f (fma, 0x1.153d650bb9f06p-907, 0x1.2d01230d48407p-125, -0x0.b278d5acfc3cp-1022, -0x0.b22757123bbe9p-1022, UNDERFLOW_EXCEPTION);
3e692e05 8149 TEST_fff_f (fma, -0x1.fffffffffffffp-711, 0x1.fffffffffffffp-275, 0x1.fffffe00007ffp-983, 0x1.7ffffe00007ffp-983);
8627a232
JM		 8150 TEST_fff_f (fma, 0x1.4p-1022, 0x1.0000000000002p-1, 0x1p-1024, 0x1.c000000000002p-1023, UNDERFLOW_EXCEPTION);
8151 TEST_fff_f (fma, -0x1.4p-1022, 0x1.0000000000002p-1, -0x1p-1024, -0x1.c000000000002p-1023, UNDERFLOW_EXCEPTION);
ef82f4da
JM		 8152 TEST_fff_f (fma, 0x1.ffffffffffffcp-1022, 0x1.0000000000001p-1, 0x1p-1074, 0x1p-1022, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8153 TEST_fff_f (fma, -0x1.ffffffffffffcp-1022, 0x1.0000000000001p-1, -0x1p-1074, -0x1p-1022, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8154 TEST_fff_f (fma, 0x1p-1074, 0x1p-1, 0x0.fffffffffffffp-1022, 0x1p-1022, UNDERFLOW_EXCEPTION);
8155 TEST_fff_f (fma, -0x1p-1074, 0x1p-1, -0x0.fffffffffffffp-1022, -0x1p-1022, UNDERFLOW_EXCEPTION);
8156 TEST_fff_f (fma, 0x1p-1074, 0x1.1p-1, 0x0.fffffffffffffp-1022, 0x1p-1022, UNDERFLOW_EXCEPTION);
8157 TEST_fff_f (fma, -0x1p-1074, 0x1.1p-1, -0x0.fffffffffffffp-1022, -0x1p-1022, UNDERFLOW_EXCEPTION);
473611b2
JM		 8158 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, 0x1p1023, 0x1p1023);
8159 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, 0x1p1023, 0x1p1023);
8160 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, -0x1p1023, -0x1p1023);
8161 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, -0x1p1023, -0x1p1023);
8162 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, 0x1p-1022, 0x1p-1022);
8163 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, 0x1p-1022, 0x1p-1022, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8164 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, -0x1p-1022, -0x1p-1022, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8165 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, -0x1p-1022, -0x1p-1022);
8166 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, 0x0.fffffffffffffp-1022, 0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8167 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, 0x0.fffffffffffffp-1022, 0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8168 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, -0x0.fffffffffffffp-1022, -0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8169 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, -0x0.fffffffffffffp-1022, -0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8170 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, 0x1p-1074, 0x1p-1074, UNDERFLOW_EXCEPTION);
8171 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, 0x1p-1074, 0x1p-1074, UNDERFLOW_EXCEPTION);
8172 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, -0x1p-1074, -0x1p-1074, UNDERFLOW_EXCEPTION);
8173 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, -0x1p-1074, -0x1p-1074, UNDERFLOW_EXCEPTION);
5b5b04d6
JM		 8174 TEST_fff_f (fma, 0x0.fffffffffffff8p0, 0x0.fffffffffffff8p0, -0x0.fffffffffffffp0, 0x1p-106);
8175 TEST_fff_f (fma, 0x0.fffffffffffff8p0, -0x0.fffffffffffff8p0, 0x0.fffffffffffffp0, -0x1p-106);
8176 TEST_fff_f (fma, -0x0.fffffffffffff8p0, 0x0.fffffffffffff8p0, 0x0.fffffffffffffp0, -0x1p-106);
8177 TEST_fff_f (fma, -0x0.fffffffffffff8p0, -0x0.fffffffffffff8p0, -0x0.fffffffffffffp0, 0x1p-106);
82477c28
JM		 8178 TEST_fff_f (fma, 0x1.0000000000001p-1022, 0x1.0000000000001p-55, 0x1p1023, 0x1p1023);
8179 TEST_fff_f (fma, 0x1.0000000000001p-1022, -0x1.0000000000001p-55, 0x1p1023, 0x1p1023);
8180 TEST_fff_f (fma, 0x1.0000000000001p-1022, 0x1.0000000000001p-55, -0x1p1023, -0x1p1023);
8181 TEST_fff_f (fma, 0x1.0000000000001p-1022, -0x1.0000000000001p-55, -0x1p1023, -0x1p1023);
8182 TEST_fff_f (fma, 0x1.0000000000001p-1022, 0x1.0000000000001p-55, 0x1p970, 0x1p970);
8183 TEST_fff_f (fma, 0x1.0000000000001p-1022, -0x1.0000000000001p-55, 0x1p970, 0x1p970);
8184 TEST_fff_f (fma, 0x1.0000000000001p-1022, 0x1.0000000000001p-55, -0x1p970, -0x1p970);
8185 TEST_fff_f (fma, 0x1.0000000000001p-1022, -0x1.0000000000001p-55, -0x1p970, -0x1p970);
3e692e05
JJ		 8186#endif
8187#if defined (TEST_LDOUBLE) && LDBL_MANT_DIG == 64
8188 TEST_fff_f (fma, -0x8.03fcp+3696L, 0xf.fffffffffffffffp-6140L, 0x8.3ffffffffffffffp-2450L, -0x8.01ecp-2440L);
8189 TEST_fff_f (fma, 0x9.fcp+2033L, -0x8.000e1f000ff800fp-3613L, -0xf.fffffffffffc0ffp-1579L, -0xd.fc119fb093ed092p-1577L);
8190 TEST_fff_f (fma, 0xc.7fc000003ffffffp-1194L, 0x8.1e0003fffffffffp+15327L, -0x8.fffep+14072L, 0xc.ae9f164020effffp+14136L);
8191 TEST_fff_f (fma, -0x8.0001fc000000003p+1798L, 0xcp-2230L, 0x8.f7e000000000007p-468L, -0xc.0002f9ffee10404p-429L);
8192 TEST_fff_f (fma, 0xc.0000000000007ffp+10130L, -0x8.000000000000001p+4430L, 0xc.07000000001ffffp+14513L, -0xb.fffffffffffd7e4p+14563L);
8627a232
JM		 8193 TEST_fff_f (fma, 0xb.ffffp-4777L, 0x8.000000fffffffffp-11612L, -0x0.3800fff8p-16385L, 0x5.c7fe80c7ffeffffp-16385L, UNDERFLOW_EXCEPTION);
8194 TEST_fff_f (fma, 0x1.4p-16382L, 0x1.0000000000000004p-1L, 0x1p-16384L, 0x1.c000000000000004p-16383L, UNDERFLOW_EXCEPTION);
8195 TEST_fff_f (fma, -0x1.4p-16382L, 0x1.0000000000000004p-1L, -0x1p-16384L, -0x1.c000000000000004p-16383L, UNDERFLOW_EXCEPTION);
ef82f4da
JM		 8196 TEST_fff_f (fma, 0x1.fffffffffffffff8p-16382L, 0x1.0000000000000002p-1L, 0x1p-16445L, 0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8197 TEST_fff_f (fma, -0x1.fffffffffffffff8p-16382L, 0x1.0000000000000002p-1L, -0x1p-16445L, -0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8198 TEST_fff_f (fma, 0x1p-16445L, 0x1p-1L, 0x0.fffffffffffffffep-16382L, 0x1p-16382L, UNDERFLOW_EXCEPTION);
8199 TEST_fff_f (fma, -0x1p-16445L, 0x1p-1L, -0x0.fffffffffffffffep-16382L, -0x1p-16382L, UNDERFLOW_EXCEPTION);
8200 TEST_fff_f (fma, 0x1p-16445L, 0x1.1p-1L, 0x0.fffffffffffffffep-16382L, 0x1p-16382L, UNDERFLOW_EXCEPTION);
8201 TEST_fff_f (fma, -0x1p-16445L, 0x1.1p-1L, -0x0.fffffffffffffffep-16382L, -0x1p-16382L, UNDERFLOW_EXCEPTION);
473611b2
JM		 8202 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, 0x1p16383L, 0x1p16383L);
8203 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, 0x1p16383L, 0x1p16383L);
8204 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, -0x1p16383L, -0x1p16383L);
8205 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, -0x1p16383L, -0x1p16383L);
8206 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, 0x1p-16382L, 0x1p-16382L);
8207 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, 0x1p-16382L, 0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8208 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, -0x1p-16382L, -0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8209 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, -0x1p-16382L, -0x1p-16382L);
8210 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, 0x0.fffffffffffffffep-16382L, 0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8211 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, 0x0.fffffffffffffffep-16382L, 0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8212 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, -0x0.fffffffffffffffep-16382L, -0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8213 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, -0x0.fffffffffffffffep-16382L, -0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8214 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, 0x1p-16445L, 0x1p-16445L, UNDERFLOW_EXCEPTION);
8215 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, 0x1p-16445L, 0x1p-16445L, UNDERFLOW_EXCEPTION);
8216 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, -0x1p-16445L, -0x1p-16445L, UNDERFLOW_EXCEPTION);
8217 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, -0x1p-16445L, -0x1p-16445L, UNDERFLOW_EXCEPTION);
5b5b04d6
JM		 8218 TEST_fff_f (fma, 0x0.ffffffffffffffffp0L, 0x0.ffffffffffffffffp0L, -0x0.fffffffffffffffep0L, 0x1p-128L);
8219 TEST_fff_f (fma, 0x0.ffffffffffffffffp0L, -0x0.ffffffffffffffffp0L, 0x0.fffffffffffffffep0L, -0x1p-128L);
8220 TEST_fff_f (fma, -0x0.ffffffffffffffffp0L, 0x0.ffffffffffffffffp0L, 0x0.fffffffffffffffep0L, -0x1p-128L);
8221 TEST_fff_f (fma, -0x0.ffffffffffffffffp0L, -0x0.ffffffffffffffffp0L, -0x0.fffffffffffffffep0L, 0x1p-128L);
82477c28
JM		 8222 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, 0x1.0000000000000002p-66L, 0x1p16383L, 0x1p16383L);
8223 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, -0x1.0000000000000002p-66L, 0x1p16383L, 0x1p16383L);
8224 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, 0x1.0000000000000002p-66L, -0x1p16383L, -0x1p16383L);
8225 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, -0x1.0000000000000002p-66L, -0x1p16383L, -0x1p16383L);
8226 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, 0x1.0000000000000002p-66L, 0x1p16319L, 0x1p16319L);
8227 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, -0x1.0000000000000002p-66L, 0x1p16319L, 0x1p16319L);
8228 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, 0x1.0000000000000002p-66L, -0x1p16319L, -0x1p16319L);
8229 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, -0x1.0000000000000002p-66L, -0x1p16319L, -0x1p16319L);
9ff8d36f 8230#endif
7c08a05c
JJ		 8231#if defined (TEST_LDOUBLE) && LDBL_MANT_DIG == 113
8232 TEST_fff_f (fma, 0x1.bb2de33e02ccbbfa6e245a7c1f71p-2584L, -0x1.6b500daf0580d987f1bc0cadfcddp-13777L, 0x1.613cd91d9fed34b33820e5ab9d8dp-16378L, -0x1.3a79fb50eb9ce887cffa0f09bd9fp-16360L);
80bad0cc
JM		 8233 TEST_fff_f (fma, -0x1.f949b880cacb0f0c61540105321dp-5954L, -0x1.3876cec84b4140f3bd6198731b7ep-10525L, -0x0.a5dc1c6cfbc498c54fb0b504bf19p-16382L, -0x0.a5dc1c6cfbc498c54fb0b5038abbp-16382L, UNDERFLOW_EXCEPTION);
8234 TEST_fff_f (fma, -0x1.0000fffffffffp-16221L, 0x1.0000001fffff8007fep-239L, 0x0.ff87ffffffffffffe000003fffffp-16382L, 0x0.ff87ffffffffffffdffc003bff7fp-16382L, UNDERFLOW_EXCEPTION);
7c08a05c
JJ		 8235 TEST_fff_f (fma, -0x1.ac79c9376ef447f3827c9e9de008p-2228L, -0x1.5ba830022b6139e21fbe7270cad8p-6314L, 0x1.e8282b6a26bb6a9daf5c8e73e9f9p-8616L, 0x1.22f14a0253878a730cd1aee373adp-8541L);
8236 TEST_fff_f (fma, -0x1.c69749ec574caaa2ab8e97ddb9f3p+2652L, 0x1.f34235ff9d095449c29b4831b62dp+3311L, 0x1.fbe4302df23354dbd0c4d3cfe606p+5879L, -0x1.bb473bfdfb7a6e18886ce6e57eafp+5964L);
8237 TEST_fff_f (fma, -0x1.ca8835fc6ecfb5398625fc891be5p-1686L, 0x1.621e1972bbe2180e5be9dd7d8df5p-7671L, -0x1.7d2d21b73b52cf20dec2a83902a4p-9395L, -0x1.3d2322191c9c88bc68a62ab8042cp-9356L);
8238 TEST_fff_f (fma, -0x1.55cff679ec49c2541fab41fc843ep-11819L, 0x1.e60e9f464f9e8df0509647c7c971p+12325L, 0x1.eaa2a7649d765c2f564f7a5beca7p+454L, -0x1.447e29fa7e406a285f4e350fcf86p+507L);
8239 TEST_fff_f (fma, 0x1.f0e7b1454908576f2537d863cf9bp+11432L, 0x1.cdce52f09d4ca76e68706f34b5d5p-1417L, -0x1.2e986187c70f146235ea2066e486p+9979L, 0x1.c030dad3cc5643f3dd0f5619f661p+10016L);
8240 TEST_fff_f (fma, 0x1.f102f7da4a57a3a4aab620e29452p-3098L, -0x1.cc06a4ff40248f9e2dcc4b6afd84p-11727L, 0x1.d512a11126b5ac8ed8973b8580c8p-14849L, -0x1.be8f1cf737ab4d1c31c54f5ec23bp-14824L);
8241 TEST_fff_f (fma, -0x1.fc47ac7434b993cd8dcb2b431f25p-3816L, 0x1.fbc9750da8468852d84558e1db6dp-5773L, -0x1.00a98abf783f75c40fe5b7a37d86p-9607L, -0x1.f81917b166f45e763cfcc057e2adp-9588L);
8242 TEST_fff_f (fma, 0x1.00000000000007ffffffffffffffp-9045L, -0x1.ffffffffffff80000001ffffffffp+4773L, -0x1.f8p-4316L, -0x1.00000000000f88000000fffffdffp-4271L);
8243 TEST_fff_f (fma, 0x1.4e922764c90701d4a2f21d01893dp-8683L, -0x1.955a12e2d7c9447c27fa022fc865p+212L, -0x1.e9634462eaef96528b90b6944578p-8521L, -0x1.08e1783184a371943d3598e10865p-8470L);
8244 TEST_fff_f (fma, 0x1.801181509c03bdbef10d6165588cp-15131L, 0x1.ad86f8e57d3d40bfa8007780af63p-368L, -0x1.6e9df0dab1c9f1d7a6043c390741p-15507L, 0x1.417c9b2b15e2ad57dc9e0e920844p-15498L);
8627a232
JM		 8245 TEST_fff_f (fma, 0x1.4p-16382L, 0x1.0000000000000000000000000002p-1L, 0x1p-16384L, 0x1.c000000000000000000000000002p-16383L, UNDERFLOW_EXCEPTION);
8246 TEST_fff_f (fma, -0x1.4p-16382L, 0x1.0000000000000000000000000002p-1L, -0x1p-16384L, -0x1.c000000000000000000000000002p-16383L, UNDERFLOW_EXCEPTION);
ef82f4da
JM		 8247 TEST_fff_f (fma, 0x1.fffffffffffffffffffffffffffcp-16382L, 0x1.0000000000000000000000000001p-1L, 0x1p-16494L, 0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8248 TEST_fff_f (fma, -0x1.fffffffffffffffffffffffffffcp-16382L, 0x1.0000000000000000000000000001p-1L, -0x1p-16494L, -0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8249 TEST_fff_f (fma, 0x1p-16494L, 0x1p-1L, 0x0.ffffffffffffffffffffffffffffp-16382L, 0x1p-16382L, UNDERFLOW_EXCEPTION);
8250 TEST_fff_f (fma, -0x1p-16494L, 0x1p-1L, -0x0.ffffffffffffffffffffffffffffp-16382L, -0x1p-16382L, UNDERFLOW_EXCEPTION);
8251 TEST_fff_f (fma, 0x1p-16494L, 0x1.1p-1L, 0x0.ffffffffffffffffffffffffffffp-16382L, 0x1p-16382L, UNDERFLOW_EXCEPTION);
8252 TEST_fff_f (fma, -0x1p-16494L, 0x1.1p-1L, -0x0.ffffffffffffffffffffffffffffp-16382L, -0x1p-16382L, UNDERFLOW_EXCEPTION);
473611b2
JM		 8253 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, 0x1p16383L, 0x1p16383L);
8254 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, 0x1p16383L, 0x1p16383L);
8255 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, -0x1p16383L, -0x1p16383L);
8256 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, -0x1p16383L, -0x1p16383L);
8257 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, 0x1p-16382L, 0x1p-16382L);
8258 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, 0x1p-16382L, 0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8259 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, -0x1p-16382L, -0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8260 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, -0x1p-16382L, -0x1p-16382L);
8261 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, 0x0.ffffffffffffffffffffffffffffp-16382L, 0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8262 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, 0x0.ffffffffffffffffffffffffffffp-16382L, 0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8263 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, -0x0.ffffffffffffffffffffffffffffp-16382L, -0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8264 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, -0x0.ffffffffffffffffffffffffffffp-16382L, -0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8265 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, 0x1p-16494L, 0x1p-16494L, UNDERFLOW_EXCEPTION);
8266 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, 0x1p-16494L, 0x1p-16494L, UNDERFLOW_EXCEPTION);
8267 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, -0x1p-16494L, -0x1p-16494L, UNDERFLOW_EXCEPTION);
8268 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, -0x1p-16494L, -0x1p-16494L, UNDERFLOW_EXCEPTION);
5b5b04d6
JM		 8269 TEST_fff_f (fma, 0x0.ffffffffffffffffffffffffffff8p0L, 0x0.ffffffffffffffffffffffffffff8p0L, -0x0.ffffffffffffffffffffffffffffp0L, 0x1p-226L);
8270 TEST_fff_f (fma, 0x0.ffffffffffffffffffffffffffff8p0L, -0x0.ffffffffffffffffffffffffffff8p0L, 0x0.ffffffffffffffffffffffffffffp0L, -0x1p-226L);
8271 TEST_fff_f (fma, -0x0.ffffffffffffffffffffffffffff8p0L, 0x0.ffffffffffffffffffffffffffff8p0L, 0x0.ffffffffffffffffffffffffffffp0L, -0x1p-226L);
8272 TEST_fff_f (fma, -0x0.ffffffffffffffffffffffffffff8p0L, -0x0.ffffffffffffffffffffffffffff8p0L, -0x0.ffffffffffffffffffffffffffffp0L, 0x1p-226L);
82477c28
JM		 8273 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, 0x1.0000000000000000000000000001p-66L, 0x1p16383L, 0x1p16383L);
8274 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, -0x1.0000000000000000000000000001p-66L, 0x1p16383L, 0x1p16383L);
8275 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, 0x1.0000000000000000000000000001p-66L, -0x1p16383L, -0x1p16383L);
8276 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, -0x1.0000000000000000000000000001p-66L, -0x1p16383L, -0x1p16383L);
8277 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, 0x1.0000000000000000000000000001p-66L, 0x1p16319L, 0x1p16319L);
8278 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, -0x1.0000000000000000000000000001p-66L, 0x1p16319L, 0x1p16319L);
8279 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, 0x1.0000000000000000000000000001p-66L, -0x1p16319L, -0x1p16319L);
8280 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, -0x1.0000000000000000000000000001p-66L, -0x1p16319L, -0x1p16319L);
7c08a05c 8281#endif
2550dfe9 8282
8847214f
UD		 8283 END (fma);
8284}
8285
8286
8ec5b013
JM		 8287static void
8288fma_test_towardzero (void)
8289{
8290 int save_round_mode;
8291 START (fma_towardzero);
8292
8293 save_round_mode = fegetround ();
8294
8295 if (!fesetround (FE_TOWARDZERO))
8296 {
8297 TEST_fff_f (fma, plus_zero, plus_zero, plus_zero, plus_zero);
8298 TEST_fff_f (fma, plus_zero, plus_zero, minus_zero, plus_zero);
8299 TEST_fff_f (fma, plus_zero, minus_zero, plus_zero, plus_zero);
8300 TEST_fff_f (fma, plus_zero, minus_zero, minus_zero, minus_zero);
8301 TEST_fff_f (fma, minus_zero, plus_zero, plus_zero, plus_zero);
8302 TEST_fff_f (fma, minus_zero, plus_zero, minus_zero, minus_zero);
8303 TEST_fff_f (fma, minus_zero, minus_zero, plus_zero, plus_zero);
8304 TEST_fff_f (fma, minus_zero, minus_zero, minus_zero, plus_zero);
8305 TEST_fff_f (fma, 1.0, plus_zero, plus_zero, plus_zero);
8306 TEST_fff_f (fma, 1.0, plus_zero, minus_zero, plus_zero);
8307 TEST_fff_f (fma, 1.0, minus_zero, plus_zero, plus_zero);
8308 TEST_fff_f (fma, 1.0, minus_zero, minus_zero, minus_zero);
8309 TEST_fff_f (fma, -1.0, plus_zero, plus_zero, plus_zero);
8310 TEST_fff_f (fma, -1.0, plus_zero, minus_zero, minus_zero);
8311 TEST_fff_f (fma, -1.0, minus_zero, plus_zero, plus_zero);
8312 TEST_fff_f (fma, -1.0, minus_zero, minus_zero, plus_zero);
8313 TEST_fff_f (fma, plus_zero, 1.0, plus_zero, plus_zero);
8314 TEST_fff_f (fma, plus_zero, 1.0, minus_zero, plus_zero);
8315 TEST_fff_f (fma, plus_zero, -1.0, plus_zero, plus_zero);
8316 TEST_fff_f (fma, plus_zero, -1.0, minus_zero, minus_zero);
8317 TEST_fff_f (fma, minus_zero, 1.0, plus_zero, plus_zero);
8318 TEST_fff_f (fma, minus_zero, 1.0, minus_zero, minus_zero);
8319 TEST_fff_f (fma, minus_zero, -1.0, plus_zero, plus_zero);
8320 TEST_fff_f (fma, minus_zero, -1.0, minus_zero, plus_zero);
8321
8322 TEST_fff_f (fma, 1.0, 1.0, -1.0, plus_zero);
8323 TEST_fff_f (fma, 1.0, -1.0, 1.0, plus_zero);
8324 TEST_fff_f (fma, -1.0, 1.0, 1.0, plus_zero);
8325 TEST_fff_f (fma, -1.0, -1.0, -1.0, plus_zero);
bec749fd
JM		 8326
8327 TEST_fff_f (fma, min_value, min_value, plus_zero, plus_zero, UNDERFLOW_EXCEPTION);
8328 TEST_fff_f (fma, min_value, min_value, minus_zero, plus_zero, UNDERFLOW_EXCEPTION);
8329 TEST_fff_f (fma, min_value, -min_value, plus_zero, minus_zero, UNDERFLOW_EXCEPTION);
8330 TEST_fff_f (fma, min_value, -min_value, minus_zero, minus_zero, UNDERFLOW_EXCEPTION);
8331 TEST_fff_f (fma, -min_value, min_value, plus_zero, minus_zero, UNDERFLOW_EXCEPTION);
8332 TEST_fff_f (fma, -min_value, min_value, minus_zero, minus_zero, UNDERFLOW_EXCEPTION);
8333 TEST_fff_f (fma, -min_value, -min_value, plus_zero, plus_zero, UNDERFLOW_EXCEPTION);
8334 TEST_fff_f (fma, -min_value, -min_value, minus_zero, plus_zero, UNDERFLOW_EXCEPTION);
8627a232 8335
7184dcdf 8336#if !(defined TEST_LDOUBLE && LDBL_MANT_DIG == 106) /* Bug 13304. */
a0c2940d
JM		 8337 TEST_fff_f (fma, max_value, max_value, min_value, max_value, OVERFLOW_EXCEPTION);
8338 TEST_fff_f (fma, max_value, max_value, -min_value, max_value, OVERFLOW_EXCEPTION);
8339 TEST_fff_f (fma, max_value, -max_value, min_value, -max_value, OVERFLOW_EXCEPTION);
8340 TEST_fff_f (fma, max_value, -max_value, -min_value, -max_value, OVERFLOW_EXCEPTION);
8341 TEST_fff_f (fma, -max_value, max_value, min_value, -max_value, OVERFLOW_EXCEPTION);
8342 TEST_fff_f (fma, -max_value, max_value, -min_value, -max_value, OVERFLOW_EXCEPTION);
8343 TEST_fff_f (fma, -max_value, -max_value, min_value, max_value, OVERFLOW_EXCEPTION);
8344 TEST_fff_f (fma, -max_value, -max_value, -min_value, max_value, OVERFLOW_EXCEPTION);
7184dcdf 8345#endif
a0c2940d 8346
8627a232
JM		 8347#if defined (TEST_FLOAT) && FLT_MANT_DIG == 24
8348 TEST_fff_f (fma, 0x1.4p-126, 0x1.000004p-1, 0x1p-128, 0x1.c00004p-127, UNDERFLOW_EXCEPTION);
8349 TEST_fff_f (fma, -0x1.4p-126, 0x1.000004p-1, -0x1p-128, -0x1.c00004p-127, UNDERFLOW_EXCEPTION);
ef82f4da
JM		 8350 TEST_fff_f (fma, 0x1.fffff8p-126, 0x1.000002p-1, 0x1p-149, 0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8351 TEST_fff_f (fma, -0x1.fffff8p-126, 0x1.000002p-1, -0x1p-149, -0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8352 TEST_fff_f (fma, 0x1p-149, 0x1p-1, 0x0.fffffep-126, 0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8353 TEST_fff_f (fma, -0x1p-149, 0x1p-1, -0x0.fffffep-126, -0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8354 TEST_fff_f (fma, 0x1p-149, 0x1.1p-1, 0x0.fffffep-126, 0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8355 TEST_fff_f (fma, -0x1p-149, 0x1.1p-1, -0x0.fffffep-126, -0x0.fffffep-126, UNDERFLOW_EXCEPTION);
473611b2
JM		 8356 TEST_fff_f (fma, 0x1p-149, 0x1p-149, 0x1p127, 0x1p127);
8357 TEST_fff_f (fma, 0x1p-149, -0x1p-149, 0x1p127, 0x0.ffffffp127);
8358 TEST_fff_f (fma, 0x1p-149, 0x1p-149, -0x1p127, -0x0.ffffffp127);
8359 TEST_fff_f (fma, 0x1p-149, -0x1p-149, -0x1p127, -0x1p127);
8360 TEST_fff_f (fma, 0x1p-149, 0x1p-149, 0x1p-126, 0x1p-126);
8361 TEST_fff_f (fma, 0x1p-149, -0x1p-149, 0x1p-126, 0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8362 TEST_fff_f (fma, 0x1p-149, 0x1p-149, -0x1p-126, -0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8363 TEST_fff_f (fma, 0x1p-149, -0x1p-149, -0x1p-126, -0x1p-126);
8364 TEST_fff_f (fma, 0x1p-149, 0x1p-149, 0x0.fffffep-126, 0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8365 TEST_fff_f (fma, 0x1p-149, -0x1p-149, 0x0.fffffep-126, 0x0.fffffcp-126, UNDERFLOW_EXCEPTION);
8366 TEST_fff_f (fma, 0x1p-149, 0x1p-149, -0x0.fffffep-126, -0x0.fffffcp-126, UNDERFLOW_EXCEPTION);
8367 TEST_fff_f (fma, 0x1p-149, -0x1p-149, -0x0.fffffep-126, -0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8368 TEST_fff_f (fma, 0x1p-149, 0x1p-149, 0x1p-149, 0x1p-149, UNDERFLOW_EXCEPTION);
8369 TEST_fff_f (fma, 0x1p-149, -0x1p-149, 0x1p-149, plus_zero, UNDERFLOW_EXCEPTION);
8370 TEST_fff_f (fma, 0x1p-149, 0x1p-149, -0x1p-149, minus_zero, UNDERFLOW_EXCEPTION);
8371 TEST_fff_f (fma, 0x1p-149, -0x1p-149, -0x1p-149, -0x1p-149, UNDERFLOW_EXCEPTION);
5b5b04d6
JM		 8372 TEST_fff_f (fma, 0x0.fffp0, 0x0.fffp0, -0x0.ffep0, 0x1p-24);
8373 TEST_fff_f (fma, 0x0.fffp0, -0x0.fffp0, 0x0.ffep0, -0x1p-24);
8374 TEST_fff_f (fma, -0x0.fffp0, 0x0.fffp0, 0x0.ffep0, -0x1p-24);
8375 TEST_fff_f (fma, -0x0.fffp0, -0x0.fffp0, -0x0.ffep0, 0x1p-24);
82477c28
JM		 8376 TEST_fff_f (fma, 0x1.000002p-126, 0x1.000002p-26, 0x1p127, 0x1p127);
8377 TEST_fff_f (fma, 0x1.000002p-126, -0x1.000002p-26, 0x1p127, 0x0.ffffffp127);
8378 TEST_fff_f (fma, 0x1.000002p-126, 0x1.000002p-26, -0x1p127, -0x0.ffffffp127);
8379 TEST_fff_f (fma, 0x1.000002p-126, -0x1.000002p-26, -0x1p127, -0x1p127);
8380 TEST_fff_f (fma, 0x1.000002p-126, 0x1.000002p-26, 0x1p103, 0x1p103);
8381 TEST_fff_f (fma, 0x1.000002p-126, -0x1.000002p-26, 0x1p103, 0x0.ffffffp103);
8382 TEST_fff_f (fma, 0x1.000002p-126, 0x1.000002p-26, -0x1p103, -0x0.ffffffp103);
8383 TEST_fff_f (fma, 0x1.000002p-126, -0x1.000002p-26, -0x1p103, -0x1p103);
8627a232
JM		 8384#endif
8385#if defined (TEST_DOUBLE) && DBL_MANT_DIG == 53
8386 TEST_fff_f (fma, 0x1.4p-1022, 0x1.0000000000002p-1, 0x1p-1024, 0x1.c000000000002p-1023, UNDERFLOW_EXCEPTION);
8387 TEST_fff_f (fma, -0x1.4p-1022, 0x1.0000000000002p-1, -0x1p-1024, -0x1.c000000000002p-1023, UNDERFLOW_EXCEPTION);
ef82f4da
JM		 8388 TEST_fff_f (fma, 0x1.ffffffffffffcp-1022, 0x1.0000000000001p-1, 0x1p-1074, 0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8389 TEST_fff_f (fma, -0x1.ffffffffffffcp-1022, 0x1.0000000000001p-1, -0x1p-1074, -0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8390 TEST_fff_f (fma, 0x1p-1074, 0x1p-1, 0x0.fffffffffffffp-1022, 0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8391 TEST_fff_f (fma, -0x1p-1074, 0x1p-1, -0x0.fffffffffffffp-1022, -0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8392 TEST_fff_f (fma, 0x1p-1074, 0x1.1p-1, 0x0.fffffffffffffp-1022, 0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8393 TEST_fff_f (fma, -0x1p-1074, 0x1.1p-1, -0x0.fffffffffffffp-1022, -0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
473611b2
JM		 8394 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, 0x1p1023, 0x1p1023);
8395 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, 0x1p1023, 0x0.fffffffffffff8p1023);
8396 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, -0x1p1023, -0x0.fffffffffffff8p1023);
8397 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, -0x1p1023, -0x1p1023);
8398 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, 0x1p-1022, 0x1p-1022);
8399 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, 0x1p-1022, 0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8400 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, -0x1p-1022, -0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8401 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, -0x1p-1022, -0x1p-1022);
8402 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, 0x0.fffffffffffffp-1022, 0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8403 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, 0x0.fffffffffffffp-1022, 0x0.ffffffffffffep-1022, UNDERFLOW_EXCEPTION);
8404 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, -0x0.fffffffffffffp-1022, -0x0.ffffffffffffep-1022, UNDERFLOW_EXCEPTION);
8405 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, -0x0.fffffffffffffp-1022, -0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8406 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, 0x1p-1074, 0x1p-1074, UNDERFLOW_EXCEPTION);
8407 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, 0x1p-1074, plus_zero, UNDERFLOW_EXCEPTION);
8408 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, -0x1p-1074, minus_zero, UNDERFLOW_EXCEPTION);
8409 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, -0x1p-1074, -0x1p-1074, UNDERFLOW_EXCEPTION);
5b5b04d6
JM		 8410 TEST_fff_f (fma, 0x0.fffffffffffff8p0, 0x0.fffffffffffff8p0, -0x0.fffffffffffffp0, 0x1p-106);
8411 TEST_fff_f (fma, 0x0.fffffffffffff8p0, -0x0.fffffffffffff8p0, 0x0.fffffffffffffp0, -0x1p-106);
8412 TEST_fff_f (fma, -0x0.fffffffffffff8p0, 0x0.fffffffffffff8p0, 0x0.fffffffffffffp0, -0x1p-106);
8413 TEST_fff_f (fma, -0x0.fffffffffffff8p0, -0x0.fffffffffffff8p0, -0x0.fffffffffffffp0, 0x1p-106);
82477c28
JM		 8414 TEST_fff_f (fma, 0x1.0000000000001p-1022, 0x1.0000000000001p-55, 0x1p1023, 0x1p1023);
8415 TEST_fff_f (fma, 0x1.0000000000001p-1022, -0x1.0000000000001p-55, 0x1p1023, 0x0.fffffffffffff8p1023);
8416 TEST_fff_f (fma, 0x1.0000000000001p-1022, 0x1.0000000000001p-55, -0x1p1023, -0x0.fffffffffffff8p1023);
8417 TEST_fff_f (fma, 0x1.0000000000001p-1022, -0x1.0000000000001p-55, -0x1p1023, -0x1p1023);
8418 TEST_fff_f (fma, 0x1.0000000000001p-1022, 0x1.0000000000001p-55, 0x1p970, 0x1p970);
8419 TEST_fff_f (fma, 0x1.0000000000001p-1022, -0x1.0000000000001p-55, 0x1p970, 0x0.fffffffffffff8p970);
8420 TEST_fff_f (fma, 0x1.0000000000001p-1022, 0x1.0000000000001p-55, -0x1p970, -0x0.fffffffffffff8p970);
8421 TEST_fff_f (fma, 0x1.0000000000001p-1022, -0x1.0000000000001p-55, -0x1p970, -0x1p970);
8627a232
JM		 8422#endif
8423#if defined (TEST_LDOUBLE) && LDBL_MANT_DIG == 64
8424 TEST_fff_f (fma, 0x1.4p-16382L, 0x1.0000000000000004p-1L, 0x1p-16384L, 0x1.c000000000000004p-16383L, UNDERFLOW_EXCEPTION);
8425 TEST_fff_f (fma, -0x1.4p-16382L, 0x1.0000000000000004p-1L, -0x1p-16384L, -0x1.c000000000000004p-16383L, UNDERFLOW_EXCEPTION);
ef82f4da
JM		 8426 TEST_fff_f (fma, 0x1.fffffffffffffff8p-16382L, 0x1.0000000000000002p-1L, 0x1p-16445L, 0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8427 TEST_fff_f (fma, -0x1.fffffffffffffff8p-16382L, 0x1.0000000000000002p-1L, -0x1p-16445L, -0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8428 TEST_fff_f (fma, 0x1p-16445L, 0x1p-1L, 0x0.fffffffffffffffep-16382L, 0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8429 TEST_fff_f (fma, -0x1p-16445L, 0x1p-1L, -0x0.fffffffffffffffep-16382L, -0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8430 TEST_fff_f (fma, 0x1p-16445L, 0x1.1p-1L, 0x0.fffffffffffffffep-16382L, 0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8431 TEST_fff_f (fma, -0x1p-16445L, 0x1.1p-1L, -0x0.fffffffffffffffep-16382L, -0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
473611b2
JM		 8432 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, 0x1p16383L, 0x1p16383L);
8433 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, 0x1p16383L, 0x0.ffffffffffffffffp16383L);
8434 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, -0x1p16383L, -0x0.ffffffffffffffffp16383L);
8435 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, -0x1p16383L, -0x1p16383L);
8436 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, 0x1p-16382L, 0x1p-16382L);
8437 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, 0x1p-16382L, 0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8438 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, -0x1p-16382L, -0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8439 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, -0x1p-16382L, -0x1p-16382L);
8440 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, 0x0.fffffffffffffffep-16382L, 0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8441 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, 0x0.fffffffffffffffep-16382L, 0x0.fffffffffffffffcp-16382L, UNDERFLOW_EXCEPTION);
8442 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, -0x0.fffffffffffffffep-16382L, -0x0.fffffffffffffffcp-16382L, UNDERFLOW_EXCEPTION);
8443 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, -0x0.fffffffffffffffep-16382L, -0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8444 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, 0x1p-16445L, 0x1p-16445L, UNDERFLOW_EXCEPTION);
8445 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, 0x1p-16445L, plus_zero, UNDERFLOW_EXCEPTION);
8446 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, -0x1p-16445L, minus_zero, UNDERFLOW_EXCEPTION);
8447 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, -0x1p-16445L, -0x1p-16445L, UNDERFLOW_EXCEPTION);
5b5b04d6
JM		 8448 TEST_fff_f (fma, 0x0.ffffffffffffffffp0L, 0x0.ffffffffffffffffp0L, -0x0.fffffffffffffffep0L, 0x1p-128L);
8449 TEST_fff_f (fma, 0x0.ffffffffffffffffp0L, -0x0.ffffffffffffffffp0L, 0x0.fffffffffffffffep0L, -0x1p-128L);
8450 TEST_fff_f (fma, -0x0.ffffffffffffffffp0L, 0x0.ffffffffffffffffp0L, 0x0.fffffffffffffffep0L, -0x1p-128L);
8451 TEST_fff_f (fma, -0x0.ffffffffffffffffp0L, -0x0.ffffffffffffffffp0L, -0x0.fffffffffffffffep0L, 0x1p-128L);
82477c28
JM		 8452 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, 0x1.0000000000000002p-66L, 0x1p16383L, 0x1p16383L);
8453 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, -0x1.0000000000000002p-66L, 0x1p16383L, 0x0.ffffffffffffffffp16383L);
8454 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, 0x1.0000000000000002p-66L, -0x1p16383L, -0x0.ffffffffffffffffp16383L);
8455 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, -0x1.0000000000000002p-66L, -0x1p16383L, -0x1p16383L);
8456 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, 0x1.0000000000000002p-66L, 0x1p16319L, 0x1p16319L);
8457 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, -0x1.0000000000000002p-66L, 0x1p16319L, 0x0.ffffffffffffffffp16319L);
8458 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, 0x1.0000000000000002p-66L, -0x1p16319L, -0x0.ffffffffffffffffp16319L);
8459 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, -0x1.0000000000000002p-66L, -0x1p16319L, -0x1p16319L);
8627a232
JM		 8460#endif
8461#if defined (TEST_LDOUBLE) && LDBL_MANT_DIG == 113
8462 TEST_fff_f (fma, 0x1.4p-16382L, 0x1.0000000000000000000000000002p-1L, 0x1p-16384L, 0x1.c000000000000000000000000002p-16383L, UNDERFLOW_EXCEPTION);
8463 TEST_fff_f (fma, -0x1.4p-16382L, 0x1.0000000000000000000000000002p-1L, -0x1p-16384L, -0x1.c000000000000000000000000002p-16383L, UNDERFLOW_EXCEPTION);
ef82f4da
JM		 8464 TEST_fff_f (fma, 0x1.fffffffffffffffffffffffffffcp-16382L, 0x1.0000000000000000000000000001p-1L, 0x1p-16494L, 0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8465 TEST_fff_f (fma, -0x1.fffffffffffffffffffffffffffcp-16382L, 0x1.0000000000000000000000000001p-1L, -0x1p-16494L, -0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8466 TEST_fff_f (fma, 0x1p-16494L, 0x1p-1L, 0x0.ffffffffffffffffffffffffffffp-16382L, 0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8467 TEST_fff_f (fma, -0x1p-16494L, 0x1p-1L, -0x0.ffffffffffffffffffffffffffffp-16382L, -0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8468 TEST_fff_f (fma, 0x1p-16494L, 0x1.1p-1L, 0x0.ffffffffffffffffffffffffffffp-16382L, 0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8469 TEST_fff_f (fma, -0x1p-16494L, 0x1.1p-1L, -0x0.ffffffffffffffffffffffffffffp-16382L, -0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
473611b2
JM		 8470 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, 0x1p16383L, 0x1p16383L);
8471 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, 0x1p16383L, 0x0.ffffffffffffffffffffffffffff8p16383L);
8472 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, -0x1p16383L, -0x0.ffffffffffffffffffffffffffff8p16383L);
8473 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, -0x1p16383L, -0x1p16383L);
8474 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, 0x1p-16382L, 0x1p-16382L);
8475 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, 0x1p-16382L, 0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8476 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, -0x1p-16382L, -0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8477 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, -0x1p-16382L, -0x1p-16382L);
8478 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, 0x0.ffffffffffffffffffffffffffffp-16382L, 0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8479 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, 0x0.ffffffffffffffffffffffffffffp-16382L, 0x0.fffffffffffffffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8480 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, -0x0.ffffffffffffffffffffffffffffp-16382L, -0x0.fffffffffffffffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8481 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, -0x0.ffffffffffffffffffffffffffffp-16382L, -0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8482 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, 0x1p-16494L, 0x1p-16494L, UNDERFLOW_EXCEPTION);
8483 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, 0x1p-16494L, plus_zero, UNDERFLOW_EXCEPTION);
8484 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, -0x1p-16494L, minus_zero, UNDERFLOW_EXCEPTION);
8485 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, -0x1p-16494L, -0x1p-16494L, UNDERFLOW_EXCEPTION);
5b5b04d6
JM		 8486 TEST_fff_f (fma, 0x0.ffffffffffffffffffffffffffff8p0L, 0x0.ffffffffffffffffffffffffffff8p0L, -0x0.ffffffffffffffffffffffffffffp0L, 0x1p-226L);
8487 TEST_fff_f (fma, 0x0.ffffffffffffffffffffffffffff8p0L, -0x0.ffffffffffffffffffffffffffff8p0L, 0x0.ffffffffffffffffffffffffffffp0L, -0x1p-226L);
8488 TEST_fff_f (fma, -0x0.ffffffffffffffffffffffffffff8p0L, 0x0.ffffffffffffffffffffffffffff8p0L, 0x0.ffffffffffffffffffffffffffffp0L, -0x1p-226L);
8489 TEST_fff_f (fma, -0x0.ffffffffffffffffffffffffffff8p0L, -0x0.ffffffffffffffffffffffffffff8p0L, -0x0.ffffffffffffffffffffffffffffp0L, 0x1p-226L);
82477c28
JM		 8490 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, 0x1.0000000000000000000000000001p-66L, 0x1p16383L, 0x1p16383L);
8491 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, -0x1.0000000000000000000000000001p-66L, 0x1p16383L, 0x0.ffffffffffffffffffffffffffff8p16383L);
8492 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, 0x1.0000000000000000000000000001p-66L, -0x1p16383L, -0x0.ffffffffffffffffffffffffffff8p16383L);
8493 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, -0x1.0000000000000000000000000001p-66L, -0x1p16383L, -0x1p16383L);
8494 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, 0x1.0000000000000000000000000001p-66L, 0x1p16319L, 0x1p16319L);
8495 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, -0x1.0000000000000000000000000001p-66L, 0x1p16319L, 0x0.ffffffffffffffffffffffffffff8p16319L);
8496 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, 0x1.0000000000000000000000000001p-66L, -0x1p16319L, -0x0.ffffffffffffffffffffffffffff8p16319L);
8497 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, -0x1.0000000000000000000000000001p-66L, -0x1p16319L, -0x1p16319L);
8627a232 8498#endif
8ec5b013
JM		 8499 }
8500
8501 fesetround (save_round_mode);
8502
8503 END (fma_towardzero);
8504}
8505
8506
8507static void
8508fma_test_downward (void)
8509{
8510 int save_round_mode;
8511 START (fma_downward);
8512
8513 save_round_mode = fegetround ();
8514
8515 if (!fesetround (FE_DOWNWARD))
8516 {
8517 TEST_fff_f (fma, plus_zero, plus_zero, plus_zero, plus_zero);
8518 TEST_fff_f (fma, plus_zero, plus_zero, minus_zero, minus_zero);
8519 TEST_fff_f (fma, plus_zero, minus_zero, plus_zero, minus_zero);
8520 TEST_fff_f (fma, plus_zero, minus_zero, minus_zero, minus_zero);
8521 TEST_fff_f (fma, minus_zero, plus_zero, plus_zero, minus_zero);
8522 TEST_fff_f (fma, minus_zero, plus_zero, minus_zero, minus_zero);
8523 TEST_fff_f (fma, minus_zero, minus_zero, plus_zero, plus_zero);
8524 TEST_fff_f (fma, minus_zero, minus_zero, minus_zero, minus_zero);
8525 TEST_fff_f (fma, 1.0, plus_zero, plus_zero, plus_zero);
8526 TEST_fff_f (fma, 1.0, plus_zero, minus_zero, minus_zero);
8527 TEST_fff_f (fma, 1.0, minus_zero, plus_zero, minus_zero);
8528 TEST_fff_f (fma, 1.0, minus_zero, minus_zero, minus_zero);
8529 TEST_fff_f (fma, -1.0, plus_zero, plus_zero, minus_zero);
8530 TEST_fff_f (fma, -1.0, plus_zero, minus_zero, minus_zero);
8531 TEST_fff_f (fma, -1.0, minus_zero, plus_zero, plus_zero);
8532 TEST_fff_f (fma, -1.0, minus_zero, minus_zero, minus_zero);
8533 TEST_fff_f (fma, plus_zero, 1.0, plus_zero, plus_zero);
8534 TEST_fff_f (fma, plus_zero, 1.0, minus_zero, minus_zero);
8535 TEST_fff_f (fma, plus_zero, -1.0, plus_zero, minus_zero);
8536 TEST_fff_f (fma, plus_zero, -1.0, minus_zero, minus_zero);
8537 TEST_fff_f (fma, minus_zero, 1.0, plus_zero, minus_zero);
8538 TEST_fff_f (fma, minus_zero, 1.0, minus_zero, minus_zero);
8539 TEST_fff_f (fma, minus_zero, -1.0, plus_zero, plus_zero);
8540 TEST_fff_f (fma, minus_zero, -1.0, minus_zero, minus_zero);
8541
8542 TEST_fff_f (fma, 1.0, 1.0, -1.0, minus_zero);
8543 TEST_fff_f (fma, 1.0, -1.0, 1.0, minus_zero);
8544 TEST_fff_f (fma, -1.0, 1.0, 1.0, minus_zero);
8545 TEST_fff_f (fma, -1.0, -1.0, -1.0, minus_zero);
bec749fd
JM		 8546
8547 TEST_fff_f (fma, min_value, min_value, plus_zero, plus_zero, UNDERFLOW_EXCEPTION);
8548 TEST_fff_f (fma, min_value, min_value, minus_zero, plus_zero, UNDERFLOW_EXCEPTION);
8549 TEST_fff_f (fma, min_value, -min_value, plus_zero, -min_subnorm_value, UNDERFLOW_EXCEPTION);
8550 TEST_fff_f (fma, min_value, -min_value, minus_zero, -min_subnorm_value, UNDERFLOW_EXCEPTION);
8551 TEST_fff_f (fma, -min_value, min_value, plus_zero, -min_subnorm_value, UNDERFLOW_EXCEPTION);
8552 TEST_fff_f (fma, -min_value, min_value, minus_zero, -min_subnorm_value, UNDERFLOW_EXCEPTION);
8553 TEST_fff_f (fma, -min_value, -min_value, plus_zero, plus_zero, UNDERFLOW_EXCEPTION);
8554 TEST_fff_f (fma, -min_value, -min_value, minus_zero, plus_zero, UNDERFLOW_EXCEPTION);
8627a232 8555
7184dcdf 8556#if !(defined TEST_LDOUBLE && LDBL_MANT_DIG == 106) /* Bug 13304. */
a0c2940d
JM		 8557 TEST_fff_f (fma, max_value, max_value, min_value, max_value, OVERFLOW_EXCEPTION);
8558 TEST_fff_f (fma, max_value, max_value, -min_value, max_value, OVERFLOW_EXCEPTION);
8559 TEST_fff_f (fma, max_value, -max_value, min_value, minus_infty, OVERFLOW_EXCEPTION);
8560 TEST_fff_f (fma, max_value, -max_value, -min_value, minus_infty, OVERFLOW_EXCEPTION);
8561 TEST_fff_f (fma, -max_value, max_value, min_value, minus_infty, OVERFLOW_EXCEPTION);
8562 TEST_fff_f (fma, -max_value, max_value, -min_value, minus_infty, OVERFLOW_EXCEPTION);
8563 TEST_fff_f (fma, -max_value, -max_value, min_value, max_value, OVERFLOW_EXCEPTION);
8564 TEST_fff_f (fma, -max_value, -max_value, -min_value, max_value, OVERFLOW_EXCEPTION);
7184dcdf 8565#endif
a0c2940d 8566
8627a232
JM		 8567#if defined (TEST_FLOAT) && FLT_MANT_DIG == 24
8568 TEST_fff_f (fma, 0x1.4p-126, 0x1.000004p-1, 0x1p-128, 0x1.c00004p-127, UNDERFLOW_EXCEPTION);
8569 TEST_fff_f (fma, -0x1.4p-126, 0x1.000004p-1, -0x1p-128, -0x1.c00008p-127, UNDERFLOW_EXCEPTION);
ef82f4da
JM		 8570 TEST_fff_f (fma, 0x1.fffff8p-126, 0x1.000002p-1, 0x1p-149, 0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8571 TEST_fff_f (fma, -0x1.fffff8p-126, 0x1.000002p-1, -0x1p-149, -0x1p-126, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8572 TEST_fff_f (fma, 0x1p-149, 0x1p-1, 0x0.fffffep-126, 0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8573 TEST_fff_f (fma, -0x1p-149, 0x1p-1, -0x0.fffffep-126, -0x1p-126, UNDERFLOW_EXCEPTION);
8574 TEST_fff_f (fma, 0x1p-149, 0x1.1p-1, 0x0.fffffep-126, 0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8575 TEST_fff_f (fma, -0x1p-149, 0x1.1p-1, -0x0.fffffep-126, -0x1p-126, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
473611b2
JM		 8576 TEST_fff_f (fma, 0x1p-149, 0x1p-149, 0x1p127, 0x1p127);
8577 TEST_fff_f (fma, 0x1p-149, -0x1p-149, 0x1p127, 0x0.ffffffp127);
8578 TEST_fff_f (fma, 0x1p-149, 0x1p-149, -0x1p127, -0x1p127);
8579 TEST_fff_f (fma, 0x1p-149, -0x1p-149, -0x1p127, -0x1.000002p127);
8580 TEST_fff_f (fma, 0x1p-149, 0x1p-149, 0x1p-126, 0x1p-126);
8581 TEST_fff_f (fma, 0x1p-149, -0x1p-149, 0x1p-126, 0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8582 TEST_fff_f (fma, 0x1p-149, 0x1p-149, -0x1p-126, -0x1p-126, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8583 TEST_fff_f (fma, 0x1p-149, -0x1p-149, -0x1p-126, -0x1.000002p-126);
8584 TEST_fff_f (fma, 0x1p-149, 0x1p-149, 0x0.fffffep-126, 0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8585 TEST_fff_f (fma, 0x1p-149, -0x1p-149, 0x0.fffffep-126, 0x0.fffffcp-126, UNDERFLOW_EXCEPTION);
8586 TEST_fff_f (fma, 0x1p-149, 0x1p-149, -0x0.fffffep-126, -0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8587 TEST_fff_f (fma, 0x1p-149, -0x1p-149, -0x0.fffffep-126, -0x1p-126, UNDERFLOW_EXCEPTION);
8588 TEST_fff_f (fma, 0x1p-149, 0x1p-149, 0x1p-149, 0x1p-149, UNDERFLOW_EXCEPTION);
8589 TEST_fff_f (fma, 0x1p-149, -0x1p-149, 0x1p-149, plus_zero, UNDERFLOW_EXCEPTION);
8590 TEST_fff_f (fma, 0x1p-149, 0x1p-149, -0x1p-149, -0x1p-149, UNDERFLOW_EXCEPTION);
8591 TEST_fff_f (fma, 0x1p-149, -0x1p-149, -0x1p-149, -0x1p-148, UNDERFLOW_EXCEPTION);
5b5b04d6
JM		 8592 TEST_fff_f (fma, 0x0.fffp0, 0x0.fffp0, -0x0.ffep0, 0x1p-24);
8593 TEST_fff_f (fma, 0x0.fffp0, -0x0.fffp0, 0x0.ffep0, -0x1p-24);
8594 TEST_fff_f (fma, -0x0.fffp0, 0x0.fffp0, 0x0.ffep0, -0x1p-24);
8595 TEST_fff_f (fma, -0x0.fffp0, -0x0.fffp0, -0x0.ffep0, 0x1p-24);
82477c28
JM		 8596 TEST_fff_f (fma, 0x1.000002p-126, 0x1.000002p-26, 0x1p127, 0x1p127);
8597 TEST_fff_f (fma, 0x1.000002p-126, -0x1.000002p-26, 0x1p127, 0x0.ffffffp127);
8598 TEST_fff_f (fma, 0x1.000002p-126, 0x1.000002p-26, -0x1p127, -0x1p127);
8599 TEST_fff_f (fma, 0x1.000002p-126, -0x1.000002p-26, -0x1p127, -0x1.000002p127);
8600 TEST_fff_f (fma, 0x1.000002p-126, 0x1.000002p-26, 0x1p103, 0x1p103);
8601 TEST_fff_f (fma, 0x1.000002p-126, -0x1.000002p-26, 0x1p103, 0x0.ffffffp103);
8602 TEST_fff_f (fma, 0x1.000002p-126, 0x1.000002p-26, -0x1p103, -0x1p103);
8603 TEST_fff_f (fma, 0x1.000002p-126, -0x1.000002p-26, -0x1p103, -0x1.000002p103);
8627a232
JM		 8604#endif
8605#if defined (TEST_DOUBLE) && DBL_MANT_DIG == 53
8606 TEST_fff_f (fma, 0x1.4p-1022, 0x1.0000000000002p-1, 0x1p-1024, 0x1.c000000000002p-1023, UNDERFLOW_EXCEPTION);
8607 TEST_fff_f (fma, -0x1.4p-1022, 0x1.0000000000002p-1, -0x1p-1024, -0x1.c000000000004p-1023, UNDERFLOW_EXCEPTION);
ef82f4da
JM		 8608 TEST_fff_f (fma, 0x1.ffffffffffffcp-1022, 0x1.0000000000001p-1, 0x1p-1074, 0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8609 TEST_fff_f (fma, -0x1.ffffffffffffcp-1022, 0x1.0000000000001p-1, -0x1p-1074, -0x1p-1022, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8610 TEST_fff_f (fma, 0x1p-1074, 0x1p-1, 0x0.fffffffffffffp-1022, 0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8611 TEST_fff_f (fma, -0x1p-1074, 0x1p-1, -0x0.fffffffffffffp-1022, -0x1p-1022, UNDERFLOW_EXCEPTION);
8612 TEST_fff_f (fma, 0x1p-1074, 0x1.1p-1, 0x0.fffffffffffffp-1022, 0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8613 TEST_fff_f (fma, -0x1p-1074, 0x1.1p-1, -0x0.fffffffffffffp-1022, -0x1p-1022, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
473611b2
JM		 8614 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, 0x1p1023, 0x1p1023);
8615 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, 0x1p1023, 0x0.fffffffffffff8p1023);
8616 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, -0x1p1023, -0x1p1023);
8617 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, -0x1p1023, -0x1.0000000000001p1023);
8618 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, 0x1p-1022, 0x1p-1022);
8619 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, 0x1p-1022, 0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8620 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, -0x1p-1022, -0x1p-1022, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8621 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, -0x1p-1022, -0x1.0000000000001p-1022);
8622 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, 0x0.fffffffffffffp-1022, 0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8623 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, 0x0.fffffffffffffp-1022, 0x0.ffffffffffffep-1022, UNDERFLOW_EXCEPTION);
8624 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, -0x0.fffffffffffffp-1022, -0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8625 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, -0x0.fffffffffffffp-1022, -0x1p-1022, UNDERFLOW_EXCEPTION);
8626 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, 0x1p-1074, 0x1p-1074, UNDERFLOW_EXCEPTION);
8627 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, 0x1p-1074, plus_zero, UNDERFLOW_EXCEPTION);
8628 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, -0x1p-1074, -0x1p-1074, UNDERFLOW_EXCEPTION);
8629 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, -0x1p-1074, -0x1p-1073, UNDERFLOW_EXCEPTION);
5b5b04d6
JM		 8630 TEST_fff_f (fma, 0x0.fffffffffffff8p0, 0x0.fffffffffffff8p0, -0x0.fffffffffffffp0, 0x1p-106);
8631 TEST_fff_f (fma, 0x0.fffffffffffff8p0, -0x0.fffffffffffff8p0, 0x0.fffffffffffffp0, -0x1p-106);
8632 TEST_fff_f (fma, -0x0.fffffffffffff8p0, 0x0.fffffffffffff8p0, 0x0.fffffffffffffp0, -0x1p-106);
8633 TEST_fff_f (fma, -0x0.fffffffffffff8p0, -0x0.fffffffffffff8p0, -0x0.fffffffffffffp0, 0x1p-106);
82477c28
JM		 8634 TEST_fff_f (fma, 0x1.0000000000001p-1022, 0x1.0000000000001p-55, 0x1p1023, 0x1p1023);
8635 TEST_fff_f (fma, 0x1.0000000000001p-1022, -0x1.0000000000001p-55, 0x1p1023, 0x0.fffffffffffff8p1023);
8636 TEST_fff_f (fma, 0x1.0000000000001p-1022, 0x1.0000000000001p-55, -0x1p1023, -0x1p1023);
8637 TEST_fff_f (fma, 0x1.0000000000001p-1022, -0x1.0000000000001p-55, -0x1p1023, -0x1.0000000000001p1023);
8638 TEST_fff_f (fma, 0x1.0000000000001p-1022, 0x1.0000000000001p-55, 0x1p970, 0x1p970);
8639 TEST_fff_f (fma, 0x1.0000000000001p-1022, -0x1.0000000000001p-55, 0x1p970, 0x0.fffffffffffff8p970);
8640 TEST_fff_f (fma, 0x1.0000000000001p-1022, 0x1.0000000000001p-55, -0x1p970, -0x1p970);
8641 TEST_fff_f (fma, 0x1.0000000000001p-1022, -0x1.0000000000001p-55, -0x1p970, -0x1.0000000000001p970);
8627a232
JM		 8642#endif
8643#if defined (TEST_LDOUBLE) && LDBL_MANT_DIG == 64
8644 TEST_fff_f (fma, 0x1.4p-16382L, 0x1.0000000000000004p-1L, 0x1p-16384L, 0x1.c000000000000004p-16383L, UNDERFLOW_EXCEPTION);
8645 TEST_fff_f (fma, -0x1.4p-16382L, 0x1.0000000000000004p-1L, -0x1p-16384L, -0x1.c000000000000008p-16383L, UNDERFLOW_EXCEPTION);
ef82f4da
JM		 8646 TEST_fff_f (fma, 0x1.fffffffffffffff8p-16382L, 0x1.0000000000000002p-1L, 0x1p-16445L, 0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8647 TEST_fff_f (fma, -0x1.fffffffffffffff8p-16382L, 0x1.0000000000000002p-1L, -0x1p-16445L, -0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8648 TEST_fff_f (fma, 0x1p-16445L, 0x1p-1L, 0x0.fffffffffffffffep-16382L, 0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8649 TEST_fff_f (fma, -0x1p-16445L, 0x1p-1L, -0x0.fffffffffffffffep-16382L, -0x1p-16382L, UNDERFLOW_EXCEPTION);
8650 TEST_fff_f (fma, 0x1p-16445L, 0x1.1p-1L, 0x0.fffffffffffffffep-16382L, 0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8651 TEST_fff_f (fma, -0x1p-16445L, 0x1.1p-1L, -0x0.fffffffffffffffep-16382L, -0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
473611b2
JM		 8652 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, 0x1p16383L, 0x1p16383L);
8653 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, 0x1p16383L, 0x0.ffffffffffffffffp16383L);
8654 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, -0x1p16383L, -0x1p16383L);
8655 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, -0x1p16383L, -0x1.0000000000000002p16383L);
8656 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, 0x1p-16382L, 0x1p-16382L);
8657 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, 0x1p-16382L, 0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8658 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, -0x1p-16382L, -0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8659 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, -0x1p-16382L, -0x1.0000000000000002p-16382L);
8660 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, 0x0.fffffffffffffffep-16382L, 0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8661 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, 0x0.fffffffffffffffep-16382L, 0x0.fffffffffffffffcp-16382L, UNDERFLOW_EXCEPTION);
8662 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, -0x0.fffffffffffffffep-16382L, -0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8663 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, -0x0.fffffffffffffffep-16382L, -0x1p-16382L, UNDERFLOW_EXCEPTION);
8664 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, 0x1p-16445L, 0x1p-16445L, UNDERFLOW_EXCEPTION);
8665 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, 0x1p-16445L, plus_zero, UNDERFLOW_EXCEPTION);
8666 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, -0x1p-16445L, -0x1p-16445L, UNDERFLOW_EXCEPTION);
8667 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, -0x1p-16445L, -0x1p-16444L, UNDERFLOW_EXCEPTION);
5b5b04d6
JM		 8668 TEST_fff_f (fma, 0x0.ffffffffffffffffp0L, 0x0.ffffffffffffffffp0L, -0x0.fffffffffffffffep0L, 0x1p-128L);
8669 TEST_fff_f (fma, 0x0.ffffffffffffffffp0L, -0x0.ffffffffffffffffp0L, 0x0.fffffffffffffffep0L, -0x1p-128L);
8670 TEST_fff_f (fma, -0x0.ffffffffffffffffp0L, 0x0.ffffffffffffffffp0L, 0x0.fffffffffffffffep0L, -0x1p-128L);
8671 TEST_fff_f (fma, -0x0.ffffffffffffffffp0L, -0x0.ffffffffffffffffp0L, -0x0.fffffffffffffffep0L, 0x1p-128L);
82477c28
JM		 8672 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, 0x1.0000000000000002p-66L, 0x1p16383L, 0x1p16383L);
8673 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, -0x1.0000000000000002p-66L, 0x1p16383L, 0x0.ffffffffffffffffp16383L);
8674 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, 0x1.0000000000000002p-66L, -0x1p16383L, -0x1p16383L);
8675 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, -0x1.0000000000000002p-66L, -0x1p16383L, -0x1.0000000000000002p16383L);
8676 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, 0x1.0000000000000002p-66L, 0x1p16319L, 0x1p16319L);
8677 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, -0x1.0000000000000002p-66L, 0x1p16319L, 0x0.ffffffffffffffffp16319L);
8678 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, 0x1.0000000000000002p-66L, -0x1p16319L, -0x1p16319L);
8679 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, -0x1.0000000000000002p-66L, -0x1p16319L, -0x1.0000000000000002p16319L);
8627a232
JM		 8680#endif
8681#if defined (TEST_LDOUBLE) && LDBL_MANT_DIG == 113
8682 TEST_fff_f (fma, 0x1.4p-16382L, 0x1.0000000000000000000000000002p-1L, 0x1p-16384L, 0x1.c000000000000000000000000002p-16383L, UNDERFLOW_EXCEPTION);
8683 TEST_fff_f (fma, -0x1.4p-16382L, 0x1.0000000000000000000000000002p-1L, -0x1p-16384L, -0x1.c000000000000000000000000004p-16383L, UNDERFLOW_EXCEPTION);
ef82f4da
JM		 8684 TEST_fff_f (fma, 0x1.fffffffffffffffffffffffffffcp-16382L, 0x1.0000000000000000000000000001p-1L, 0x1p-16494L, 0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8685 TEST_fff_f (fma, -0x1.fffffffffffffffffffffffffffcp-16382L, 0x1.0000000000000000000000000001p-1L, -0x1p-16494L, -0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8686 TEST_fff_f (fma, 0x1p-16494L, 0x1p-1L, 0x0.ffffffffffffffffffffffffffffp-16382L, 0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8687 TEST_fff_f (fma, -0x1p-16494L, 0x1p-1L, -0x0.ffffffffffffffffffffffffffffp-16382L, -0x1p-16382L, UNDERFLOW_EXCEPTION);
8688 TEST_fff_f (fma, 0x1p-16494L, 0x1.1p-1L, 0x0.ffffffffffffffffffffffffffffp-16382L, 0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8689 TEST_fff_f (fma, -0x1p-16494L, 0x1.1p-1L, -0x0.ffffffffffffffffffffffffffffp-16382L, -0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
473611b2
JM		 8690 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, 0x1p16383L, 0x1p16383L);
8691 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, 0x1p16383L, 0x0.ffffffffffffffffffffffffffff8p16383L);
8692 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, -0x1p16383L, -0x1p16383L);
8693 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, -0x1p16383L, -0x1.0000000000000000000000000001p16383L);
8694 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, 0x1p-16382L, 0x1p-16382L);
8695 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, 0x1p-16382L, 0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8696 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, -0x1p-16382L, -0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8697 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, -0x1p-16382L, -0x1.0000000000000000000000000001p-16382L);
8698 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, 0x0.ffffffffffffffffffffffffffffp-16382L, 0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8699 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, 0x0.ffffffffffffffffffffffffffffp-16382L, 0x0.fffffffffffffffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8700 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, -0x0.ffffffffffffffffffffffffffffp-16382L, -0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8701 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, -0x0.ffffffffffffffffffffffffffffp-16382L, -0x1p-16382L, UNDERFLOW_EXCEPTION);
8702 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, 0x1p-16494L, 0x1p-16494L, UNDERFLOW_EXCEPTION);
8703 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, 0x1p-16494L, plus_zero, UNDERFLOW_EXCEPTION);
8704 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, -0x1p-16494L, -0x1p-16494L, UNDERFLOW_EXCEPTION);
8705 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, -0x1p-16494L, -0x1p-16493L, UNDERFLOW_EXCEPTION);
5b5b04d6
JM		 8706 TEST_fff_f (fma, 0x0.ffffffffffffffffffffffffffff8p0L, 0x0.ffffffffffffffffffffffffffff8p0L, -0x0.ffffffffffffffffffffffffffffp0L, 0x1p-226L);
8707 TEST_fff_f (fma, 0x0.ffffffffffffffffffffffffffff8p0L, -0x0.ffffffffffffffffffffffffffff8p0L, 0x0.ffffffffffffffffffffffffffffp0L, -0x1p-226L);
8708 TEST_fff_f (fma, -0x0.ffffffffffffffffffffffffffff8p0L, 0x0.ffffffffffffffffffffffffffff8p0L, 0x0.ffffffffffffffffffffffffffffp0L, -0x1p-226L);
8709 TEST_fff_f (fma, -0x0.ffffffffffffffffffffffffffff8p0L, -0x0.ffffffffffffffffffffffffffff8p0L, -0x0.ffffffffffffffffffffffffffffp0L, 0x1p-226L);
82477c28
JM		 8710 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, 0x1.0000000000000000000000000001p-66L, 0x1p16383L, 0x1p16383L);
8711 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, -0x1.0000000000000000000000000001p-66L, 0x1p16383L, 0x0.ffffffffffffffffffffffffffff8p16383L);
8712 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, 0x1.0000000000000000000000000001p-66L, -0x1p16383L, -0x1p16383L);
8713 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, -0x1.0000000000000000000000000001p-66L, -0x1p16383L, -0x1.0000000000000000000000000001p16383L);
8714 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, 0x1.0000000000000000000000000001p-66L, 0x1p16319L, 0x1p16319L);
8715 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, -0x1.0000000000000000000000000001p-66L, 0x1p16319L, 0x0.ffffffffffffffffffffffffffff8p16319L);
8716 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, 0x1.0000000000000000000000000001p-66L, -0x1p16319L, -0x1p16319L);
8717 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, -0x1.0000000000000000000000000001p-66L, -0x1p16319L, -0x1.0000000000000000000000000001p16319L);
8627a232 8718#endif
8ec5b013
JM		 8719 }
8720
8721 fesetround (save_round_mode);
8722
8723 END (fma_downward);
8724}
8725
8726
8727static void
8728fma_test_upward (void)
8729{
8730 int save_round_mode;
8731 START (fma_upward);
8732
8733 save_round_mode = fegetround ();
8734
8735 if (!fesetround (FE_UPWARD))
8736 {
8737 TEST_fff_f (fma, plus_zero, plus_zero, plus_zero, plus_zero);
8738 TEST_fff_f (fma, plus_zero, plus_zero, minus_zero, plus_zero);
8739 TEST_fff_f (fma, plus_zero, minus_zero, plus_zero, plus_zero);
8740 TEST_fff_f (fma, plus_zero, minus_zero, minus_zero, minus_zero);
8741 TEST_fff_f (fma, minus_zero, plus_zero, plus_zero, plus_zero);
8742 TEST_fff_f (fma, minus_zero, plus_zero, minus_zero, minus_zero);
8743 TEST_fff_f (fma, minus_zero, minus_zero, plus_zero, plus_zero);
8744 TEST_fff_f (fma, minus_zero, minus_zero, minus_zero, plus_zero);
8745 TEST_fff_f (fma, 1.0, plus_zero, plus_zero, plus_zero);
8746 TEST_fff_f (fma, 1.0, plus_zero, minus_zero, plus_zero);
8747 TEST_fff_f (fma, 1.0, minus_zero, plus_zero, plus_zero);
8748 TEST_fff_f (fma, 1.0, minus_zero, minus_zero, minus_zero);
8749 TEST_fff_f (fma, -1.0, plus_zero, plus_zero, plus_zero);
8750 TEST_fff_f (fma, -1.0, plus_zero, minus_zero, minus_zero);
8751 TEST_fff_f (fma, -1.0, minus_zero, plus_zero, plus_zero);
8752 TEST_fff_f (fma, -1.0, minus_zero, minus_zero, plus_zero);
8753 TEST_fff_f (fma, plus_zero, 1.0, plus_zero, plus_zero);
8754 TEST_fff_f (fma, plus_zero, 1.0, minus_zero, plus_zero);
8755 TEST_fff_f (fma, plus_zero, -1.0, plus_zero, plus_zero);
8756 TEST_fff_f (fma, plus_zero, -1.0, minus_zero, minus_zero);
8757 TEST_fff_f (fma, minus_zero, 1.0, plus_zero, plus_zero);
8758 TEST_fff_f (fma, minus_zero, 1.0, minus_zero, minus_zero);
8759 TEST_fff_f (fma, minus_zero, -1.0, plus_zero, plus_zero);
8760 TEST_fff_f (fma, minus_zero, -1.0, minus_zero, plus_zero);
8761
8762 TEST_fff_f (fma, 1.0, 1.0, -1.0, plus_zero);
8763 TEST_fff_f (fma, 1.0, -1.0, 1.0, plus_zero);
8764 TEST_fff_f (fma, -1.0, 1.0, 1.0, plus_zero);
8765 TEST_fff_f (fma, -1.0, -1.0, -1.0, plus_zero);
bec749fd
JM		 8766
8767 TEST_fff_f (fma, min_value, min_value, plus_zero, min_subnorm_value, UNDERFLOW_EXCEPTION);
8768 TEST_fff_f (fma, min_value, min_value, minus_zero, min_subnorm_value, UNDERFLOW_EXCEPTION);
8769 TEST_fff_f (fma, min_value, -min_value, plus_zero, minus_zero, UNDERFLOW_EXCEPTION);
8770 TEST_fff_f (fma, min_value, -min_value, minus_zero, minus_zero, UNDERFLOW_EXCEPTION);
8771 TEST_fff_f (fma, -min_value, min_value, plus_zero, minus_zero, UNDERFLOW_EXCEPTION);
8772 TEST_fff_f (fma, -min_value, min_value, minus_zero, minus_zero, UNDERFLOW_EXCEPTION);
8773 TEST_fff_f (fma, -min_value, -min_value, plus_zero, min_subnorm_value, UNDERFLOW_EXCEPTION);
8774 TEST_fff_f (fma, -min_value, -min_value, minus_zero, min_subnorm_value, UNDERFLOW_EXCEPTION);
8627a232 8775
7184dcdf 8776#if !(defined TEST_LDOUBLE && LDBL_MANT_DIG == 106) /* Bug 13304. */
a0c2940d
JM		 8777 TEST_fff_f (fma, max_value, max_value, min_value, plus_infty, OVERFLOW_EXCEPTION);
8778 TEST_fff_f (fma, max_value, max_value, -min_value, plus_infty, OVERFLOW_EXCEPTION);
8779 TEST_fff_f (fma, max_value, -max_value, min_value, -max_value, OVERFLOW_EXCEPTION);
8780 TEST_fff_f (fma, max_value, -max_value, -min_value, -max_value, OVERFLOW_EXCEPTION);
8781 TEST_fff_f (fma, -max_value, max_value, min_value, -max_value, OVERFLOW_EXCEPTION);
8782 TEST_fff_f (fma, -max_value, max_value, -min_value, -max_value, OVERFLOW_EXCEPTION);
8783 TEST_fff_f (fma, -max_value, -max_value, min_value, plus_infty, OVERFLOW_EXCEPTION);
8784 TEST_fff_f (fma, -max_value, -max_value, -min_value, plus_infty, OVERFLOW_EXCEPTION);
7184dcdf 8785#endif
a0c2940d 8786
8627a232
JM		 8787#if defined (TEST_FLOAT) && FLT_MANT_DIG == 24
8788 TEST_fff_f (fma, 0x1.4p-126, 0x1.000004p-1, 0x1p-128, 0x1.c00008p-127, UNDERFLOW_EXCEPTION);
8789 TEST_fff_f (fma, -0x1.4p-126, 0x1.000004p-1, -0x1p-128, -0x1.c00004p-127, UNDERFLOW_EXCEPTION);
ef82f4da
JM		 8790 TEST_fff_f (fma, 0x1.fffff8p-126, 0x1.000002p-1, 0x1p-149, 0x1p-126, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8791 TEST_fff_f (fma, -0x1.fffff8p-126, 0x1.000002p-1, -0x1p-149, -0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8792 TEST_fff_f (fma, 0x1p-149, 0x1p-1, 0x0.fffffep-126, 0x1p-126, UNDERFLOW_EXCEPTION);
8793 TEST_fff_f (fma, -0x1p-149, 0x1p-1, -0x0.fffffep-126, -0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8794 TEST_fff_f (fma, 0x1p-149, 0x1.1p-1, 0x0.fffffep-126, 0x1p-126, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8795 TEST_fff_f (fma, -0x1p-149, 0x1.1p-1, -0x0.fffffep-126, -0x0.fffffep-126, UNDERFLOW_EXCEPTION);
473611b2
JM		 8796 TEST_fff_f (fma, 0x1p-149, 0x1p-149, 0x1p127, 0x1.000002p127);
8797 TEST_fff_f (fma, 0x1p-149, -0x1p-149, 0x1p127, 0x1p127);
8798 TEST_fff_f (fma, 0x1p-149, 0x1p-149, -0x1p127, -0x0.ffffffp127);
8799 TEST_fff_f (fma, 0x1p-149, -0x1p-149, -0x1p127, -0x1p127);
8800 TEST_fff_f (fma, 0x1p-149, 0x1p-149, 0x1p-126, 0x1.000002p-126);
8801 TEST_fff_f (fma, 0x1p-149, -0x1p-149, 0x1p-126, 0x1p-126, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8802 TEST_fff_f (fma, 0x1p-149, 0x1p-149, -0x1p-126, -0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8803 TEST_fff_f (fma, 0x1p-149, -0x1p-149, -0x1p-126, -0x1p-126);
8804 TEST_fff_f (fma, 0x1p-149, 0x1p-149, 0x0.fffffep-126, 0x1p-126, UNDERFLOW_EXCEPTION);
8805 TEST_fff_f (fma, 0x1p-149, -0x1p-149, 0x0.fffffep-126, 0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8806 TEST_fff_f (fma, 0x1p-149, 0x1p-149, -0x0.fffffep-126, -0x0.fffffcp-126, UNDERFLOW_EXCEPTION);
8807 TEST_fff_f (fma, 0x1p-149, -0x1p-149, -0x0.fffffep-126, -0x0.fffffep-126, UNDERFLOW_EXCEPTION);
8808 TEST_fff_f (fma, 0x1p-149, 0x1p-149, 0x1p-149, 0x1p-148, UNDERFLOW_EXCEPTION);
8809 TEST_fff_f (fma, 0x1p-149, -0x1p-149, 0x1p-149, 0x1p-149, UNDERFLOW_EXCEPTION);
8810 TEST_fff_f (fma, 0x1p-149, 0x1p-149, -0x1p-149, minus_zero, UNDERFLOW_EXCEPTION);
8811 TEST_fff_f (fma, 0x1p-149, -0x1p-149, -0x1p-149, -0x1p-149, UNDERFLOW_EXCEPTION);
5b5b04d6
JM		 8812 TEST_fff_f (fma, 0x0.fffp0, 0x0.fffp0, -0x0.ffep0, 0x1p-24);
8813 TEST_fff_f (fma, 0x0.fffp0, -0x0.fffp0, 0x0.ffep0, -0x1p-24);
8814 TEST_fff_f (fma, -0x0.fffp0, 0x0.fffp0, 0x0.ffep0, -0x1p-24);
8815 TEST_fff_f (fma, -0x0.fffp0, -0x0.fffp0, -0x0.ffep0, 0x1p-24);
82477c28
JM		 8816 TEST_fff_f (fma, 0x1.000002p-126, 0x1.000002p-26, 0x1p127, 0x1.000002p127);
8817 TEST_fff_f (fma, 0x1.000002p-126, -0x1.000002p-26, 0x1p127, 0x1p127);
8818 TEST_fff_f (fma, 0x1.000002p-126, 0x1.000002p-26, -0x1p127, -0x0.ffffffp127);
8819 TEST_fff_f (fma, 0x1.000002p-126, -0x1.000002p-26, -0x1p127, -0x1p127);
8820 TEST_fff_f (fma, 0x1.000002p-126, 0x1.000002p-26, 0x1p103, 0x1.000002p103);
8821 TEST_fff_f (fma, 0x1.000002p-126, -0x1.000002p-26, 0x1p103, 0x1p103);
8822 TEST_fff_f (fma, 0x1.000002p-126, 0x1.000002p-26, -0x1p103, -0x0.ffffffp103);
8823 TEST_fff_f (fma, 0x1.000002p-126, -0x1.000002p-26, -0x1p103, -0x1p103);
8627a232
JM		 8824#endif
8825#if defined (TEST_DOUBLE) && DBL_MANT_DIG == 53
8826 TEST_fff_f (fma, 0x1.4p-1022, 0x1.0000000000002p-1, 0x1p-1024, 0x1.c000000000004p-1023, UNDERFLOW_EXCEPTION);
8827 TEST_fff_f (fma, -0x1.4p-1022, 0x1.0000000000002p-1, -0x1p-1024, -0x1.c000000000002p-1023, UNDERFLOW_EXCEPTION);
ef82f4da
JM		 8828 TEST_fff_f (fma, 0x1.ffffffffffffcp-1022, 0x1.0000000000001p-1, 0x1p-1074, 0x1p-1022, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8829 TEST_fff_f (fma, -0x1.ffffffffffffcp-1022, 0x1.0000000000001p-1, -0x1p-1074, -0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8830 TEST_fff_f (fma, 0x1p-1074, 0x1p-1, 0x0.fffffffffffffp-1022, 0x1p-1022, UNDERFLOW_EXCEPTION);
8831 TEST_fff_f (fma, -0x1p-1074, 0x1p-1, -0x0.fffffffffffffp-1022, -0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8832 TEST_fff_f (fma, 0x1p-1074, 0x1.1p-1, 0x0.fffffffffffffp-1022, 0x1p-1022, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8833 TEST_fff_f (fma, -0x1p-1074, 0x1.1p-1, -0x0.fffffffffffffp-1022, -0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
473611b2
JM		 8834 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, 0x1p1023, 0x1.0000000000001p1023);
8835 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, 0x1p1023, 0x1p1023);
8836 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, -0x1p1023, -0x0.fffffffffffff8p1023);
8837 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, -0x1p1023, -0x1p1023);
8838 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, 0x1p-1022, 0x1.0000000000001p-1022);
8839 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, 0x1p-1022, 0x1p-1022, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8840 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, -0x1p-1022, -0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8841 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, -0x1p-1022, -0x1p-1022);
8842 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, 0x0.fffffffffffffp-1022, 0x1p-1022, UNDERFLOW_EXCEPTION);
8843 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, 0x0.fffffffffffffp-1022, 0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8844 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, -0x0.fffffffffffffp-1022, -0x0.ffffffffffffep-1022, UNDERFLOW_EXCEPTION);
8845 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, -0x0.fffffffffffffp-1022, -0x0.fffffffffffffp-1022, UNDERFLOW_EXCEPTION);
8846 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, 0x1p-1074, 0x1p-1073, UNDERFLOW_EXCEPTION);
8847 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, 0x1p-1074, 0x1p-1074, UNDERFLOW_EXCEPTION);
8848 TEST_fff_f (fma, 0x1p-1074, 0x1p-1074, -0x1p-1074, minus_zero, UNDERFLOW_EXCEPTION);
8849 TEST_fff_f (fma, 0x1p-1074, -0x1p-1074, -0x1p-1074, -0x1p-1074, UNDERFLOW_EXCEPTION);
5b5b04d6
JM		 8850 TEST_fff_f (fma, 0x0.fffffffffffff8p0, 0x0.fffffffffffff8p0, -0x0.fffffffffffffp0, 0x1p-106);
8851 TEST_fff_f (fma, 0x0.fffffffffffff8p0, -0x0.fffffffffffff8p0, 0x0.fffffffffffffp0, -0x1p-106);
8852 TEST_fff_f (fma, -0x0.fffffffffffff8p0, 0x0.fffffffffffff8p0, 0x0.fffffffffffffp0, -0x1p-106);
8853 TEST_fff_f (fma, -0x0.fffffffffffff8p0, -0x0.fffffffffffff8p0, -0x0.fffffffffffffp0, 0x1p-106);
82477c28
JM		 8854 TEST_fff_f (fma, 0x1.0000000000001p-1022, 0x1.0000000000001p-55, 0x1p1023, 0x1.0000000000001p1023);
8855 TEST_fff_f (fma, 0x1.0000000000001p-1022, -0x1.0000000000001p-55, 0x1p1023, 0x1p1023);
8856 TEST_fff_f (fma, 0x1.0000000000001p-1022, 0x1.0000000000001p-55, -0x1p1023, -0x0.fffffffffffff8p1023);
8857 TEST_fff_f (fma, 0x1.0000000000001p-1022, -0x1.0000000000001p-55, -0x1p1023, -0x1p1023);
8858 TEST_fff_f (fma, 0x1.0000000000001p-1022, 0x1.0000000000001p-55, 0x1p970, 0x1.0000000000001p970);
8859 TEST_fff_f (fma, 0x1.0000000000001p-1022, -0x1.0000000000001p-55, 0x1p970, 0x1p970);
8860 TEST_fff_f (fma, 0x1.0000000000001p-1022, 0x1.0000000000001p-55, -0x1p970, -0x0.fffffffffffff8p970);
8861 TEST_fff_f (fma, 0x1.0000000000001p-1022, -0x1.0000000000001p-55, -0x1p970, -0x1p970);
8627a232
JM		 8862#endif
8863#if defined (TEST_LDOUBLE) && LDBL_MANT_DIG == 64
8864 TEST_fff_f (fma, 0x1.4p-16382L, 0x1.0000000000000004p-1L, 0x1p-16384L, 0x1.c000000000000008p-16383L, UNDERFLOW_EXCEPTION);
8865 TEST_fff_f (fma, -0x1.4p-16382L, 0x1.0000000000000004p-1L, -0x1p-16384L, -0x1.c000000000000004p-16383L, UNDERFLOW_EXCEPTION);
ef82f4da
JM		 8866 TEST_fff_f (fma, 0x1.fffffffffffffff8p-16382L, 0x1.0000000000000002p-1L, 0x1p-16445L, 0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8867 TEST_fff_f (fma, -0x1.fffffffffffffff8p-16382L, 0x1.0000000000000002p-1L, -0x1p-16445L, -0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8868 TEST_fff_f (fma, 0x1p-16445L, 0x1p-1L, 0x0.fffffffffffffffep-16382L, 0x1p-16382L, UNDERFLOW_EXCEPTION);
8869 TEST_fff_f (fma, -0x1p-16445L, 0x1p-1L, -0x0.fffffffffffffffep-16382L, -0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8870 TEST_fff_f (fma, 0x1p-16445L, 0x1.1p-1L, 0x0.fffffffffffffffep-16382L, 0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8871 TEST_fff_f (fma, -0x1p-16445L, 0x1.1p-1L, -0x0.fffffffffffffffep-16382L, -0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
473611b2
JM		 8872 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, 0x1p16383L, 0x1.0000000000000002p16383L);
8873 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, 0x1p16383L, 0x1p16383L);
8874 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, -0x1p16383L, -0x0.ffffffffffffffffp16383L);
8875 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, -0x1p16383L, -0x1p16383L);
8876 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, 0x1p-16382L, 0x1.0000000000000002p-16382L);
8877 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, 0x1p-16382L, 0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8878 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, -0x1p-16382L, -0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8879 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, -0x1p-16382L, -0x1p-16382L);
8880 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, 0x0.fffffffffffffffep-16382L, 0x1p-16382L, UNDERFLOW_EXCEPTION);
8881 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, 0x0.fffffffffffffffep-16382L, 0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8882 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, -0x0.fffffffffffffffep-16382L, -0x0.fffffffffffffffcp-16382L, UNDERFLOW_EXCEPTION);
8883 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, -0x0.fffffffffffffffep-16382L, -0x0.fffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8884 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, 0x1p-16445L, 0x1p-16444L, UNDERFLOW_EXCEPTION);
8885 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, 0x1p-16445L, 0x1p-16445L, UNDERFLOW_EXCEPTION);
8886 TEST_fff_f (fma, 0x1p-16445L, 0x1p-16445L, -0x1p-16445L, minus_zero, UNDERFLOW_EXCEPTION);
8887 TEST_fff_f (fma, 0x1p-16445L, -0x1p-16445L, -0x1p-16445L, -0x1p-16445L, UNDERFLOW_EXCEPTION);
5b5b04d6
JM		 8888 TEST_fff_f (fma, 0x0.ffffffffffffffffp0L, 0x0.ffffffffffffffffp0L, -0x0.fffffffffffffffep0L, 0x1p-128L);
8889 TEST_fff_f (fma, 0x0.ffffffffffffffffp0L, -0x0.ffffffffffffffffp0L, 0x0.fffffffffffffffep0L, -0x1p-128L);
8890 TEST_fff_f (fma, -0x0.ffffffffffffffffp0L, 0x0.ffffffffffffffffp0L, 0x0.fffffffffffffffep0L, -0x1p-128L);
8891 TEST_fff_f (fma, -0x0.ffffffffffffffffp0L, -0x0.ffffffffffffffffp0L, -0x0.fffffffffffffffep0L, 0x1p-128L);
82477c28
JM		 8892 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, 0x1.0000000000000002p-66L, 0x1p16383L, 0x1.0000000000000002p16383L);
8893 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, -0x1.0000000000000002p-66L, 0x1p16383L, 0x1p16383L);
8894 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, 0x1.0000000000000002p-66L, -0x1p16383L, -0x0.ffffffffffffffffp16383L);
8895 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, -0x1.0000000000000002p-66L, -0x1p16383L, -0x1p16383L);
8896 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, 0x1.0000000000000002p-66L, 0x1p16319L, 0x1.0000000000000002p16319L);
8897 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, -0x1.0000000000000002p-66L, 0x1p16319L, 0x1p16319L);
8898 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, 0x1.0000000000000002p-66L, -0x1p16319L, -0x0.ffffffffffffffffp16319L);
8899 TEST_fff_f (fma, 0x1.0000000000000002p-16382L, -0x1.0000000000000002p-66L, -0x1p16319L, -0x1p16319L);
8627a232
JM		 8900#endif
8901#if defined (TEST_LDOUBLE) && LDBL_MANT_DIG == 113
8902 TEST_fff_f (fma, 0x1.4p-16382L, 0x1.0000000000000000000000000002p-1L, 0x1p-16384L, 0x1.c000000000000000000000000004p-16383L, UNDERFLOW_EXCEPTION);
8903 TEST_fff_f (fma, -0x1.4p-16382L, 0x1.0000000000000000000000000002p-1L, -0x1p-16384L, -0x1.c000000000000000000000000002p-16383L, UNDERFLOW_EXCEPTION);
ef82f4da
JM		 8904 TEST_fff_f (fma, 0x1.fffffffffffffffffffffffffffcp-16382L, 0x1.0000000000000000000000000001p-1L, 0x1p-16494L, 0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8905 TEST_fff_f (fma, -0x1.fffffffffffffffffffffffffffcp-16382L, 0x1.0000000000000000000000000001p-1L, -0x1p-16494L, -0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8906 TEST_fff_f (fma, 0x1p-16494L, 0x1p-1L, 0x0.ffffffffffffffffffffffffffffp-16382L, 0x1p-16382L, UNDERFLOW_EXCEPTION);
8907 TEST_fff_f (fma, -0x1p-16494L, 0x1p-1L, -0x0.ffffffffffffffffffffffffffffp-16382L, -0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8908 TEST_fff_f (fma, 0x1p-16494L, 0x1.1p-1L, 0x0.ffffffffffffffffffffffffffffp-16382L, 0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8909 TEST_fff_f (fma, -0x1p-16494L, 0x1.1p-1L, -0x0.ffffffffffffffffffffffffffffp-16382L, -0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
473611b2
JM		 8910 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, 0x1p16383L, 0x1.0000000000000000000000000001p16383L);
8911 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, 0x1p16383L, 0x1p16383L);
8912 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, -0x1p16383L, -0x0.ffffffffffffffffffffffffffff8p16383L);
8913 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, -0x1p16383L, -0x1p16383L);
8914 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, 0x1p-16382L, 0x1.0000000000000000000000000001p-16382L);
8915 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, 0x1p-16382L, 0x1p-16382L, UNDERFLOW_EXCEPTION_BEFORE_ROUNDING);
8916 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, -0x1p-16382L, -0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8917 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, -0x1p-16382L, -0x1p-16382L);
8918 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, 0x0.ffffffffffffffffffffffffffffp-16382L, 0x1p-16382L, UNDERFLOW_EXCEPTION);
8919 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, 0x0.ffffffffffffffffffffffffffffp-16382L, 0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8920 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, -0x0.ffffffffffffffffffffffffffffp-16382L, -0x0.fffffffffffffffffffffffffffep-16382L, UNDERFLOW_EXCEPTION);
8921 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, -0x0.ffffffffffffffffffffffffffffp-16382L, -0x0.ffffffffffffffffffffffffffffp-16382L, UNDERFLOW_EXCEPTION);
8922 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, 0x1p-16494L, 0x1p-16493L, UNDERFLOW_EXCEPTION);
8923 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, 0x1p-16494L, 0x1p-16494L, UNDERFLOW_EXCEPTION);
8924 TEST_fff_f (fma, 0x1p-16494L, 0x1p-16494L, -0x1p-16494L, minus_zero, UNDERFLOW_EXCEPTION);
8925 TEST_fff_f (fma, 0x1p-16494L, -0x1p-16494L, -0x1p-16494L, -0x1p-16494L, UNDERFLOW_EXCEPTION);
5b5b04d6
JM		 8926 TEST_fff_f (fma, 0x0.ffffffffffffffffffffffffffff8p0L, 0x0.ffffffffffffffffffffffffffff8p0L, -0x0.ffffffffffffffffffffffffffffp0L, 0x1p-226L);
8927 TEST_fff_f (fma, 0x0.ffffffffffffffffffffffffffff8p0L, -0x0.ffffffffffffffffffffffffffff8p0L, 0x0.ffffffffffffffffffffffffffffp0L, -0x1p-226L);
8928 TEST_fff_f (fma, -0x0.ffffffffffffffffffffffffffff8p0L, 0x0.ffffffffffffffffffffffffffff8p0L, 0x0.ffffffffffffffffffffffffffffp0L, -0x1p-226L);
8929 TEST_fff_f (fma, -0x0.ffffffffffffffffffffffffffff8p0L, -0x0.ffffffffffffffffffffffffffff8p0L, -0x0.ffffffffffffffffffffffffffffp0L, 0x1p-226L);
82477c28
JM		 8930 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, 0x1.0000000000000000000000000001p-66L, 0x1p16383L, 0x1.0000000000000000000000000001p16383L);
8931 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, -0x1.0000000000000000000000000001p-66L, 0x1p16383L, 0x1p16383L);
8932 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, 0x1.0000000000000000000000000001p-66L, -0x1p16383L, -0x0.ffffffffffffffffffffffffffff8p16383L);
8933 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, -0x1.0000000000000000000000000001p-66L, -0x1p16383L, -0x1p16383L);
8934 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, 0x1.0000000000000000000000000001p-66L, 0x1p16319L, 0x1.0000000000000000000000000001p16319L);
8935 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, -0x1.0000000000000000000000000001p-66L, 0x1p16319L, 0x1p16319L);
8936 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, 0x1.0000000000000000000000000001p-66L, -0x1p16319L, -0x0.ffffffffffffffffffffffffffff8p16319L);
8937 TEST_fff_f (fma, 0x1.0000000000000000000000000001p-16382L, -0x1.0000000000000000000000000001p-66L, -0x1p16319L, -0x1p16319L);
8627a232 8938#endif
8ec5b013
JM		 8939 }
8940
8941 fesetround (save_round_mode);
8942
8943 END (fma_upward);
8944}
8945
8946
8847214f
UD		 8947static void
8948fmax_test (void)
8949{
8950 START (fmax);
8951
8952 TEST_ff_f (fmax, 0, 0, 0);
8953 TEST_ff_f (fmax, minus_zero, minus_zero, minus_zero);
8954 TEST_ff_f (fmax, 9, 0, 9);
8955 TEST_ff_f (fmax, 0, 9, 9);
8956 TEST_ff_f (fmax, -9, 0, 0);
8957 TEST_ff_f (fmax, 0, -9, 0);
8958
8959 TEST_ff_f (fmax, plus_infty, 9, plus_infty);
8960 TEST_ff_f (fmax, 0, plus_infty, plus_infty);
8961 TEST_ff_f (fmax, -9, plus_infty, plus_infty);
8962 TEST_ff_f (fmax, plus_infty, -9, plus_infty);
8963
8964 TEST_ff_f (fmax, minus_infty, 9, 9);
8965 TEST_ff_f (fmax, minus_infty, -9, -9);
8966 TEST_ff_f (fmax, 9, minus_infty, 9);
8967 TEST_ff_f (fmax, -9, minus_infty, -9);
8968
67e971f1
TS		 8969 TEST_ff_f (fmax, 0, qnan_value, 0);
8970 TEST_ff_f (fmax, 9, qnan_value, 9);
8971 TEST_ff_f (fmax, -9, qnan_value, -9);
8972 TEST_ff_f (fmax, qnan_value, 0, 0);
8973 TEST_ff_f (fmax, qnan_value, 9, 9);
8974 TEST_ff_f (fmax, qnan_value, -9, -9);
8975 TEST_ff_f (fmax, plus_infty, qnan_value, plus_infty);
8976 TEST_ff_f (fmax, minus_infty, qnan_value, minus_infty);
8977 TEST_ff_f (fmax, qnan_value, plus_infty, plus_infty);
8978 TEST_ff_f (fmax, qnan_value, minus_infty, minus_infty);
8979 TEST_ff_f (fmax, qnan_value, qnan_value, qnan_value);
8847214f
UD		 8980
8981 END (fmax);
8982}
8983
8984
8985static void
8986fmin_test (void)
8987{
8988 START (fmin);
8989
8990 TEST_ff_f (fmin, 0, 0, 0);
8991 TEST_ff_f (fmin, minus_zero, minus_zero, minus_zero);
8992 TEST_ff_f (fmin, 9, 0, 0);
8993 TEST_ff_f (fmin, 0, 9, 0);
8994 TEST_ff_f (fmin, -9, 0, -9);
8995 TEST_ff_f (fmin, 0, -9, -9);
8996
8997 TEST_ff_f (fmin, plus_infty, 9, 9);
8998 TEST_ff_f (fmin, 9, plus_infty, 9);
8999 TEST_ff_f (fmin, plus_infty, -9, -9);
9000 TEST_ff_f (fmin, -9, plus_infty, -9);
9001 TEST_ff_f (fmin, minus_infty, 9, minus_infty);
9002 TEST_ff_f (fmin, minus_infty, -9, minus_infty);
9003 TEST_ff_f (fmin, 9, minus_infty, minus_infty);
9004 TEST_ff_f (fmin, -9, minus_infty, minus_infty);
9005
67e971f1
TS		 9006 TEST_ff_f (fmin, 0, qnan_value, 0);
9007 TEST_ff_f (fmin, 9, qnan_value, 9);
9008 TEST_ff_f (fmin, -9, qnan_value, -9);
9009 TEST_ff_f (fmin, qnan_value, 0, 0);
9010 TEST_ff_f (fmin, qnan_value, 9, 9);
9011 TEST_ff_f (fmin, qnan_value, -9, -9);
9012 TEST_ff_f (fmin, plus_infty, qnan_value, plus_infty);
9013 TEST_ff_f (fmin, minus_infty, qnan_value, minus_infty);
9014 TEST_ff_f (fmin, qnan_value, plus_infty, plus_infty);
9015 TEST_ff_f (fmin, qnan_value, minus_infty, minus_infty);
9016 TEST_ff_f (fmin, qnan_value, qnan_value, qnan_value);
8847214f
UD		 9017
9018 END (fmin);
9019}
9020
9021
9022static void
9023fmod_test (void)
9024{
aaca11d8 9025 errno = 0;
3c6cad26 9026 FUNC(fmod) (6.5, 2.3L);
aaca11d8
UD		 9027 if (errno == ENOSYS)
9028 /* Function not implemented. */
9029 return;
9030
8847214f
UD		 9031 START (fmod);
9032
9033 /* fmod (+0, y) == +0 for y != 0. */
9034 TEST_ff_f (fmod, 0, 3, 0);
9035
9036 /* fmod (-0, y) == -0 for y != 0. */
9037 TEST_ff_f (fmod, minus_zero, 3, minus_zero);
9038
67e971f1 9039 /* fmod (+inf, y) == qNaN plus invalid exception. */
f2da7793 9040 TEST_ff_f (fmod, plus_infty, 3, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
67e971f1 9041 /* fmod (-inf, y) == qNaN plus invalid exception. */
f2da7793 9042 TEST_ff_f (fmod, minus_infty, 3, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
67e971f1 9043 /* fmod (x, +0) == qNaN plus invalid exception. */
f2da7793 9044 TEST_ff_f (fmod, 3, 0, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
67e971f1
TS		 9045 /* fmod (x, -0) == qNaN plus invalid exception. */
9046 TEST_ff_f (fmod, 3, minus_zero, qnan_value, INVALID_EXCEPTION);
8847214f
UD		 9047
9048 /* fmod (x, +inf) == x for x not infinite. */
9049 TEST_ff_f (fmod, 3.0, plus_infty, 3.0);
9050 /* fmod (x, -inf) == x for x not infinite. */
9051 TEST_ff_f (fmod, 3.0, minus_infty, 3.0);
9052
67e971f1 9053 TEST_ff_f (fmod, qnan_value, qnan_value, qnan_value);
15daa639 9054
2550dfe9
AJ		 9055 TEST_ff_f (fmod, 6.5, 2.25L, 2.0L);
9056 TEST_ff_f (fmod, -6.5, 2.25L, -2.0L);
9057 TEST_ff_f (fmod, 6.5, -2.25L, 2.0L);
9058 TEST_ff_f (fmod, -6.5, -2.25L, -2.0L);
8847214f 9059
c5bfe3d5
JM		 9060 TEST_ff_f (fmod, 0x0.fffffep-126L, 0x1p-149L, plus_zero);
9061#ifndef TEST_FLOAT
9062 TEST_ff_f (fmod, 0x0.fffffffffffffp-1022L, 0x1p-1074L, plus_zero);
9063#endif
9064#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381
9065 TEST_ff_f (fmod, 0x0.fffffffffffffffep-16382L, 0x1p-16445L, plus_zero);
9066#endif
9067
8847214f
UD		 9068 END (fmod);
9069}
9070
2550dfe9 9071
8847214f
UD		 9072static void
9073fpclassify_test (void)
9074{
9075 START (fpclassify);
9076
67e971f1 9077 TEST_f_i (fpclassify, qnan_value, FP_NAN);
8847214f
UD		 9078 TEST_f_i (fpclassify, plus_infty, FP_INFINITE);
9079 TEST_f_i (fpclassify, minus_infty, FP_INFINITE);
9080 TEST_f_i (fpclassify, plus_zero, FP_ZERO);
9081 TEST_f_i (fpclassify, minus_zero, FP_ZERO);
9082 TEST_f_i (fpclassify, 1000, FP_NORMAL);
ef1bb361 9083 TEST_f_i (fpclassify, min_subnorm_value, FP_SUBNORMAL);
8847214f
UD		 9084
9085 END (fpclassify);
9086}
9087
9088
9089static void
9090frexp_test (void)
9091{
9092 int x;
9093
9094 START (frexp);
9095
9096 TEST_fI_f1 (frexp, plus_infty, plus_infty, IGNORE);
9097 TEST_fI_f1 (frexp, minus_infty, minus_infty, IGNORE);
67e971f1 9098 TEST_fI_f1 (frexp, qnan_value, qnan_value, IGNORE);
8847214f
UD		 9099
9100 TEST_fI_f1 (frexp, 0.0, 0.0, 0.0);
9101 TEST_fI_f1 (frexp, minus_zero, minus_zero, 0.0);
9102
b15cb495
UD		 9103 TEST_fI_f1 (frexp, 12.8L, 0.8L, 4);
9104 TEST_fI_f1 (frexp, -27.34L, -0.854375L, 5);
8847214f
UD		 9105
9106 END (frexp);
9107}
9108
9109
9110static void
9111gamma_test (void)
9112{
9113 errno = 0;
9114 FUNC(gamma) (1);
9115
9116 if (errno == ENOSYS)
9117 /* Function not implemented. */
9118 return;
8847214f
UD		 9119
9120 START (gamma);
9121
9122 TEST_f_f (gamma, plus_infty, plus_infty);
9123 TEST_f_f (gamma, 0, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
9124 TEST_f_f (gamma, -3, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
f30e0cd3 9125 TEST_f_f (gamma, minus_infty, plus_infty);
67e971f1 9126 TEST_f_f (gamma, qnan_value, qnan_value);
8847214f
UD		 9127
9128 TEST_f_f1 (gamma, 1, 0, 1);
9129 TEST_f_f1 (gamma, 3, M_LN2l, 1);
9130
9131 TEST_f_f1 (gamma, 0.5, M_LOG_SQRT_PIl, 1);
f30e0cd3 9132 TEST_f_f1 (gamma, -0.5, M_LOG_2_SQRT_PIl, -1);
8847214f
UD		 9133
9134 END (gamma);
9135}
9136
9137static void
9138hypot_test (void)
9139{
aaca11d8 9140 errno = 0;
3c6cad26 9141 FUNC(hypot) (0.7L, 12.4L);
aaca11d8
UD		 9142 if (errno == ENOSYS)
9143 /* Function not implemented. */
9144 return;
9145
8847214f
UD		 9146 START (hypot);
9147
d5dc2af3
JM		 9148 TEST_ff_f (hypot, plus_infty, 1, plus_infty);
9149 TEST_ff_f (hypot, minus_infty, 1, plus_infty);
8847214f 9150
15daa639 9151#ifndef TEST_INLINE
67e971f1
TS		 9152 TEST_ff_f (hypot, plus_infty, qnan_value, plus_infty);
9153 TEST_ff_f (hypot, minus_infty, qnan_value, plus_infty);
9154 TEST_ff_f (hypot, qnan_value, plus_infty, plus_infty);
9155 TEST_ff_f (hypot, qnan_value, minus_infty, plus_infty);
15daa639 9156#endif
8847214f 9157
67e971f1 9158 TEST_ff_f (hypot, qnan_value, qnan_value, qnan_value);
8847214f
UD		 9159
9160 /* hypot (x,y) == hypot (+-x, +-y) */
d8337213
UD		 9161 TEST_ff_f (hypot, 0.7L, 12.4L, 12.419742348374220601176836866763271L);
9162 TEST_ff_f (hypot, -0.7L, 12.4L, 12.419742348374220601176836866763271L);
9163 TEST_ff_f (hypot, 0.7L, -12.4L, 12.419742348374220601176836866763271L);
9164 TEST_ff_f (hypot, -0.7L, -12.4L, 12.419742348374220601176836866763271L);
9165 TEST_ff_f (hypot, 12.4L, 0.7L, 12.419742348374220601176836866763271L);
9166 TEST_ff_f (hypot, -12.4L, 0.7L, 12.419742348374220601176836866763271L);
9167 TEST_ff_f (hypot, 12.4L, -0.7L, 12.419742348374220601176836866763271L);
9168 TEST_ff_f (hypot, -12.4L, -0.7L, 12.419742348374220601176836866763271L);
8847214f
UD		 9169
9170 /* hypot (x,0) == fabs (x) */
2550dfe9
AJ		 9171 TEST_ff_f (hypot, 0.75L, 0, 0.75L);
9172 TEST_ff_f (hypot, -0.75L, 0, 0.75L);
3c6cad26 9173 TEST_ff_f (hypot, -5.7e7, 0, 5.7e7L);
8847214f 9174
2550dfe9 9175 TEST_ff_f (hypot, 0.75L, 1.25L, 1.45773797371132511771853821938639577L);
8847214f 9176
8e27e3cc 9177 TEST_ff_f (hypot, 1.0L, 0x1p-61L, 1.0L);
1468ded3
JM		 9178#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106
9179 TEST_ff_f (hypot, 0x1.23456789abcdef0123456789ab8p-500L, 0x1.23456789abcdef0123456789ab8p-500L, 4.9155782399407039128612180934736799735113e-151L);
9180#endif
8e27e3cc 9181
aa4a2ae1
JM		 9182#if !(defined TEST_FLOAT && defined TEST_INLINE)
9183 TEST_ff_f (hypot, 0x3p125L, 0x4p125L, 0x5p125L);
9184 TEST_ff_f (hypot, 0x1.234566p-126L, 0x1.234566p-126L, 1.891441686191081936598531534017449451173e-38L);
9185#endif
9186
5779f134 9187#if !defined TEST_FLOAT && !(defined TEST_DOUBLE && defined TEST_INLINE)
aa4a2ae1
JM		 9188 TEST_ff_f (hypot, 0x3p1021L, 0x4p1021L, 0x5p1021L);
9189#endif
9190
9191#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384 && !defined TEST_INLINE
9192 TEST_ff_f (hypot, 0x3p16381L, 0x4p16381L, 0x5p16381L);
9193#endif
9194
8847214f
UD		 9195 END (hypot);
9196}
9197
9198
9199static void
9200ilogb_test (void)
9201{
9202 START (ilogb);
9203
9204 TEST_f_i (ilogb, 1, 0);
9205 TEST_f_i (ilogb, M_El, 1);
9206 TEST_f_i (ilogb, 1024, 10);
9207 TEST_f_i (ilogb, -2000, 10);
9208
76da7265 9209 /* ilogb (0.0) == FP_ILOGB0 plus invalid exception */
f2da7793 9210 TEST_f_i (ilogb, 0.0, FP_ILOGB0, INVALID_EXCEPTION|ERRNO_EDOM);
67e971f1 9211 /* ilogb (qNaN) == FP_ILOGBNAN plus invalid exception */
f2da7793 9212 TEST_f_i (ilogb, qnan_value, FP_ILOGBNAN, INVALID_EXCEPTION|ERRNO_EDOM);
76da7265 9213 /* ilogb (inf) == INT_MAX plus invalid exception */
f2da7793 9214 TEST_f_i (ilogb, plus_infty, INT_MAX, INVALID_EXCEPTION|ERRNO_EDOM);
76da7265 9215 /* ilogb (-inf) == INT_MAX plus invalid exception */
f2da7793 9216 TEST_f_i (ilogb, minus_infty, INT_MAX, INVALID_EXCEPTION|ERRNO_EDOM);
8847214f
UD		 9217
9218 END (ilogb);
9219}
9220
9221static void
9222isfinite_test (void)
9223{
9224 START (isfinite);
9225
9226 TEST_f_b (isfinite, 0, 1);
9227 TEST_f_b (isfinite, minus_zero, 1);
9228 TEST_f_b (isfinite, 10, 1);
ef1bb361 9229 TEST_f_b (isfinite, min_subnorm_value, 1);
8847214f
UD		 9230 TEST_f_b (isfinite, plus_infty, 0);
9231 TEST_f_b (isfinite, minus_infty, 0);
67e971f1 9232 TEST_f_b (isfinite, qnan_value, 0);
8847214f
UD		 9233
9234 END (isfinite);
9235}
9236
0e8e0c1c
JM		 9237static void
9238isgreater_test (void)
9239{
9240 START (isgreater);
9241
9242 TEST_ff_i (isgreater, minus_zero, minus_zero, 0);
9243 TEST_ff_i (isgreater, minus_zero, plus_zero, 0);
9244 TEST_ff_i (isgreater, minus_zero, (FLOAT) 1, 0);
67e971f1 9245 TEST_ff_i (isgreater, minus_zero, qnan_value, 0);
0e8e0c1c
JM		 9246 TEST_ff_i (isgreater, plus_zero, minus_zero, 0);
9247 TEST_ff_i (isgreater, plus_zero, plus_zero, 0);
9248 TEST_ff_i (isgreater, plus_zero, (FLOAT) 1, 0);
67e971f1 9249 TEST_ff_i (isgreater, plus_zero, qnan_value, 0);
0e8e0c1c
JM		 9250 TEST_ff_i (isgreater, (FLOAT) 1, minus_zero, 1);
9251 TEST_ff_i (isgreater, (FLOAT) 1, plus_zero, 1);
9252 TEST_ff_i (isgreater, (FLOAT) 1, (FLOAT) 1, 0);
67e971f1
TS		 9253 TEST_ff_i (isgreater, (FLOAT) 1, qnan_value, 0);
9254 TEST_ff_i (isgreater, qnan_value, minus_zero, 0);
9255 TEST_ff_i (isgreater, qnan_value, plus_zero, 0);
9256 TEST_ff_i (isgreater, qnan_value, (FLOAT) 1, 0);
9257 TEST_ff_i (isgreater, qnan_value, qnan_value, 0);
0e8e0c1c
JM		 9258
9259 END (isgreater);
9260}
9261
9262static void
9263isgreaterequal_test (void)
9264{
9265 START (isgreaterequal);
9266
9267 TEST_ff_i (isgreaterequal, minus_zero, minus_zero, 1);
9268 TEST_ff_i (isgreaterequal, minus_zero, plus_zero, 1);
9269 TEST_ff_i (isgreaterequal, minus_zero, (FLOAT) 1, 0);
67e971f1 9270 TEST_ff_i (isgreaterequal, minus_zero, qnan_value, 0);
0e8e0c1c
JM		 9271 TEST_ff_i (isgreaterequal, plus_zero, minus_zero, 1);
9272 TEST_ff_i (isgreaterequal, plus_zero, plus_zero, 1);
9273 TEST_ff_i (isgreaterequal, plus_zero, (FLOAT) 1, 0);
67e971f1 9274 TEST_ff_i (isgreaterequal, plus_zero, qnan_value, 0);
0e8e0c1c
JM		 9275 TEST_ff_i (isgreaterequal, (FLOAT) 1, minus_zero, 1);
9276 TEST_ff_i (isgreaterequal, (FLOAT) 1, plus_zero, 1);
9277 TEST_ff_i (isgreaterequal, (FLOAT) 1, (FLOAT) 1, 1);
67e971f1
TS		 9278 TEST_ff_i (isgreaterequal, (FLOAT) 1, qnan_value, 0);
9279 TEST_ff_i (isgreaterequal, qnan_value, minus_zero, 0);
9280 TEST_ff_i (isgreaterequal, qnan_value, plus_zero, 0);
9281 TEST_ff_i (isgreaterequal, qnan_value, (FLOAT) 1, 0);
9282 TEST_ff_i (isgreaterequal, qnan_value, qnan_value, 0);
0e8e0c1c
JM		 9283
9284 END (isgreaterequal);
9285}
9286
ef1bb361
JM		 9287static void
9288isinf_test (void)
9289{
9290 START (isinf);
9291
9292 TEST_f_b (isinf, 0, 0);
9293 TEST_f_b (isinf, minus_zero, 0);
9294 TEST_f_b (isinf, 10, 0);
9295 TEST_f_b (isinf, min_subnorm_value, 0);
9296 TEST_f_b (isinf, plus_infty, 1);
9297 TEST_f_b (isinf, minus_infty, 1);
67e971f1 9298 TEST_f_b (isinf, qnan_value, 0);
ef1bb361
JM		 9299
9300 END (isinf);
9301}
9302
0e8e0c1c
JM		 9303static void
9304isless_test (void)
9305{
9306 START (isless);
9307
9308 TEST_ff_i (isless, minus_zero, minus_zero, 0);
9309 TEST_ff_i (isless, minus_zero, plus_zero, 0);
9310 TEST_ff_i (isless, minus_zero, (FLOAT) 1, 1);
67e971f1 9311 TEST_ff_i (isless, minus_zero, qnan_value, 0);
0e8e0c1c
JM		 9312 TEST_ff_i (isless, plus_zero, minus_zero, 0);
9313 TEST_ff_i (isless, plus_zero, plus_zero, 0);
9314 TEST_ff_i (isless, plus_zero, (FLOAT) 1, 1);
67e971f1 9315 TEST_ff_i (isless, plus_zero, qnan_value, 0);
0e8e0c1c
JM		 9316 TEST_ff_i (isless, (FLOAT) 1, minus_zero, 0);
9317 TEST_ff_i (isless, (FLOAT) 1, plus_zero, 0);
9318 TEST_ff_i (isless, (FLOAT) 1, (FLOAT) 1, 0);
67e971f1
TS		 9319 TEST_ff_i (isless, (FLOAT) 1, qnan_value, 0);
9320 TEST_ff_i (isless, qnan_value, minus_zero, 0);
9321 TEST_ff_i (isless, qnan_value, plus_zero, 0);
9322 TEST_ff_i (isless, qnan_value, (FLOAT) 1, 0);
9323 TEST_ff_i (isless, qnan_value, qnan_value, 0);
0e8e0c1c
JM		 9324
9325 END (isless);
9326}
9327
9328static void
9329islessequal_test (void)
9330{
9331 START (islessequal);
9332
9333 TEST_ff_i (islessequal, minus_zero, minus_zero, 1);
9334 TEST_ff_i (islessequal, minus_zero, plus_zero, 1);
9335 TEST_ff_i (islessequal, minus_zero, (FLOAT) 1, 1);
67e971f1 9336 TEST_ff_i (islessequal, minus_zero, qnan_value, 0);
0e8e0c1c
JM		 9337 TEST_ff_i (islessequal, plus_zero, minus_zero, 1);
9338 TEST_ff_i (islessequal, plus_zero, plus_zero, 1);
9339 TEST_ff_i (islessequal, plus_zero, (FLOAT) 1, 1);
67e971f1 9340 TEST_ff_i (islessequal, plus_zero, qnan_value, 0);
0e8e0c1c
JM		 9341 TEST_ff_i (islessequal, (FLOAT) 1, minus_zero, 0);
9342 TEST_ff_i (islessequal, (FLOAT) 1, plus_zero, 0);
9343 TEST_ff_i (islessequal, (FLOAT) 1, (FLOAT) 1, 1);
67e971f1
TS		 9344 TEST_ff_i (islessequal, (FLOAT) 1, qnan_value, 0);
9345 TEST_ff_i (islessequal, qnan_value, minus_zero, 0);
9346 TEST_ff_i (islessequal, qnan_value, plus_zero, 0);
9347 TEST_ff_i (islessequal, qnan_value, (FLOAT) 1, 0);
9348 TEST_ff_i (islessequal, qnan_value, qnan_value, 0);
0e8e0c1c
JM		 9349
9350 END (islessequal);
9351}
9352
9353static void
9354islessgreater_test (void)
9355{
9356 START (islessgreater);
9357
9358 TEST_ff_i (islessgreater, minus_zero, minus_zero, 0);
9359 TEST_ff_i (islessgreater, minus_zero, plus_zero, 0);
9360 TEST_ff_i (islessgreater, minus_zero, (FLOAT) 1, 1);
67e971f1 9361 TEST_ff_i (islessgreater, minus_zero, qnan_value, 0);
0e8e0c1c
JM		 9362 TEST_ff_i (islessgreater, plus_zero, minus_zero, 0);
9363 TEST_ff_i (islessgreater, plus_zero, plus_zero, 0);
9364 TEST_ff_i (islessgreater, plus_zero, (FLOAT) 1, 1);
67e971f1 9365 TEST_ff_i (islessgreater, plus_zero, qnan_value, 0);
0e8e0c1c
JM		 9366 TEST_ff_i (islessgreater, (FLOAT) 1, minus_zero, 1);
9367 TEST_ff_i (islessgreater, (FLOAT) 1, plus_zero, 1);
9368 TEST_ff_i (islessgreater, (FLOAT) 1, (FLOAT) 1, 0);
67e971f1
TS		 9369 TEST_ff_i (islessgreater, (FLOAT) 1, qnan_value, 0);
9370 TEST_ff_i (islessgreater, qnan_value, minus_zero, 0);
9371 TEST_ff_i (islessgreater, qnan_value, plus_zero, 0);
9372 TEST_ff_i (islessgreater, qnan_value, (FLOAT) 1, 0);
9373 TEST_ff_i (islessgreater, qnan_value, qnan_value, 0);
0e8e0c1c
JM		 9374
9375 END (islessgreater);
9376}
9377
ef1bb361
JM		 9378static void
9379isnan_test (void)
9380{
9381 START (isnan);
9382
9383 TEST_f_b (isnan, 0, 0);
9384 TEST_f_b (isnan, minus_zero, 0);
9385 TEST_f_b (isnan, 10, 0);
9386 TEST_f_b (isnan, min_subnorm_value, 0);
9387 TEST_f_b (isnan, plus_infty, 0);
9388 TEST_f_b (isnan, minus_infty, 0);
67e971f1 9389 TEST_f_b (isnan, qnan_value, 1);
ef1bb361
JM		 9390
9391 END (isnan);
9392}
9393
8847214f
UD		 9394static void
9395isnormal_test (void)
9396{
9397 START (isnormal);
9398
9399 TEST_f_b (isnormal, 0, 0);
9400 TEST_f_b (isnormal, minus_zero, 0);
9401 TEST_f_b (isnormal, 10, 1);
ef1bb361 9402 TEST_f_b (isnormal, min_subnorm_value, 0);
8847214f
UD		 9403 TEST_f_b (isnormal, plus_infty, 0);
9404 TEST_f_b (isnormal, minus_infty, 0);
67e971f1 9405 TEST_f_b (isnormal, qnan_value, 0);
8847214f
UD		 9406
9407 END (isnormal);
9408}
9409
57267616
TS		 9410static void
9411issignaling_test (void)
9412{
9413 START (issignaling);
9414
9415 TEST_f_b (issignaling, 0, 0);
9416 TEST_f_b (issignaling, minus_zero, 0);
9417 TEST_f_b (issignaling, 10, 0);
9418 TEST_f_b (issignaling, min_subnorm_value, 0);
9419 TEST_f_b (issignaling, plus_infty, 0);
9420 TEST_f_b (issignaling, minus_infty, 0);
9421 TEST_f_b (issignaling, qnan_value, 0);
9422
9423 END (issignaling);
9424}
9425
0e8e0c1c
JM		 9426static void
9427isunordered_test (void)
9428{
9429 START (isunordered);
9430
9431 TEST_ff_i (isunordered, minus_zero, minus_zero, 0);
9432 TEST_ff_i (isunordered, minus_zero, plus_zero, 0);
9433 TEST_ff_i (isunordered, minus_zero, (FLOAT) 1, 0);
67e971f1 9434 TEST_ff_i (isunordered, minus_zero, qnan_value, 1);
0e8e0c1c
JM		 9435 TEST_ff_i (isunordered, plus_zero, minus_zero, 0);
9436 TEST_ff_i (isunordered, plus_zero, plus_zero, 0);
9437 TEST_ff_i (isunordered, plus_zero, (FLOAT) 1, 0);
67e971f1 9438 TEST_ff_i (isunordered, plus_zero, qnan_value, 1);
0e8e0c1c
JM		 9439 TEST_ff_i (isunordered, (FLOAT) 1, minus_zero, 0);
9440 TEST_ff_i (isunordered, (FLOAT) 1, plus_zero, 0);
9441 TEST_ff_i (isunordered, (FLOAT) 1, (FLOAT) 1, 0);
67e971f1
TS		 9442 TEST_ff_i (isunordered, (FLOAT) 1, qnan_value, 1);
9443 TEST_ff_i (isunordered, qnan_value, minus_zero, 1);
9444 TEST_ff_i (isunordered, qnan_value, plus_zero, 1);
9445 TEST_ff_i (isunordered, qnan_value, (FLOAT) 1, 1);
9446 TEST_ff_i (isunordered, qnan_value, qnan_value, 1);
0e8e0c1c
JM		 9447
9448 END (isunordered);
9449}
9450
8847214f
UD		 9451static void
9452j0_test (void)
9453{
cd53c157 9454 FLOAT s, c;
8847214f 9455 errno = 0;
cd53c157
UD		 9456 FUNC (sincos) (0, &s, &c);
9457 if (errno == ENOSYS)
9458 /* Required function not implemented. */
9459 return;
8847214f
UD		 9460 FUNC(j0) (0);
9461 if (errno == ENOSYS)
9462 /* Function not implemented. */
9463 return;
9464
9465 START (j0);
9466
9467 /* j0 is the Bessel function of the first kind of order 0 */
67e971f1 9468 TEST_f_f (j0, qnan_value, qnan_value);
8847214f 9469 TEST_f_f (j0, plus_infty, 0);
2550dfe9 9470 TEST_f_f (j0, -1.0, 0.765197686557966551449717526102663221L);
8847214f 9471 TEST_f_f (j0, 0.0, 1.0);
2550dfe9
AJ		 9472 TEST_f_f (j0, 0.125L, 0.996097563041985204620768999453174712L);
9473 TEST_f_f (j0, 0.75L, 0.864242275166648623555731103820923211L);
9474 TEST_f_f (j0, 1.0, 0.765197686557966551449717526102663221L);
9475 TEST_f_f (j0, 1.5, 0.511827671735918128749051744283411720L);
9476 TEST_f_f (j0, 2.0, 0.223890779141235668051827454649948626L);
9477 TEST_f_f (j0, 8.0, 0.171650807137553906090869407851972001L);
9478 TEST_f_f (j0, 10.0, -0.245935764451348335197760862485328754L);
fa9ced58
AJ		 9479 TEST_f_f (j0, 4.0, -3.9714980986384737228659076845169804197562E-1L);
9480 TEST_f_f (j0, -4.0, -3.9714980986384737228659076845169804197562E-1L);
8847214f 9481
41c7328e 9482 TEST_f_f (j0, 0x1.d7ce3ap+107L, 2.775523647291230802651040996274861694514e-17L);
c36e1d23
JM		 9483
9484#ifndef TEST_FLOAT
2a185d32 9485 TEST_f_f (j0, -0x1.001000001p+593L, -3.927269966354206207832593635798954916263e-90L);
98c48fe5 9486 TEST_f_f (j0, 0x1p1023L, -1.5665258060609012834424478437196679802783e-155L);
c36e1d23
JM		 9487#endif
9488
d2f9799e
JM		 9489#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
9490 TEST_f_f (j0, 0x1p16382L, -1.2193782500509000574176799046642541129387e-2466L);
9491 TEST_f_f (j0, 0x1p16383L, 9.5859502826270374691362975419147645151233e-2467L);
9492#endif
9493
8847214f
UD		 9494 END (j0);
9495}
9496
9497
9498static void
9499j1_test (void)
9500{
8a216c1b 9501 FLOAT s, c;
8847214f 9502 errno = 0;
cd53c157
UD		 9503 FUNC (sincos) (0, &s, &c);
9504 if (errno == ENOSYS)
9505 /* Required function not implemented. */
9506 return;
8847214f
UD		 9507 FUNC(j1) (0);
9508 if (errno == ENOSYS)
9509 /* Function not implemented. */
9510 return;
9511
9512 /* j1 is the Bessel function of the first kind of order 1 */
9513
9514 START (j1);
9515
67e971f1 9516 TEST_f_f (j1, qnan_value, qnan_value);
8847214f
UD		 9517 TEST_f_f (j1, plus_infty, 0);
9518
2550dfe9 9519 TEST_f_f (j1, -1.0, -0.440050585744933515959682203718914913L);
8847214f 9520 TEST_f_f (j1, 0.0, 0.0);
2550dfe9
AJ		 9521 TEST_f_f (j1, 0.125L, 0.0623780091344946810942311355879361177L);
9522 TEST_f_f (j1, 0.75L, 0.349243602174862192523281016426251335L);
9523 TEST_f_f (j1, 1.0, 0.440050585744933515959682203718914913L);
9524 TEST_f_f (j1, 1.5, 0.557936507910099641990121213156089400L);
9525 TEST_f_f (j1, 2.0, 0.576724807756873387202448242269137087L);
9526 TEST_f_f (j1, 8.0, 0.234636346853914624381276651590454612L);
9527 TEST_f_f (j1, 10.0, 0.0434727461688614366697487680258592883L);
8847214f 9528
c36e1d23
JM		 9529 TEST_f_f (j1, 0x1.3ffp+74L, 1.818984347516051243459364437186082741567e-12L);
9530
9531#ifndef TEST_FLOAT
2a185d32 9532 TEST_f_f (j1, 0x1.ff00000000002p+840L, 1.846591691699331493194965158699937660696e-127L);
98c48fe5 9533 TEST_f_f (j1, 0x1p1023L, 8.2687542933709649327986678723012001545638e-155L);
c36e1d23
JM		 9534#endif
9535
d2f9799e
JM		 9536#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
9537 TEST_f_f (j1, 0x1p16382L, 8.0839224448726336195866026476176740513439e-2467L);
9538 TEST_f_f (j1, 0x1p16383L, -3.8895531955766020648617743624167352352217e-2467L);
9539#endif
9540
8847214f
UD		 9541 END (j1);
9542}
9543
9544static void
9545jn_test (void)
9546{
8a216c1b 9547 FLOAT s, c;
8847214f 9548 errno = 0;
cd53c157
UD		 9549 FUNC (sincos) (0, &s, &c);
9550 if (errno == ENOSYS)
9551 /* Required function not implemented. */
9552 return;
8847214f
UD		 9553 FUNC(jn) (1, 1);
9554 if (errno == ENOSYS)
9555 /* Function not implemented. */
9556 return;
9557
9558 /* jn is the Bessel function of the first kind of order n. */
9559 START (jn);
9560
9561 /* jn (0, x) == j0 (x) */
67e971f1 9562 TEST_ff_f (jn, 0, qnan_value, qnan_value);
8847214f 9563 TEST_ff_f (jn, 0, plus_infty, 0);
2550dfe9 9564 TEST_ff_f (jn, 0, -1.0, 0.765197686557966551449717526102663221L);
8847214f 9565 TEST_ff_f (jn, 0, 0.0, 1.0);
2550dfe9
AJ		 9566 TEST_ff_f (jn, 0, 0.125L, 0.996097563041985204620768999453174712L);
9567 TEST_ff_f (jn, 0, 0.75L, 0.864242275166648623555731103820923211L);
9568 TEST_ff_f (jn, 0, 1.0, 0.765197686557966551449717526102663221L);
9569 TEST_ff_f (jn, 0, 1.5, 0.511827671735918128749051744283411720L);
9570 TEST_ff_f (jn, 0, 2.0, 0.223890779141235668051827454649948626L);
9571 TEST_ff_f (jn, 0, 8.0, 0.171650807137553906090869407851972001L);
9572 TEST_ff_f (jn, 0, 10.0, -0.245935764451348335197760862485328754L);
9573 TEST_ff_f (jn, 0, 4.0, -3.9714980986384737228659076845169804197562E-1L);
9574 TEST_ff_f (jn, 0, -4.0, -3.9714980986384737228659076845169804197562E-1L);
8847214f
UD		 9575
9576 /* jn (1, x) == j1 (x) */
67e971f1 9577 TEST_ff_f (jn, 1, qnan_value, qnan_value);
8847214f 9578 TEST_ff_f (jn, 1, plus_infty, 0);
2550dfe9 9579 TEST_ff_f (jn, 1, -1.0, -0.440050585744933515959682203718914913L);
8847214f 9580 TEST_ff_f (jn, 1, 0.0, 0.0);
2550dfe9
AJ		 9581 TEST_ff_f (jn, 1, 0.125L, 0.0623780091344946810942311355879361177L);
9582 TEST_ff_f (jn, 1, 0.75L, 0.349243602174862192523281016426251335L);
9583 TEST_ff_f (jn, 1, 1.0, 0.440050585744933515959682203718914913L);
9584 TEST_ff_f (jn, 1, 1.5, 0.557936507910099641990121213156089400L);
9585 TEST_ff_f (jn, 1, 2.0, 0.576724807756873387202448242269137087L);
9586 TEST_ff_f (jn, 1, 8.0, 0.234636346853914624381276651590454612L);
9587 TEST_ff_f (jn, 1, 10.0, 0.0434727461688614366697487680258592883L);
8847214f
UD		 9588
9589 /* jn (3, x) */
67e971f1 9590 TEST_ff_f (jn, 3, qnan_value, qnan_value);
8847214f
UD		 9591 TEST_ff_f (jn, 3, plus_infty, 0);
9592
2550dfe9 9593 TEST_ff_f (jn, 3, -1.0, -0.0195633539826684059189053216217515083L);
8847214f 9594 TEST_ff_f (jn, 3, 0.0, 0.0);
2550dfe9
AJ		 9595 TEST_ff_f (jn, 3, 0.125L, 0.406503832554912875023029337653442868e-4L);
9596 TEST_ff_f (jn, 3, 0.75L, 0.848438342327410884392755236884386804e-2L);
9597 TEST_ff_f (jn, 3, 1.0, 0.0195633539826684059189053216217515083L);
9598 TEST_ff_f (jn, 3, 2.0, 0.128943249474402051098793332969239835L);
9599 TEST_ff_f (jn, 3, 10.0, 0.0583793793051868123429354784103409563L);
8847214f
UD		 9600
9601 /* jn (10, x) */
67e971f1 9602 TEST_ff_f (jn, 10, qnan_value, qnan_value);
8847214f
UD		 9603 TEST_ff_f (jn, 10, plus_infty, 0);
9604
2550dfe9 9605 TEST_ff_f (jn, 10, -1.0, 0.263061512368745320699785368779050294e-9L);
8847214f 9606 TEST_ff_f (jn, 10, 0.0, 0.0);
2550dfe9
AJ		 9607 TEST_ff_f (jn, 10, 0.125L, 0.250543369809369890173993791865771547e-18L);
9608 TEST_ff_f (jn, 10, 0.75L, 0.149621713117596814698712483621682835e-10L);
9609 TEST_ff_f (jn, 10, 1.0, 0.263061512368745320699785368779050294e-9L);
9610 TEST_ff_f (jn, 10, 2.0, 0.251538628271673670963516093751820639e-6L);
9611 TEST_ff_f (jn, 10, 10.0, 0.207486106633358857697278723518753428L);
8847214f 9612
1248c1c4 9613 /* BZ #11589 .*/
cfdc0dd7
AS		 9614 TEST_ff_f (jn, 2, 2.4048255576957729L, 0.43175480701968038399746111312430703L);
9615 TEST_ff_f (jn, 3, 2.4048255576957729L, 0.19899990535769083404042146764530813L);
9616 TEST_ff_f (jn, 4, 2.4048255576957729L, 0.647466661641779720084932282551219891E-1L);
9617 TEST_ff_f (jn, 5, 2.4048255576957729L, 0.163892432048058525099230549946147698E-1L);
9618 TEST_ff_f (jn, 6, 2.4048255576957729L, 0.34048184720278336646673682895929161E-2L);
9619 TEST_ff_f (jn, 7, 2.4048255576957729L, 0.60068836573295394221291569249883076E-3L);
9620 TEST_ff_f (jn, 8, 2.4048255576957729L, 0.92165786705344923232879022467054148E-4L);
c36e1d23
JM		 9621 TEST_ff_f (jn, 9, 2.4048255576957729L, 0.12517270977961513005428966643852564E-4L);
9622
80bad0cc
JM		 9623 /* Bug 14155: spurious exception may occur. */
9624 TEST_ff_f (jn, 2, 0x1.ffff62p+99L, -4.43860668048170034334926693188979974489e-16L, UNDERFLOW_EXCEPTION_OK);
1248c1c4 9625
8847214f
UD		 9626 END (jn);
9627}
9628
9629
9630static void
9631ldexp_test (void)
9632{
af00a34d
TS		 9633 START (ldexp);
9634
8847214f
UD		 9635 TEST_ff_f (ldexp, 0, 0, 0);
9636 TEST_ff_f (ldexp, minus_zero, 0, minus_zero);
9637
9638 TEST_ff_f (ldexp, plus_infty, 1, plus_infty);
9639 TEST_ff_f (ldexp, minus_infty, 1, minus_infty);
67e971f1 9640 TEST_ff_f (ldexp, qnan_value, 1, qnan_value);
8847214f
UD		 9641
9642 TEST_ff_f (ldexp, 0.8L, 4, 12.8L);
9643 TEST_ff_f (ldexp, -0.854375L, 5, -27.34L);
9644
9645 /* ldexp (x, 0) == x. */
9646 TEST_ff_f (ldexp, 1.0L, 0L, 1.0L);
af00a34d
TS		 9647
9648 END (ldexp);
8847214f
UD		 9649}
9650
2550dfe9 9651
8847214f
UD		 9652static void
9653lgamma_test (void)
9654{
9655 errno = 0;
9656 FUNC(lgamma) (0);
9657 if (errno == ENOSYS)
9658 /* Function not implemented. */
9659 return;
8847214f
UD		 9660
9661 START (lgamma);
9662
c31a5b1e
JM		 9663 TEST_f_f1 (lgamma, plus_infty, plus_infty, 1);
9664 TEST_f_f1 (lgamma, 0, plus_infty, 1, DIVIDE_BY_ZERO_EXCEPTION);
9665 TEST_f_f1 (lgamma, minus_zero, plus_infty, -1, DIVIDE_BY_ZERO_EXCEPTION);
9666 TEST_f_f1 (lgamma, qnan_value, qnan_value, IGNORE);
8847214f
UD		 9667
9668 /* lgamma (x) == +inf plus divide by zero exception for integer x <= 0. */
c31a5b1e
JM		 9669 TEST_f_f1 (lgamma, -3, plus_infty, IGNORE, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
9670 TEST_f_f1 (lgamma, minus_infty, plus_infty, IGNORE);
9671 TEST_f_f1 (lgamma, -max_value, plus_infty, IGNORE, DIVIDE_BY_ZERO_EXCEPTION);
9672 TEST_f_f1 (lgamma, max_value, plus_infty, 1, OVERFLOW_EXCEPTION);
8847214f
UD		 9673
9674 TEST_f_f1 (lgamma, 1, 0, 1);
9675
9676 TEST_f_f1 (lgamma, 3, M_LN2l, 1);
9677
9678 TEST_f_f1 (lgamma, 0.5, M_LOG_SQRT_PIl, 1);
9679 TEST_f_f1 (lgamma, -0.5, M_LOG_2_SQRT_PIl, -1);
79df8ce5
AJ		 9680 TEST_f_f1 (lgamma, 0.7L, 0.260867246531666514385732417016759578L, 1);
9681 TEST_f_f1 (lgamma, 1.2L, -0.853740900033158497197028392998854470e-1L, 1);
8847214f
UD		 9682
9683 END (lgamma);
9684}
9685
2550dfe9 9686
8847214f
UD		 9687static void
9688lrint_test (void)
9689{
9690 /* XXX this test is incomplete. We need to have a way to specifiy
9691 the rounding method and test the critical cases. So far, only
9692 unproblematic numbers are tested. */
64d063b8 9693 /* TODO: missing +/-Inf as well as qNaN tests. */
8847214f
UD		 9694
9695 START (lrint);
9696
9697 TEST_f_l (lrint, 0.0, 0);
9698 TEST_f_l (lrint, minus_zero, 0);
3c6cad26
UD		 9699 TEST_f_l (lrint, 0.2L, 0);
9700 TEST_f_l (lrint, -0.2L, 0);
8847214f 9701
3c6cad26
UD		 9702 TEST_f_l (lrint, 1.4L, 1);
9703 TEST_f_l (lrint, -1.4L, -1);
8847214f 9704
3c6cad26
UD		 9705 TEST_f_l (lrint, 8388600.3L, 8388600);
9706 TEST_f_l (lrint, -8388600.3L, -8388600);
8847214f 9707
3eb61415
UD		 9708 TEST_f_l (lrint, 1071930.0008, 1071930);
9709#ifndef TEST_FLOAT
9710 TEST_f_l (lrint, 1073741824.01, 1073741824);
39007ae3
UD		 9711# if LONG_MAX > 281474976710656
9712 TEST_f_l (lrint, 281474976710656.025, 281474976710656);
9713# endif
3eb61415
UD		 9714#endif
9715
8847214f
UD		 9716 END (lrint);
9717}
9718
2550dfe9 9719
6624dbc0
UD		 9720static void
9721lrint_test_tonearest (void)
9722{
9723 int save_round_mode;
9724 START (lrint_tonearest);
9725
9726 save_round_mode = fegetround ();
9727
9728 if (!fesetround (FE_TONEAREST))
9729 {
9730 TEST_f_l (lrint, 0.0, 0);
9731 TEST_f_l (lrint, minus_zero, 0);
9732 TEST_f_l (lrint, 0.2L, 0);
9733 TEST_f_l (lrint, -0.2L, 0);
9734 TEST_f_l (lrint, 0.5L, 0);
9735 TEST_f_l (lrint, -0.5L, 0);
9736 TEST_f_l (lrint, 0.8L, 1);
9737 TEST_f_l (lrint, -0.8L, -1);
9738
9739 TEST_f_l (lrint, 1.4L, 1);
9740 TEST_f_l (lrint, -1.4L, -1);
9741
9742 TEST_f_l (lrint, 8388600.3L, 8388600);
9743 TEST_f_l (lrint, -8388600.3L, -8388600);
9744
9745 TEST_f_l (lrint, 1071930.0008, 1071930);
9746#ifndef TEST_FLOAT
9747 TEST_f_l (lrint, 1073741824.01, 1073741824);
9748# if LONG_MAX > 281474976710656
9749 TEST_f_l (lrint, 281474976710656.025, 281474976710656);
9750# endif
9751#endif
9752 }
9753
9754 fesetround (save_round_mode);
9755
9756 END (lrint_tonearest);
9757}
9758
9759
9760static void
9761lrint_test_towardzero (void)
9762{
9763 int save_round_mode;
9764 START (lrint_towardzero);
9765
9766 save_round_mode = fegetround ();
9767
9768 if (!fesetround (FE_TOWARDZERO))
9769 {
9770 TEST_f_l (lrint, 0.0, 0);
9771 TEST_f_l (lrint, minus_zero, 0);
9772 TEST_f_l (lrint, 0.2L, 0);
9773 TEST_f_l (lrint, -0.2L, 0);
9774 TEST_f_l (lrint, 0.5L, 0);
9775 TEST_f_l (lrint, -0.5L, 0);
9776 TEST_f_l (lrint, 0.8L, 0);
9777 TEST_f_l (lrint, -0.8L, 0);
9778
9779 TEST_f_l (lrint, 1.4L, 1);
9780 TEST_f_l (lrint, -1.4L, -1);
9781
9782 TEST_f_l (lrint, 8388600.3L, 8388600);
9783 TEST_f_l (lrint, -8388600.3L, -8388600);
9784
9785 TEST_f_l (lrint, 1071930.0008, 1071930);
9786#ifndef TEST_FLOAT
9787 TEST_f_l (lrint, 1073741824.01, 1073741824);
9788# if LONG_MAX > 281474976710656
9789 TEST_f_l (lrint, 281474976710656.025, 281474976710656);
9790# endif
9791#endif
9792 }
9793
9794 fesetround (save_round_mode);
9795
9796 END (lrint_towardzero);
9797}
9798
9799
9800static void
9801lrint_test_downward (void)
9802{
9803 int save_round_mode;
9804 START (lrint_downward);
9805
9806 save_round_mode = fegetround ();
9807
9808 if (!fesetround (FE_DOWNWARD))
9809 {
9810 TEST_f_l (lrint, 0.0, 0);
9811 TEST_f_l (lrint, minus_zero, 0);
9812 TEST_f_l (lrint, 0.2L, 0);
9813 TEST_f_l (lrint, -0.2L, -1);
9814 TEST_f_l (lrint, 0.5L, 0);
9815 TEST_f_l (lrint, -0.5L, -1);
9816 TEST_f_l (lrint, 0.8L, 0);
9817 TEST_f_l (lrint, -0.8L, -1);
9818
9819 TEST_f_l (lrint, 1.4L, 1);
9820 TEST_f_l (lrint, -1.4L, -2);
9821
9822 TEST_f_l (lrint, 8388600.3L, 8388600);
9823 TEST_f_l (lrint, -8388600.3L, -8388601);
9824
9825 TEST_f_l (lrint, 1071930.0008, 1071930);
9826#ifndef TEST_FLOAT
9827 TEST_f_l (lrint, 1073741824.01, 1073741824);
9828# if LONG_MAX > 281474976710656
9829 TEST_f_l (lrint, 281474976710656.025, 281474976710656);
9830# endif
9831#endif
9832 }
9833
9834 fesetround (save_round_mode);
9835
9836 END (lrint_downward);
9837}
9838
9839
9840static void
9841lrint_test_upward (void)
9842{
9843 int save_round_mode;
9844 START (lrint_upward);
9845
9846 save_round_mode = fegetround ();
9847
9848 if (!fesetround (FE_UPWARD))
9849 {
9850 TEST_f_l (lrint, 0.0, 0);
9851 TEST_f_l (lrint, minus_zero, 0);
9852 TEST_f_l (lrint, 0.2L, 1);
9853 TEST_f_l (lrint, -0.2L, 0);
9854 TEST_f_l (lrint, 0.5L, 1);
9855 TEST_f_l (lrint, -0.5L, 0);
9856 TEST_f_l (lrint, 0.8L, 1);
9857 TEST_f_l (lrint, -0.8L, 0);
9858
9859 TEST_f_l (lrint, 1.4L, 2);
9860 TEST_f_l (lrint, -1.4L, -1);
9861
9862 TEST_f_l (lrint, 8388600.3L, 8388601);
9863 TEST_f_l (lrint, -8388600.3L, -8388600);
9864
9865#ifndef TEST_FLOAT
9866 TEST_f_l (lrint, 1071930.0008, 1071931);
9867 TEST_f_l (lrint, 1073741824.01, 1073741825);
9868# if LONG_MAX > 281474976710656 && defined (TEST_LDOUBLE)
89210b4c 9869 TEST_f_l (lrint, 281474976710656.025, 281474976710656);
6624dbc0
UD		 9870# endif
9871#endif
9872 }
9873
9874 fesetround (save_round_mode);
9875
9876 END (lrint_upward);
9877}
9878
9879
8847214f
UD		 9880static void
9881llrint_test (void)
9882{
9883 /* XXX this test is incomplete. We need to have a way to specifiy
9884 the rounding method and test the critical cases. So far, only
9885 unproblematic numbers are tested. */
64d063b8 9886 /* TODO: missing +/-Inf as well as qNaN tests. */
8847214f
UD		 9887
9888 START (llrint);
9889
9890 TEST_f_L (llrint, 0.0, 0);
9891 TEST_f_L (llrint, minus_zero, 0);
3c6cad26
UD		 9892 TEST_f_L (llrint, 0.2L, 0);
9893 TEST_f_L (llrint, -0.2L, 0);
8847214f 9894
3c6cad26
UD		 9895 TEST_f_L (llrint, 1.4L, 1);
9896 TEST_f_L (llrint, -1.4L, -1);
8847214f 9897
3c6cad26
UD		 9898 TEST_f_L (llrint, 8388600.3L, 8388600);
9899 TEST_f_L (llrint, -8388600.3L, -8388600);
8847214f 9900
3eb61415
UD		 9901 TEST_f_l (llrint, 1071930.0008, 1071930);
9902
8847214f
UD		 9903 /* Test boundary conditions. */
9904 /* 0x1FFFFF */
9905 TEST_f_L (llrint, 2097151.0,2097151LL);
9906 /* 0x800000 */
9907 TEST_f_L (llrint, 8388608.0, 8388608LL);
9908 /* 0x1000000 */
9909 TEST_f_L (llrint, 16777216.0, 16777216LL);
9910 /* 0x20000000000 */
9911 TEST_f_L (llrint, 2199023255552.0, 2199023255552LL);
9912 /* 0x40000000000 */
9913 TEST_f_L (llrint, 4398046511104.0, 4398046511104LL);
39007ae3
UD		 9914 /* 0x1000000000000 */
9915 TEST_f_L (llrint, 281474976710656.0, 281474976710656LL);
8847214f
UD		 9916 /* 0x10000000000000 */
9917 TEST_f_L (llrint, 4503599627370496.0, 4503599627370496LL);
9918 /* 0x10000080000000 */
9919 TEST_f_L (llrint, 4503601774854144.0, 4503601774854144LL);
9920 /* 0x20000000000000 */
9921 TEST_f_L (llrint, 9007199254740992.0, 9007199254740992LL);
9922 /* 0x80000000000000 */
9923 TEST_f_L (llrint, 36028797018963968.0, 36028797018963968LL);
9924 /* 0x100000000000000 */
9925 TEST_f_L (llrint, 72057594037927936.0, 72057594037927936LL);
f964490f
RM		 9926#ifdef TEST_LDOUBLE
9927 /* The input can only be represented in long double. */
9928 TEST_f_L (llrint, 4503599627370495.5L, 4503599627370496LL);
9929 TEST_f_L (llrint, 4503599627370496.25L, 4503599627370496LL);
9930 TEST_f_L (llrint, 4503599627370496.5L, 4503599627370496LL);
9931 TEST_f_L (llrint, 4503599627370496.75L, 4503599627370497LL);
9932 TEST_f_L (llrint, 4503599627370497.5L, 4503599627370498LL);
9933
9934 TEST_f_L (llrint, -4503599627370495.5L, -4503599627370496LL);
9935 TEST_f_L (llrint, -4503599627370496.25L, -4503599627370496LL);
9936 TEST_f_L (llrint, -4503599627370496.5L, -4503599627370496LL);
9937 TEST_f_L (llrint, -4503599627370496.75L, -4503599627370497LL);
9938 TEST_f_L (llrint, -4503599627370497.5L, -4503599627370498LL);
9939
830fce04
RM		 9940# if LDBL_MANT_DIG > 100
9941 TEST_f_L (llrint, 4503599627370495.4999999999999L, 4503599627370495LL);
9942 TEST_f_L (llrint, 4503599627370496.4999999999999L, 4503599627370496LL);
9943 TEST_f_L (llrint, 4503599627370497.4999999999999L, 4503599627370497LL);
9944 TEST_f_L (llrint, 4503599627370494.5000000000001L, 4503599627370495LL);
9945 TEST_f_L (llrint, 4503599627370495.5000000000001L, 4503599627370496LL);
9946 TEST_f_L (llrint, 4503599627370496.5000000000001L, 4503599627370497LL);
9947
9948 TEST_f_L (llrint, -4503599627370495.4999999999999L, -4503599627370495LL);
9949 TEST_f_L (llrint, -4503599627370496.4999999999999L, -4503599627370496LL);
9950 TEST_f_L (llrint, -4503599627370497.4999999999999L, -4503599627370497LL);
9951 TEST_f_L (llrint, -4503599627370494.5000000000001L, -4503599627370495LL);
9952 TEST_f_L (llrint, -4503599627370495.5000000000001L, -4503599627370496LL);
9953 TEST_f_L (llrint, -4503599627370496.5000000000001L, -4503599627370497LL);
9954#endif
9955
f964490f
RM		 9956 TEST_f_L (llrint, 9007199254740991.5L, 9007199254740992LL);
9957 TEST_f_L (llrint, 9007199254740992.25L, 9007199254740992LL);
9958 TEST_f_L (llrint, 9007199254740992.5L, 9007199254740992LL);
9959 TEST_f_L (llrint, 9007199254740992.75L, 9007199254740993LL);
9960 TEST_f_L (llrint, 9007199254740993.5L, 9007199254740994LL);
9961
9962 TEST_f_L (llrint, -9007199254740991.5L, -9007199254740992LL);
9963 TEST_f_L (llrint, -9007199254740992.25L, -9007199254740992LL);
9964 TEST_f_L (llrint, -9007199254740992.5L, -9007199254740992LL);
9965 TEST_f_L (llrint, -9007199254740992.75L, -9007199254740993LL);
9966 TEST_f_L (llrint, -9007199254740993.5L, -9007199254740994LL);
9967
830fce04
RM		 9968# if LDBL_MANT_DIG > 100
9969 TEST_f_L (llrint, 9007199254740991.4999999999999L, 9007199254740991LL);
9970 TEST_f_L (llrint, 9007199254740992.4999999999999L, 9007199254740992LL);
9971 TEST_f_L (llrint, 9007199254740993.4999999999999L, 9007199254740993LL);
9972 TEST_f_L (llrint, 9007199254740991.5000000000001L, 9007199254740992LL);
9973 TEST_f_L (llrint, 9007199254740992.5000000000001L, 9007199254740993LL);
9974 TEST_f_L (llrint, 9007199254740993.5000000000001L, 9007199254740994LL);
9975
9976 TEST_f_L (llrint, -9007199254740991.4999999999999L, -9007199254740991LL);
9977 TEST_f_L (llrint, -9007199254740992.4999999999999L, -9007199254740992LL);
9978 TEST_f_L (llrint, -9007199254740993.4999999999999L, -9007199254740993LL);
9979 TEST_f_L (llrint, -9007199254740991.5000000000001L, -9007199254740992LL);
9980 TEST_f_L (llrint, -9007199254740992.5000000000001L, -9007199254740993LL);
9981 TEST_f_L (llrint, -9007199254740993.5000000000001L, -9007199254740994LL);
9982#endif
9983
f964490f
RM		 9984 TEST_f_L (llrint, 72057594037927935.5L, 72057594037927936LL);
9985 TEST_f_L (llrint, 72057594037927936.25L, 72057594037927936LL);
9986 TEST_f_L (llrint, 72057594037927936.5L, 72057594037927936LL);
9987 TEST_f_L (llrint, 72057594037927936.75L, 72057594037927937LL);
9988 TEST_f_L (llrint, 72057594037927937.5L, 72057594037927938LL);
9989
9990 TEST_f_L (llrint, -72057594037927935.5L, -72057594037927936LL);
9991 TEST_f_L (llrint, -72057594037927936.25L, -72057594037927936LL);
9992 TEST_f_L (llrint, -72057594037927936.5L, -72057594037927936LL);
9993 TEST_f_L (llrint, -72057594037927936.75L, -72057594037927937LL);
9994 TEST_f_L (llrint, -72057594037927937.5L, -72057594037927938LL);
830fce04
RM		 9995
9996# if LDBL_MANT_DIG > 100
9997 TEST_f_L (llrint, 9223372036854775805.5L, 9223372036854775806LL);
9998 TEST_f_L (llrint, -9223372036854775805.5L, -9223372036854775806LL);
9999 TEST_f_L (llrint, 9223372036854775806.0L, 9223372036854775806LL);
10000 TEST_f_L (llrint, -9223372036854775806.0L, -9223372036854775806LL);
10001 TEST_f_L (llrint, 9223372036854775806.25L, 9223372036854775806LL);
10002 TEST_f_L (llrint, -9223372036854775806.25L, -9223372036854775806LL);
10003 TEST_f_L (llrint, 9223372036854775806.5L, 9223372036854775806L);
10004 TEST_f_L (llrint, -9223372036854775806.5L, -9223372036854775806LL);
10005 TEST_f_L (llrint, 9223372036854775806.75L, 9223372036854775807LL);
10006 TEST_f_L (llrint, -9223372036854775806.75L, -9223372036854775807LL);
10007 TEST_f_L (llrint, 9223372036854775807.0L, 9223372036854775807LL);
10008 TEST_f_L (llrint, -9223372036854775807.0L, -9223372036854775807LL);
10009# endif
f964490f 10010#endif
8847214f
UD		 10011
10012 END (llrint);
10013}
10014
830fce04
RM		 10015static void
10016llrint_test_tonearest (void)
10017{
10018 int save_round_mode;
10019 START (llrint_tonearest);
10020
10021 save_round_mode = fegetround ();
10022
10023 if (!fesetround (FE_TONEAREST))
10024 {
10025 TEST_f_L (llrint, 0.0, 0);
10026 TEST_f_L (llrint, minus_zero, 0);
10027 TEST_f_L (llrint, 0.2L, 0);
10028 TEST_f_L (llrint, -0.2L, 0);
10029
10030 TEST_f_L (llrint, 1.4L, 1);
10031 TEST_f_L (llrint, -1.4L, -1);
10032
10033 TEST_f_L (llrint, 8388600.3L, 8388600);
10034 TEST_f_L (llrint, -8388600.3L, -8388600);
10035
10036 TEST_f_l (llrint, 1071930.0008, 1071930);
10037
10038 /* Test boundary conditions. */
10039 /* 0x1FFFFF */
10040 TEST_f_L (llrint, 2097151.0,2097151LL);
10041 /* 0x800000 */
10042 TEST_f_L (llrint, 8388608.0, 8388608LL);
10043 /* 0x1000000 */
10044 TEST_f_L (llrint, 16777216.0, 16777216LL);
10045 /* 0x20000000000 */
10046 TEST_f_L (llrint, 2199023255552.0, 2199023255552LL);
10047 /* 0x40000000000 */
10048 TEST_f_L (llrint, 4398046511104.0, 4398046511104LL);
10049 /* 0x1000000000000 */
10050 TEST_f_L (llrint, 281474976710656.0, 281474976710656LL);
10051 /* 0x10000000000000 */
10052 TEST_f_L (llrint, 4503599627370496.0, 4503599627370496LL);
10053 /* 0x10000080000000 */
10054 TEST_f_L (llrint, 4503601774854144.0, 4503601774854144LL);
10055 /* 0x20000000000000 */
10056 TEST_f_L (llrint, 9007199254740992.0, 9007199254740992LL);
10057 /* 0x80000000000000 */
10058 TEST_f_L (llrint, 36028797018963968.0, 36028797018963968LL);
10059 /* 0x100000000000000 */
10060 TEST_f_L (llrint, 72057594037927936.0, 72057594037927936LL);
10061#ifdef TEST_LDOUBLE
10062 /* The input can only be represented in long double. */
10063 TEST_f_L (llrint, 4503599627370495.5L, 4503599627370496LL);
10064 TEST_f_L (llrint, 4503599627370496.25L, 4503599627370496LL);
10065 TEST_f_L (llrint, 4503599627370496.5L, 4503599627370496LL);
10066 TEST_f_L (llrint, 4503599627370496.75L, 4503599627370497LL);
10067 TEST_f_L (llrint, 4503599627370497.5L, 4503599627370498LL);
10068
10069 TEST_f_L (llrint, -4503599627370495.5L, -4503599627370496LL);
10070 TEST_f_L (llrint, -4503599627370496.25L, -4503599627370496LL);
10071 TEST_f_L (llrint, -4503599627370496.5L, -4503599627370496LL);
10072 TEST_f_L (llrint, -4503599627370496.75L, -4503599627370497LL);
10073 TEST_f_L (llrint, -4503599627370497.5L, -4503599627370498LL);
10074
10075# if LDBL_MANT_DIG > 100
10076 TEST_f_L (llrint, 4503599627370495.4999999999999L, 4503599627370495LL);
10077 TEST_f_L (llrint, 4503599627370496.4999999999999L, 4503599627370496LL);
10078 TEST_f_L (llrint, 4503599627370497.4999999999999L, 4503599627370497LL);
10079 TEST_f_L (llrint, 4503599627370494.5000000000001L, 4503599627370495LL);
10080 TEST_f_L (llrint, 4503599627370495.5000000000001L, 4503599627370496LL);
10081 TEST_f_L (llrint, 4503599627370496.5000000000001L, 4503599627370497LL);
10082
10083 TEST_f_L (llrint, -4503599627370495.4999999999999L, -4503599627370495LL);
10084 TEST_f_L (llrint, -4503599627370496.4999999999999L, -4503599627370496LL);
10085 TEST_f_L (llrint, -4503599627370497.4999999999999L, -4503599627370497LL);
10086 TEST_f_L (llrint, -4503599627370494.5000000000001L, -4503599627370495LL);
10087 TEST_f_L (llrint, -4503599627370495.5000000000001L, -4503599627370496LL);
10088 TEST_f_L (llrint, -4503599627370496.5000000000001L, -4503599627370497LL);
10089#endif
10090
10091 TEST_f_L (llrint, 9007199254740991.5L, 9007199254740992LL);
10092 TEST_f_L (llrint, 9007199254740992.25L, 9007199254740992LL);
10093 TEST_f_L (llrint, 9007199254740992.5L, 9007199254740992LL);
10094 TEST_f_L (llrint, 9007199254740992.75L, 9007199254740993LL);
10095 TEST_f_L (llrint, 9007199254740993.5L, 9007199254740994LL);
10096
10097 TEST_f_L (llrint, -9007199254740991.5L, -9007199254740992LL);
10098 TEST_f_L (llrint, -9007199254740992.25L, -9007199254740992LL);
10099 TEST_f_L (llrint, -9007199254740992.5L, -9007199254740992LL);
10100 TEST_f_L (llrint, -9007199254740992.75L, -9007199254740993LL);
10101 TEST_f_L (llrint, -9007199254740993.5L, -9007199254740994LL);
10102
10103# if LDBL_MANT_DIG > 100
10104 TEST_f_L (llrint, 9007199254740991.4999999999999L, 9007199254740991LL);
10105 TEST_f_L (llrint, 9007199254740992.4999999999999L, 9007199254740992LL);
10106 TEST_f_L (llrint, 9007199254740993.4999999999999L, 9007199254740993LL);
10107 TEST_f_L (llrint, 9007199254740991.5000000000001L, 9007199254740992LL);
10108 TEST_f_L (llrint, 9007199254740992.5000000000001L, 9007199254740993LL);
10109 TEST_f_L (llrint, 9007199254740993.5000000000001L, 9007199254740994LL);
10110
10111 TEST_f_L (llrint, -9007199254740991.4999999999999L, -9007199254740991LL);
10112 TEST_f_L (llrint, -9007199254740992.4999999999999L, -9007199254740992LL);
10113 TEST_f_L (llrint, -9007199254740993.4999999999999L, -9007199254740993LL);
10114 TEST_f_L (llrint, -9007199254740991.5000000000001L, -9007199254740992LL);
10115 TEST_f_L (llrint, -9007199254740992.5000000000001L, -9007199254740993LL);
10116 TEST_f_L (llrint, -9007199254740993.5000000000001L, -9007199254740994LL);
10117#endif
10118
10119 TEST_f_L (llrint, 72057594037927935.5L, 72057594037927936LL);
10120 TEST_f_L (llrint, 72057594037927936.25L, 72057594037927936LL);
10121 TEST_f_L (llrint, 72057594037927936.5L, 72057594037927936LL);
10122 TEST_f_L (llrint, 72057594037927936.75L, 72057594037927937LL);
10123 TEST_f_L (llrint, 72057594037927937.5L, 72057594037927938LL);
10124
10125 TEST_f_L (llrint, -72057594037927935.5L, -72057594037927936LL);
10126 TEST_f_L (llrint, -72057594037927936.25L, -72057594037927936LL);
10127 TEST_f_L (llrint, -72057594037927936.5L, -72057594037927936LL);
10128 TEST_f_L (llrint, -72057594037927936.75L, -72057594037927937LL);
10129 TEST_f_L (llrint, -72057594037927937.5L, -72057594037927938LL);
10130
10131# if LDBL_MANT_DIG > 100
10132 TEST_f_L (llrint, 9223372036854775805.5L, 9223372036854775806LL);
10133 TEST_f_L (llrint, -9223372036854775805.5L, -9223372036854775806LL);
10134 TEST_f_L (llrint, 9223372036854775806.0L, 9223372036854775806LL);
10135 TEST_f_L (llrint, -9223372036854775806.0L, -9223372036854775806LL);
10136 TEST_f_L (llrint, 9223372036854775806.25L, 9223372036854775806LL);
10137 TEST_f_L (llrint, -9223372036854775806.25L, -9223372036854775806LL);
10138 TEST_f_L (llrint, 9223372036854775806.5L, 9223372036854775806L);
10139 TEST_f_L (llrint, -9223372036854775806.5L, -9223372036854775806LL);
10140 TEST_f_L (llrint, 9223372036854775806.75L, 9223372036854775807LL);
10141 TEST_f_L (llrint, -9223372036854775806.75L, -9223372036854775807LL);
10142 TEST_f_L (llrint, 9223372036854775807.0L, 9223372036854775807LL);
10143 TEST_f_L (llrint, -9223372036854775807.0L, -9223372036854775807LL);
10144# endif
10145#endif
10146 }
10147
10148 fesetround (save_round_mode);
10149
10150 END (llrint_tonearest);
10151}
10152
10153static void
10154llrint_test_towardzero (void)
10155{
10156 int save_round_mode;
10157 START (llrint_towardzero);
10158
10159 save_round_mode = fegetround ();
10160
10161 if (!fesetround (FE_TOWARDZERO))
10162 {
10163 TEST_f_L (llrint, 0.0, 0);
10164 TEST_f_L (llrint, minus_zero, 0);
10165 TEST_f_L (llrint, 0.2L, 0);
10166 TEST_f_L (llrint, -0.2L, 0);
10167
10168 TEST_f_L (llrint, 1.4L, 1);
10169 TEST_f_L (llrint, -1.4L, -1);
10170
10171 TEST_f_L (llrint, 8388600.3L, 8388600);
10172 TEST_f_L (llrint, -8388600.3L, -8388600);
10173
10174 TEST_f_l (llrint, 1071930.0008, 1071930);
10175
10176 /* Test boundary conditions. */
10177 /* 0x1FFFFF */
10178 TEST_f_L (llrint, 2097151.0,2097151LL);
10179 /* 0x800000 */
10180 TEST_f_L (llrint, 8388608.0, 8388608LL);
10181 /* 0x1000000 */
10182 TEST_f_L (llrint, 16777216.0, 16777216LL);
10183 /* 0x20000000000 */
10184 TEST_f_L (llrint, 2199023255552.0, 2199023255552LL);
10185 /* 0x40000000000 */
10186 TEST_f_L (llrint, 4398046511104.0, 4398046511104LL);
10187 /* 0x1000000000000 */
10188 TEST_f_L (llrint, 281474976710656.0, 281474976710656LL);
10189 /* 0x10000000000000 */
10190 TEST_f_L (llrint, 4503599627370496.0, 4503599627370496LL);
10191 /* 0x10000080000000 */
10192 TEST_f_L (llrint, 4503601774854144.0, 4503601774854144LL);
10193 /* 0x20000000000000 */
10194 TEST_f_L (llrint, 9007199254740992.0, 9007199254740992LL);
10195 /* 0x80000000000000 */
10196 TEST_f_L (llrint, 36028797018963968.0, 36028797018963968LL);
10197 /* 0x100000000000000 */
10198 TEST_f_L (llrint, 72057594037927936.0, 72057594037927936LL);
10199#ifdef TEST_LDOUBLE
10200 /* The input can only be represented in long double. */
10201 TEST_f_L (llrint, 4503599627370495.5L, 4503599627370495LL);
10202 TEST_f_L (llrint, 4503599627370496.25L, 4503599627370496LL);
10203 TEST_f_L (llrint, 4503599627370496.5L, 4503599627370496LL);
10204 TEST_f_L (llrint, 4503599627370496.75L, 4503599627370496LL);
10205 TEST_f_L (llrint, 4503599627370497.5L, 4503599627370497LL);
10206
10207 TEST_f_L (llrint, -4503599627370495.5L, -4503599627370495LL);
10208 TEST_f_L (llrint, -4503599627370496.25L, -4503599627370496LL);
10209 TEST_f_L (llrint, -4503599627370496.5L, -4503599627370496LL);
10210 TEST_f_L (llrint, -4503599627370496.75L, -4503599627370496LL);
10211 TEST_f_L (llrint, -4503599627370497.5L, -4503599627370497LL);
10212
10213# if LDBL_MANT_DIG > 100
10214 TEST_f_L (llrint, 4503599627370495.4999999999999L, 4503599627370495LL);
10215 TEST_f_L (llrint, 4503599627370496.4999999999999L, 4503599627370496LL);
10216 TEST_f_L (llrint, 4503599627370497.4999999999999L, 4503599627370497LL);
10217 TEST_f_L (llrint, 4503599627370494.5000000000001L, 4503599627370494LL);
10218 TEST_f_L (llrint, 4503599627370495.5000000000001L, 4503599627370495LL);
10219 TEST_f_L (llrint, 4503599627370496.5000000000001L, 4503599627370496LL);
10220
10221 TEST_f_L (llrint, -4503599627370495.4999999999999L, -4503599627370495LL);
10222 TEST_f_L (llrint, -4503599627370496.4999999999999L, -4503599627370496LL);
10223 TEST_f_L (llrint, -4503599627370497.4999999999999L, -4503599627370497LL);
10224 TEST_f_L (llrint, -4503599627370494.5000000000001L, -4503599627370494LL);
10225 TEST_f_L (llrint, -4503599627370495.5000000000001L, -4503599627370495LL);
10226 TEST_f_L (llrint, -4503599627370496.5000000000001L, -4503599627370496LL);
10227#endif
10228
10229 TEST_f_L (llrint, 9007199254740991.5L, 9007199254740991LL);
10230 TEST_f_L (llrint, 9007199254740992.25L, 9007199254740992LL);
10231 TEST_f_L (llrint, 9007199254740992.5L, 9007199254740992LL);
10232 TEST_f_L (llrint, 9007199254740992.75L, 9007199254740992LL);
10233 TEST_f_L (llrint, 9007199254740993.5L, 9007199254740993LL);
10234
10235 TEST_f_L (llrint, -9007199254740991.5L, -9007199254740991LL);
10236 TEST_f_L (llrint, -9007199254740992.25L, -9007199254740992LL);
10237 TEST_f_L (llrint, -9007199254740992.5L, -9007199254740992LL);
10238 TEST_f_L (llrint, -9007199254740992.75L, -9007199254740992LL);
10239 TEST_f_L (llrint, -9007199254740993.5L, -9007199254740993LL);
10240
10241# if LDBL_MANT_DIG > 100
10242 TEST_f_L (llrint, 9007199254740991.4999999999999L, 9007199254740991LL);
10243 TEST_f_L (llrint, 9007199254740992.4999999999999L, 9007199254740992LL);
10244 TEST_f_L (llrint, 9007199254740993.4999999999999L, 9007199254740993LL);
10245 TEST_f_L (llrint, 9007199254740991.5000000000001L, 9007199254740991LL);
10246 TEST_f_L (llrint, 9007199254740992.5000000000001L, 9007199254740992LL);
10247 TEST_f_L (llrint, 9007199254740993.5000000000001L, 9007199254740993LL);
10248
10249 TEST_f_L (llrint, -9007199254740991.4999999999999L, -9007199254740991LL);
10250 TEST_f_L (llrint, -9007199254740992.4999999999999L, -9007199254740992LL);
10251 TEST_f_L (llrint, -9007199254740993.4999999999999L, -9007199254740993LL);
10252 TEST_f_L (llrint, -9007199254740991.5000000000001L, -9007199254740991LL);
10253 TEST_f_L (llrint, -9007199254740992.5000000000001L, -9007199254740992LL);
10254 TEST_f_L (llrint, -9007199254740993.5000000000001L, -9007199254740993LL);
10255#endif
10256
10257 TEST_f_L (llrint, 72057594037927935.5L, 72057594037927935LL);
10258 TEST_f_L (llrint, 72057594037927936.25L, 72057594037927936LL);
10259 TEST_f_L (llrint, 72057594037927936.5L, 72057594037927936LL);
10260 TEST_f_L (llrint, 72057594037927936.75L, 72057594037927936LL);
10261 TEST_f_L (llrint, 72057594037927937.5L, 72057594037927937LL);
10262
10263 TEST_f_L (llrint, -72057594037927935.5L, -72057594037927935LL);
10264 TEST_f_L (llrint, -72057594037927936.25L, -72057594037927936LL);
10265 TEST_f_L (llrint, -72057594037927936.5L, -72057594037927936LL);
10266 TEST_f_L (llrint, -72057594037927936.75L, -72057594037927936LL);
10267 TEST_f_L (llrint, -72057594037927937.5L, -72057594037927937LL);
10268
10269# if LDBL_MANT_DIG > 100
10270 TEST_f_L (llrint, 9223372036854775805.5L, 9223372036854775805LL);
10271 TEST_f_L (llrint, -9223372036854775805.5L, -9223372036854775805LL);
10272 TEST_f_L (llrint, 9223372036854775806.0L, 9223372036854775806LL);
10273 TEST_f_L (llrint, -9223372036854775806.0L, -9223372036854775806LL);
10274 TEST_f_L (llrint, 9223372036854775806.25L, 9223372036854775806LL);
10275 TEST_f_L (llrint, -9223372036854775806.25L, -9223372036854775806LL);
10276 TEST_f_L (llrint, 9223372036854775806.5L, 9223372036854775806L);
10277 TEST_f_L (llrint, -9223372036854775806.5L, -9223372036854775806LL);
10278 TEST_f_L (llrint, 9223372036854775806.75L, 9223372036854775806LL);
10279 TEST_f_L (llrint, -9223372036854775806.75L, -9223372036854775806LL);
10280 TEST_f_L (llrint, 9223372036854775807.0L, 9223372036854775807LL);
10281 TEST_f_L (llrint, -9223372036854775807.0L, -9223372036854775807LL);
10282# endif
10283#endif
10284 }
10285
10286 fesetround (save_round_mode);
10287
10288 END (llrint_towardzero);
10289}
10290
10291static void
10292llrint_test_downward (void)
10293{
10294 int save_round_mode;
10295 START (llrint_downward);
10296
10297 save_round_mode = fegetround ();
10298
10299 if (!fesetround (FE_DOWNWARD))
10300 {
10301 TEST_f_L (llrint, 0.0, 0);
10302 TEST_f_L (llrint, minus_zero, 0);
10303 TEST_f_L (llrint, 0.2L, 0);
10304 TEST_f_L (llrint, -0.2L, -1);
10305
10306 TEST_f_L (llrint, 1.4L, 1);
10307 TEST_f_L (llrint, -1.4L, -2);
10308
10309 TEST_f_L (llrint, 8388600.3L, 8388600);
10310 TEST_f_L (llrint, -8388600.3L, -8388601);
10311
10312 TEST_f_l (llrint, 1071930.0008, 1071930);
10313
10314 /* Test boundary conditions. */
10315 /* 0x1FFFFF */
10316 TEST_f_L (llrint, 2097151.0,2097151LL);
10317 /* 0x800000 */
10318 TEST_f_L (llrint, 8388608.0, 8388608LL);
10319 /* 0x1000000 */
10320 TEST_f_L (llrint, 16777216.0, 16777216LL);
10321 /* 0x20000000000 */
10322 TEST_f_L (llrint, 2199023255552.0, 2199023255552LL);
10323 /* 0x40000000000 */
10324 TEST_f_L (llrint, 4398046511104.0, 4398046511104LL);
10325 /* 0x1000000000000 */
10326 TEST_f_L (llrint, 281474976710656.0, 281474976710656LL);
10327 /* 0x10000000000000 */
10328 TEST_f_L (llrint, 4503599627370496.0, 4503599627370496LL);
10329 /* 0x10000080000000 */
10330 TEST_f_L (llrint, 4503601774854144.0, 4503601774854144LL);
10331 /* 0x20000000000000 */
10332 TEST_f_L (llrint, 9007199254740992.0, 9007199254740992LL);
10333 /* 0x80000000000000 */
10334 TEST_f_L (llrint, 36028797018963968.0, 36028797018963968LL);
10335 /* 0x100000000000000 */
10336 TEST_f_L (llrint, 72057594037927936.0, 72057594037927936LL);
10337#ifdef TEST_LDOUBLE
10338 /* The input can only be represented in long double. */
10339 TEST_f_L (llrint, 4503599627370495.5L, 4503599627370495LL);
10340 TEST_f_L (llrint, 4503599627370496.25L, 4503599627370496LL);
10341 TEST_f_L (llrint, 4503599627370496.5L, 4503599627370496LL);
10342 TEST_f_L (llrint, 4503599627370496.75L, 4503599627370496LL);
10343 TEST_f_L (llrint, 4503599627370497.5L, 4503599627370497LL);
10344
10345 TEST_f_L (llrint, 4503599627370495.4999999999999L, 4503599627370495LL);
10346 TEST_f_L (llrint, 4503599627370496.4999999999999L, 4503599627370496LL);
10347 TEST_f_L (llrint, 4503599627370497.4999999999999L, 4503599627370497LL);
10348 TEST_f_L (llrint, 4503599627370494.5000000000001L, 4503599627370494LL);
10349 TEST_f_L (llrint, 4503599627370495.5000000000001L, 4503599627370495LL);
10350 TEST_f_L (llrint, 4503599627370496.5000000000001L, 4503599627370496LL);
10351
10352 TEST_f_L (llrint, -4503599627370495.5L, -4503599627370496LL);
10353 TEST_f_L (llrint, -4503599627370496.25L, -4503599627370497LL);
10354 TEST_f_L (llrint, -4503599627370496.5L, -4503599627370497LL);
10355 TEST_f_L (llrint, -4503599627370496.75L, -4503599627370497LL);
10356 TEST_f_L (llrint, -4503599627370497.5L, -4503599627370498LL);
10357
10358 TEST_f_L (llrint, -4503599627370495.4999999999999L, -4503599627370496LL);
10359 TEST_f_L (llrint, -4503599627370496.4999999999999L, -4503599627370497LL);
10360 TEST_f_L (llrint, -4503599627370497.4999999999999L, -4503599627370498LL);
10361 TEST_f_L (llrint, -4503599627370494.5000000000001L, -4503599627370495LL);
10362 TEST_f_L (llrint, -4503599627370495.5000000000001L, -4503599627370496LL);
10363 TEST_f_L (llrint, -4503599627370496.5000000000001L, -4503599627370497LL);
10364
10365 TEST_f_L (llrint, 9007199254740991.5L, 9007199254740991LL);
10366 TEST_f_L (llrint, 9007199254740992.25L, 9007199254740992LL);
10367 TEST_f_L (llrint, 9007199254740992.5L, 9007199254740992LL);
10368 TEST_f_L (llrint, 9007199254740992.75L, 9007199254740992LL);
10369 TEST_f_L (llrint, 9007199254740993.5L, 9007199254740993LL);
10370
10371 TEST_f_L (llrint, 9007199254740991.4999999999999L, 9007199254740991LL);
10372 TEST_f_L (llrint, 9007199254740992.4999999999999L, 9007199254740992LL);
10373 TEST_f_L (llrint, 9007199254740993.4999999999999L, 9007199254740993LL);
10374 TEST_f_L (llrint, 9007199254740991.5000000000001L, 9007199254740991LL);
10375 TEST_f_L (llrint, 9007199254740992.5000000000001L, 9007199254740992LL);
10376 TEST_f_L (llrint, 9007199254740993.5000000000001L, 9007199254740993LL);
10377
10378 TEST_f_L (llrint, -9007199254740991.5L, -9007199254740992LL);
10379 TEST_f_L (llrint, -9007199254740992.25L, -9007199254740993LL);
10380 TEST_f_L (llrint, -9007199254740992.5L, -9007199254740993LL);
10381 TEST_f_L (llrint, -9007199254740992.75L, -9007199254740993LL);
10382 TEST_f_L (llrint, -9007199254740993.5L, -9007199254740994LL);
10383
10384 TEST_f_L (llrint, -9007199254740991.4999999999999L, -9007199254740992LL);
10385 TEST_f_L (llrint, -9007199254740992.4999999999999L, -9007199254740993LL);
10386 TEST_f_L (llrint, -9007199254740993.4999999999999L, -9007199254740994LL);
10387 TEST_f_L (llrint, -9007199254740991.5000000000001L, -9007199254740992LL);
10388 TEST_f_L (llrint, -9007199254740992.5000000000001L, -9007199254740993LL);
10389 TEST_f_L (llrint, -9007199254740993.5000000000001L, -9007199254740994LL);
10390
10391 TEST_f_L (llrint, 72057594037927935.5L, 72057594037927935LL);
10392 TEST_f_L (llrint, 72057594037927936.25L, 72057594037927936LL);
10393 TEST_f_L (llrint, 72057594037927936.5L, 72057594037927936LL);
10394 TEST_f_L (llrint, 72057594037927936.75L, 72057594037927936LL);
10395 TEST_f_L (llrint, 72057594037927937.5L, 72057594037927937LL);
10396
10397 TEST_f_L (llrint, -72057594037927935.5L, -72057594037927936LL);
10398 TEST_f_L (llrint, -72057594037927936.25L, -72057594037927937LL);
10399 TEST_f_L (llrint, -72057594037927936.5L, -72057594037927937LL);
10400 TEST_f_L (llrint, -72057594037927936.75L, -72057594037927937LL);
10401 TEST_f_L (llrint, -72057594037927937.5L, -72057594037927938LL);
10402
10403# if LDBL_MANT_DIG > 100
10404 TEST_f_L (llrint, 9223372036854775805.5L, 9223372036854775805LL);
10405 TEST_f_L (llrint, -9223372036854775805.5L, -9223372036854775806LL);
10406 TEST_f_L (llrint, 9223372036854775806.0L, 9223372036854775806LL);
10407 TEST_f_L (llrint, -9223372036854775806.0L, -9223372036854775806LL);
10408 TEST_f_L (llrint, 9223372036854775806.25L, 9223372036854775806LL);
10409 TEST_f_L (llrint, -9223372036854775806.25L, -9223372036854775807LL);
10410 TEST_f_L (llrint, 9223372036854775806.5L, 9223372036854775806L);
10411 TEST_f_L (llrint, -9223372036854775806.5L, -9223372036854775807LL);
10412 TEST_f_L (llrint, 9223372036854775806.75L, 9223372036854775806LL);
10413 TEST_f_L (llrint, -9223372036854775806.75L, -9223372036854775807LL);
10414 TEST_f_L (llrint, 9223372036854775807.0L, 9223372036854775807LL);
10415 TEST_f_L (llrint, -9223372036854775807.0L, -9223372036854775807LL);
10416# endif
10417#endif
10418 }
10419
10420 fesetround (save_round_mode);
10421
10422 END (llrint_downward);
10423}
10424
10425static void
10426llrint_test_upward (void)
10427{
10428 int save_round_mode;
10429 START (llrint_upward);
10430
10431 save_round_mode = fegetround ();
10432
10433 if (!fesetround (FE_UPWARD))
10434 {
10435 TEST_f_L (llrint, 0.0, 0);
10436 TEST_f_L (llrint, minus_zero, 0);
10437 TEST_f_L (llrint, 0.2L, 1);
10438 TEST_f_L (llrint, -0.2L, 0);
10439
10440 TEST_f_L (llrint, 1.4L, 2);
10441 TEST_f_L (llrint, -1.4L, -1);
10442
10443 TEST_f_L (llrint, 8388600.3L, 8388601);
10444 TEST_f_L (llrint, -8388600.3L, -8388600);
10445#ifndef TEST_FLOAT
10446 TEST_f_l (llrint, 1071930.0008, 1071931);
10447#endif
10448 /* Test boundary conditions. */
10449 /* 0x1FFFFF */
10450 TEST_f_L (llrint, 2097151.0,2097151LL);
10451 /* 0x800000 */
10452 TEST_f_L (llrint, 8388608.0, 8388608LL);
10453 /* 0x1000000 */
10454 TEST_f_L (llrint, 16777216.0, 16777216LL);
10455 /* 0x20000000000 */
10456 TEST_f_L (llrint, 2199023255552.0, 2199023255552LL);
10457 /* 0x40000000000 */
10458 TEST_f_L (llrint, 4398046511104.0, 4398046511104LL);
10459 /* 0x1000000000000 */
10460 TEST_f_L (llrint, 281474976710656.0, 281474976710656LL);
10461 /* 0x10000000000000 */
10462 TEST_f_L (llrint, 4503599627370496.0, 4503599627370496LL);
10463 /* 0x10000080000000 */
10464 TEST_f_L (llrint, 4503601774854144.0, 4503601774854144LL);
10465 /* 0x20000000000000 */
10466 TEST_f_L (llrint, 9007199254740992.0, 9007199254740992LL);
10467 /* 0x80000000000000 */
10468 TEST_f_L (llrint, 36028797018963968.0, 36028797018963968LL);
10469 /* 0x100000000000000 */
10470 TEST_f_L (llrint, 72057594037927936.0, 72057594037927936LL);
10471#ifdef TEST_LDOUBLE
10472 /* The input can only be represented in long double. */
10473 TEST_f_L (llrint, 4503599627370495.5L, 4503599627370496LL);
10474 TEST_f_L (llrint, 4503599627370496.25L, 4503599627370497LL);
10475 TEST_f_L (llrint, 4503599627370496.5L, 4503599627370497LL);
10476 TEST_f_L (llrint, 4503599627370496.75L, 4503599627370497LL);
10477 TEST_f_L (llrint, 4503599627370497.5L, 4503599627370498LL);
10478
10479 TEST_f_L (llrint, 4503599627370495.4999999999999L, 4503599627370496LL);
10480 TEST_f_L (llrint, 4503599627370496.4999999999999L, 4503599627370497LL);
10481 TEST_f_L (llrint, 4503599627370497.4999999999999L, 4503599627370498LL);
10482 TEST_f_L (llrint, 4503599627370494.5000000000001L, 4503599627370495LL);
10483 TEST_f_L (llrint, 4503599627370495.5000000000001L, 4503599627370496LL);
10484 TEST_f_L (llrint, 4503599627370496.5000000000001L, 4503599627370497LL);
10485
10486 TEST_f_L (llrint, -4503599627370495.5L, -4503599627370495LL);
10487 TEST_f_L (llrint, -4503599627370496.25L, -4503599627370496LL);
10488 TEST_f_L (llrint, -4503599627370496.5L, -4503599627370496LL);
10489 TEST_f_L (llrint, -4503599627370496.75L, -4503599627370496LL);
10490 TEST_f_L (llrint, -4503599627370497.5L, -4503599627370497LL);
10491
10492 TEST_f_L (llrint, -4503599627370495.4999999999999L, -4503599627370495LL);
10493 TEST_f_L (llrint, -4503599627370496.4999999999999L, -4503599627370496LL);
10494 TEST_f_L (llrint, -4503599627370497.4999999999999L, -4503599627370497LL);
10495 TEST_f_L (llrint, -4503599627370494.5000000000001L, -4503599627370494LL);
10496 TEST_f_L (llrint, -4503599627370495.5000000000001L, -4503599627370495LL);
10497 TEST_f_L (llrint, -4503599627370496.5000000000001L, -4503599627370496LL);
10498
10499 TEST_f_L (llrint, 9007199254740991.5L, 9007199254740992LL);
10500 TEST_f_L (llrint, 9007199254740992.25L, 9007199254740993LL);
10501 TEST_f_L (llrint, 9007199254740992.5L, 9007199254740993LL);
10502 TEST_f_L (llrint, 9007199254740992.75L, 9007199254740993LL);
10503 TEST_f_L (llrint, 9007199254740993.5L, 9007199254740994LL);
10504
10505 TEST_f_L (llrint, 9007199254740991.4999999999999L, 9007199254740992LL);
10506 TEST_f_L (llrint, 9007199254740992.4999999999999L, 9007199254740993LL);
10507 TEST_f_L (llrint, 9007199254740993.4999999999999L, 9007199254740994LL);
10508 TEST_f_L (llrint, 9007199254740991.5000000000001L, 9007199254740992LL);
10509 TEST_f_L (llrint, 9007199254740992.5000000000001L, 9007199254740993LL);
10510 TEST_f_L (llrint, 9007199254740993.5000000000001L, 9007199254740994LL);
10511
10512 TEST_f_L (llrint, -9007199254740991.5L, -9007199254740991LL);
10513 TEST_f_L (llrint, -9007199254740992.25L, -9007199254740992LL);
10514 TEST_f_L (llrint, -9007199254740992.5L, -9007199254740992LL);
10515 TEST_f_L (llrint, -9007199254740992.75L, -9007199254740992LL);
10516 TEST_f_L (llrint, -9007199254740993.5L, -9007199254740993LL);
10517
10518 TEST_f_L (llrint, -9007199254740991.4999999999999L, -9007199254740991LL);
10519 TEST_f_L (llrint, -9007199254740992.4999999999999L, -9007199254740992LL);
10520 TEST_f_L (llrint, -9007199254740993.4999999999999L, -9007199254740993LL);
10521 TEST_f_L (llrint, -9007199254740991.5000000000001L, -9007199254740991LL);
10522 TEST_f_L (llrint, -9007199254740992.5000000000001L, -9007199254740992LL);
10523 TEST_f_L (llrint, -9007199254740993.5000000000001L, -9007199254740993LL);
10524
10525 TEST_f_L (llrint, 72057594037927935.5L, 72057594037927936LL);
10526 TEST_f_L (llrint, 72057594037927936.25L, 72057594037927937LL);
10527 TEST_f_L (llrint, 72057594037927936.5L, 72057594037927937LL);
10528 TEST_f_L (llrint, 72057594037927936.75L, 72057594037927937LL);
10529 TEST_f_L (llrint, 72057594037927937.5L, 72057594037927938LL);
10530
10531 TEST_f_L (llrint, -72057594037927935.5L, -72057594037927935LL);
10532 TEST_f_L (llrint, -72057594037927936.25L, -72057594037927936LL);
10533 TEST_f_L (llrint, -72057594037927936.5L, -72057594037927936LL);
10534 TEST_f_L (llrint, -72057594037927936.75L, -72057594037927936LL);
10535 TEST_f_L (llrint, -72057594037927937.5L, -72057594037927937LL);
10536
10537# if LDBL_MANT_DIG > 100
10538 TEST_f_L (llrint, 9223372036854775805.5L, 9223372036854775806LL);
10539 TEST_f_L (llrint, -9223372036854775805.5L, -9223372036854775805LL);
10540 TEST_f_L (llrint, 9223372036854775806.0L, 9223372036854775806LL);
10541 TEST_f_L (llrint, -9223372036854775806.0L, -9223372036854775806LL);
10542 TEST_f_L (llrint, 9223372036854775806.25L, 9223372036854775807LL);
10543 TEST_f_L (llrint, -9223372036854775806.25L, -9223372036854775806LL);
10544 TEST_f_L (llrint, 9223372036854775806.5L, 9223372036854775807L);
10545 TEST_f_L (llrint, -9223372036854775806.5L, -9223372036854775806LL);
10546 TEST_f_L (llrint, 9223372036854775806.75L, 9223372036854775807LL);
10547 TEST_f_L (llrint, -9223372036854775806.75L, -9223372036854775806LL);
10548 TEST_f_L (llrint, 9223372036854775807.0L, 9223372036854775807LL);
10549 TEST_f_L (llrint, -9223372036854775807.0L, -9223372036854775807LL);
10550# endif
10551#endif
10552 }
10553
10554 fesetround (save_round_mode);
10555
10556 END (llrint_upward);
10557}
10558
2550dfe9 10559
8847214f
UD		 10560static void
10561log_test (void)
10562{
e6d3c4a7
AJ		 10563 errno = 0;
10564 FUNC(log) (1);
10565 if (errno == ENOSYS)
10566 /* Function not implemented. */
10567 return;
8847214f
UD		 10568 START (log);
10569
10570 TEST_f_f (log, 0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
10571 TEST_f_f (log, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
10572
10573 TEST_f_f (log, 1, 0);
10574
67e971f1
TS		 10575 TEST_f_f (log, -1, qnan_value, INVALID_EXCEPTION);
10576 TEST_f_f (log, -max_value, qnan_value, INVALID_EXCEPTION);
10577 TEST_f_f (log, minus_infty, qnan_value, INVALID_EXCEPTION);
8847214f 10578 TEST_f_f (log, plus_infty, plus_infty);
67e971f1 10579 TEST_f_f (log, qnan_value, qnan_value);
8847214f
UD		 10580
10581 TEST_f_f (log, M_El, 1);
10582 TEST_f_f (log, 1.0 / M_El, -1);
10583 TEST_f_f (log, 2, M_LN2l);
10584 TEST_f_f (log, 10, M_LN10l);
2550dfe9 10585 TEST_f_f (log, 0.75L, -0.287682072451780927439219005993827432L);
8847214f
UD		 10586
10587 END (log);
10588}
10589
10590
10591static void
10592log10_test (void)
10593{
e6d3c4a7
AJ		 10594 errno = 0;
10595 FUNC(log10) (1);
10596 if (errno == ENOSYS)
10597 /* Function not implemented. */
10598 return;
10599
8847214f
UD		 10600 START (log10);
10601
10602 TEST_f_f (log10, 0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
10603 TEST_f_f (log10, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
10604
10605 TEST_f_f (log10, 1, 0);
10606
67e971f1
TS		 10607 /* log10 (x) == qNaN plus invalid exception if x < 0. */
10608 TEST_f_f (log10, -1, qnan_value, INVALID_EXCEPTION);
10609 TEST_f_f (log10, -max_value, qnan_value, INVALID_EXCEPTION);
10610 TEST_f_f (log10, minus_infty, qnan_value, INVALID_EXCEPTION);
8847214f
UD		 10611
10612 TEST_f_f (log10, plus_infty, plus_infty);
67e971f1 10613 TEST_f_f (log10, qnan_value, qnan_value);
8847214f
UD		 10614
10615 TEST_f_f (log10, 0.1L, -1);
10616 TEST_f_f (log10, 10.0, 1);
10617 TEST_f_f (log10, 100.0, 2);
10618 TEST_f_f (log10, 10000.0, 4);
10619 TEST_f_f (log10, M_El, M_LOG10El);
2550dfe9 10620 TEST_f_f (log10, 0.75L, -0.124938736608299953132449886193870744L);
8847214f
UD		 10621
10622 END (log10);
10623}
10624
10625
10626static void
10627log1p_test (void)
10628{
e6d3c4a7
AJ		 10629 errno = 0;
10630 FUNC(log1p) (0);
10631 if (errno == ENOSYS)
10632 /* Function not implemented. */
10633 return;
10634
8847214f
UD		 10635 START (log1p);
10636
10637 TEST_f_f (log1p, 0, 0);
10638 TEST_f_f (log1p, minus_zero, minus_zero);
10639
10640 TEST_f_f (log1p, -1, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
67e971f1
TS		 10641 TEST_f_f (log1p, -2, qnan_value, INVALID_EXCEPTION);
10642 TEST_f_f (log1p, -max_value, qnan_value, INVALID_EXCEPTION);
10643 TEST_f_f (log1p, minus_infty, qnan_value, INVALID_EXCEPTION);
8847214f
UD		 10644
10645 TEST_f_f (log1p, plus_infty, plus_infty);
67e971f1 10646 TEST_f_f (log1p, qnan_value, qnan_value);
8847214f
UD		 10647
10648 TEST_f_f (log1p, M_El - 1.0, 1);
10649
2550dfe9
AJ		 10650 TEST_f_f (log1p, -0.25L, -0.287682072451780927439219005993827432L);
10651 TEST_f_f (log1p, -0.875, -2.07944154167983592825169636437452970L);
8847214f
UD		 10652
10653 END (log1p);
10654}
10655
10656
10657static void
10658log2_test (void)
10659{
e6d3c4a7
AJ		 10660 errno = 0;
10661 FUNC(log2) (1);
10662 if (errno == ENOSYS)
10663 /* Function not implemented. */
10664 return;
10665
8847214f
UD		 10666 START (log2);
10667
10668 TEST_f_f (log2, 0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
10669 TEST_f_f (log2, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
10670
10671 TEST_f_f (log2, 1, 0);
10672
67e971f1
TS		 10673 TEST_f_f (log2, -1, qnan_value, INVALID_EXCEPTION);
10674 TEST_f_f (log2, -max_value, qnan_value, INVALID_EXCEPTION);
10675 TEST_f_f (log2, minus_infty, qnan_value, INVALID_EXCEPTION);
8847214f
UD		 10676
10677 TEST_f_f (log2, plus_infty, plus_infty);
67e971f1 10678 TEST_f_f (log2, qnan_value, qnan_value);
8847214f
UD		 10679
10680 TEST_f_f (log2, M_El, M_LOG2El);
10681 TEST_f_f (log2, 2.0, 1);
10682 TEST_f_f (log2, 16.0, 4);
10683 TEST_f_f (log2, 256.0, 8);
2550dfe9 10684 TEST_f_f (log2, 0.75L, -.415037499278843818546261056052183492L);
8847214f
UD		 10685
10686 END (log2);
10687}
10688
10689
10690static void
10691logb_test (void)
10692{
10693 START (logb);
10694
10695 TEST_f_f (logb, plus_infty, plus_infty);
10696 TEST_f_f (logb, minus_infty, plus_infty);
10697
10698 TEST_f_f (logb, 0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
10699
10700 TEST_f_f (logb, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
67e971f1 10701 TEST_f_f (logb, qnan_value, qnan_value);
8847214f
UD		 10702
10703 TEST_f_f (logb, 1, 0);
10704 TEST_f_f (logb, M_El, 1);
10705 TEST_f_f (logb, 1024, 10);
10706 TEST_f_f (logb, -2000, 10);
10707
89c9aa49
AZ		 10708 TEST_f_f (logb, 0x0.1p-127, -131);
10709 TEST_f_f (logb, 0x0.01p-127, -135);
10710 TEST_f_f (logb, 0x0.011p-127, -135);
10711#ifndef TEST_FLOAT
10712 TEST_f_f (logb, 0x0.8p-1022, -1023);
10713 TEST_f_f (logb, 0x0.1p-1022, -1026);
10714 TEST_f_f (logb, 0x0.00111p-1022, -1034);
10715 TEST_f_f (logb, 0x0.00001p-1022, -1042);
10716 TEST_f_f (logb, 0x0.000011p-1022, -1042);
10717 TEST_f_f (logb, 0x0.0000000000001p-1022, -1074);
10718#endif
10719#if defined TEST_LDOUBLE && LDBL_MIN_EXP - LDBL_MANT_DIG <= -16400
10720 TEST_f_f (logb, 0x1p-16400L, -16400);
10721 TEST_f_f (logb, 0x.00000000001p-16382L, -16426);
10722#endif
10723
8847214f
UD		 10724 END (logb);
10725}
10726
a462cb63
RA		 10727static void
10728logb_test_downward (void)
10729{
10730 int save_round_mode;
10731 errno = 0;
10732
10733 FUNC(logb) (0);
10734 if (errno == ENOSYS)
10735 /* Function not implemented. */
10736 return;
10737
10738 START (logb_downward);
10739
10740 save_round_mode = fegetround ();
10741
10742 if (!fesetround (FE_DOWNWARD))
10743 {
10744
10745 /* IEEE 754-2008 says (section 5.3.3) that "logB(1) is +0.". Libm
10746 should not return -0 from logb in any rounding mode. PowerPC32 has
10747 failed with this test for power4 logb (and logbl on all PowerPC
10748 platforms) in the past due to instruction selection. GCC PR 52775
10749 provides the availability of the fcfid insn in 32-bit mode which
10750 eliminates the use of fsub in this instance and prevents the negative
10751 signed 0.0. */
10752
60c8fca7 10753 /* BZ #887 */
a462cb63
RA		 10754 TEST_f_f (logb, 1.000e+0, plus_zero);
10755 }
10756
10757 fesetround (save_round_mode);
10758
10759 END (logb_downward);
10760}
2550dfe9 10761
8847214f
UD		 10762static void
10763lround_test (void)
10764{
64d063b8
TS		 10765 /* TODO: missing +/-Inf as well as qNaN tests. */
10766
8847214f
UD		 10767 START (lround);
10768
10769 TEST_f_l (lround, 0, 0);
10770 TEST_f_l (lround, minus_zero, 0);
3c6cad26
UD		 10771 TEST_f_l (lround, 0.2L, 0.0);
10772 TEST_f_l (lround, -0.2L, 0);
8847214f
UD		 10773 TEST_f_l (lround, 0.5, 1);
10774 TEST_f_l (lround, -0.5, -1);
3c6cad26
UD		 10775 TEST_f_l (lround, 0.8L, 1);
10776 TEST_f_l (lround, -0.8L, -1);
8847214f
UD		 10777 TEST_f_l (lround, 1.5, 2);
10778 TEST_f_l (lround, -1.5, -2);
10779 TEST_f_l (lround, 22514.5, 22515);
10780 TEST_f_l (lround, -22514.5, -22515);
3eb61415 10781 TEST_f_l (lround, 1071930.0008, 1071930);
8847214f 10782#ifndef TEST_FLOAT
3eb61415 10783 TEST_f_l (lround, 1073741824.01, 1073741824);
39007ae3
UD		 10784# if LONG_MAX > 281474976710656
10785 TEST_f_l (lround, 281474976710656.025, 281474976710656);
169d7f11 10786 TEST_f_l (lround, 18014398509481974, 18014398509481974);
39007ae3 10787# endif
8847214f
UD		 10788 TEST_f_l (lround, 2097152.5, 2097153);
10789 TEST_f_l (lround, -2097152.5, -2097153);
c1e6b459
UD		 10790 /* nextafter(0.5,-1) */
10791 TEST_f_l (lround, 0x1.fffffffffffffp-2, 0);
10792 /* nextafter(-0.5,1) */
10793 TEST_f_l (lround, -0x1.fffffffffffffp-2, 0);
10794#else
10795 /* nextafter(0.5,-1) */
10796 TEST_f_l (lround, 0x1.fffffp-2, 0);
10797 /* nextafter(-0.5,1) */
10798 TEST_f_l (lround, -0x1.fffffp-2, 0);
10799 TEST_f_l (lround, 0x1.fffffep+23, 16777215);
10800 TEST_f_l (lround, -0x1.fffffep+23, -16777215);
8847214f
UD		 10801#endif
10802 END (lround);
10803}
10804
10805
10806static void
10807llround_test (void)
10808{
64d063b8
TS		 10809 /* TODO: missing +/-Inf as well as qNaN tests. */
10810
8847214f
UD		 10811 START (llround);
10812
10813 TEST_f_L (llround, 0, 0);
10814 TEST_f_L (llround, minus_zero, 0);
3c6cad26
UD		 10815 TEST_f_L (llround, 0.2L, 0.0);
10816 TEST_f_L (llround, -0.2L, 0);
8847214f
UD		 10817 TEST_f_L (llround, 0.5, 1);
10818 TEST_f_L (llround, -0.5, -1);
3c6cad26
UD		 10819 TEST_f_L (llround, 0.8L, 1);
10820 TEST_f_L (llround, -0.8L, -1);
8847214f
UD		 10821 TEST_f_L (llround, 1.5, 2);
10822 TEST_f_L (llround, -1.5, -2);
10823 TEST_f_L (llround, 22514.5, 22515);
10824 TEST_f_L (llround, -22514.5, -22515);
3eb61415 10825 TEST_f_l (llround, 1071930.0008, 1071930);
8847214f
UD		 10826#ifndef TEST_FLOAT
10827 TEST_f_L (llround, 2097152.5, 2097153);
10828 TEST_f_L (llround, -2097152.5, -2097153);
10829 TEST_f_L (llround, 34359738368.5, 34359738369ll);
10830 TEST_f_L (llround, -34359738368.5, -34359738369ll);
169d7f11 10831 TEST_f_L (llround, -3.65309740835E17, -365309740835000000LL);
8847214f
UD		 10832#endif
10833
10834 /* Test boundary conditions. */
10835 /* 0x1FFFFF */
10836 TEST_f_L (llround, 2097151.0, 2097151LL);
10837 /* 0x800000 */
10838 TEST_f_L (llround, 8388608.0, 8388608LL);
10839 /* 0x1000000 */
10840 TEST_f_L (llround, 16777216.0, 16777216LL);
10841 /* 0x20000000000 */
10842 TEST_f_L (llround, 2199023255552.0, 2199023255552LL);
10843 /* 0x40000000000 */
10844 TEST_f_L (llround, 4398046511104.0, 4398046511104LL);
39007ae3
UD		 10845 /* 0x1000000000000 */
10846 TEST_f_L (llround, 281474976710656.0, 281474976710656LL);
8847214f
UD		 10847 /* 0x10000000000000 */
10848 TEST_f_L (llround, 4503599627370496.0, 4503599627370496LL);
10849 /* 0x10000080000000 */
3eb61415 10850 TEST_f_L (llround, 4503601774854144.0, 4503601774854144LL);
8847214f
UD		 10851 /* 0x20000000000000 */
10852 TEST_f_L (llround, 9007199254740992.0, 9007199254740992LL);
10853 /* 0x80000000000000 */
10854 TEST_f_L (llround, 36028797018963968.0, 36028797018963968LL);
10855 /* 0x100000000000000 */
10856 TEST_f_L (llround, 72057594037927936.0, 72057594037927936LL);
10857
601d2942
UD		 10858#ifndef TEST_FLOAT
10859 /* 0x100000000 */
10860 TEST_f_L (llround, 4294967295.5, 4294967296LL);
10861 /* 0x200000000 */
10862 TEST_f_L (llround, 8589934591.5, 8589934592LL);
c1e6b459
UD		 10863
10864 /* nextafter(0.5,-1) */
10865 TEST_f_L (llround, 0x1.fffffffffffffp-2, 0);
10866 /* nextafter(-0.5,1) */
10867 TEST_f_L (llround, -0x1.fffffffffffffp-2, 0);
10868 /* On PowerPC an exponent of '52' is the largest incrementally
10869 * representable sequence of whole-numbers in the 'double' range. We test
10870 * lround to make sure that a guard bit set during the lround operation
10871 * hasn't forced an erroneous shift giving us an incorrect result. The odd
10872 * numbers between +-(2^52+1 and 2^53-1) are affected since they have the
10873 * rightmost bit set. */
10874 /* +-(2^52+1) */
10875 TEST_f_L (llround, 0x1.0000000000001p+52,4503599627370497LL);
10876 TEST_f_L (llround, -0x1.0000000000001p+52,-4503599627370497LL);
10877 /* +-(2^53-1): Input is the last (positive and negative) incrementally
10878 * representable whole-number in the 'double' range that might round
10879 * erroneously. */
10880 TEST_f_L (llround, 0x1.fffffffffffffp+52, 9007199254740991LL);
10881 TEST_f_L (llround, -0x1.fffffffffffffp+52, -9007199254740991LL);
10882#else
10883 /* nextafter(0.5,-1) */
10884 TEST_f_L (llround, 0x1.fffffep-2, 0);
10885 /* nextafter(-0.5,1) */
10886 TEST_f_L (llround, -0x1.fffffep-2, 0);
10887 /* As above, on PowerPC an exponent of '23' is the largest incrementally
10888 * representable sequence of whole-numbers in the 'float' range.
10889 * Likewise, numbers between +-(2^23+1 and 2^24-1) are affected. */
10890 TEST_f_L (llround, 0x1.000002p+23,8388609);
10891 TEST_f_L (llround, -0x1.000002p+23,-8388609);
10892 TEST_f_L (llround, 0x1.fffffep+23, 16777215);
10893 TEST_f_L (llround, -0x1.fffffep+23, -16777215);
601d2942
UD		 10894#endif
10895
c1e6b459 10896
f964490f
RM		 10897#ifdef TEST_LDOUBLE
10898 /* The input can only be represented in long double. */
10899 TEST_f_L (llround, 4503599627370495.5L, 4503599627370496LL);
10900 TEST_f_L (llround, 4503599627370496.25L, 4503599627370496LL);
10901 TEST_f_L (llround, 4503599627370496.5L, 4503599627370497LL);
10902 TEST_f_L (llround, 4503599627370496.75L, 4503599627370497LL);
10903 TEST_f_L (llround, 4503599627370497.5L, 4503599627370498LL);
10904
830fce04
RM		 10905# if LDBL_MANT_DIG > 100
10906 TEST_f_L (llround, 4503599627370495.4999999999999L, 4503599627370495LL);
10907 TEST_f_L (llround, 4503599627370496.4999999999999L, 4503599627370496LL);
10908 TEST_f_L (llround, 4503599627370497.4999999999999L, 4503599627370497LL);
10909 TEST_f_L (llround, 4503599627370494.5000000000001L, 4503599627370495LL);
10910 TEST_f_L (llround, 4503599627370495.5000000000001L, 4503599627370496LL);
10911 TEST_f_L (llround, 4503599627370496.5000000000001L, 4503599627370497LL);
10912
10913 TEST_f_L (llround, -4503599627370495.4999999999999L, -4503599627370495LL);
10914 TEST_f_L (llround, -4503599627370496.4999999999999L, -4503599627370496LL);
10915 TEST_f_L (llround, -4503599627370497.4999999999999L, -4503599627370497LL);
10916 TEST_f_L (llround, -4503599627370494.5000000000001L, -4503599627370495LL);
10917 TEST_f_L (llround, -4503599627370495.5000000000001L, -4503599627370496LL);
10918 TEST_f_L (llround, -4503599627370496.5000000000001L, -4503599627370497LL);
10919# endif
10920
f964490f
RM		 10921 TEST_f_L (llround, -4503599627370495.5L, -4503599627370496LL);
10922 TEST_f_L (llround, -4503599627370496.25L, -4503599627370496LL);
10923 TEST_f_L (llround, -4503599627370496.5L, -4503599627370497LL);
10924 TEST_f_L (llround, -4503599627370496.75L, -4503599627370497LL);
10925 TEST_f_L (llround, -4503599627370497.5L, -4503599627370498LL);
10926
10927 TEST_f_L (llround, 9007199254740991.5L, 9007199254740992LL);
10928 TEST_f_L (llround, 9007199254740992.25L, 9007199254740992LL);
10929 TEST_f_L (llround, 9007199254740992.5L, 9007199254740993LL);
10930 TEST_f_L (llround, 9007199254740992.75L, 9007199254740993LL);
10931 TEST_f_L (llround, 9007199254740993.5L, 9007199254740994LL);
10932
830fce04
RM		 10933# if LDBL_MANT_DIG > 100
10934 TEST_f_L (llround, 9007199254740991.4999999999999L, 9007199254740991LL);
10935 TEST_f_L (llround, 9007199254740992.4999999999999L, 9007199254740992LL);
10936 TEST_f_L (llround, 9007199254740993.4999999999999L, 9007199254740993LL);
10937 TEST_f_L (llround, 9007199254740991.5000000000001L, 9007199254740992LL);
10938 TEST_f_L (llround, 9007199254740992.5000000000001L, 9007199254740993LL);
10939 TEST_f_L (llround, 9007199254740993.5000000000001L, 9007199254740994LL);
10940
10941 TEST_f_L (llround, -9007199254740991.4999999999999L, -9007199254740991LL);
10942 TEST_f_L (llround, -9007199254740992.4999999999999L, -9007199254740992LL);
10943 TEST_f_L (llround, -9007199254740993.4999999999999L, -9007199254740993LL);
10944 TEST_f_L (llround, -9007199254740991.5000000000001L, -9007199254740992LL);
10945 TEST_f_L (llround, -9007199254740992.5000000000001L, -9007199254740993LL);
10946 TEST_f_L (llround, -9007199254740993.5000000000001L, -9007199254740994LL);
10947# endif
10948
f964490f
RM		 10949 TEST_f_L (llround, -9007199254740991.5L, -9007199254740992LL);
10950 TEST_f_L (llround, -9007199254740992.25L, -9007199254740992LL);
10951 TEST_f_L (llround, -9007199254740992.5L, -9007199254740993LL);
10952 TEST_f_L (llround, -9007199254740992.75L, -9007199254740993LL);
10953 TEST_f_L (llround, -9007199254740993.5L, -9007199254740994LL);
10954
10955 TEST_f_L (llround, 72057594037927935.5L, 72057594037927936LL);
10956 TEST_f_L (llround, 72057594037927936.25L, 72057594037927936LL);
10957 TEST_f_L (llround, 72057594037927936.5L, 72057594037927937LL);
10958 TEST_f_L (llround, 72057594037927936.75L, 72057594037927937LL);
10959 TEST_f_L (llround, 72057594037927937.5L, 72057594037927938LL);
10960
10961 TEST_f_L (llround, -72057594037927935.5L, -72057594037927936LL);
10962 TEST_f_L (llround, -72057594037927936.25L, -72057594037927936LL);
10963 TEST_f_L (llround, -72057594037927936.5L, -72057594037927937LL);
10964 TEST_f_L (llround, -72057594037927936.75L, -72057594037927937LL);
10965 TEST_f_L (llround, -72057594037927937.5L, -72057594037927938LL);
1e832e37
RM		 10966
10967 TEST_f_L (llround, 9223372036854775806.25L, 9223372036854775806LL);
10968 TEST_f_L (llround, -9223372036854775806.25L, -9223372036854775806LL);
10969 TEST_f_L (llround, 9223372036854775806.5L, 9223372036854775807LL);
10970 TEST_f_L (llround, -9223372036854775806.5L, -9223372036854775807LL);
10971 TEST_f_L (llround, 9223372036854775807.0L, 9223372036854775807LL);
10972 TEST_f_L (llround, -9223372036854775807.0L, -9223372036854775807LL);
f964490f
RM		 10973#endif
10974
8847214f
UD		 10975 END (llround);
10976}
10977
10978static void
10979modf_test (void)
10980{
10981 FLOAT x;
10982
10983 START (modf);
10984
10985 TEST_fF_f1 (modf, plus_infty, 0, plus_infty);
10986 TEST_fF_f1 (modf, minus_infty, minus_zero, minus_infty);
67e971f1 10987 TEST_fF_f1 (modf, qnan_value, qnan_value, qnan_value);
8847214f
UD		 10988 TEST_fF_f1 (modf, 0, 0, 0);
10989 TEST_fF_f1 (modf, 1.5, 0.5, 1);
10990 TEST_fF_f1 (modf, 2.5, 0.5, 2);
10991 TEST_fF_f1 (modf, -2.5, -0.5, -2);
10992 TEST_fF_f1 (modf, 20, 0, 20);
10993 TEST_fF_f1 (modf, 21, 0, 21);
10994 TEST_fF_f1 (modf, 89.5, 0.5, 89);
10995
10996 END (modf);
10997}
10998
10999
11000static void
11001nearbyint_test (void)
11002{
11003 START (nearbyint);
11004
11005 TEST_f_f (nearbyint, 0.0, 0.0);
11006 TEST_f_f (nearbyint, minus_zero, minus_zero);
11007 TEST_f_f (nearbyint, plus_infty, plus_infty);
11008 TEST_f_f (nearbyint, minus_infty, minus_infty);
67e971f1 11009 TEST_f_f (nearbyint, qnan_value, qnan_value);
8847214f 11010
a1267ba1
AZ		 11011 /* Subnormal values */
11012 TEST_f_f (nearbyint, -8.98847e+307, -8.98847e+307);
11013 TEST_f_f (nearbyint, -4.45015e-308, minus_zero);
11014
1dc23588
UD		 11015 /* Default rounding mode is round to nearest. */
11016 TEST_f_f (nearbyint, 0.5, 0.0);
11017 TEST_f_f (nearbyint, 1.5, 2.0);
11018 TEST_f_f (nearbyint, -0.5, minus_zero);
11019 TEST_f_f (nearbyint, -1.5, -2.0);
bdf09fab 11020
af0498dc
UD		 11021 TEST_f_f (nearbyint, 262144.75, 262145.0);
11022 TEST_f_f (nearbyint, 262142.75, 262143.0);
11023 TEST_f_f (nearbyint, 524286.75, 524287.0);
11024 TEST_f_f (nearbyint, 524288.75, 524289.0);
11025
6cbeae47
JM		 11026 TEST_f_f (nearbyint, 1048576.75, 1048577.0);
11027 TEST_f_f (nearbyint, 2097152.75, 2097153.0);
11028 TEST_f_f (nearbyint, 2492472.75, 2492473.0);
11029 TEST_f_f (nearbyint, 2886220.75, 2886221.0);
11030 TEST_f_f (nearbyint, 3058792.75, 3058793.0);
11031 TEST_f_f (nearbyint, -1048576.75, -1048577.0);
11032 TEST_f_f (nearbyint, -2097152.75, -2097153.0);
11033 TEST_f_f (nearbyint, -2492472.75, -2492473.0);
11034 TEST_f_f (nearbyint, -2886220.75, -2886221.0);
11035 TEST_f_f (nearbyint, -3058792.75, -3058793.0);
11036#ifndef TEST_FLOAT
11037 TEST_f_f (nearbyint, 70368744177664.75, 70368744177665.0);
11038 TEST_f_f (nearbyint, 140737488355328.75, 140737488355329.0);
11039 TEST_f_f (nearbyint, 281474976710656.75, 281474976710657.0);
11040 TEST_f_f (nearbyint, 562949953421312.75, 562949953421313.0);
11041 TEST_f_f (nearbyint, 1125899906842624.75, 1125899906842625.0);
11042 TEST_f_f (nearbyint, -70368744177664.75, -70368744177665.0);
11043 TEST_f_f (nearbyint, -140737488355328.75, -140737488355329.0);
11044 TEST_f_f (nearbyint, -281474976710656.75, -281474976710657.0);
11045 TEST_f_f (nearbyint, -562949953421312.75, -562949953421313.0);
11046 TEST_f_f (nearbyint, -1125899906842624.75, -1125899906842625.0);
11047#endif
11048
8847214f
UD		 11049 END (nearbyint);
11050}
11051
11052static void
11053nextafter_test (void)
11054{
11055
11056 START (nextafter);
11057
11058 TEST_ff_f (nextafter, 0, 0, 0);
11059 TEST_ff_f (nextafter, minus_zero, 0, 0);
11060 TEST_ff_f (nextafter, 0, minus_zero, minus_zero);
11061 TEST_ff_f (nextafter, minus_zero, minus_zero, minus_zero);
11062
11063 TEST_ff_f (nextafter, 9, 9, 9);
11064 TEST_ff_f (nextafter, -9, -9, -9);
11065 TEST_ff_f (nextafter, plus_infty, plus_infty, plus_infty);
11066 TEST_ff_f (nextafter, minus_infty, minus_infty, minus_infty);
11067
67e971f1
TS		 11068 TEST_ff_f (nextafter, qnan_value, 1.1L, qnan_value);
11069 TEST_ff_f (nextafter, 1.1L, qnan_value, qnan_value);
11070 TEST_ff_f (nextafter, qnan_value, qnan_value, qnan_value);
8847214f 11071
64b02fd2
UD		 11072 FLOAT fltmax = CHOOSE (LDBL_MAX, DBL_MAX, FLT_MAX,
11073 LDBL_MAX, DBL_MAX, FLT_MAX);
c135cc1b
JM		 11074 TEST_ff_f (nextafter, fltmax, plus_infty, plus_infty, OVERFLOW_EXCEPTION);
11075 TEST_ff_f (nextafter, -fltmax, minus_infty, minus_infty, OVERFLOW_EXCEPTION);
64b02fd2 11076
757de559
UD		 11077#ifdef TEST_LDOUBLE
11078 // XXX Enable once gcc is fixed.
11079 //TEST_ff_f (nextafter, 0x0.00000040000000000000p-16385L, -0.1L, 0x0.0000003ffffffff00000p-16385L);
11080#endif
11081
8847214f
UD		 11082 /* XXX We need the hexadecimal FP number representation here for further
11083 tests. */
11084
11085 END (nextafter);
11086}
11087
fe559c5e 11088
8847214f
UD		 11089static void
11090nexttoward_test (void)
11091{
11092 START (nexttoward);
11093 TEST_ff_f (nexttoward, 0, 0, 0);
11094 TEST_ff_f (nexttoward, minus_zero, 0, 0);
11095 TEST_ff_f (nexttoward, 0, minus_zero, minus_zero);
11096 TEST_ff_f (nexttoward, minus_zero, minus_zero, minus_zero);
11097
11098 TEST_ff_f (nexttoward, 9, 9, 9);
11099 TEST_ff_f (nexttoward, -9, -9, -9);
11100 TEST_ff_f (nexttoward, plus_infty, plus_infty, plus_infty);
11101 TEST_ff_f (nexttoward, minus_infty, minus_infty, minus_infty);
11102
67e971f1
TS		 11103 TEST_ff_f (nexttoward, qnan_value, 1.1L, qnan_value);
11104 TEST_ff_f (nexttoward, 1.1L, qnan_value, qnan_value);
11105 TEST_ff_f (nexttoward, qnan_value, qnan_value, qnan_value);
8847214f 11106
7cb029ee
JM		 11107#ifdef TEST_FLOAT
11108 TEST_ff_f (nexttoward, 1.0, 1.1L, 0x1.000002p0);
11109 TEST_ff_f (nexttoward, 1.0, LDBL_MAX, 0x1.000002p0);
11110 TEST_ff_f (nexttoward, 1.0, 0x1.0000000000001p0, 0x1.000002p0);
11111 TEST_ff_f (nexttoward, 1.0, 0.9L, 0x0.ffffffp0);
11112 TEST_ff_f (nexttoward, 1.0, -LDBL_MAX, 0x0.ffffffp0);
11113 TEST_ff_f (nexttoward, 1.0, 0x0.fffffffffffff8p0, 0x0.ffffffp0);
11114 TEST_ff_f (nexttoward, -1.0, -1.1L, -0x1.000002p0);
11115 TEST_ff_f (nexttoward, -1.0, -LDBL_MAX, -0x1.000002p0);
11116 TEST_ff_f (nexttoward, -1.0, -0x1.0000000000001p0, -0x1.000002p0);
11117 TEST_ff_f (nexttoward, -1.0, -0.9L, -0x0.ffffffp0);
11118 TEST_ff_f (nexttoward, -1.0, LDBL_MAX, -0x0.ffffffp0);
11119 TEST_ff_f (nexttoward, -1.0, -0x0.fffffffffffff8p0, -0x0.ffffffp0);
80bad0cc 11120 TEST_ff_f (nexttoward, -0x1.3p-145, -0xap-148L, -0x1.4p-145, UNDERFLOW_EXCEPTION);
7cb029ee
JM		 11121# if LDBL_MANT_DIG >= 64
11122 TEST_ff_f (nexttoward, 1.0, 0x1.000000000000002p0L, 0x1.000002p0);
11123 TEST_ff_f (nexttoward, 1.0, 0x0.ffffffffffffffffp0L, 0x0.ffffffp0);
11124 TEST_ff_f (nexttoward, -1.0, -0x1.000000000000002p0L, -0x1.000002p0);
11125 TEST_ff_f (nexttoward, -1.0, -0x0.ffffffffffffffffp0L, -0x0.ffffffp0);
11126# endif
11127# if LDBL_MANT_DIG >= 106
11128 TEST_ff_f (nexttoward, 1.0, 0x1.000000000000000000000000008p0L, 0x1.000002p0);
11129 TEST_ff_f (nexttoward, 1.0, 0x0.ffffffffffffffffffffffffffcp0L, 0x0.ffffffp0);
11130 TEST_ff_f (nexttoward, -1.0, -0x1.000000000000000000000000008p0L, -0x1.000002p0);
11131 TEST_ff_f (nexttoward, -1.0, -0x0.ffffffffffffffffffffffffffcp0L, -0x0.ffffffp0);
11132# endif
11133# if LDBL_MANT_DIG >= 113
11134 TEST_ff_f (nexttoward, 1.0, 0x1.0000000000000000000000000001p0L, 0x1.000002p0);
11135 TEST_ff_f (nexttoward, 1.0, 0x0.ffffffffffffffffffffffffffff8p0L, 0x0.ffffffp0);
11136 TEST_ff_f (nexttoward, -1.0, -0x1.0000000000000000000000000001p0L, -0x1.000002p0);
11137 TEST_ff_f (nexttoward, -1.0, -0x0.ffffffffffffffffffffffffffff8p0L, -0x0.ffffffp0);
11138# endif
11139#endif
11140#ifdef TEST_DOUBLE
11141 TEST_ff_f (nexttoward, 1.0, 1.1L, 0x1.0000000000001p0);
11142 TEST_ff_f (nexttoward, 1.0, LDBL_MAX, 0x1.0000000000001p0);
11143 TEST_ff_f (nexttoward, 1.0, 0x1.0000000000001p0, 0x1.0000000000001p0);
11144 TEST_ff_f (nexttoward, 1.0, 0.9L, 0x0.fffffffffffff8p0);
11145 TEST_ff_f (nexttoward, 1.0, -LDBL_MAX, 0x0.fffffffffffff8p0);
11146 TEST_ff_f (nexttoward, 1.0, 0x0.fffffffffffff8p0, 0x0.fffffffffffff8p0);
11147 TEST_ff_f (nexttoward, -1.0, -1.1L, -0x1.0000000000001p0);
11148 TEST_ff_f (nexttoward, -1.0, -LDBL_MAX, -0x1.0000000000001p0);
11149 TEST_ff_f (nexttoward, -1.0, -0x1.0000000000001p0, -0x1.0000000000001p0);
11150 TEST_ff_f (nexttoward, -1.0, -0.9L, -0x0.fffffffffffff8p0);
11151 TEST_ff_f (nexttoward, -1.0, LDBL_MAX, -0x0.fffffffffffff8p0);
11152 TEST_ff_f (nexttoward, -1.0, -0x0.fffffffffffff8p0, -0x0.fffffffffffff8p0);
11153 TEST_ff_f (nexttoward, -1.0, -0x8.00346dc5d6388p-3L, -0x1.0000000000001p0);
80bad0cc 11154 TEST_ff_f (nexttoward, 0x1p-1074, 0x1p-1073L, 0x1p-1073, UNDERFLOW_EXCEPTION);
7cb029ee
JM		 11155# if LDBL_MANT_DIG >= 64
11156 TEST_ff_f (nexttoward, 1.0, 0x1.000000000000002p0L, 0x1.0000000000001p0);
11157 TEST_ff_f (nexttoward, 1.0, 0x0.ffffffffffffffffp0L, 0x0.fffffffffffff8p0);
11158 TEST_ff_f (nexttoward, -1.0, -0x1.000000000000002p0L, -0x1.0000000000001p0);
11159 TEST_ff_f (nexttoward, -1.0, -0x0.ffffffffffffffffp0L, -0x0.fffffffffffff8p0);
11160# endif
11161# if LDBL_MANT_DIG >= 106
11162 TEST_ff_f (nexttoward, 1.0, 0x1.000000000000000000000000008p0L, 0x1.0000000000001p0);
11163 TEST_ff_f (nexttoward, 1.0, 0x0.ffffffffffffffffffffffffffcp0L, 0x0.fffffffffffff8p0);
11164 TEST_ff_f (nexttoward, -1.0, -0x1.000000000000000000000000008p0L, -0x1.0000000000001p0);
11165 TEST_ff_f (nexttoward, -1.0, -0x0.ffffffffffffffffffffffffffcp0L, -0x0.fffffffffffff8p0);
11166# endif
11167# if LDBL_MANT_DIG >= 113
11168 TEST_ff_f (nexttoward, 1.0, 0x1.0000000000000000000000000001p0L, 0x1.0000000000001p0);
11169 TEST_ff_f (nexttoward, 1.0, 0x0.ffffffffffffffffffffffffffff8p0L, 0x0.fffffffffffff8p0);
11170 TEST_ff_f (nexttoward, -1.0, -0x1.0000000000000000000000000001p0L, -0x1.0000000000001p0);
11171 TEST_ff_f (nexttoward, -1.0, -0x0.ffffffffffffffffffffffffffff8p0L, -0x0.fffffffffffff8p0);
11172# endif
11173#endif
8847214f
UD		 11174
11175 END (nexttoward);
11176}
8847214f
UD		 11177
11178
11179static void
11180pow_test (void)
11181{
11182
e6d3c4a7
AJ		 11183 errno = 0;
11184 FUNC(pow) (0, 0);
11185 if (errno == ENOSYS)
11186 /* Function not implemented. */
11187 return;
11188
8847214f
UD		 11189 START (pow);
11190
11191 TEST_ff_f (pow, 0, 0, 1);
11192 TEST_ff_f (pow, 0, minus_zero, 1);
11193 TEST_ff_f (pow, minus_zero, 0, 1);
11194 TEST_ff_f (pow, minus_zero, minus_zero, 1);
11195
11196 TEST_ff_f (pow, 10, 0, 1);
11197 TEST_ff_f (pow, 10, minus_zero, 1);
11198 TEST_ff_f (pow, -10, 0, 1);
11199 TEST_ff_f (pow, -10, minus_zero, 1);
11200
67e971f1
TS		 11201 TEST_ff_f (pow, qnan_value, 0, 1);
11202 TEST_ff_f (pow, qnan_value, minus_zero, 1);
8847214f
UD		 11203
11204
15daa639 11205#ifndef TEST_INLINE
3c6cad26 11206 TEST_ff_f (pow, 1.1L, plus_infty, plus_infty);
8847214f 11207 TEST_ff_f (pow, plus_infty, plus_infty, plus_infty);
3c6cad26 11208 TEST_ff_f (pow, -1.1L, plus_infty, plus_infty);
8847214f
UD		 11209 TEST_ff_f (pow, minus_infty, plus_infty, plus_infty);
11210
11211 TEST_ff_f (pow, 0.9L, plus_infty, 0);
11212 TEST_ff_f (pow, 1e-7L, plus_infty, 0);
11213 TEST_ff_f (pow, -0.9L, plus_infty, 0);
11214 TEST_ff_f (pow, -1e-7L, plus_infty, 0);
11215
3c6cad26 11216 TEST_ff_f (pow, 1.1L, minus_infty, 0);
8847214f 11217 TEST_ff_f (pow, plus_infty, minus_infty, 0);
3c6cad26 11218 TEST_ff_f (pow, -1.1L, minus_infty, 0);
8847214f
UD		 11219 TEST_ff_f (pow, minus_infty, minus_infty, 0);
11220
11221 TEST_ff_f (pow, 0.9L, minus_infty, plus_infty);
11222 TEST_ff_f (pow, 1e-7L, minus_infty, plus_infty);
11223 TEST_ff_f (pow, -0.9L, minus_infty, plus_infty);
11224 TEST_ff_f (pow, -1e-7L, minus_infty, plus_infty);
11225
11226 TEST_ff_f (pow, plus_infty, 1e-7L, plus_infty);
11227 TEST_ff_f (pow, plus_infty, 1, plus_infty);
11228 TEST_ff_f (pow, plus_infty, 1e7L, plus_infty);
60e235ee 11229 TEST_ff_f (pow, plus_infty, min_subnorm_value, plus_infty);
8847214f
UD		 11230
11231 TEST_ff_f (pow, plus_infty, -1e-7L, 0);
11232 TEST_ff_f (pow, plus_infty, -1, 0);
11233 TEST_ff_f (pow, plus_infty, -1e7L, 0);
60e235ee 11234 TEST_ff_f (pow, plus_infty, -min_subnorm_value, 0);
8847214f
UD		 11235
11236 TEST_ff_f (pow, minus_infty, 1, minus_infty);
11237 TEST_ff_f (pow, minus_infty, 11, minus_infty);
11238 TEST_ff_f (pow, minus_infty, 1001, minus_infty);
11239
11240 TEST_ff_f (pow, minus_infty, 2, plus_infty);
11241 TEST_ff_f (pow, minus_infty, 12, plus_infty);
11242 TEST_ff_f (pow, minus_infty, 1002, plus_infty);
3c6cad26
UD		 11243 TEST_ff_f (pow, minus_infty, 0.1L, plus_infty);
11244 TEST_ff_f (pow, minus_infty, 1.1L, plus_infty);
11245 TEST_ff_f (pow, minus_infty, 11.1L, plus_infty);
11246 TEST_ff_f (pow, minus_infty, 1001.1L, plus_infty);
60e235ee 11247 TEST_ff_f (pow, minus_infty, min_subnorm_value, plus_infty);
8847214f
UD		 11248
11249 TEST_ff_f (pow, minus_infty, -1, minus_zero);
11250 TEST_ff_f (pow, minus_infty, -11, minus_zero);
11251 TEST_ff_f (pow, minus_infty, -1001, minus_zero);
11252
11253 TEST_ff_f (pow, minus_infty, -2, 0);
11254 TEST_ff_f (pow, minus_infty, -12, 0);
11255 TEST_ff_f (pow, minus_infty, -1002, 0);
3c6cad26
UD		 11256 TEST_ff_f (pow, minus_infty, -0.1L, 0);
11257 TEST_ff_f (pow, minus_infty, -1.1L, 0);
11258 TEST_ff_f (pow, minus_infty, -11.1L, 0);
11259 TEST_ff_f (pow, minus_infty, -1001.1L, 0);
60e235ee 11260 TEST_ff_f (pow, minus_infty, -min_subnorm_value, 0);
15daa639 11261#endif
8847214f 11262
67e971f1
TS		 11263 TEST_ff_f (pow, qnan_value, qnan_value, qnan_value);
11264 TEST_ff_f (pow, 0, qnan_value, qnan_value);
11265 TEST_ff_f (pow, 1, qnan_value, 1);
11266 TEST_ff_f (pow, -1, qnan_value, qnan_value);
11267 TEST_ff_f (pow, qnan_value, 1, qnan_value);
11268 TEST_ff_f (pow, qnan_value, -1, qnan_value);
11269
11270 /* pow (x, qNaN) == qNaN. */
11271 TEST_ff_f (pow, 3.0, qnan_value, qnan_value);
11272 TEST_ff_f (pow, minus_zero, qnan_value, qnan_value);
11273 TEST_ff_f (pow, plus_infty, qnan_value, qnan_value);
11274 TEST_ff_f (pow, -3.0, qnan_value, qnan_value);
11275 TEST_ff_f (pow, minus_infty, qnan_value, qnan_value);
11276
11277 TEST_ff_f (pow, qnan_value, 3.0, qnan_value);
11278 TEST_ff_f (pow, qnan_value, -3.0, qnan_value);
11279 TEST_ff_f (pow, qnan_value, plus_infty, qnan_value);
11280 TEST_ff_f (pow, qnan_value, minus_infty, qnan_value);
11281 TEST_ff_f (pow, qnan_value, 2.5, qnan_value);
11282 TEST_ff_f (pow, qnan_value, -2.5, qnan_value);
11283 TEST_ff_f (pow, qnan_value, min_subnorm_value, qnan_value);
11284 TEST_ff_f (pow, qnan_value, -min_subnorm_value, qnan_value);
8847214f 11285
6571c570
UD		 11286 TEST_ff_f (pow, 1, plus_infty, 1);
11287 TEST_ff_f (pow, -1, plus_infty, 1);
11288 TEST_ff_f (pow, 1, minus_infty, 1);
11289 TEST_ff_f (pow, -1, minus_infty, 1);
164f863e
UD		 11290 TEST_ff_f (pow, 1, 1, 1);
11291 TEST_ff_f (pow, 1, -1, 1);
11292 TEST_ff_f (pow, 1, 1.25, 1);
11293 TEST_ff_f (pow, 1, -1.25, 1);
11294 TEST_ff_f (pow, 1, 0x1p62L, 1);
11295 TEST_ff_f (pow, 1, 0x1p63L, 1);
11296 TEST_ff_f (pow, 1, 0x1p64L, 1);
11297 TEST_ff_f (pow, 1, 0x1p72L, 1);
60e235ee
JM		 11298 TEST_ff_f (pow, 1, min_subnorm_value, 1);
11299 TEST_ff_f (pow, 1, -min_subnorm_value, 1);
164f863e
UD		 11300
11301 /* pow (x, +-0) == 1. */
11302 TEST_ff_f (pow, plus_infty, 0, 1);
11303 TEST_ff_f (pow, plus_infty, minus_zero, 1);
11304 TEST_ff_f (pow, minus_infty, 0, 1);
11305 TEST_ff_f (pow, minus_infty, minus_zero, 1);
11306 TEST_ff_f (pow, 32.75L, 0, 1);
11307 TEST_ff_f (pow, 32.75L, minus_zero, 1);
11308 TEST_ff_f (pow, -32.75L, 0, 1);
11309 TEST_ff_f (pow, -32.75L, minus_zero, 1);
11310 TEST_ff_f (pow, 0x1p72L, 0, 1);
11311 TEST_ff_f (pow, 0x1p72L, minus_zero, 1);
11312 TEST_ff_f (pow, 0x1p-72L, 0, 1);
11313 TEST_ff_f (pow, 0x1p-72L, minus_zero, 1);
8847214f 11314
67e971f1
TS		 11315 TEST_ff_f (pow, -0.1L, 1.1L, qnan_value, INVALID_EXCEPTION);
11316 TEST_ff_f (pow, -0.1L, -1.1L, qnan_value, INVALID_EXCEPTION);
11317 TEST_ff_f (pow, -10.1L, 1.1L, qnan_value, INVALID_EXCEPTION);
11318 TEST_ff_f (pow, -10.1L, -1.1L, qnan_value, INVALID_EXCEPTION);
11319 TEST_ff_f (pow, -1.01L, min_subnorm_value, qnan_value, INVALID_EXCEPTION);
11320 TEST_ff_f (pow, -1.01L, -min_subnorm_value, qnan_value, INVALID_EXCEPTION);
11321 TEST_ff_f (pow, -1.0L, min_subnorm_value, qnan_value, INVALID_EXCEPTION);
11322 TEST_ff_f (pow, -1.0L, -min_subnorm_value, qnan_value, INVALID_EXCEPTION);
8847214f 11323
f2da7793
JM		 11324 TEST_ff_f (pow, 0, -1, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11325 TEST_ff_f (pow, 0, -11, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11326 TEST_ff_f (pow, 0, -0xffffff, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
2460d3aa 11327#ifndef TEST_FLOAT
f2da7793 11328 TEST_ff_f (pow, 0, -0x1.fffffffffffffp+52L, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
2460d3aa
JM		 11329#endif
11330#ifdef TEST_LDOUBLE
11331# if LDBL_MANT_DIG >= 64
f2da7793 11332 TEST_ff_f (pow, 0, -0x1.fffffffffffffffep+63L, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
2460d3aa
JM		 11333# endif
11334# if LDBL_MANT_DIG >= 106
f2da7793 11335 TEST_ff_f (pow, 0, -0x1.ffffffffffffffffffffffffff8p+105L, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
2460d3aa
JM		 11336# endif
11337# if LDBL_MANT_DIG >= 113
f2da7793 11338 TEST_ff_f (pow, 0, -0x1.ffffffffffffffffffffffffffffp+112L, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
2460d3aa
JM		 11339# endif
11340#endif
f2da7793
JM		 11341 TEST_ff_f (pow, minus_zero, -1, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11342 TEST_ff_f (pow, minus_zero, -11L, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11343 TEST_ff_f (pow, minus_zero, -0xffffff, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11344 TEST_ff_f (pow, minus_zero, -0x1fffffe, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
2460d3aa 11345#ifndef TEST_FLOAT
f2da7793
JM		 11346 TEST_ff_f (pow, minus_zero, -0x1.fffffffffffffp+52L, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11347 TEST_ff_f (pow, minus_zero, -0x1.fffffffffffffp+53L, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
2460d3aa
JM		 11348#endif
11349#ifdef TEST_LDOUBLE
11350# if LDBL_MANT_DIG >= 64
f2da7793
JM		 11351 TEST_ff_f (pow, minus_zero, -0x1.fffffffffffffffep+63L, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11352 TEST_ff_f (pow, minus_zero, -0x1.fffffffffffffffep+64L, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
2460d3aa
JM		 11353# endif
11354# if LDBL_MANT_DIG >= 106
f2da7793
JM		 11355 TEST_ff_f (pow, minus_zero, -0x1.ffffffffffffffffffffffffff8p+105L, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11356 TEST_ff_f (pow, minus_zero, -0x1.ffffffffffffffffffffffffff8p+106L, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
2460d3aa
JM		 11357# endif
11358# if LDBL_MANT_DIG >= 113
f2da7793
JM		 11359 TEST_ff_f (pow, minus_zero, -0x1.ffffffffffffffffffffffffffffp+112L, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11360 TEST_ff_f (pow, minus_zero, -0x1.ffffffffffffffffffffffffffffp+113L, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
2460d3aa
JM		 11361# endif
11362#endif
8847214f 11363
f2da7793
JM		 11364 TEST_ff_f (pow, 0, -2, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11365 TEST_ff_f (pow, 0, -11.1L, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11366 TEST_ff_f (pow, 0, -min_subnorm_value, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11367 TEST_ff_f (pow, 0, -0x1p24, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11368 TEST_ff_f (pow, 0, -0x1p127, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11369 TEST_ff_f (pow, 0, -max_value, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11370 TEST_ff_f (pow, minus_zero, -2, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11371 TEST_ff_f (pow, minus_zero, -11.1L, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11372 TEST_ff_f (pow, minus_zero, -min_subnorm_value, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11373 TEST_ff_f (pow, minus_zero, -0x1p24, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11374 TEST_ff_f (pow, minus_zero, -0x1p127, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
11375 TEST_ff_f (pow, minus_zero, -max_value, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE);
8847214f 11376
c135cc1b 11377 TEST_ff_f (pow, 0x1p72L, 0x1p72L, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 11378 TEST_ff_f (pow, 10, -0x1p72L, 0, UNDERFLOW_EXCEPTION);
d7dd9453 11379 TEST_ff_f (pow, max_value, max_value, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 11380 TEST_ff_f (pow, 10, -max_value, 0, UNDERFLOW_EXCEPTION);
8847214f
UD		 11381
11382 TEST_ff_f (pow, 0, 1, 0);
11383 TEST_ff_f (pow, 0, 11, 0);
11384
11385 TEST_ff_f (pow, minus_zero, 1, minus_zero);
11386 TEST_ff_f (pow, minus_zero, 11, minus_zero);
11387
8847214f 11388 TEST_ff_f (pow, 0, 2, 0);
3c6cad26 11389 TEST_ff_f (pow, 0, 11.1L, 0);
8847214f 11390
8847214f 11391 TEST_ff_f (pow, minus_zero, 2, 0);
3c6cad26 11392 TEST_ff_f (pow, minus_zero, 11.1L, 0);
164f863e
UD		 11393 TEST_ff_f (pow, 0, plus_infty, 0);
11394 TEST_ff_f (pow, minus_zero, plus_infty, 0);
10285c21
JM		 11395 TEST_ff_f (pow, 0, minus_infty, plus_infty, DIVIDE_BY_ZERO_EXCEPTION_OK);
11396 TEST_ff_f (pow, minus_zero, minus_infty, plus_infty, DIVIDE_BY_ZERO_EXCEPTION_OK);
8847214f 11397
15daa639 11398#ifndef TEST_INLINE
8847214f
UD		 11399 /* pow (x, +inf) == +inf for |x| > 1. */
11400 TEST_ff_f (pow, 1.5, plus_infty, plus_infty);
11401
11402 /* pow (x, +inf) == +0 for |x| < 1. */
11403 TEST_ff_f (pow, 0.5, plus_infty, 0.0);
11404
11405 /* pow (x, -inf) == +0 for |x| > 1. */
11406 TEST_ff_f (pow, 1.5, minus_infty, 0.0);
11407
11408 /* pow (x, -inf) == +inf for |x| < 1. */
11409 TEST_ff_f (pow, 0.5, minus_infty, plus_infty);
15daa639 11410#endif
8847214f
UD		 11411
11412 /* pow (+inf, y) == +inf for y > 0. */
11413 TEST_ff_f (pow, plus_infty, 2, plus_infty);
2460d3aa
JM		 11414 TEST_ff_f (pow, plus_infty, 0xffffff, plus_infty);
11415#ifndef TEST_FLOAT
11416 TEST_ff_f (pow, plus_infty, 0x1.fffffffffffffp+52L, plus_infty);
11417#endif
11418#ifdef TEST_LDOUBLE
11419# if LDBL_MANT_DIG >= 64
11420 TEST_ff_f (pow, plus_infty, 0x1.fffffffffffffffep+63L, plus_infty);
11421# endif
11422# if LDBL_MANT_DIG >= 106
11423 TEST_ff_f (pow, plus_infty, 0x1.ffffffffffffffffffffffffff8p+105L, plus_infty);
11424# endif
11425# if LDBL_MANT_DIG >= 113
11426 TEST_ff_f (pow, plus_infty, 0x1.ffffffffffffffffffffffffffffp+112L, plus_infty);
11427# endif
11428#endif
11429 TEST_ff_f (pow, plus_infty, 0x1p24, plus_infty);
11430 TEST_ff_f (pow, plus_infty, 0x1p127, plus_infty);
11431 TEST_ff_f (pow, plus_infty, max_value, plus_infty);
8847214f
UD		 11432
11433 /* pow (+inf, y) == +0 for y < 0. */
11434 TEST_ff_f (pow, plus_infty, -1, 0.0);
2460d3aa
JM		 11435 TEST_ff_f (pow, plus_infty, -0xffffff, 0.0);
11436#ifndef TEST_FLOAT
11437 TEST_ff_f (pow, plus_infty, -0x1.fffffffffffffp+52L, 0.0);
11438#endif
11439#ifdef TEST_LDOUBLE
11440# if LDBL_MANT_DIG >= 64
11441 TEST_ff_f (pow, plus_infty, -0x1.fffffffffffffffep+63L, 0.0);
11442# endif
11443# if LDBL_MANT_DIG >= 106
11444 TEST_ff_f (pow, plus_infty, -0x1.ffffffffffffffffffffffffff8p+105L, 0.0);
11445# endif
11446# if LDBL_MANT_DIG >= 113
11447 TEST_ff_f (pow, plus_infty, -0x1.ffffffffffffffffffffffffffffp+112L, 0.0);
11448# endif
11449#endif
11450 TEST_ff_f (pow, plus_infty, -0x1p24, 0.0);
11451 TEST_ff_f (pow, plus_infty, -0x1p127, 0.0);
11452 TEST_ff_f (pow, plus_infty, -max_value, 0.0);
8847214f
UD		 11453
11454 /* pow (-inf, y) == -inf for y an odd integer > 0. */
11455 TEST_ff_f (pow, minus_infty, 27, minus_infty);
2460d3aa
JM		 11456 TEST_ff_f (pow, minus_infty, 0xffffff, minus_infty);
11457 TEST_ff_f (pow, minus_infty, 0x1fffffe, plus_infty);
11458#ifndef TEST_FLOAT
11459 TEST_ff_f (pow, minus_infty, 0x1.fffffffffffffp+52L, minus_infty);
11460 TEST_ff_f (pow, minus_infty, 0x1.fffffffffffffp+53L, plus_infty);
11461#endif
11462#ifdef TEST_LDOUBLE
11463# if LDBL_MANT_DIG >= 64
11464 TEST_ff_f (pow, minus_infty, 0x1.fffffffffffffffep+63L, minus_infty);
11465 TEST_ff_f (pow, minus_infty, 0x1.fffffffffffffffep+64L, plus_infty);
11466# endif
11467# if LDBL_MANT_DIG >= 106
11468 TEST_ff_f (pow, minus_infty, 0x1.ffffffffffffffffffffffffff8p+105L, minus_infty);
11469 TEST_ff_f (pow, minus_infty, 0x1.ffffffffffffffffffffffffff8p+106L, plus_infty);
11470# endif
11471# if LDBL_MANT_DIG >= 113
11472 TEST_ff_f (pow, minus_infty, 0x1.ffffffffffffffffffffffffffffp+112L, minus_infty);
11473 TEST_ff_f (pow, minus_infty, 0x1.ffffffffffffffffffffffffffffp+113L, plus_infty);
11474# endif
11475#endif
8847214f
UD		 11476
11477 /* pow (-inf, y) == +inf for y > 0 and not an odd integer. */
11478 TEST_ff_f (pow, minus_infty, 28, plus_infty);
2460d3aa
JM		 11479 TEST_ff_f (pow, minus_infty, 0x1p24, plus_infty);
11480 TEST_ff_f (pow, minus_infty, 0x1p127, plus_infty);
11481 TEST_ff_f (pow, minus_infty, max_value, plus_infty);
8847214f
UD		 11482
11483 /* pow (-inf, y) == -0 for y an odd integer < 0. */
11484 TEST_ff_f (pow, minus_infty, -3, minus_zero);
2460d3aa
JM		 11485 TEST_ff_f (pow, minus_infty, -0xffffff, minus_zero);
11486 TEST_ff_f (pow, minus_infty, -0x1fffffe, plus_zero);
11487#ifndef TEST_FLOAT
11488 TEST_ff_f (pow, minus_infty, -0x1.fffffffffffffp+52L, minus_zero);
11489 TEST_ff_f (pow, minus_infty, -0x1.fffffffffffffp+53L, plus_zero);
11490#endif
11491#ifdef TEST_LDOUBLE
11492# if LDBL_MANT_DIG >= 64
11493 TEST_ff_f (pow, minus_infty, -0x1.fffffffffffffffep+63L, minus_zero);
11494 TEST_ff_f (pow, minus_infty, -0x1.fffffffffffffffep+64L, plus_zero);
11495# endif
11496# if LDBL_MANT_DIG >= 106
11497 TEST_ff_f (pow, minus_infty, -0x1.ffffffffffffffffffffffffff8p+105L, minus_zero);
11498 TEST_ff_f (pow, minus_infty, -0x1.ffffffffffffffffffffffffff8p+106L, plus_zero);
11499# endif
11500# if LDBL_MANT_DIG >= 113
11501 TEST_ff_f (pow, minus_infty, -0x1.ffffffffffffffffffffffffffffp+112L, minus_zero);
11502 TEST_ff_f (pow, minus_infty, -0x1.ffffffffffffffffffffffffffffp+113L, plus_zero);
11503# endif
11504#endif
8847214f
UD		 11505 /* pow (-inf, y) == +0 for y < 0 and not an odd integer. */
11506 TEST_ff_f (pow, minus_infty, -2.0, 0.0);
2460d3aa
JM		 11507 TEST_ff_f (pow, minus_infty, -0x1p24, 0.0);
11508 TEST_ff_f (pow, minus_infty, -0x1p127, 0.0);
11509 TEST_ff_f (pow, minus_infty, -max_value, 0.0);
8847214f
UD		 11510
11511 /* pow (+0, y) == +0 for y an odd integer > 0. */
11512 TEST_ff_f (pow, 0.0, 27, 0.0);
2460d3aa
JM		 11513 TEST_ff_f (pow, 0.0, 0xffffff, 0.0);
11514#ifndef TEST_FLOAT
11515 TEST_ff_f (pow, 0.0, 0x1.fffffffffffffp+52L, 0.0);
11516#endif
11517#ifdef TEST_LDOUBLE
11518# if LDBL_MANT_DIG >= 64
11519 TEST_ff_f (pow, 0.0, 0x1.fffffffffffffffep+63L, 0.0);
11520# endif
11521# if LDBL_MANT_DIG >= 106
11522 TEST_ff_f (pow, 0.0, 0x1.ffffffffffffffffffffffffff8p+105L, 0.0);
11523# endif
11524# if LDBL_MANT_DIG >= 113
11525 TEST_ff_f (pow, 0.0, 0x1.ffffffffffffffffffffffffffffp+112L, 0.0);
11526# endif
11527#endif
8847214f
UD		 11528
11529 /* pow (-0, y) == -0 for y an odd integer > 0. */
11530 TEST_ff_f (pow, minus_zero, 27, minus_zero);
2460d3aa
JM		 11531 TEST_ff_f (pow, minus_zero, 0xffffff, minus_zero);
11532 TEST_ff_f (pow, minus_zero, 0x1fffffe, plus_zero);
11533#ifndef TEST_FLOAT
11534 TEST_ff_f (pow, minus_zero, 0x1.fffffffffffffp+52L, minus_zero);
11535 TEST_ff_f (pow, minus_zero, 0x1.fffffffffffffp+53L, plus_zero);
11536#endif
11537#ifdef TEST_LDOUBLE
11538# if LDBL_MANT_DIG >= 64
11539 TEST_ff_f (pow, minus_zero, 0x1.fffffffffffffffep+63L, minus_zero);
11540 TEST_ff_f (pow, minus_zero, 0x1.fffffffffffffffep+64L, plus_zero);
11541# endif
11542# if LDBL_MANT_DIG >= 106
11543 TEST_ff_f (pow, minus_zero, 0x1.ffffffffffffffffffffffffff8p+105L, minus_zero);
11544 TEST_ff_f (pow, minus_zero, 0x1.ffffffffffffffffffffffffff8p+106L, plus_zero);
11545# endif
11546# if LDBL_MANT_DIG >= 113
11547 TEST_ff_f (pow, minus_zero, 0x1.ffffffffffffffffffffffffffffp+112L, minus_zero);
11548 TEST_ff_f (pow, minus_zero, 0x1.ffffffffffffffffffffffffffffp+113L, plus_zero);
11549# endif
11550#endif
8847214f
UD		 11551
11552 /* pow (+0, y) == +0 for y > 0 and not an odd integer. */
11553 TEST_ff_f (pow, 0.0, 4, 0.0);
2460d3aa
JM		 11554 TEST_ff_f (pow, 0.0, 0x1p24, 0.0);
11555 TEST_ff_f (pow, 0.0, 0x1p127, 0.0);
11556 TEST_ff_f (pow, 0.0, max_value, 0.0);
60e235ee 11557 TEST_ff_f (pow, 0.0, min_subnorm_value, 0.0);
8847214f
UD		 11558
11559 /* pow (-0, y) == +0 for y > 0 and not an odd integer. */
11560 TEST_ff_f (pow, minus_zero, 4, 0.0);
2460d3aa
JM		 11561 TEST_ff_f (pow, minus_zero, 0x1p24, 0.0);
11562 TEST_ff_f (pow, minus_zero, 0x1p127, 0.0);
11563 TEST_ff_f (pow, minus_zero, max_value, 0.0);
60e235ee 11564 TEST_ff_f (pow, minus_zero, min_subnorm_value, 0.0);
8847214f 11565
164f863e
UD		 11566 TEST_ff_f (pow, 16, 0.25L, 2);
11567 TEST_ff_f (pow, 0x1p64L, 0.125L, 256);
11568 TEST_ff_f (pow, 2, 4, 16);
11569 TEST_ff_f (pow, 256, 8, 0x1p64L);
11570
2550dfe9 11571 TEST_ff_f (pow, 0.75L, 1.25L, 0.697953644326574699205914060237425566L);
8847214f 11572
4c95adde 11573#if defined TEST_DOUBLE || defined TEST_LDOUBLE
80bad0cc 11574 TEST_ff_f (pow, -7.49321e+133, -9.80818e+16, 0, UNDERFLOW_EXCEPTION);
8847214f
UD		 11575#endif
11576
d6270972
JM		 11577 TEST_ff_f (pow, -1.0, -0xffffff, -1.0);
11578 TEST_ff_f (pow, -1.0, -0x1fffffe, 1.0);
11579#ifndef TEST_FLOAT
11580 TEST_ff_f (pow, -1.0, -0x1.fffffffffffffp+52L, -1.0);
11581 TEST_ff_f (pow, -1.0, -0x1.fffffffffffffp+53L, 1.0);
11582#endif
11583#ifdef TEST_LDOUBLE
11584# if LDBL_MANT_DIG >= 64
11585 TEST_ff_f (pow, -1.0, -0x1.fffffffffffffffep+63L, -1.0);
11586 TEST_ff_f (pow, -1.0, -0x1.fffffffffffffffep+64L, 1.0);
11587# endif
11588# if LDBL_MANT_DIG >= 106
11589 TEST_ff_f (pow, -1.0, -0x1.ffffffffffffffffffffffffff8p+105L, -1.0);
11590 TEST_ff_f (pow, -1.0, -0x1.ffffffffffffffffffffffffff8p+106L, 1.0);
11591# endif
11592# if LDBL_MANT_DIG >= 113
11593 TEST_ff_f (pow, -1.0, -0x1.ffffffffffffffffffffffffffffp+112L, -1.0);
11594 TEST_ff_f (pow, -1.0, -0x1.ffffffffffffffffffffffffffffp+113L, 1.0);
11595# endif
11596#endif
11597 TEST_ff_f (pow, -1.0, -max_value, 1.0);
11598
11599 TEST_ff_f (pow, -1.0, 0xffffff, -1.0);
11600 TEST_ff_f (pow, -1.0, 0x1fffffe, 1.0);
11601#ifndef TEST_FLOAT
11602 TEST_ff_f (pow, -1.0, 0x1.fffffffffffffp+52L, -1.0);
11603 TEST_ff_f (pow, -1.0, 0x1.fffffffffffffp+53L, 1.0);
11604#endif
11605#ifdef TEST_LDOUBLE
11606# if LDBL_MANT_DIG >= 64
11607 TEST_ff_f (pow, -1.0, 0x1.fffffffffffffffep+63L, -1.0);
11608 TEST_ff_f (pow, -1.0, 0x1.fffffffffffffffep+64L, 1.0);
11609# endif
11610# if LDBL_MANT_DIG >= 106
11611 TEST_ff_f (pow, -1.0, 0x1.ffffffffffffffffffffffffff8p+105L, -1.0);
11612 TEST_ff_f (pow, -1.0, 0x1.ffffffffffffffffffffffffff8p+106L, 1.0);
11613# endif
11614# if LDBL_MANT_DIG >= 113
11615 TEST_ff_f (pow, -1.0, 0x1.ffffffffffffffffffffffffffffp+112L, -1.0);
11616 TEST_ff_f (pow, -1.0, 0x1.ffffffffffffffffffffffffffffp+113L, 1.0);
11617# endif
11618#endif
11619 TEST_ff_f (pow, -1.0, max_value, 1.0);
11620
11621 TEST_ff_f (pow, -2.0, 126, 0x1p126);
11622 TEST_ff_f (pow, -2.0, 127, -0x1p127);
80bad0cc
JM		 11623 /* Allow inexact results for float to be considered to underflow. */
11624 TEST_ff_f (pow, -2.0, -126, 0x1p-126, UNDERFLOW_EXCEPTION_OK_FLOAT);
11625 TEST_ff_f (pow, -2.0, -127, -0x1p-127, UNDERFLOW_EXCEPTION_OK_FLOAT);
d6270972 11626
80bad0cc
JM		 11627 TEST_ff_f (pow, -2.0, -0xffffff, minus_zero, UNDERFLOW_EXCEPTION);
11628 TEST_ff_f (pow, -2.0, -0x1fffffe, plus_zero, UNDERFLOW_EXCEPTION);
d6270972 11629#ifndef TEST_FLOAT
80bad0cc
JM		 11630 TEST_ff_f (pow, -2.0, -0x1.fffffffffffffp+52L, minus_zero, UNDERFLOW_EXCEPTION);
11631 TEST_ff_f (pow, -2.0, -0x1.fffffffffffffp+53L, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11632#endif
11633#ifdef TEST_LDOUBLE
11634# if LDBL_MANT_DIG >= 64
80bad0cc
JM		 11635 TEST_ff_f (pow, -2.0, -0x1.fffffffffffffffep+63L, minus_zero, UNDERFLOW_EXCEPTION);
11636 TEST_ff_f (pow, -2.0, -0x1.fffffffffffffffep+64L, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11637# endif
11638# if LDBL_MANT_DIG >= 106
80bad0cc
JM		 11639 TEST_ff_f (pow, -2.0, -0x1.ffffffffffffffffffffffffff8p+105L, minus_zero, UNDERFLOW_EXCEPTION);
11640 TEST_ff_f (pow, -2.0, -0x1.ffffffffffffffffffffffffff8p+106L, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11641# endif
11642# if LDBL_MANT_DIG >= 113
80bad0cc
JM		 11643 TEST_ff_f (pow, -2.0, -0x1.ffffffffffffffffffffffffffffp+112L, minus_zero, UNDERFLOW_EXCEPTION);
11644 TEST_ff_f (pow, -2.0, -0x1.ffffffffffffffffffffffffffffp+113L, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11645# endif
11646#endif
80bad0cc 11647 TEST_ff_f (pow, -2.0, -max_value, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11648
11649 TEST_ff_f (pow, -2.0, 0xffffff, minus_infty, OVERFLOW_EXCEPTION);
11650 TEST_ff_f (pow, -2.0, 0x1fffffe, plus_infty, OVERFLOW_EXCEPTION);
11651#ifndef TEST_FLOAT
11652 TEST_ff_f (pow, -2.0, 0x1.fffffffffffffp+52L, minus_infty, OVERFLOW_EXCEPTION);
11653 TEST_ff_f (pow, -2.0, 0x1.fffffffffffffp+53L, plus_infty, OVERFLOW_EXCEPTION);
11654#endif
11655#ifdef TEST_LDOUBLE
11656# if LDBL_MANT_DIG >= 64
11657 TEST_ff_f (pow, -2.0, 0x1.fffffffffffffffep+63L, minus_infty, OVERFLOW_EXCEPTION);
11658 TEST_ff_f (pow, -2.0, 0x1.fffffffffffffffep+64L, plus_infty, OVERFLOW_EXCEPTION);
11659# endif
11660# if LDBL_MANT_DIG >= 106
11661 TEST_ff_f (pow, -2.0, 0x1.ffffffffffffffffffffffffff8p+105L, minus_infty, OVERFLOW_EXCEPTION);
11662 TEST_ff_f (pow, -2.0, 0x1.ffffffffffffffffffffffffff8p+106L, plus_infty, OVERFLOW_EXCEPTION);
11663# endif
11664# if LDBL_MANT_DIG >= 113
11665 TEST_ff_f (pow, -2.0, 0x1.ffffffffffffffffffffffffffffp+112L, minus_infty, OVERFLOW_EXCEPTION);
11666 TEST_ff_f (pow, -2.0, 0x1.ffffffffffffffffffffffffffffp+113L, plus_infty, OVERFLOW_EXCEPTION);
11667# endif
11668#endif
d7dd9453 11669 TEST_ff_f (pow, -2.0, max_value, plus_infty, OVERFLOW_EXCEPTION);
d6270972 11670
67e971f1
TS		 11671 TEST_ff_f (pow, -max_value, 0.5, qnan_value, INVALID_EXCEPTION);
11672 TEST_ff_f (pow, -max_value, 1.5, qnan_value, INVALID_EXCEPTION);
11673 TEST_ff_f (pow, -max_value, 1000.5, qnan_value, INVALID_EXCEPTION);
80bad0cc
JM		 11674 TEST_ff_f (pow, -max_value, -2, plus_zero, UNDERFLOW_EXCEPTION);
11675 TEST_ff_f (pow, -max_value, -3, minus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11676 TEST_ff_f (pow, -max_value, 2, plus_infty, OVERFLOW_EXCEPTION);
11677 TEST_ff_f (pow, -max_value, 3, minus_infty, OVERFLOW_EXCEPTION);
11678
80bad0cc
JM		 11679 TEST_ff_f (pow, -max_value, -0xffffff, minus_zero, UNDERFLOW_EXCEPTION);
11680 TEST_ff_f (pow, -max_value, -0x1fffffe, plus_zero, UNDERFLOW_EXCEPTION);
d6270972 11681#ifndef TEST_FLOAT
80bad0cc
JM		 11682 TEST_ff_f (pow, -max_value, -0x1.fffffffffffffp+52L, minus_zero, UNDERFLOW_EXCEPTION);
11683 TEST_ff_f (pow, -max_value, -0x1.fffffffffffffp+53L, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11684#endif
11685#ifdef TEST_LDOUBLE
11686# if LDBL_MANT_DIG >= 64
80bad0cc
JM		 11687 TEST_ff_f (pow, -max_value, -0x1.fffffffffffffffep+63L, minus_zero, UNDERFLOW_EXCEPTION);
11688 TEST_ff_f (pow, -max_value, -0x1.fffffffffffffffep+64L, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11689# endif
11690# if LDBL_MANT_DIG >= 106
80bad0cc
JM		 11691 TEST_ff_f (pow, -max_value, -0x1.ffffffffffffffffffffffffff8p+105L, minus_zero, UNDERFLOW_EXCEPTION);
11692 TEST_ff_f (pow, -max_value, -0x1.ffffffffffffffffffffffffff8p+106L, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11693# endif
11694# if LDBL_MANT_DIG >= 113
80bad0cc
JM		 11695 TEST_ff_f (pow, -max_value, -0x1.ffffffffffffffffffffffffffffp+112L, minus_zero, UNDERFLOW_EXCEPTION);
11696 TEST_ff_f (pow, -max_value, -0x1.ffffffffffffffffffffffffffffp+113L, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11697# endif
11698#endif
80bad0cc 11699 TEST_ff_f (pow, -max_value, -max_value, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11700
11701 TEST_ff_f (pow, -max_value, 0xffffff, minus_infty, OVERFLOW_EXCEPTION);
11702 TEST_ff_f (pow, -max_value, 0x1fffffe, plus_infty, OVERFLOW_EXCEPTION);
11703#ifndef TEST_FLOAT
11704 TEST_ff_f (pow, -max_value, 0x1.fffffffffffffp+52L, minus_infty, OVERFLOW_EXCEPTION);
11705 TEST_ff_f (pow, -max_value, 0x1.fffffffffffffp+53L, plus_infty, OVERFLOW_EXCEPTION);
11706#endif
11707#ifdef TEST_LDOUBLE
11708# if LDBL_MANT_DIG >= 64
11709 TEST_ff_f (pow, -max_value, 0x1.fffffffffffffffep+63L, minus_infty, OVERFLOW_EXCEPTION);
11710 TEST_ff_f (pow, -max_value, 0x1.fffffffffffffffep+64L, plus_infty, OVERFLOW_EXCEPTION);
11711# endif
11712# if LDBL_MANT_DIG >= 106
11713 TEST_ff_f (pow, -max_value, 0x1.ffffffffffffffffffffffffff8p+105L, minus_infty, OVERFLOW_EXCEPTION);
11714 TEST_ff_f (pow, -max_value, 0x1.ffffffffffffffffffffffffff8p+106L, plus_infty, OVERFLOW_EXCEPTION);
11715# endif
11716# if LDBL_MANT_DIG >= 113
11717 TEST_ff_f (pow, -max_value, 0x1.ffffffffffffffffffffffffffffp+112L, minus_infty, OVERFLOW_EXCEPTION);
11718 TEST_ff_f (pow, -max_value, 0x1.ffffffffffffffffffffffffffffp+113L, plus_infty, OVERFLOW_EXCEPTION);
11719# endif
11720#endif
d7dd9453 11721 TEST_ff_f (pow, -max_value, max_value, plus_infty, OVERFLOW_EXCEPTION);
d6270972
JM		 11722
11723 TEST_ff_f (pow, -0.5, 126, 0x1p-126);
11724 TEST_ff_f (pow, -0.5, 127, -0x1p-127);
11725 TEST_ff_f (pow, -0.5, -126, 0x1p126);
11726 TEST_ff_f (pow, -0.5, -127, -0x1p127);
11727
11728 TEST_ff_f (pow, -0.5, -0xffffff, minus_infty, OVERFLOW_EXCEPTION);
11729 TEST_ff_f (pow, -0.5, -0x1fffffe, plus_infty, OVERFLOW_EXCEPTION);
11730#ifndef TEST_FLOAT
11731 TEST_ff_f (pow, -0.5, -0x1.fffffffffffffp+52L, minus_infty, OVERFLOW_EXCEPTION);
11732 TEST_ff_f (pow, -0.5, -0x1.fffffffffffffp+53L, plus_infty, OVERFLOW_EXCEPTION);
11733#endif
11734#ifdef TEST_LDOUBLE
11735# if LDBL_MANT_DIG >= 64
11736 TEST_ff_f (pow, -0.5, -0x1.fffffffffffffffep+63L, minus_infty, OVERFLOW_EXCEPTION);
11737 TEST_ff_f (pow, -0.5, -0x1.fffffffffffffffep+64L, plus_infty, OVERFLOW_EXCEPTION);
11738# endif
11739# if LDBL_MANT_DIG >= 106
11740 TEST_ff_f (pow, -0.5, -0x1.ffffffffffffffffffffffffff8p+105L, minus_infty, OVERFLOW_EXCEPTION);
11741 TEST_ff_f (pow, -0.5, -0x1.ffffffffffffffffffffffffff8p+106L, plus_infty, OVERFLOW_EXCEPTION);
11742# endif
11743# if LDBL_MANT_DIG >= 113
11744 TEST_ff_f (pow, -0.5, -0x1.ffffffffffffffffffffffffffffp+112L, minus_infty, OVERFLOW_EXCEPTION);
11745 TEST_ff_f (pow, -0.5, -0x1.ffffffffffffffffffffffffffffp+113L, plus_infty, OVERFLOW_EXCEPTION);
11746# endif
11747#endif
d7dd9453 11748 TEST_ff_f (pow, -0.5, -max_value, plus_infty, OVERFLOW_EXCEPTION);
d6270972 11749
80bad0cc
JM		 11750 TEST_ff_f (pow, -0.5, 0xffffff, minus_zero, UNDERFLOW_EXCEPTION);
11751 TEST_ff_f (pow, -0.5, 0x1fffffe, plus_zero, UNDERFLOW_EXCEPTION);
d6270972 11752#ifndef TEST_FLOAT
80bad0cc
JM		 11753 TEST_ff_f (pow, -0.5, 0x1.fffffffffffffp+52L, minus_zero, UNDERFLOW_EXCEPTION);
11754 TEST_ff_f (pow, -0.5, 0x1.fffffffffffffp+53L, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11755#endif
11756#ifdef TEST_LDOUBLE
11757# if LDBL_MANT_DIG >= 64
80bad0cc
JM		 11758 TEST_ff_f (pow, -0.5, 0x1.fffffffffffffffep+63L, minus_zero, UNDERFLOW_EXCEPTION);
11759 TEST_ff_f (pow, -0.5, 0x1.fffffffffffffffep+64L, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11760# endif
11761# if LDBL_MANT_DIG >= 106
80bad0cc
JM		 11762 TEST_ff_f (pow, -0.5, 0x1.ffffffffffffffffffffffffff8p+105L, minus_zero, UNDERFLOW_EXCEPTION);
11763 TEST_ff_f (pow, -0.5, 0x1.ffffffffffffffffffffffffff8p+106L, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11764# endif
11765# if LDBL_MANT_DIG >= 113
80bad0cc
JM		 11766 TEST_ff_f (pow, -0.5, 0x1.ffffffffffffffffffffffffffffp+112L, minus_zero, UNDERFLOW_EXCEPTION);
11767 TEST_ff_f (pow, -0.5, 0x1.ffffffffffffffffffffffffffffp+113L, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11768# endif
11769#endif
80bad0cc 11770 TEST_ff_f (pow, -0.5, max_value, plus_zero, UNDERFLOW_EXCEPTION);
d6270972 11771
67e971f1
TS		 11772 TEST_ff_f (pow, -min_value, 0.5, qnan_value, INVALID_EXCEPTION);
11773 TEST_ff_f (pow, -min_value, 1.5, qnan_value, INVALID_EXCEPTION);
11774 TEST_ff_f (pow, -min_value, 1000.5, qnan_value, INVALID_EXCEPTION);
d6270972
JM		 11775 TEST_ff_f (pow, -min_value, -2, plus_infty, OVERFLOW_EXCEPTION);
11776 TEST_ff_f (pow, -min_value, -3, minus_infty, OVERFLOW_EXCEPTION);
80bad0cc
JM		 11777 /* Allow inexact results to be considered to underflow. */
11778 TEST_ff_f (pow, -min_value, 1, -min_value, UNDERFLOW_EXCEPTION_OK);
11779 TEST_ff_f (pow, -min_value, 2, plus_zero, UNDERFLOW_EXCEPTION);
11780 TEST_ff_f (pow, -min_value, 3, minus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11781
11782 TEST_ff_f (pow, -min_value, -0xffffff, minus_infty, OVERFLOW_EXCEPTION);
11783 TEST_ff_f (pow, -min_value, -0x1fffffe, plus_infty, OVERFLOW_EXCEPTION);
11784#ifndef TEST_FLOAT
11785 TEST_ff_f (pow, -min_value, -0x1.fffffffffffffp+52L, minus_infty, OVERFLOW_EXCEPTION);
11786 TEST_ff_f (pow, -min_value, -0x1.fffffffffffffp+53L, plus_infty, OVERFLOW_EXCEPTION);
11787#endif
11788#ifdef TEST_LDOUBLE
11789# if LDBL_MANT_DIG >= 64
11790 TEST_ff_f (pow, -min_value, -0x1.fffffffffffffffep+63L, minus_infty, OVERFLOW_EXCEPTION);
11791 TEST_ff_f (pow, -min_value, -0x1.fffffffffffffffep+64L, plus_infty, OVERFLOW_EXCEPTION);
11792# endif
11793# if LDBL_MANT_DIG >= 106
11794 TEST_ff_f (pow, -min_value, -0x1.ffffffffffffffffffffffffff8p+105L, minus_infty, OVERFLOW_EXCEPTION);
11795 TEST_ff_f (pow, -min_value, -0x1.ffffffffffffffffffffffffff8p+106L, plus_infty, OVERFLOW_EXCEPTION);
11796# endif
11797# if LDBL_MANT_DIG >= 113
11798 TEST_ff_f (pow, -min_value, -0x1.ffffffffffffffffffffffffffffp+112L, minus_infty, OVERFLOW_EXCEPTION);
11799 TEST_ff_f (pow, -min_value, -0x1.ffffffffffffffffffffffffffffp+113L, plus_infty, OVERFLOW_EXCEPTION);
11800# endif
11801#endif
d7dd9453 11802 TEST_ff_f (pow, -min_value, -max_value, plus_infty, OVERFLOW_EXCEPTION);
d6270972 11803
80bad0cc
JM		 11804 TEST_ff_f (pow, -min_value, 0xffffff, minus_zero, UNDERFLOW_EXCEPTION);
11805 TEST_ff_f (pow, -min_value, 0x1fffffe, plus_zero, UNDERFLOW_EXCEPTION);
d6270972 11806#ifndef TEST_FLOAT
80bad0cc
JM		 11807 TEST_ff_f (pow, -min_value, 0x1.fffffffffffffp+52L, minus_zero, UNDERFLOW_EXCEPTION);
11808 TEST_ff_f (pow, -min_value, 0x1.fffffffffffffp+53L, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11809#endif
11810#ifdef TEST_LDOUBLE
11811# if LDBL_MANT_DIG >= 64
80bad0cc
JM		 11812 TEST_ff_f (pow, -min_value, 0x1.fffffffffffffffep+63L, minus_zero, UNDERFLOW_EXCEPTION);
11813 TEST_ff_f (pow, -min_value, 0x1.fffffffffffffffep+64L, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11814# endif
11815# if LDBL_MANT_DIG >= 106
80bad0cc
JM		 11816 TEST_ff_f (pow, -min_value, 0x1.ffffffffffffffffffffffffff8p+105L, minus_zero, UNDERFLOW_EXCEPTION);
11817 TEST_ff_f (pow, -min_value, 0x1.ffffffffffffffffffffffffff8p+106L, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11818# endif
11819# if LDBL_MANT_DIG >= 113
80bad0cc
JM		 11820 TEST_ff_f (pow, -min_value, 0x1.ffffffffffffffffffffffffffffp+112L, minus_zero, UNDERFLOW_EXCEPTION);
11821 TEST_ff_f (pow, -min_value, 0x1.ffffffffffffffffffffffffffffp+113L, plus_zero, UNDERFLOW_EXCEPTION);
d6270972
JM		 11822# endif
11823#endif
80bad0cc 11824 TEST_ff_f (pow, -min_value, max_value, plus_zero, UNDERFLOW_EXCEPTION);
d6270972 11825
c483f6b4
JM		 11826 TEST_ff_f (pow, 0x0.ffffffp0, 10, 0.999999403953712118183885036774764444747L);
11827 TEST_ff_f (pow, 0x0.ffffffp0, 100, 0.999994039553108359406305079606228341585L);
11828 TEST_ff_f (pow, 0x0.ffffffp0, 1000, 0.9999403971297699052276650144650733772182L);
11829 TEST_ff_f (pow, 0x0.ffffffp0, 0x1p24, 0.3678794302077803437135155590023422899744L);
11830 TEST_ff_f (pow, 0x0.ffffffp0, 0x1p30, 1.603807831524924233828134753069728224044e-28L);
11831 TEST_ff_f (pow, 0x0.ffffffp0, 0x1.234566p30, 2.374884712135295099971443365381007297732e-32L);
11832 TEST_ff_f (pow, 0x0.ffffffp0, -10, 1.000000596046643153205170848674671339688L);
11833 TEST_ff_f (pow, 0x0.ffffffp0, -100, 1.000005960482418779499387594989252621451L);
11834 TEST_ff_f (pow, 0x0.ffffffp0, -1000, 1.000059606422943986382898964231519867906L);
11835 TEST_ff_f (pow, 0x0.ffffffp0, -0x1p24, 2.7182819094701610539628664526874952929416L);
11836 TEST_ff_f (pow, 0x0.ffffffp0, -0x1p30, 6.2351609734265057988914412331288163636075e+27L);
11837 TEST_ff_f (pow, 0x0.ffffffp0, -0x1.234566p30, 4.2107307141696353498921307077142537353515e+31L);
11838 TEST_ff_f (pow, 0x1.000002p0, 0x1p24, 7.3890552180866447284268641248075832310141L);
11839 TEST_ff_f (pow, 0x1.000002p0, 0x1.234566p29, 4.2107033006507495188536371520637025716256e+31L);
11840 TEST_ff_f (pow, 0x1.000002p0, -0x1.234566p29, 2.3749001736727769098946062325205705312166e-32L);
c483f6b4 11841
1bead169 11842#if !defined TEST_FLOAT
c483f6b4
JM		 11843 TEST_ff_f (pow, 0x0.fffffffffffff8p0L, 0x1.23456789abcdfp62L, 1.0118762747827252817436395051178295138220e-253L);
11844 TEST_ff_f (pow, 0x0.fffffffffffff8p0L, -0x1.23456789abcdfp62L, 9.8826311568054561811190162420900667121992e+252L);
11845 TEST_ff_f (pow, 0x1.0000000000001p0L, 0x1.23456789abcdfp61L, 9.8826311568044974397135026217687399395481e+252L);
11846 TEST_ff_f (pow, 0x1.0000000000001p0L, -0x1.23456789abcdfp61L, 1.0118762747828234466621210689458255908670e-253L);
11847#endif
11848
1bead169
JM		 11849#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64 && LDBL_MAX_EXP >= 16384
11850 TEST_ff_f (pow, 0x0.ffffffffffffffffp0L, 0x1.23456789abcdef0ep77L, 1.2079212226420368189981778807634890018840e-4048L);
11851 TEST_ff_f (pow, 0x0.ffffffffffffffffp0L, -0x1.23456789abcdef0ep77L, 8.2786855736563746280496724205839522148001e+4047L);
11852 TEST_ff_f (pow, 0x1.0000000000000002p0L, 0x1.23456789abcdef0ep76L, 8.2786855736563683535324500168799315131570e+4047L);
11853 TEST_ff_f (pow, 0x1.0000000000000002p0L, -0x1.23456789abcdef0ep76L, 1.2079212226420377344964713407722652880280e-4048L);
11854#endif
11855
11856#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 113
11857 TEST_ff_f (pow, 0x0.ffffffffffffffffffffffffffff8p0L, 0x1.23456789abcdef0123456789abcdp126L, 1.2079212226420440237790185999151440179953e-4048L);
11858 TEST_ff_f (pow, 0x0.ffffffffffffffffffffffffffff8p0L, -0x1.23456789abcdef0123456789abcdp126L, 8.2786855736563252489063231915535105363602e+4047L);
11859 TEST_ff_f (pow, 0x1.0000000000000000000000000001p0L, 0x1.23456789abcdef0123456789abcdp125L, 8.2786855736563252489063231915423647547782e+4047L);
11860 TEST_ff_f (pow, 0x1.0000000000000000000000000001p0L, -0x1.23456789abcdef0123456789abcdp125L, 1.2079212226420440237790185999167702696503e-4048L);
11861#endif
11862
11863#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
11864 TEST_ff_f (pow, 1e4932L, 0.75L, 1e3699L);
11865 TEST_ff_f (pow, 1e4928L, 0.75L, 1e3696L);
11866 TEST_ff_f (pow, 1e4924L, 0.75L, 1e3693L);
11867 TEST_ff_f (pow, 1e4920L, 0.75L, 1e3690L);
11868 TEST_ff_f (pow, 10.0L, 4932.0L, 1e4932L);
11869 TEST_ff_f (pow, 10.0L, 4931.0L, 1e4931L);
11870 TEST_ff_f (pow, 10.0L, 4930.0L, 1e4930L);
11871 TEST_ff_f (pow, 10.0L, 4929.0L, 1e4929L);
11872 TEST_ff_f (pow, 10.0L, -4931.0L, 1e-4931L);
11873 TEST_ff_f (pow, 10.0L, -4930.0L, 1e-4930L);
11874 TEST_ff_f (pow, 10.0L, -4929.0L, 1e-4929L);
11875 TEST_ff_f (pow, 1e27L, 182.0L, 1e4914L);
11876 TEST_ff_f (pow, 1e27L, -182.0L, 1e-4914L);
11877#endif
11878
60e235ee
JM		 11879 TEST_ff_f (pow, min_subnorm_value, min_subnorm_value, 1.0L);
11880 TEST_ff_f (pow, min_subnorm_value, -min_subnorm_value, 1.0L);
11881 TEST_ff_f (pow, max_value, min_subnorm_value, 1.0L);
11882 TEST_ff_f (pow, max_value, -min_subnorm_value, 1.0L);
11883 TEST_ff_f (pow, 0.99L, min_subnorm_value, 1.0L);
11884 TEST_ff_f (pow, 0.99L, -min_subnorm_value, 1.0L);
11885 TEST_ff_f (pow, 1.01L, min_subnorm_value, 1.0L);
11886 TEST_ff_f (pow, 1.01L, -min_subnorm_value, 1.0L);
11887
7a25eb06
JM		 11888 TEST_ff_f (pow, 2.0L, -100000.0L, plus_zero, UNDERFLOW_EXCEPTION);
11889
8847214f
UD		 11890 END (pow);
11891}
11892
b7cd39e8
JM		 11893
11894static void
11895pow_test_tonearest (void)
11896{
11897 int save_round_mode;
11898 errno = 0;
11899 FUNC(pow) (0, 0);
11900 if (errno == ENOSYS)
11901 /* Function not implemented. */
11902 return;
11903
11904 START (pow_tonearest);
11905
11906 save_round_mode = fegetround ();
11907
11908 if (!fesetround (FE_TONEAREST))
11909 {
11910 TEST_ff_f (pow, 1.0625L, 1.125L, 1.070582293028761362162622578677070098674L);
11911 TEST_ff_f (pow, 1.5L, 1.03125L, 1.519127098714743184071644334163037684948L);
11912 }
11913
11914 fesetround (save_round_mode);
11915
11916 END (pow_tonearest);
11917}
11918
11919
11920static void
11921pow_test_towardzero (void)
11922{
11923 int save_round_mode;
11924 errno = 0;
11925 FUNC(pow) (0, 0);
11926 if (errno == ENOSYS)
11927 /* Function not implemented. */
11928 return;
11929
11930 START (pow_towardzero);
11931
11932 save_round_mode = fegetround ();
11933
11934 if (!fesetround (FE_TOWARDZERO))
11935 {
11936 TEST_ff_f (pow, 1.0625L, 1.125L, 1.070582293028761362162622578677070098674L);
11937 TEST_ff_f (pow, 1.5L, 1.03125L, 1.519127098714743184071644334163037684948L);
11938 }
11939
11940 fesetround (save_round_mode);
11941
11942 END (pow_towardzero);
11943}
11944
11945
11946static void
11947pow_test_downward (void)
11948{
11949 int save_round_mode;
11950 errno = 0;
11951 FUNC(pow) (0, 0);
11952 if (errno == ENOSYS)
11953 /* Function not implemented. */
11954 return;
11955
11956 START (pow_downward);
11957
11958 save_round_mode = fegetround ();
11959
11960 if (!fesetround (FE_DOWNWARD))
11961 {
11962 TEST_ff_f (pow, 1.0625L, 1.125L, 1.070582293028761362162622578677070098674L);
11963 TEST_ff_f (pow, 1.5L, 1.03125L, 1.519127098714743184071644334163037684948L);
11964 }
11965
11966 fesetround (save_round_mode);
11967
11968 END (pow_downward);
11969}
11970
11971
11972static void
11973pow_test_upward (void)
11974{
11975 int save_round_mode;
11976 errno = 0;
11977 FUNC(pow) (0, 0);
11978 if (errno == ENOSYS)
11979 /* Function not implemented. */
11980 return;
11981
11982 START (pow_upward);
11983
11984 save_round_mode = fegetround ();
11985
11986 if (!fesetround (FE_UPWARD))
11987 {
11988 TEST_ff_f (pow, 1.0625L, 1.125L, 1.070582293028761362162622578677070098674L);
11989 TEST_ff_f (pow, 1.5L, 1.03125L, 1.519127098714743184071644334163037684948L);
11990 }
11991
11992 fesetround (save_round_mode);
11993
11994 END (pow_upward);
11995}
11996
11997
8847214f
UD		 11998static void
11999remainder_test (void)
12000{
aaca11d8
UD		 12001 errno = 0;
12002 FUNC(remainder) (1.625, 1.0);
12003 if (errno == ENOSYS)
12004 /* Function not implemented. */
12005 return;
8847214f
UD		 12006
12007 START (remainder);
12008
f2da7793
JM		 12009 TEST_ff_f (remainder, 1, 0, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
12010 TEST_ff_f (remainder, 1, minus_zero, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
12011 TEST_ff_f (remainder, plus_infty, minus_zero, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
12012 TEST_ff_f (remainder, plus_infty, 0, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
12013 TEST_ff_f (remainder, plus_infty, 1, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
12014 TEST_ff_f (remainder, plus_infty, 2, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
12015 TEST_ff_f (remainder, minus_infty, minus_zero, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
12016 TEST_ff_f (remainder, minus_infty, 0, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
12017 TEST_ff_f (remainder, minus_infty, 1, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
12018 TEST_ff_f (remainder, minus_infty, 2, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
12019 TEST_ff_f (remainder, qnan_value, qnan_value, qnan_value, ERRNO_UNCHANGED);
12020 TEST_ff_f (remainder, 0, qnan_value, qnan_value, ERRNO_UNCHANGED);
12021 TEST_ff_f (remainder, qnan_value, 0, qnan_value, ERRNO_UNCHANGED);
12022
12023 TEST_ff_f (remainder, 7.0, plus_infty, 7.0, ERRNO_UNCHANGED);
12024 TEST_ff_f (remainder, 7.0, minus_infty, 7.0, ERRNO_UNCHANGED);
a1cbf437 12025
8847214f
UD		 12026 TEST_ff_f (remainder, 1.625, 1.0, -0.375);
12027 TEST_ff_f (remainder, -1.625, 1.0, 0.375);
12028 TEST_ff_f (remainder, 1.625, -1.0, -0.375);
12029 TEST_ff_f (remainder, -1.625, -1.0, 0.375);
12030 TEST_ff_f (remainder, 5.0, 2.0, 1.0);
12031 TEST_ff_f (remainder, 3.0, 2.0, -1.0);
12032
12033 END (remainder);
12034}
12035
12036static void
12037remquo_test (void)
12038{
12039 /* x is needed. */
12040 int x;
12041
aaca11d8
UD		 12042 errno = 0;
12043 FUNC(remquo) (1.625, 1.0, &x);
12044 if (errno == ENOSYS)
12045 /* Function not implemented. */
12046 return;
12047
8847214f
UD		 12048 START (remquo);
12049
67e971f1
TS		 12050 TEST_ffI_f1 (remquo, 1, 0, qnan_value, IGNORE, INVALID_EXCEPTION);
12051 TEST_ffI_f1 (remquo, 1, minus_zero, qnan_value, IGNORE, INVALID_EXCEPTION);
12052 TEST_ffI_f1 (remquo, plus_infty, 1, qnan_value, IGNORE, INVALID_EXCEPTION);
12053 TEST_ffI_f1 (remquo, minus_infty, 1, qnan_value, IGNORE, INVALID_EXCEPTION);
12054 TEST_ffI_f1 (remquo, qnan_value, qnan_value, qnan_value, IGNORE);
8847214f
UD		 12055
12056 TEST_ffI_f1 (remquo, 1.625, 1.0, -0.375, 2);
12057 TEST_ffI_f1 (remquo, -1.625, 1.0, 0.375, -2);
12058 TEST_ffI_f1 (remquo, 1.625, -1.0, -0.375, -2);
12059 TEST_ffI_f1 (remquo, -1.625, -1.0, 0.375, 2);
12060
12061 TEST_ffI_f1 (remquo, 5, 2, 1, 2);
12062 TEST_ffI_f1 (remquo, 3, 2, -1, 2);
12063
12064 END (remquo);
12065}
12066
12067static void
12068rint_test (void)
12069{
64d063b8
TS		 12070 /* TODO: missing qNaN tests. */
12071
8847214f
UD		 12072 START (rint);
12073
12074 TEST_f_f (rint, 0.0, 0.0);
12075 TEST_f_f (rint, minus_zero, minus_zero);
12076 TEST_f_f (rint, plus_infty, plus_infty);
12077 TEST_f_f (rint, minus_infty, minus_infty);
12078
9949bc63 12079 /* Default rounding mode is round to even. */
1dc23588
UD		 12080 TEST_f_f (rint, 0.5, 0.0);
12081 TEST_f_f (rint, 1.5, 2.0);
9949bc63
UD		 12082 TEST_f_f (rint, 2.5, 2.0);
12083 TEST_f_f (rint, 3.5, 4.0);
12084 TEST_f_f (rint, 4.5, 4.0);
1dc23588
UD		 12085 TEST_f_f (rint, -0.5, -0.0);
12086 TEST_f_f (rint, -1.5, -2.0);
9949bc63
UD		 12087 TEST_f_f (rint, -2.5, -2.0);
12088 TEST_f_f (rint, -3.5, -4.0);
12089 TEST_f_f (rint, -4.5, -4.0);
5c68d401
RM		 12090 TEST_f_f (rint, 0.1, 0.0);
12091 TEST_f_f (rint, 0.25, 0.0);
12092 TEST_f_f (rint, 0.625, 1.0);
12093 TEST_f_f (rint, -0.1, -0.0);
12094 TEST_f_f (rint, -0.25, -0.0);
12095 TEST_f_f (rint, -0.625, -1.0);
af0498dc
UD		 12096 TEST_f_f (rint, 262144.75, 262145.0);
12097 TEST_f_f (rint, 262142.75, 262143.0);
12098 TEST_f_f (rint, 524286.75, 524287.0);
12099 TEST_f_f (rint, 524288.75, 524289.0);
fe45ce09
JM		 12100 TEST_f_f (rint, 1048576.75, 1048577.0);
12101 TEST_f_f (rint, 2097152.75, 2097153.0);
12102 TEST_f_f (rint, -1048576.75, -1048577.0);
12103 TEST_f_f (rint, -2097152.75, -2097153.0);
12104#ifndef TEST_FLOAT
12105 TEST_f_f (rint, 70368744177664.75, 70368744177665.0);
12106 TEST_f_f (rint, 140737488355328.75, 140737488355329.0);
12107 TEST_f_f (rint, 281474976710656.75, 281474976710657.0);
12108 TEST_f_f (rint, 562949953421312.75, 562949953421313.0);
12109 TEST_f_f (rint, 1125899906842624.75, 1125899906842625.0);
12110 TEST_f_f (rint, -70368744177664.75, -70368744177665.0);
12111 TEST_f_f (rint, -140737488355328.75, -140737488355329.0);
12112 TEST_f_f (rint, -281474976710656.75, -281474976710657.0);
12113 TEST_f_f (rint, -562949953421312.75, -562949953421313.0);
12114 TEST_f_f (rint, -1125899906842624.75, -1125899906842625.0);
12115#endif
f964490f
RM		 12116#ifdef TEST_LDOUBLE
12117 /* The result can only be represented in long double. */
12118 TEST_f_f (rint, 4503599627370495.5L, 4503599627370496.0L);
12119 TEST_f_f (rint, 4503599627370496.25L, 4503599627370496.0L);
12120 TEST_f_f (rint, 4503599627370496.5L, 4503599627370496.0L);
12121 TEST_f_f (rint, 4503599627370496.75L, 4503599627370497.0L);
12122 TEST_f_f (rint, 4503599627370497.5L, 4503599627370498.0L);
830fce04 12123
5c68d401
RM		 12124# if LDBL_MANT_DIG > 100
12125 TEST_f_f (rint, 4503599627370494.5000000000001L, 4503599627370495.0L);
12126 TEST_f_f (rint, 4503599627370495.5000000000001L, 4503599627370496.0L);
12127 TEST_f_f (rint, 4503599627370496.5000000000001L, 4503599627370497.0L);
12128# endif
f964490f
RM		 12129
12130 TEST_f_f (rint, -4503599627370495.5L, -4503599627370496.0L);
12131 TEST_f_f (rint, -4503599627370496.25L, -4503599627370496.0L);
12132 TEST_f_f (rint, -4503599627370496.5L, -4503599627370496.0L);
12133 TEST_f_f (rint, -4503599627370496.75L, -4503599627370497.0L);
12134 TEST_f_f (rint, -4503599627370497.5L, -4503599627370498.0L);
830fce04 12135
5c68d401
RM		 12136# if LDBL_MANT_DIG > 100
12137 TEST_f_f (rint, -4503599627370494.5000000000001L, -4503599627370495.0L);
12138 TEST_f_f (rint, -4503599627370495.5000000000001L, -4503599627370496.0L);
12139 TEST_f_f (rint, -4503599627370496.5000000000001L, -4503599627370497.0L);
12140
12141 TEST_f_f (rint, 9007199254740991.0000000000001L, 9007199254740991.0L);
12142 TEST_f_f (rint, 9007199254740992.0000000000001L, 9007199254740992.0L);
12143 TEST_f_f (rint, 9007199254740993.0000000000001L, 9007199254740993.0L);
12144 TEST_f_f (rint, 9007199254740991.5000000000001L, 9007199254740992.0L);
12145 TEST_f_f (rint, 9007199254740992.5000000000001L, 9007199254740993.0L);
12146 TEST_f_f (rint, 9007199254740993.5000000000001L, 9007199254740994.0L);
12147
12148 TEST_f_f (rint, -9007199254740991.0000000000001L, -9007199254740991.0L);
12149 TEST_f_f (rint, -9007199254740992.0000000000001L, -9007199254740992.0L);
12150 TEST_f_f (rint, -9007199254740993.0000000000001L, -9007199254740993.0L);
12151 TEST_f_f (rint, -9007199254740991.5000000000001L, -9007199254740992.0L);
12152 TEST_f_f (rint, -9007199254740992.5000000000001L, -9007199254740993.0L);
12153 TEST_f_f (rint, -9007199254740993.5000000000001L, -9007199254740994.0L);
12154# endif
f964490f
RM		 12155
12156 TEST_f_f (rint, 9007199254740991.5L, 9007199254740992.0L);
12157 TEST_f_f (rint, 9007199254740992.25L, 9007199254740992.0L);
12158 TEST_f_f (rint, 9007199254740992.5L, 9007199254740992.0L);
12159 TEST_f_f (rint, 9007199254740992.75L, 9007199254740993.0L);
12160 TEST_f_f (rint, 9007199254740993.5L, 9007199254740994.0L);
12161
12162 TEST_f_f (rint, -9007199254740991.5L, -9007199254740992.0L);
12163 TEST_f_f (rint, -9007199254740992.25L, -9007199254740992.0L);
12164 TEST_f_f (rint, -9007199254740992.5L, -9007199254740992.0L);
12165 TEST_f_f (rint, -9007199254740992.75L, -9007199254740993.0L);
12166 TEST_f_f (rint, -9007199254740993.5L, -9007199254740994.0L);
12167
12168 TEST_f_f (rint, 72057594037927935.5L, 72057594037927936.0L);
12169 TEST_f_f (rint, 72057594037927936.25L, 72057594037927936.0L);
12170 TEST_f_f (rint, 72057594037927936.5L, 72057594037927936.0L);
12171 TEST_f_f (rint, 72057594037927936.75L, 72057594037927937.0L);
12172 TEST_f_f (rint, 72057594037927937.5L, 72057594037927938.0L);
12173
12174 TEST_f_f (rint, -72057594037927935.5L, -72057594037927936.0L);
12175 TEST_f_f (rint, -72057594037927936.25L, -72057594037927936.0L);
12176 TEST_f_f (rint, -72057594037927936.5L, -72057594037927936.0L);
12177 TEST_f_f (rint, -72057594037927936.75L, -72057594037927937.0L);
12178 TEST_f_f (rint, -72057594037927937.5L, -72057594037927938.0L);
12179
12180 TEST_f_f (rint, 10141204801825835211973625643007.5L, 10141204801825835211973625643008.0L);
12181 TEST_f_f (rint, 10141204801825835211973625643008.25L, 10141204801825835211973625643008.0L);
12182 TEST_f_f (rint, 10141204801825835211973625643008.5L, 10141204801825835211973625643008.0L);
12183 TEST_f_f (rint, 10141204801825835211973625643008.75L, 10141204801825835211973625643009.0L);
12184 TEST_f_f (rint, 10141204801825835211973625643009.5L, 10141204801825835211973625643010.0L);
12185#endif
1dc23588 12186
8847214f
UD		 12187 END (rint);
12188}
12189
4d37c8aa
UD		 12190static void
12191rint_test_tonearest (void)
12192{
12193 int save_round_mode;
12194 START (rint_tonearest);
12195
830fce04 12196 save_round_mode = fegetround ();
4d37c8aa
UD		 12197
12198 if (!fesetround (FE_TONEAREST))
830fce04
RM		 12199 {
12200 TEST_f_f (rint, 2.0, 2.0);
12201 TEST_f_f (rint, 1.5, 2.0);
12202 TEST_f_f (rint, 1.0, 1.0);
12203 TEST_f_f (rint, 0.5, 0.0);
12204 TEST_f_f (rint, 0.0, 0.0);
12205 TEST_f_f (rint, minus_zero, minus_zero);
12206 TEST_f_f (rint, -0.5, -0.0);
12207 TEST_f_f (rint, -1.0, -1.0);
12208 TEST_f_f (rint, -1.5, -2.0);
12209 TEST_f_f (rint, -2.0, -2.0);
12210 TEST_f_f (rint, 0.1, 0.0);
12211 TEST_f_f (rint, 0.25, 0.0);
12212 TEST_f_f (rint, 0.625, 1.0);
12213 TEST_f_f (rint, -0.1, -0.0);
12214 TEST_f_f (rint, -0.25, -0.0);
12215 TEST_f_f (rint, -0.625, -1.0);
fe45ce09
JM		 12216 TEST_f_f (rint, 1048576.75, 1048577.0);
12217 TEST_f_f (rint, 2097152.75, 2097153.0);
12218 TEST_f_f (rint, -1048576.75, -1048577.0);
12219 TEST_f_f (rint, -2097152.75, -2097153.0);
12220#ifndef TEST_FLOAT
12221 TEST_f_f (rint, 70368744177664.75, 70368744177665.0);
12222 TEST_f_f (rint, 140737488355328.75, 140737488355329.0);
12223 TEST_f_f (rint, 281474976710656.75, 281474976710657.0);
12224 TEST_f_f (rint, 562949953421312.75, 562949953421313.0);
12225 TEST_f_f (rint, 1125899906842624.75, 1125899906842625.0);
12226 TEST_f_f (rint, -70368744177664.75, -70368744177665.0);
12227 TEST_f_f (rint, -140737488355328.75, -140737488355329.0);
12228 TEST_f_f (rint, -281474976710656.75, -281474976710657.0);
12229 TEST_f_f (rint, -562949953421312.75, -562949953421313.0);
12230 TEST_f_f (rint, -1125899906842624.75, -1125899906842625.0);
12231#endif
5c68d401 12232#ifdef TEST_LDOUBLE
830fce04
RM		 12233 /* The result can only be represented in long double. */
12234 TEST_f_f (rint, 4503599627370495.5L, 4503599627370496.0L);
12235 TEST_f_f (rint, 4503599627370496.25L, 4503599627370496.0L);
12236 TEST_f_f (rint, 4503599627370496.5L, 4503599627370496.0L);
12237 TEST_f_f (rint, 4503599627370496.75L, 4503599627370497.0L);
12238 TEST_f_f (rint, 4503599627370497.5L, 4503599627370498.0L);
5c68d401 12239# if LDBL_MANT_DIG > 100
830fce04
RM		 12240 TEST_f_f (rint, 4503599627370494.5000000000001L, 4503599627370495.0L);
12241 TEST_f_f (rint, 4503599627370495.5000000000001L, 4503599627370496.0L);
12242 TEST_f_f (rint, 4503599627370496.5000000000001L, 4503599627370497.0L);
5c68d401 12243# endif
830fce04
RM		 12244 TEST_f_f (rint, -4503599627370495.5L, -4503599627370496.0L);
12245 TEST_f_f (rint, -4503599627370496.25L, -4503599627370496.0L);
12246 TEST_f_f (rint, -4503599627370496.5L, -4503599627370496.0L);
12247 TEST_f_f (rint, -4503599627370496.75L, -4503599627370497.0L);
12248 TEST_f_f (rint, -4503599627370497.5L, -4503599627370498.0L);
5c68d401 12249# if LDBL_MANT_DIG > 100
830fce04
RM		 12250 TEST_f_f (rint, -4503599627370494.5000000000001L, -4503599627370495.0L);
12251 TEST_f_f (rint, -4503599627370495.5000000000001L, -4503599627370496.0L);
12252 TEST_f_f (rint, -4503599627370496.5000000000001L, -4503599627370497.0L);
12253
12254 TEST_f_f (rint, 9007199254740991.0000000000001L, 9007199254740991.0L);
12255 TEST_f_f (rint, 9007199254740992.0000000000001L, 9007199254740992.0L);
12256 TEST_f_f (rint, 9007199254740993.0000000000001L, 9007199254740993.0L);
12257 TEST_f_f (rint, 9007199254740991.5000000000001L, 9007199254740992.0L);
12258 TEST_f_f (rint, 9007199254740992.5000000000001L, 9007199254740993.0L);
12259 TEST_f_f (rint, 9007199254740993.5000000000001L, 9007199254740994.0L);
12260
12261 TEST_f_f (rint, -9007199254740991.0000000000001L, -9007199254740991.0L);
12262 TEST_f_f (rint, -9007199254740992.0000000000001L, -9007199254740992.0L);
12263 TEST_f_f (rint, -9007199254740993.0000000000001L, -9007199254740993.0L);
12264 TEST_f_f (rint, -9007199254740991.5000000000001L, -9007199254740992.0L);
12265 TEST_f_f (rint, -9007199254740992.5000000000001L, -9007199254740993.0L);
12266 TEST_f_f (rint, -9007199254740993.5000000000001L, -9007199254740994.0L);
5c68d401
RM		 12267# endif
12268#endif
830fce04 12269 }
4d37c8aa 12270
830fce04 12271 fesetround (save_round_mode);
4d37c8aa
UD		 12272
12273 END (rint_tonearest);
12274}
12275
12276static void
12277rint_test_towardzero (void)
12278{
12279 int save_round_mode;
12280 START (rint_towardzero);
12281
830fce04 12282 save_round_mode = fegetround ();
4d37c8aa
UD		 12283
12284 if (!fesetround (FE_TOWARDZERO))
830fce04
RM		 12285 {
12286 TEST_f_f (rint, 2.0, 2.0);
12287 TEST_f_f (rint, 1.5, 1.0);
12288 TEST_f_f (rint, 1.0, 1.0);
12289 TEST_f_f (rint, 0.5, 0.0);
12290 TEST_f_f (rint, 0.0, 0.0);
12291 TEST_f_f (rint, minus_zero, minus_zero);
12292 TEST_f_f (rint, -0.5, -0.0);
12293 TEST_f_f (rint, -1.0, -1.0);
12294 TEST_f_f (rint, -1.5, -1.0);
12295 TEST_f_f (rint, -2.0, -2.0);
12296 TEST_f_f (rint, 0.1, 0.0);
12297 TEST_f_f (rint, 0.25, 0.0);
12298 TEST_f_f (rint, 0.625, 0.0);
12299 TEST_f_f (rint, -0.1, -0.0);
12300 TEST_f_f (rint, -0.25, -0.0);
12301 TEST_f_f (rint, -0.625, -0.0);
fe45ce09
JM		 12302 TEST_f_f (rint, 1048576.75, 1048576.0);
12303 TEST_f_f (rint, 2097152.75, 2097152.0);
12304 TEST_f_f (rint, -1048576.75, -1048576.0);
12305 TEST_f_f (rint, -2097152.75, -2097152.0);
12306#ifndef TEST_FLOAT
12307 TEST_f_f (rint, 70368744177664.75, 70368744177664.0);
12308 TEST_f_f (rint, 140737488355328.75, 140737488355328.0);
12309 TEST_f_f (rint, 281474976710656.75, 281474976710656.0);
12310 TEST_f_f (rint, 562949953421312.75, 562949953421312.0);
12311 TEST_f_f (rint, 1125899906842624.75, 1125899906842624.0);
12312 TEST_f_f (rint, -70368744177664.75, -70368744177664.0);
12313 TEST_f_f (rint, -140737488355328.75, -140737488355328.0);
12314 TEST_f_f (rint, -281474976710656.75, -281474976710656.0);
12315 TEST_f_f (rint, -562949953421312.75, -562949953421312.0);
12316 TEST_f_f (rint, -1125899906842624.75, -1125899906842624.0);
12317#endif
5c68d401 12318#ifdef TEST_LDOUBLE
830fce04
RM		 12319 /* The result can only be represented in long double. */
12320 TEST_f_f (rint, 4503599627370495.5L, 4503599627370495.0L);
12321 TEST_f_f (rint, 4503599627370496.25L, 4503599627370496.0L);
12322 TEST_f_f (rint, 4503599627370496.5L, 4503599627370496.0L);
12323 TEST_f_f (rint, 4503599627370496.75L, 4503599627370496.0L);
12324 TEST_f_f (rint, 4503599627370497.5L, 4503599627370497.0L);
5c68d401 12325# if LDBL_MANT_DIG > 100
830fce04
RM		 12326 TEST_f_f (rint, 4503599627370494.5000000000001L, 4503599627370494.0L);
12327 TEST_f_f (rint, 4503599627370495.5000000000001L, 4503599627370495.0L);
12328 TEST_f_f (rint, 4503599627370496.5000000000001L, 4503599627370496.0L);
5c68d401 12329# endif
830fce04
RM		 12330 TEST_f_f (rint, -4503599627370495.5L, -4503599627370495.0L);
12331 TEST_f_f (rint, -4503599627370496.25L, -4503599627370496.0L);
12332 TEST_f_f (rint, -4503599627370496.5L, -4503599627370496.0L);
12333 TEST_f_f (rint, -4503599627370496.75L, -4503599627370496.0L);
12334 TEST_f_f (rint, -4503599627370497.5L, -4503599627370497.0L);
5c68d401 12335# if LDBL_MANT_DIG > 100
830fce04
RM		 12336 TEST_f_f (rint, -4503599627370494.5000000000001L, -4503599627370494.0L);
12337 TEST_f_f (rint, -4503599627370495.5000000000001L, -4503599627370495.0L);
12338 TEST_f_f (rint, -4503599627370496.5000000000001L, -4503599627370496.0L);
12339
12340 TEST_f_f (rint, 9007199254740991.0000000000001L, 9007199254740991.0L);
12341 TEST_f_f (rint, 9007199254740992.0000000000001L, 9007199254740992.0L);
12342 TEST_f_f (rint, 9007199254740993.0000000000001L, 9007199254740993.0L);
12343 TEST_f_f (rint, 9007199254740991.5000000000001L, 9007199254740991.0L);
12344 TEST_f_f (rint, 9007199254740992.5000000000001L, 9007199254740992.0L);
12345 TEST_f_f (rint, 9007199254740993.5000000000001L, 9007199254740993.0L);
12346
12347 TEST_f_f (rint, -9007199254740991.0000000000001L, -9007199254740991.0L);
12348 TEST_f_f (rint, -9007199254740992.0000000000001L, -9007199254740992.0L);
12349 TEST_f_f (rint, -9007199254740993.0000000000001L, -9007199254740993.0L);
12350 TEST_f_f (rint, -9007199254740991.5000000000001L, -9007199254740991.0L);
12351 TEST_f_f (rint, -9007199254740992.5000000000001L, -9007199254740992.0L);
12352 TEST_f_f (rint, -9007199254740993.5000000000001L, -9007199254740993.0L);
5c68d401
RM		 12353# endif
12354#endif
830fce04 12355 }
4d37c8aa 12356
830fce04 12357 fesetround (save_round_mode);
4d37c8aa
UD		 12358
12359 END (rint_towardzero);
12360}
12361
12362static void
12363rint_test_downward (void)
12364{
12365 int save_round_mode;
12366 START (rint_downward);
12367
830fce04 12368 save_round_mode = fegetround ();
4d37c8aa
UD		 12369
12370 if (!fesetround (FE_DOWNWARD))
830fce04
RM		 12371 {
12372 TEST_f_f (rint, 2.0, 2.0);
12373 TEST_f_f (rint, 1.5, 1.0);
12374 TEST_f_f (rint, 1.0, 1.0);
12375 TEST_f_f (rint, 0.5, 0.0);
12376 TEST_f_f (rint, 0.0, 0.0);
12377 TEST_f_f (rint, minus_zero, minus_zero);
12378 TEST_f_f (rint, -0.5, -1.0);
12379 TEST_f_f (rint, -1.0, -1.0);
12380 TEST_f_f (rint, -1.5, -2.0);
12381 TEST_f_f (rint, -2.0, -2.0);
12382 TEST_f_f (rint, 0.1, 0.0);
12383 TEST_f_f (rint, 0.25, 0.0);
12384 TEST_f_f (rint, 0.625, 0.0);
12385 TEST_f_f (rint, -0.1, -1.0);
12386 TEST_f_f (rint, -0.25, -1.0);
12387 TEST_f_f (rint, -0.625, -1.0);
fe45ce09
JM		 12388 TEST_f_f (rint, 1048576.75, 1048576.0);
12389 TEST_f_f (rint, 2097152.75, 2097152.0);
12390 TEST_f_f (rint, -1048576.75, -1048577.0);
12391 TEST_f_f (rint, -2097152.75, -2097153.0);
12392#ifndef TEST_FLOAT
12393 TEST_f_f (rint, 70368744177664.75, 70368744177664.0);
12394 TEST_f_f (rint, 140737488355328.75, 140737488355328.0);
12395 TEST_f_f (rint, 281474976710656.75, 281474976710656.0);
12396 TEST_f_f (rint, 562949953421312.75, 562949953421312.0);
12397 TEST_f_f (rint, 1125899906842624.75, 1125899906842624.0);
12398 TEST_f_f (rint, -70368744177664.75, -70368744177665.0);
12399 TEST_f_f (rint, -140737488355328.75, -140737488355329.0);
12400 TEST_f_f (rint, -281474976710656.75, -281474976710657.0);
12401 TEST_f_f (rint, -562949953421312.75, -562949953421313.0);
12402 TEST_f_f (rint, -1125899906842624.75, -1125899906842625.0);
12403#endif
5c68d401 12404#ifdef TEST_LDOUBLE
830fce04
RM		 12405 /* The result can only be represented in long double. */
12406 TEST_f_f (rint, 4503599627370495.5L, 4503599627370495.0L);
12407 TEST_f_f (rint, 4503599627370496.25L, 4503599627370496.0L);
12408 TEST_f_f (rint, 4503599627370496.5L, 4503599627370496.0L);
12409 TEST_f_f (rint, 4503599627370496.75L, 4503599627370496.0L);
12410 TEST_f_f (rint, 4503599627370497.5L, 4503599627370497.0L);
5c68d401 12411# if LDBL_MANT_DIG > 100
830fce04
RM		 12412 TEST_f_f (rint, 4503599627370494.5000000000001L, 4503599627370494.0L);
12413 TEST_f_f (rint, 4503599627370495.5000000000001L, 4503599627370495.0L);
12414 TEST_f_f (rint, 4503599627370496.5000000000001L, 4503599627370496.0L);
5c68d401 12415# endif
830fce04
RM		 12416 TEST_f_f (rint, -4503599627370495.5L, -4503599627370496.0L);
12417 TEST_f_f (rint, -4503599627370496.25L, -4503599627370497.0L);
12418 TEST_f_f (rint, -4503599627370496.5L, -4503599627370497.0L);
12419 TEST_f_f (rint, -4503599627370496.75L, -4503599627370497.0L);
12420 TEST_f_f (rint, -4503599627370497.5L, -4503599627370498.0L);
5c68d401 12421# if LDBL_MANT_DIG > 100
830fce04
RM		 12422 TEST_f_f (rint, -4503599627370494.5000000000001L, -4503599627370495.0L);
12423 TEST_f_f (rint, -4503599627370495.5000000000001L, -4503599627370496.0L);
12424 TEST_f_f (rint, -4503599627370496.5000000000001L, -4503599627370497.0L);
12425
12426 TEST_f_f (rint, 9007199254740991.0000000000001L, 9007199254740991.0L);
12427 TEST_f_f (rint, 9007199254740992.0000000000001L, 9007199254740992.0L);
12428 TEST_f_f (rint, 9007199254740993.0000000000001L, 9007199254740993.0L);
12429 TEST_f_f (rint, 9007199254740991.5000000000001L, 9007199254740991.0L);
12430 TEST_f_f (rint, 9007199254740992.5000000000001L, 9007199254740992.0L);
12431 TEST_f_f (rint, 9007199254740993.5000000000001L, 9007199254740993.0L);
12432
12433 TEST_f_f (rint, -9007199254740991.0000000000001L, -9007199254740992.0L);
12434 TEST_f_f (rint, -9007199254740992.0000000000001L, -9007199254740993.0L);
12435 TEST_f_f (rint, -9007199254740993.0000000000001L, -9007199254740994.0L);
12436 TEST_f_f (rint, -9007199254740991.5000000000001L, -9007199254740992.0L);
12437 TEST_f_f (rint, -9007199254740992.5000000000001L, -9007199254740993.0L);
12438 TEST_f_f (rint, -9007199254740993.5000000000001L, -9007199254740994.0L);
5c68d401
RM		 12439# endif
12440#endif
830fce04 12441 }
4d37c8aa 12442
830fce04 12443 fesetround (save_round_mode);
4d37c8aa
UD		 12444
12445 END (rint_downward);
12446}
12447
12448static void
12449rint_test_upward (void)
12450{
12451 int save_round_mode;
12452 START (rint_upward);
12453
830fce04 12454 save_round_mode = fegetround ();
4d37c8aa
UD		 12455
12456 if (!fesetround (FE_UPWARD))
830fce04
RM		 12457 {
12458 TEST_f_f (rint, 2.0, 2.0);
12459 TEST_f_f (rint, 1.5, 2.0);
12460 TEST_f_f (rint, 1.0, 1.0);
12461 TEST_f_f (rint, 0.5, 1.0);
12462 TEST_f_f (rint, 0.0, 0.0);
12463 TEST_f_f (rint, minus_zero, minus_zero);
12464 TEST_f_f (rint, -0.5, -0.0);
12465 TEST_f_f (rint, -1.0, -1.0);
12466 TEST_f_f (rint, -1.5, -1.0);
12467 TEST_f_f (rint, -2.0, -2.0);
12468 TEST_f_f (rint, 0.1, 1.0);
12469 TEST_f_f (rint, 0.25, 1.0);
12470 TEST_f_f (rint, 0.625, 1.0);
12471 TEST_f_f (rint, -0.1, -0.0);
12472 TEST_f_f (rint, -0.25, -0.0);
12473 TEST_f_f (rint, -0.625, -0.0);
fe45ce09
JM		 12474 TEST_f_f (rint, 1048576.75, 1048577.0);
12475 TEST_f_f (rint, 2097152.75, 2097153.0);
12476 TEST_f_f (rint, -1048576.75, -1048576.0);
12477 TEST_f_f (rint, -2097152.75, -2097152.0);
12478#ifndef TEST_FLOAT
12479 TEST_f_f (rint, 70368744177664.75, 70368744177665.0);
12480 TEST_f_f (rint, 140737488355328.75, 140737488355329.0);
12481 TEST_f_f (rint, 281474976710656.75, 281474976710657.0);
12482 TEST_f_f (rint, 562949953421312.75, 562949953421313.0);
12483 TEST_f_f (rint, 1125899906842624.75, 1125899906842625.0);
12484 TEST_f_f (rint, -70368744177664.75, -70368744177664.0);
12485 TEST_f_f (rint, -140737488355328.75, -140737488355328.0);
12486 TEST_f_f (rint, -281474976710656.75, -281474976710656.0);
12487 TEST_f_f (rint, -562949953421312.75, -562949953421312.0);
12488 TEST_f_f (rint, -1125899906842624.75, -1125899906842624.0);
12489#endif
5c68d401 12490#ifdef TEST_LDOUBLE
830fce04
RM		 12491 /* The result can only be represented in long double. */
12492 TEST_f_f (rint, 4503599627370495.5L, 4503599627370496.0L);
12493 TEST_f_f (rint, 4503599627370496.25L, 4503599627370497.0L);
12494 TEST_f_f (rint, 4503599627370496.5L, 4503599627370497.0L);
12495 TEST_f_f (rint, 4503599627370496.75L, 4503599627370497.0L);
12496 TEST_f_f (rint, 4503599627370497.5L, 4503599627370498.0L);
5c68d401 12497# if LDBL_MANT_DIG > 100
830fce04
RM		 12498 TEST_f_f (rint, 4503599627370494.5000000000001L, 4503599627370495.0L);
12499 TEST_f_f (rint, 4503599627370495.5000000000001L, 4503599627370496.0L);
12500 TEST_f_f (rint, 4503599627370496.5000000000001L, 4503599627370497.0L);
5c68d401 12501# endif
830fce04
RM		 12502 TEST_f_f (rint, -4503599627370495.5L, -4503599627370495.0L);
12503 TEST_f_f (rint, -4503599627370496.25L, -4503599627370496.0L);
12504 TEST_f_f (rint, -4503599627370496.5L, -4503599627370496.0L);
12505 TEST_f_f (rint, -4503599627370496.75L, -4503599627370496.0L);
12506 TEST_f_f (rint, -4503599627370497.5L, -4503599627370497.0L);
5c68d401 12507# if LDBL_MANT_DIG > 100
830fce04
RM		 12508 TEST_f_f (rint, -4503599627370494.5000000000001L, -4503599627370494.0L);
12509 TEST_f_f (rint, -4503599627370495.5000000000001L, -4503599627370495.0L);
12510 TEST_f_f (rint, -4503599627370496.5000000000001L, -4503599627370496.0L);
12511
12512 TEST_f_f (rint, 9007199254740991.0000000000001L, 9007199254740992.0L);
12513 TEST_f_f (rint, 9007199254740992.0000000000001L, 9007199254740993.0L);
12514 TEST_f_f (rint, 9007199254740993.0000000000001L, 9007199254740994.0L);
12515 TEST_f_f (rint, 9007199254740991.5000000000001L, 9007199254740992.0L);
12516 TEST_f_f (rint, 9007199254740992.5000000000001L, 9007199254740993.0L);
12517 TEST_f_f (rint, 9007199254740993.5000000000001L, 9007199254740994.0L);
12518
12519 TEST_f_f (rint, -9007199254740991.0000000000001L, -9007199254740991.0L);
12520 TEST_f_f (rint, -9007199254740992.0000000000001L, -9007199254740992.0L);
12521 TEST_f_f (rint, -9007199254740993.0000000000001L, -9007199254740993.0L);
12522 TEST_f_f (rint, -9007199254740991.5000000000001L, -9007199254740991.0L);
12523 TEST_f_f (rint, -9007199254740992.5000000000001L, -9007199254740992.0L);
12524 TEST_f_f (rint, -9007199254740993.5000000000001L, -9007199254740993.0L);
5c68d401
RM		 12525# endif
12526#endif
830fce04 12527 }
4d37c8aa 12528
830fce04 12529 fesetround (save_round_mode);
4d37c8aa
UD		 12530
12531 END (rint_upward);
12532}
12533
8847214f
UD		 12534static void
12535round_test (void)
12536{
64d063b8
TS		 12537 /* TODO: missing +/-Inf as well as qNaN tests. */
12538
8847214f
UD		 12539 START (round);
12540
12541 TEST_f_f (round, 0, 0);
12542 TEST_f_f (round, minus_zero, minus_zero);
3c6cad26
UD		 12543 TEST_f_f (round, 0.2L, 0.0);
12544 TEST_f_f (round, -0.2L, minus_zero);
8847214f
UD		 12545 TEST_f_f (round, 0.5, 1.0);
12546 TEST_f_f (round, -0.5, -1.0);
3c6cad26
UD		 12547 TEST_f_f (round, 0.8L, 1.0);
12548 TEST_f_f (round, -0.8L, -1.0);
8847214f
UD		 12549 TEST_f_f (round, 1.5, 2.0);
12550 TEST_f_f (round, -1.5, -2.0);
5c68d401
RM		 12551 TEST_f_f (round, 0.1, 0.0);
12552 TEST_f_f (round, 0.25, 0.0);
12553 TEST_f_f (round, 0.625, 1.0);
12554 TEST_f_f (round, -0.1, -0.0);
12555 TEST_f_f (round, -0.25, -0.0);
12556 TEST_f_f (round, -0.625, -1.0);
8847214f
UD		 12557 TEST_f_f (round, 2097152.5, 2097153);
12558 TEST_f_f (round, -2097152.5, -2097153);
12559
f964490f
RM		 12560#ifdef TEST_LDOUBLE
12561 /* The result can only be represented in long double. */
12562 TEST_f_f (round, 4503599627370495.5L, 4503599627370496.0L);
12563 TEST_f_f (round, 4503599627370496.25L, 4503599627370496.0L);
830fce04 12564 TEST_f_f (round, 4503599627370496.5L, 4503599627370497.0L);
f964490f 12565 TEST_f_f (round, 4503599627370496.75L, 4503599627370497.0L);
5c68d401
RM		 12566 TEST_f_f (round, 4503599627370497.5L, 4503599627370498.0L);
12567# if LDBL_MANT_DIG > 100
12568 TEST_f_f (round, 4503599627370494.5000000000001L, 4503599627370495.0L);
12569 TEST_f_f (round, 4503599627370495.5000000000001L, 4503599627370496.0L);
12570 TEST_f_f (round, 4503599627370496.5000000000001L, 4503599627370497.0L);
12571# endif
f964490f 12572
830fce04
RM		 12573 TEST_f_f (round, -4503599627370495.5L, -4503599627370496.0L);
12574 TEST_f_f (round, -4503599627370496.25L, -4503599627370496.0L);
f964490f 12575 TEST_f_f (round, -4503599627370496.5L, -4503599627370497.0L);
830fce04 12576 TEST_f_f (round, -4503599627370496.75L, -4503599627370497.0L);
f964490f 12577 TEST_f_f (round, -4503599627370497.5L, -4503599627370498.0L);
5c68d401
RM		 12578# if LDBL_MANT_DIG > 100
12579 TEST_f_f (round, -4503599627370494.5000000000001L, -4503599627370495.0L);
12580 TEST_f_f (round, -4503599627370495.5000000000001L, -4503599627370496.0L);
12581 TEST_f_f (round, -4503599627370496.5000000000001L, -4503599627370497.0L);
12582# endif
f964490f
RM		 12583
12584 TEST_f_f (round, 9007199254740991.5L, 9007199254740992.0L);
12585 TEST_f_f (round, 9007199254740992.25L, 9007199254740992.0L);
12586 TEST_f_f (round, 9007199254740992.5L, 9007199254740993.0L);
12587 TEST_f_f (round, 9007199254740992.75L, 9007199254740993.0L);
12588 TEST_f_f (round, 9007199254740993.5L, 9007199254740994.0L);
12589
12590 TEST_f_f (round, -9007199254740991.5L, -9007199254740992.0L);
12591 TEST_f_f (round, -9007199254740992.25L, -9007199254740992.0L);
12592 TEST_f_f (round, -9007199254740992.5L, -9007199254740993.0L);
12593 TEST_f_f (round, -9007199254740992.75L, -9007199254740993.0L);
12594 TEST_f_f (round, -9007199254740993.5L, -9007199254740994.0L);
12595
5c68d401
RM		 12596# if LDBL_MANT_DIG > 100
12597 TEST_f_f (round, 9007199254740991.0000000000001L, 9007199254740991.0L);
12598 TEST_f_f (round, 9007199254740992.0000000000001L, 9007199254740992.0L);
12599 TEST_f_f (round, 9007199254740993.0000000000001L, 9007199254740993.0L);
12600 TEST_f_f (round, 9007199254740991.5000000000001L, 9007199254740992.0L);
12601 TEST_f_f (round, 9007199254740992.5000000000001L, 9007199254740993.0L);
12602 TEST_f_f (round, 9007199254740993.5000000000001L, 9007199254740994.0L);
12603
12604 TEST_f_f (round, -9007199254740991.0000000000001L, -9007199254740991.0L);
12605 TEST_f_f (round, -9007199254740992.0000000000001L, -9007199254740992.0L);
12606 TEST_f_f (round, -9007199254740993.0000000000001L, -9007199254740993.0L);
12607 TEST_f_f (round, -9007199254740991.5000000000001L, -9007199254740992.0L);
12608 TEST_f_f (round, -9007199254740992.5000000000001L, -9007199254740993.0L);
12609 TEST_f_f (round, -9007199254740993.5000000000001L, -9007199254740994.0L);
12610# endif
12611
f964490f
RM		 12612 TEST_f_f (round, 72057594037927935.5L, 72057594037927936.0L);
12613 TEST_f_f (round, 72057594037927936.25L, 72057594037927936.0L);
12614 TEST_f_f (round, 72057594037927936.5L, 72057594037927937.0L);
12615 TEST_f_f (round, 72057594037927936.75L, 72057594037927937.0L);
12616 TEST_f_f (round, 72057594037927937.5L, 72057594037927938.0L);
12617
12618 TEST_f_f (round, -72057594037927935.5L, -72057594037927936.0L);
12619 TEST_f_f (round, -72057594037927936.25L, -72057594037927936.0L);
12620 TEST_f_f (round, -72057594037927936.5L, -72057594037927937.0L);
12621 TEST_f_f (round, -72057594037927936.75L, -72057594037927937.0L);
12622 TEST_f_f (round, -72057594037927937.5L, -72057594037927938.0L);
12623
12624 TEST_f_f (round, 10141204801825835211973625643007.5L, 10141204801825835211973625643008.0L);
12625 TEST_f_f (round, 10141204801825835211973625643008.25L, 10141204801825835211973625643008.0L);
12626 TEST_f_f (round, 10141204801825835211973625643008.5L, 10141204801825835211973625643009.0L);
12627 TEST_f_f (round, 10141204801825835211973625643008.75L, 10141204801825835211973625643009.0L);
12628 TEST_f_f (round, 10141204801825835211973625643009.5L, 10141204801825835211973625643010.0L);
12629#endif
12630
8847214f
UD		 12631 END (round);
12632}
12633
12634
12635static void
12636scalb_test (void)
12637{
12638
12639 START (scalb);
12640
67e971f1
TS		 12641 TEST_ff_f (scalb, 2.0, 0.5, qnan_value, INVALID_EXCEPTION);
12642 TEST_ff_f (scalb, 3.0, -2.5, qnan_value, INVALID_EXCEPTION);
8847214f 12643
67e971f1
TS		 12644 TEST_ff_f (scalb, 0, qnan_value, qnan_value);
12645 TEST_ff_f (scalb, 1, qnan_value, qnan_value);
8847214f
UD		 12646
12647 TEST_ff_f (scalb, 1, 0, 1);
12648 TEST_ff_f (scalb, -1, 0, -1);
12649
67e971f1
TS		 12650 TEST_ff_f (scalb, 0, plus_infty, qnan_value, INVALID_EXCEPTION);
12651 TEST_ff_f (scalb, minus_zero, plus_infty, qnan_value, INVALID_EXCEPTION);
8847214f
UD		 12652
12653 TEST_ff_f (scalb, 0, 2, 0);
12654 TEST_ff_f (scalb, minus_zero, -4, minus_zero);
12655 TEST_ff_f (scalb, 0, 0, 0);
12656 TEST_ff_f (scalb, minus_zero, 0, minus_zero);
12657 TEST_ff_f (scalb, 0, -1, 0);
12658 TEST_ff_f (scalb, minus_zero, -10, minus_zero);
12659 TEST_ff_f (scalb, 0, minus_infty, 0);
12660 TEST_ff_f (scalb, minus_zero, minus_infty, minus_zero);
12661
12662 TEST_ff_f (scalb, plus_infty, -1, plus_infty);
12663 TEST_ff_f (scalb, minus_infty, -10, minus_infty);
12664 TEST_ff_f (scalb, plus_infty, 0, plus_infty);
12665 TEST_ff_f (scalb, minus_infty, 0, minus_infty);
12666 TEST_ff_f (scalb, plus_infty, 2, plus_infty);
12667 TEST_ff_f (scalb, minus_infty, 100, minus_infty);
12668
3c6cad26
UD		 12669 TEST_ff_f (scalb, 0.1L, minus_infty, 0.0);
12670 TEST_ff_f (scalb, -0.1L, minus_infty, minus_zero);
8847214f
UD		 12671
12672 TEST_ff_f (scalb, 1, plus_infty, plus_infty);
12673 TEST_ff_f (scalb, -1, plus_infty, minus_infty);
12674 TEST_ff_f (scalb, plus_infty, plus_infty, plus_infty);
12675 TEST_ff_f (scalb, minus_infty, plus_infty, minus_infty);
12676
67e971f1
TS		 12677 TEST_ff_f (scalb, plus_infty, minus_infty, qnan_value, INVALID_EXCEPTION);
12678 TEST_ff_f (scalb, minus_infty, minus_infty, qnan_value, INVALID_EXCEPTION);
8847214f 12679
67e971f1
TS		 12680 TEST_ff_f (scalb, qnan_value, 1, qnan_value);
12681 TEST_ff_f (scalb, 1, qnan_value, qnan_value);
12682 TEST_ff_f (scalb, qnan_value, 0, qnan_value);
12683 TEST_ff_f (scalb, 0, qnan_value, qnan_value);
12684 TEST_ff_f (scalb, qnan_value, plus_infty, qnan_value);
12685 TEST_ff_f (scalb, plus_infty, qnan_value, qnan_value);
12686 TEST_ff_f (scalb, qnan_value, qnan_value, qnan_value);
8847214f
UD		 12687
12688 TEST_ff_f (scalb, 0.8L, 4, 12.8L);
12689 TEST_ff_f (scalb, -0.854375L, 5, -27.34L);
12690
12691 END (scalb);
12692}
12693
12694
12695static void
12696scalbn_test (void)
12697{
12698
12699 START (scalbn);
12700
12701 TEST_fi_f (scalbn, 0, 0, 0);
12702 TEST_fi_f (scalbn, minus_zero, 0, minus_zero);
12703
12704 TEST_fi_f (scalbn, plus_infty, 1, plus_infty);
12705 TEST_fi_f (scalbn, minus_infty, 1, minus_infty);
67e971f1 12706 TEST_fi_f (scalbn, qnan_value, 1, qnan_value);
8847214f
UD		 12707
12708 TEST_fi_f (scalbn, 0.8L, 4, 12.8L);
12709 TEST_fi_f (scalbn, -0.854375L, 5, -27.34L);
12710
12711 TEST_fi_f (scalbn, 1, 0L, 1);
12712
c135cc1b 12713 TEST_fi_f (scalbn, 1, INT_MAX, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 12714 TEST_fi_f (scalbn, 1, INT_MIN, plus_zero, UNDERFLOW_EXCEPTION);
c135cc1b 12715 TEST_fi_f (scalbn, max_value, INT_MAX, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 12716 TEST_fi_f (scalbn, max_value, INT_MIN, plus_zero, UNDERFLOW_EXCEPTION);
c135cc1b 12717 TEST_fi_f (scalbn, min_value, INT_MAX, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 12718 TEST_fi_f (scalbn, min_value, INT_MIN, plus_zero, UNDERFLOW_EXCEPTION);
c135cc1b 12719 TEST_fi_f (scalbn, min_value / 4, INT_MAX, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 12720 TEST_fi_f (scalbn, min_value / 4, INT_MIN, plus_zero, UNDERFLOW_EXCEPTION);
a6d06d7b 12721
8847214f
UD		 12722 END (scalbn);
12723}
12724
2550dfe9 12725
8847214f
UD		 12726static void
12727scalbln_test (void)
12728{
12729
12730 START (scalbln);
12731
12732 TEST_fl_f (scalbln, 0, 0, 0);
12733 TEST_fl_f (scalbln, minus_zero, 0, minus_zero);
12734
12735 TEST_fl_f (scalbln, plus_infty, 1, plus_infty);
12736 TEST_fl_f (scalbln, minus_infty, 1, minus_infty);
67e971f1 12737 TEST_fl_f (scalbln, qnan_value, 1, qnan_value);
8847214f
UD		 12738
12739 TEST_fl_f (scalbln, 0.8L, 4, 12.8L);
12740 TEST_fl_f (scalbln, -0.854375L, 5, -27.34L);
12741
12742 TEST_fl_f (scalbln, 1, 0L, 1);
12743
c135cc1b 12744 TEST_fi_f (scalbln, 1, INT_MAX, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 12745 TEST_fi_f (scalbln, 1, INT_MIN, plus_zero, UNDERFLOW_EXCEPTION);
c135cc1b 12746 TEST_fi_f (scalbln, max_value, INT_MAX, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 12747 TEST_fi_f (scalbln, max_value, INT_MIN, plus_zero, UNDERFLOW_EXCEPTION);
c135cc1b 12748 TEST_fi_f (scalbln, min_value, INT_MAX, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 12749 TEST_fi_f (scalbln, min_value, INT_MIN, plus_zero, UNDERFLOW_EXCEPTION);
c135cc1b 12750 TEST_fi_f (scalbln, min_value / 4, INT_MAX, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 12751 TEST_fi_f (scalbln, min_value / 4, INT_MIN, plus_zero, UNDERFLOW_EXCEPTION);
a6d06d7b 12752
c135cc1b 12753 TEST_fi_f (scalbln, 1, LONG_MAX, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 12754 TEST_fi_f (scalbln, 1, LONG_MIN, plus_zero, UNDERFLOW_EXCEPTION);
c135cc1b 12755 TEST_fi_f (scalbln, max_value, LONG_MAX, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 12756 TEST_fi_f (scalbln, max_value, LONG_MIN, plus_zero, UNDERFLOW_EXCEPTION);
c135cc1b 12757 TEST_fi_f (scalbln, min_value, LONG_MAX, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 12758 TEST_fi_f (scalbln, min_value, LONG_MIN, plus_zero, UNDERFLOW_EXCEPTION);
c135cc1b 12759 TEST_fi_f (scalbln, min_value / 4, LONG_MAX, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 12760 TEST_fi_f (scalbln, min_value / 4, LONG_MIN, plus_zero, UNDERFLOW_EXCEPTION);
a6d06d7b
JM		 12761
12762#if LONG_MAX >= 0x100000000
c135cc1b 12763 TEST_fi_f (scalbln, 1, 0x88000000L, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 12764 TEST_fi_f (scalbln, 1, -0x88000000L, plus_zero, UNDERFLOW_EXCEPTION);
c135cc1b 12765 TEST_fi_f (scalbln, max_value, 0x88000000L, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 12766 TEST_fi_f (scalbln, max_value, -0x88000000L, plus_zero, UNDERFLOW_EXCEPTION);
c135cc1b 12767 TEST_fi_f (scalbln, min_value, 0x88000000L, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 12768 TEST_fi_f (scalbln, min_value, -0x88000000L, plus_zero, UNDERFLOW_EXCEPTION);
c135cc1b 12769 TEST_fi_f (scalbln, min_value / 4, 0x88000000L, plus_infty, OVERFLOW_EXCEPTION);
80bad0cc 12770 TEST_fi_f (scalbln, min_value / 4, -0x88000000L, plus_zero, UNDERFLOW_EXCEPTION);
a6d06d7b
JM		 12771#endif
12772
8847214f
UD		 12773 END (scalbn);
12774}
12775
2550dfe9 12776
8847214f
UD		 12777static void
12778signbit_test (void)
12779{
64d063b8 12780 /* TODO: missing qNaN tests. */
8847214f
UD		 12781
12782 START (signbit);
12783
12784 TEST_f_b (signbit, 0, 0);
12785 TEST_f_b (signbit, minus_zero, 1);
12786 TEST_f_b (signbit, plus_infty, 0);
12787 TEST_f_b (signbit, minus_infty, 1);
12788
12789 /* signbit (x) != 0 for x < 0. */
12790 TEST_f_b (signbit, -1, 1);
12791 /* signbit (x) == 0 for x >= 0. */
12792 TEST_f_b (signbit, 1, 0);
12793
12794 END (signbit);
12795}
12796
2550dfe9 12797
8847214f
UD		 12798static void
12799sin_test (void)
12800{
e6d3c4a7
AJ		 12801 errno = 0;
12802 FUNC(sin) (0);
12803 if (errno == ENOSYS)
12804 /* Function not implemented. */
12805 return;
12806
8847214f
UD		 12807 START (sin);
12808
12809 TEST_f_f (sin, 0, 0);
12810 TEST_f_f (sin, minus_zero, minus_zero);
f2da7793
JM		 12811 TEST_f_f (sin, plus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
12812 TEST_f_f (sin, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
12813 TEST_f_f (sin, qnan_value, qnan_value, ERRNO_UNCHANGED);
8847214f
UD		 12814
12815 TEST_f_f (sin, M_PI_6l, 0.5);
12816 TEST_f_f (sin, -M_PI_6l, -0.5);
12817 TEST_f_f (sin, M_PI_2l, 1);
12818 TEST_f_f (sin, -M_PI_2l, -1);
2550dfe9 12819 TEST_f_f (sin, 0.75L, 0.681638760023334166733241952779893935L);
8847214f 12820
ea40808a
AJ		 12821 TEST_f_f (sin, 0x1p65, -0.047183876212354673805106149805700013943218L);
12822 TEST_f_f (sin, -0x1p65, 0.047183876212354673805106149805700013943218L);
8c0247db 12823
7a845b2c
JM		 12824 TEST_f_f (sin, 0x1.7f4134p+103, -6.6703229329788657073304190650534846045235e-08L);
12825
d32e4346
RM		 12826#ifdef TEST_DOUBLE
12827 TEST_f_f (sin, 0.80190127184058835, 0.71867942238767868);
cb95113e 12828 TEST_f_f (sin, 2.522464e-1, 2.4957989804940911e-1);
8848d99d
JM		 12829#endif
12830
12831#ifndef TEST_FLOAT
12832 TEST_f_f (sin, 1e22, -0.8522008497671888017727058937530293682618L);
12833 TEST_f_f (sin, 0x1p1023, 0.5631277798508840134529434079444683477104L);
12834#endif
12835
12836#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
12837 TEST_f_f (sin, 0x1p16383L, 0.3893629985894208126948115852610595405563L);
d32e4346
RM		 12838#endif
12839
4ffffbd2
LD		 12840 TEST_f_f (sin, 0x1p+120, 3.77820109360752022655548470056922991960587e-01L);
12841 TEST_f_f (sin, 0x1p+127, 6.23385512955870240370428801097126489001833e-01L);
12842 TEST_f_f (sin, 0x1.fffff8p+127, 4.85786063130487339701113680434728152037092e-02L);
12843 TEST_f_f (sin, 0x1.fffffep+127, -5.21876523333658540551505357019806722935726e-01L);
12844 TEST_f_f (sin, 0x1p+50, 4.96396515208940840876821859865411368093356e-01L);
12845 TEST_f_f (sin, 0x1p+28, -9.86198211836975655703110310527108292055548e-01L);
12846
8847214f
UD		 12847 END (sin);
12848
12849}
12850
2550dfe9 12851
804360ed
JM		 12852static void
12853sin_test_tonearest (void)
12854{
12855 int save_round_mode;
12856 errno = 0;
12857 FUNC(sin) (0);
12858 if (errno == ENOSYS)
12859 /* Function not implemented. */
12860 return;
12861
12862 START (sin_tonearest);
12863
12864 save_round_mode = fegetround ();
12865
12866 if (!fesetround (FE_TONEAREST))
12867 {
12868 TEST_f_f (sin, 1, 0.8414709848078965066525023216302989996226L);
12869 TEST_f_f (sin, 2, 0.9092974268256816953960198659117448427023L);
12870 TEST_f_f (sin, 3, 0.1411200080598672221007448028081102798469L);
12871 TEST_f_f (sin, 4, -0.7568024953079282513726390945118290941359L);
12872 TEST_f_f (sin, 5, -0.9589242746631384688931544061559939733525L);
12873 TEST_f_f (sin, 6, -0.2794154981989258728115554466118947596280L);
12874 TEST_f_f (sin, 7, 0.6569865987187890903969990915936351779369L);
12875 TEST_f_f (sin, 8, 0.9893582466233817778081235982452886721164L);
12876 TEST_f_f (sin, 9, 0.4121184852417565697562725663524351793439L);
12877 TEST_f_f (sin, 10, -0.5440211108893698134047476618513772816836L);
12878 }
12879
12880 fesetround (save_round_mode);
12881
12882 END (sin_tonearest);
12883}
12884
12885
12886static void
12887sin_test_towardzero (void)
12888{
12889 int save_round_mode;
12890 errno = 0;
12891 FUNC(sin) (0);
12892 if (errno == ENOSYS)
12893 /* Function not implemented. */
12894 return;
12895
12896 START (sin_towardzero);
12897
12898 save_round_mode = fegetround ();
12899
12900 if (!fesetround (FE_TOWARDZERO))
12901 {
12902 TEST_f_f (sin, 1, 0.8414709848078965066525023216302989996226L);
12903 TEST_f_f (sin, 2, 0.9092974268256816953960198659117448427023L);
12904 TEST_f_f (sin, 3, 0.1411200080598672221007448028081102798469L);
12905 TEST_f_f (sin, 4, -0.7568024953079282513726390945118290941359L);
12906 TEST_f_f (sin, 5, -0.9589242746631384688931544061559939733525L);
12907 TEST_f_f (sin, 6, -0.2794154981989258728115554466118947596280L);
12908 TEST_f_f (sin, 7, 0.6569865987187890903969990915936351779369L);
12909 TEST_f_f (sin, 8, 0.9893582466233817778081235982452886721164L);
12910 TEST_f_f (sin, 9, 0.4121184852417565697562725663524351793439L);
12911 TEST_f_f (sin, 10, -0.5440211108893698134047476618513772816836L);
12912 }
12913
12914 fesetround (save_round_mode);
12915
12916 END (sin_towardzero);
12917}
12918
12919
12920static void
12921sin_test_downward (void)
12922{
12923 int save_round_mode;
12924 errno = 0;
12925 FUNC(sin) (0);
12926 if (errno == ENOSYS)
12927 /* Function not implemented. */
12928 return;
12929
12930 START (sin_downward);
12931
12932 save_round_mode = fegetround ();
12933
12934 if (!fesetround (FE_DOWNWARD))
12935 {
12936 TEST_f_f (sin, 1, 0.8414709848078965066525023216302989996226L);
12937 TEST_f_f (sin, 2, 0.9092974268256816953960198659117448427023L);
12938 TEST_f_f (sin, 3, 0.1411200080598672221007448028081102798469L);
12939 TEST_f_f (sin, 4, -0.7568024953079282513726390945118290941359L);
12940 TEST_f_f (sin, 5, -0.9589242746631384688931544061559939733525L);
12941 TEST_f_f (sin, 6, -0.2794154981989258728115554466118947596280L);
12942 TEST_f_f (sin, 7, 0.6569865987187890903969990915936351779369L);
12943 TEST_f_f (sin, 8, 0.9893582466233817778081235982452886721164L);
12944 TEST_f_f (sin, 9, 0.4121184852417565697562725663524351793439L);
12945 TEST_f_f (sin, 10, -0.5440211108893698134047476618513772816836L);
12946 }
12947
12948 fesetround (save_round_mode);
12949
12950 END (sin_downward);
12951}
12952
12953
12954static void
12955sin_test_upward (void)
12956{
12957 int save_round_mode;
12958 errno = 0;
12959 FUNC(sin) (0);
12960 if (errno == ENOSYS)
12961 /* Function not implemented. */
12962 return;
12963
12964 START (sin_upward);
12965
12966 save_round_mode = fegetround ();
12967
12968 if (!fesetround (FE_UPWARD))
12969 {
12970 TEST_f_f (sin, 1, 0.8414709848078965066525023216302989996226L);
12971 TEST_f_f (sin, 2, 0.9092974268256816953960198659117448427023L);
12972 TEST_f_f (sin, 3, 0.1411200080598672221007448028081102798469L);
12973 TEST_f_f (sin, 4, -0.7568024953079282513726390945118290941359L);
12974 TEST_f_f (sin, 5, -0.9589242746631384688931544061559939733525L);
12975 TEST_f_f (sin, 6, -0.2794154981989258728115554466118947596280L);
12976 TEST_f_f (sin, 7, 0.6569865987187890903969990915936351779369L);
12977 TEST_f_f (sin, 8, 0.9893582466233817778081235982452886721164L);
12978 TEST_f_f (sin, 9, 0.4121184852417565697562725663524351793439L);
12979 TEST_f_f (sin, 10, -0.5440211108893698134047476618513772816836L);
12980 }
12981
12982 fesetround (save_round_mode);
12983
12984 END (sin_upward);
12985}
12986
12987
8847214f
UD		 12988static void
12989sincos_test (void)
12990{
12991 FLOAT sin_res, cos_res;
12992
aaca11d8
UD		 12993 errno = 0;
12994 FUNC(sincos) (0, &sin_res, &cos_res);
12995 if (errno == ENOSYS)
12996 /* Function not implemented. */
12997 return;
12998
8847214f
UD		 12999 START (sincos);
13000
13001 /* sincos is treated differently because it returns void. */
13002 TEST_extra (sincos, 0, 0, 1);
13003
13004 TEST_extra (sincos, minus_zero, minus_zero, 1);
67e971f1
TS		 13005 TEST_extra (sincos, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
13006 TEST_extra (sincos, minus_infty, qnan_value, qnan_value, INVALID_EXCEPTION);
13007 TEST_extra (sincos, qnan_value, qnan_value, qnan_value);
8847214f 13008
aba5e333
CD		 13009 /* The value of M_PI_2l is never exactly PI/2, and therefore the
13010 answer is never exactly zero. The answer is equal to the error
13011 in rounding PI/2 for the type used. Thus the answer is unique
13012 to each type. */
13013#ifdef TEST_FLOAT
13014 /* 32-bit float. */
418601aa 13015 TEST_extra (sincos, M_PI_2l, 1, -0x1.777a5cp-25L);
aba5e333
CD		 13016#endif
13017#if defined TEST_DOUBLE || (defined TEST_LDOUBLE && LDBL_MANT_DIG == 53)
13018 /* 64-bit double or 64-bit long double. */
418601aa 13019 TEST_extra (sincos, M_PI_2l, 1, 0x1.1a62633145c07p-54L);
aba5e333
CD		 13020#endif
13021#if defined TEST_LDOUBLE && LDBL_MANT_DIG == 64
13022 /* 96-bit long double. */
418601aa 13023 TEST_extra (sincos, M_PI_2l, 1, -0xe.ce675d1fc8f8cbbp-69L);
aba5e333
CD		 13024#endif
13025#if defined TEST_LDOUBLE && LDBL_MANT_DIG == 106
13026 /* 128-bit IBM long double. */
418601aa 13027 TEST_extra (sincos, M_PI_2l, 1, 0x1.c1cd129024e088a67cc74020bcp-107L);
aba5e333
CD		 13028#endif
13029#if defined TEST_LDOUBLE && LDBL_MANT_DIG == 113
13030 /* 128-bit long double. */
418601aa 13031 TEST_extra (sincos, M_PI_2l, 1, 0x1.cd129024e088a67cc74020bbea64p-115L);
aba5e333
CD		 13032#endif
13033
3c6cad26
UD		 13034 TEST_extra (sincos, M_PI_6l, 0.5, 0.86602540378443864676372317075293616L);
13035 TEST_extra (sincos, M_PI_6l*2.0, 0.86602540378443864676372317075293616L, 0.5);
2550dfe9 13036 TEST_extra (sincos, 0.75L, 0.681638760023334166733241952779893935L, 0.731688868873820886311838753000084544L);
8847214f 13037
ea40808a
AJ		 13038 TEST_extra (sincos, 0x1p65, -0.047183876212354673805106149805700013943218L, 0.99888622066058013610642172179340364209972L);
13039 TEST_extra (sincos, -0x1p65, 0.047183876212354673805106149805700013943218L, 0.99888622066058013610642172179340364209972L);
8c0247db 13040
d32e4346
RM		 13041#ifdef TEST_DOUBLE
13042 TEST_extra (sincos, 0.80190127184058835, 0.71867942238767868, 0.69534156199418473);
8848d99d
JM		 13043#endif
13044
13045#ifndef TEST_FLOAT
13046 TEST_extra (sincos, 1e22, -0.8522008497671888017727058937530293682618L, 0.5232147853951389454975944733847094921409L);
13047 TEST_extra (sincos, 0x1p1023, 0.5631277798508840134529434079444683477104L, -0.826369834614147994500785680811743734805L);
13048#endif
13049
13050#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
13051 TEST_extra (sincos, 0x1p16383L, 0.3893629985894208126948115852610595405563L, 0.9210843909921906206874509522505756251609L);
d32e4346
RM		 13052#endif
13053
4ffffbd2
LD		 13054 TEST_extra (sincos, 0x1p+120, 3.77820109360752022655548470056922991960587e-01L, -9.25879022854837867303861764107414946730833e-01L);
13055 TEST_extra (sincos, 0x1p+127, 6.23385512955870240370428801097126489001833e-01L, 7.81914638714960072263910298466369236613162e-01L);
13056 TEST_extra (sincos, 0x1.fffff8p+127, 4.85786063130487339701113680434728152037092e-02L, 9.98819362551949040703862043664101081064641e-01L);
13057 TEST_extra (sincos, 0x1.fffffep+127, -5.21876523333658540551505357019806722935726e-01L, 8.53021039830304158051791467692161107353094e-01L);
13058 TEST_extra (sincos, 0x1p+50, 4.96396515208940840876821859865411368093356e-01L, 8.68095904660550604334592502063501320395739e-01L);
13059 TEST_extra (sincos, 0x1p+28, -9.86198211836975655703110310527108292055548e-01L, -1.65568979490578758865468278195361551113358e-01L);
13060
8847214f
UD		 13061 END (sincos);
13062}
13063
13064static void
13065sinh_test (void)
13066{
aaca11d8 13067 errno = 0;
3c6cad26 13068 FUNC(sinh) (0.7L);
aaca11d8
UD		 13069 if (errno == ENOSYS)
13070 /* Function not implemented. */
13071 return;
13072
8847214f
UD		 13073 START (sinh);
13074 TEST_f_f (sinh, 0, 0);
13075 TEST_f_f (sinh, minus_zero, minus_zero);
13076
15daa639 13077#ifndef TEST_INLINE
8847214f
UD		 13078 TEST_f_f (sinh, plus_infty, plus_infty);
13079 TEST_f_f (sinh, minus_infty, minus_infty);
15daa639 13080#endif
67e971f1 13081 TEST_f_f (sinh, qnan_value, qnan_value);
8847214f 13082
2550dfe9 13083 TEST_f_f (sinh, 0.75L, 0.822316731935829980703661634446913849L);
c9bfaa1b 13084 TEST_f_f (sinh, 0x8p-32L, 1.86264514923095703232705808926175479e-9L);
30e5dcb7 13085
8847214f
UD		 13086 END (sinh);
13087}
13088
ca811b22
JM		 13089
13090static void
13091sinh_test_tonearest (void)
13092{
13093 int save_round_mode;
13094 errno = 0;
13095 FUNC(sinh) (0);
13096 if (errno == ENOSYS)
13097 /* Function not implemented. */
13098 return;
13099
13100 START (sinh_tonearest);
13101
13102 save_round_mode = fegetround ();
13103
13104 if (!fesetround (FE_TONEAREST))
13105 {
13106 TEST_f_f (sinh, 22, 1792456423.065795780701106568345764104225L);
13107 TEST_f_f (sinh, 23, 4872401723.124451299966006944252978187305L);
13108 TEST_f_f (sinh, 24, 13244561064.92173614705070540368454568168L);
13109 }
13110
13111 fesetround (save_round_mode);
13112
13113 END (sinh_tonearest);
13114}
13115
13116
13117static void
13118sinh_test_towardzero (void)
13119{
13120 int save_round_mode;
13121 errno = 0;
13122 FUNC(sinh) (0);
13123 if (errno == ENOSYS)
13124 /* Function not implemented. */
13125 return;
13126
13127 START (sinh_towardzero);
13128
13129 save_round_mode = fegetround ();
13130
13131 if (!fesetround (FE_TOWARDZERO))
13132 {
13133 TEST_f_f (sinh, 22, 1792456423.065795780701106568345764104225L);
13134 TEST_f_f (sinh, 23, 4872401723.124451299966006944252978187305L);
13135 TEST_f_f (sinh, 24, 13244561064.92173614705070540368454568168L);
13136 }
13137
13138 fesetround (save_round_mode);
13139
13140 END (sinh_towardzero);
13141}
13142
13143
13144static void
13145sinh_test_downward (void)
13146{
13147 int save_round_mode;
13148 errno = 0;
13149 FUNC(sinh) (0);
13150 if (errno == ENOSYS)
13151 /* Function not implemented. */
13152 return;
13153
13154 START (sinh_downward);
13155
13156 save_round_mode = fegetround ();
13157
13158 if (!fesetround (FE_DOWNWARD))
13159 {
13160 TEST_f_f (sinh, 22, 1792456423.065795780701106568345764104225L);
13161 TEST_f_f (sinh, 23, 4872401723.124451299966006944252978187305L);
13162 TEST_f_f (sinh, 24, 13244561064.92173614705070540368454568168L);
13163 }
13164
13165 fesetround (save_round_mode);
13166
13167 END (sinh_downward);
13168}
13169
13170
13171static void
13172sinh_test_upward (void)
13173{
13174 int save_round_mode;
13175 errno = 0;
13176 FUNC(sinh) (0);
13177 if (errno == ENOSYS)
13178 /* Function not implemented. */
13179 return;
13180
13181 START (sinh_upward);
13182
13183 save_round_mode = fegetround ();
13184
13185 if (!fesetround (FE_UPWARD))
13186 {
13187 TEST_f_f (sinh, 22, 1792456423.065795780701106568345764104225L);
13188 TEST_f_f (sinh, 23, 4872401723.124451299966006944252978187305L);
13189 TEST_f_f (sinh, 24, 13244561064.92173614705070540368454568168L);
13190 }
13191
13192 fesetround (save_round_mode);
13193
13194 END (sinh_upward);
13195}
13196
13197
8847214f
UD		 13198static void
13199sqrt_test (void)
13200{
e6d3c4a7
AJ		 13201 errno = 0;
13202 FUNC(sqrt) (1);
13203 if (errno == ENOSYS)
13204 /* Function not implemented. */
13205 return;
13206
8847214f
UD		 13207 START (sqrt);
13208
13209 TEST_f_f (sqrt, 0, 0);
67e971f1 13210 TEST_f_f (sqrt, qnan_value, qnan_value);
8847214f
UD		 13211 TEST_f_f (sqrt, plus_infty, plus_infty);
13212
13213 TEST_f_f (sqrt, minus_zero, minus_zero);
13214
67e971f1
TS		 13215 /* sqrt (x) == qNaN plus invalid exception for x < 0. */
13216 TEST_f_f (sqrt, -1, qnan_value, INVALID_EXCEPTION);
13217 TEST_f_f (sqrt, -max_value, qnan_value, INVALID_EXCEPTION);
13218 TEST_f_f (sqrt, minus_infty, qnan_value, INVALID_EXCEPTION);
8847214f
UD		 13219
13220 TEST_f_f (sqrt, 2209, 47);
13221 TEST_f_f (sqrt, 4, 2);
13222 TEST_f_f (sqrt, 2, M_SQRT2l);
13223 TEST_f_f (sqrt, 0.25, 0.5);
13224 TEST_f_f (sqrt, 6642.25, 81.5);
2550dfe9
AJ		 13225 TEST_f_f (sqrt, 15190.5625L, 123.25L);
13226 TEST_f_f (sqrt, 0.75L, 0.866025403784438646763723170752936183L);
8847214f
UD		 13227
13228 END (sqrt);
13229}
13230
2550dfe9 13231
8847214f
UD		 13232static void
13233tan_test (void)
13234{
e6d3c4a7
AJ		 13235 errno = 0;
13236 FUNC(tan) (0);
13237 if (errno == ENOSYS)
13238 /* Function not implemented. */
13239 return;
13240
8847214f
UD		 13241 START (tan);
13242
13243 TEST_f_f (tan, 0, 0);
13244 TEST_f_f (tan, minus_zero, minus_zero);
f2da7793
JM		 13245 TEST_f_f (tan, plus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
13246 TEST_f_f (tan, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM);
13247 TEST_f_f (tan, qnan_value, qnan_value, ERRNO_UNCHANGED);
8847214f 13248
9ad63c23 13249 TEST_f_f (tan, M_PI_4l, 1);
2550dfe9 13250 TEST_f_f (tan, 0.75L, 0.931596459944072461165202756573936428L);
8847214f 13251
ea40808a
AJ		 13252 TEST_f_f (tan, 0x1p65, -0.0472364872359047946798414219288370688827L);
13253 TEST_f_f (tan, -0x1p65, 0.0472364872359047946798414219288370688827L);
11b90b9f 13254
9ad63c23
JM		 13255 TEST_f_f (tan, 0xc.9p-4, 0.9995162902115457818029468900654150261381L);
13256 TEST_f_f (tan, 0xc.908p-4, 0.9997603425502441410973077452249560802034L);
13257 TEST_f_f (tan, 0xc.90cp-4, 0.9998823910588060302788513970802357770031L);
13258 TEST_f_f (tan, 0xc.90ep-4, 0.9999434208994808753305784795924711152508L);
13259 TEST_f_f (tan, 0xc.90fp-4, 0.9999739372166156702433266059635165160515L);
13260 TEST_f_f (tan, 0xc.90f8p-4, 0.9999891957244072765118898375645469865764L);
13261 TEST_f_f (tan, 0xc.90fcp-4, 0.9999968250656122402859679132395522927393L);
13262 TEST_f_f (tan, 0xc.90fdp-4, 0.9999987324100083358016192309006353329444L);
13263 TEST_f_f (tan, 0xc.90fd8p-4, 0.9999996860835706212861509874451585282616L);
13264 TEST_f_f (tan, 0xc.90fdap-4, 0.9999999245021033010474530133665235922808L);
13265 TEST_f_f (tan, 0xc.ap-4, 1.0073556597407272165371804539701396631519L);
13266 TEST_f_f (tan, 0xc.98p-4, 1.0034282930863044654045449407466962736255L);
13267 TEST_f_f (tan, 0xc.94p-4, 1.0014703786820082237342656561856877993328L);
13268 TEST_f_f (tan, 0xc.92p-4, 1.0004928571392300571266638743539017593717L);
13269 TEST_f_f (tan, 0xc.91p-4, 1.0000044544650244953647966900221905361131L);
13270 TEST_f_f (tan, 0xc.90fep-4, 1.0000006397580424009014454926842136804016L);
13271 TEST_f_f (tan, 0xc.90fdcp-4, 1.0000001629206928242190327320047489394217L);
13272 TEST_f_f (tan, 0xc.90fdbp-4, 1.0000000437113909572052640953950483705005L);
13273
13274 TEST_f_f (tan, -0xc.9p-4, -0.9995162902115457818029468900654150261381L);
13275 TEST_f_f (tan, -0xc.908p-4, -0.9997603425502441410973077452249560802034L);
13276 TEST_f_f (tan, -0xc.90cp-4, -0.9998823910588060302788513970802357770031L);
13277 TEST_f_f (tan, -0xc.90ep-4, -0.9999434208994808753305784795924711152508L);
13278 TEST_f_f (tan, -0xc.90fp-4, -0.9999739372166156702433266059635165160515L);
13279 TEST_f_f (tan, -0xc.90f8p-4, -0.9999891957244072765118898375645469865764L);
13280 TEST_f_f (tan, -0xc.90fcp-4, -0.9999968250656122402859679132395522927393L);
13281 TEST_f_f (tan, -0xc.90fdp-4, -0.9999987324100083358016192309006353329444L);
13282 TEST_f_f (tan, -0xc.90fd8p-4, -0.9999996860835706212861509874451585282616L);
13283 TEST_f_f (tan, -0xc.90fdap-4, -0.9999999245021033010474530133665235922808L);
13284 TEST_f_f (tan, -0xc.ap-4, -1.0073556597407272165371804539701396631519L);
13285 TEST_f_f (tan, -0xc.98p-4, -1.0034282930863044654045449407466962736255L);
13286 TEST_f_f (tan, -0xc.94p-4, -1.0014703786820082237342656561856877993328L);
13287 TEST_f_f (tan, -0xc.92p-4, -1.0004928571392300571266638743539017593717L);
13288 TEST_f_f (tan, -0xc.91p-4, -1.0000044544650244953647966900221905361131L);
13289 TEST_f_f (tan, -0xc.90fep-4, -1.0000006397580424009014454926842136804016L);
13290 TEST_f_f (tan, -0xc.90fdcp-4, -1.0000001629206928242190327320047489394217L);
13291 TEST_f_f (tan, -0xc.90fdbp-4, -1.0000000437113909572052640953950483705005L);
13292
11b90b9f
JM		 13293#ifndef TEST_FLOAT
13294 TEST_f_f (tan, 1e22, -1.628778225606898878549375936939548513545L);
13295 TEST_f_f (tan, 0x1p1023, -0.6814476476066215012854144040167365190368L);
13296#endif
13297
13298#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
13299 TEST_f_f (tan, 0x1p16383L, 0.422722393732022337800504160054440141575L);
ee010c9e
AJ		 13300#endif
13301
8847214f
UD		 13302 END (tan);
13303}
13304
804360ed
JM		 13305
13306static void
13307tan_test_tonearest (void)
13308{
13309 int save_round_mode;
13310 errno = 0;
13311 FUNC(tan) (0);
13312 if (errno == ENOSYS)
13313 /* Function not implemented. */
13314 return;
13315
13316 START (tan_tonearest);
13317
13318 save_round_mode = fegetround ();
13319
13320 if (!fesetround (FE_TONEAREST))
13321 {
13322 TEST_f_f (tan, 1, 1.5574077246549022305069748074583601730873L);
13323 TEST_f_f (tan, 2, -2.1850398632615189916433061023136825434320L);
13324 TEST_f_f (tan, 3, -0.1425465430742778052956354105339134932261L);
13325 TEST_f_f (tan, 4, 1.1578212823495775831373424182673239231198L);
13326 TEST_f_f (tan, 5, -3.3805150062465856369827058794473439087096L);
13327 TEST_f_f (tan, 6, -0.2910061913847491570536995888681755428312L);
13328 TEST_f_f (tan, 7, 0.8714479827243187364564508896003135663222L);
13329 TEST_f_f (tan, 8, -6.7997114552203786999252627596086333648814L);
13330 TEST_f_f (tan, 9, -0.4523156594418098405903708757987855343087L);
13331 TEST_f_f (tan, 10, 0.6483608274590866712591249330098086768169L);
13332 }
13333
13334 fesetround (save_round_mode);
13335
13336 END (tan_tonearest);
13337}
13338
13339
13340static void
13341tan_test_towardzero (void)
13342{
13343 int save_round_mode;
13344 errno = 0;
13345 FUNC(tan) (0);
13346 if (errno == ENOSYS)
13347 /* Function not implemented. */
13348 return;
13349
13350 START (tan_towardzero);
13351
13352 save_round_mode = fegetround ();
13353
13354 if (!fesetround (FE_TOWARDZERO))
13355 {
13356 TEST_f_f (tan, 1, 1.5574077246549022305069748074583601730873L);
13357 TEST_f_f (tan, 2, -2.1850398632615189916433061023136825434320L);
13358 TEST_f_f (tan, 3, -0.1425465430742778052956354105339134932261L);
13359 TEST_f_f (tan, 4, 1.1578212823495775831373424182673239231198L);
13360 TEST_f_f (tan, 5, -3.3805150062465856369827058794473439087096L);
13361 TEST_f_f (tan, 6, -0.2910061913847491570536995888681755428312L);
13362 TEST_f_f (tan, 7, 0.8714479827243187364564508896003135663222L);
13363 TEST_f_f (tan, 8, -6.7997114552203786999252627596086333648814L);
13364 TEST_f_f (tan, 9, -0.4523156594418098405903708757987855343087L);
13365 TEST_f_f (tan, 10, 0.6483608274590866712591249330098086768169L);
13366 }
13367
13368 fesetround (save_round_mode);
13369
13370 END (tan_towardzero);
13371}
13372
13373
13374static void
13375tan_test_downward (void)
13376{
13377 int save_round_mode;
13378 errno = 0;
13379 FUNC(tan) (0);
13380 if (errno == ENOSYS)
13381 /* Function not implemented. */
13382 return;
13383
13384 START (tan_downward);
13385
13386 save_round_mode = fegetround ();
13387
13388 if (!fesetround (FE_DOWNWARD))
13389 {
13390 TEST_f_f (tan, 1, 1.5574077246549022305069748074583601730873L);
13391 TEST_f_f (tan, 2, -2.1850398632615189916433061023136825434320L);
13392 TEST_f_f (tan, 3, -0.1425465430742778052956354105339134932261L);
13393 TEST_f_f (tan, 4, 1.1578212823495775831373424182673239231198L);
13394 TEST_f_f (tan, 5, -3.3805150062465856369827058794473439087096L);
13395 TEST_f_f (tan, 6, -0.2910061913847491570536995888681755428312L);
13396 TEST_f_f (tan, 7, 0.8714479827243187364564508896003135663222L);
13397 TEST_f_f (tan, 8, -6.7997114552203786999252627596086333648814L);
13398 TEST_f_f (tan, 9, -0.4523156594418098405903708757987855343087L);
13399 TEST_f_f (tan, 10, 0.6483608274590866712591249330098086768169L);
13400 }
13401
13402 fesetround (save_round_mode);
13403
13404 END (tan_downward);
13405}
13406
13407
13408static void
13409tan_test_upward (void)
13410{
13411 int save_round_mode;
13412 errno = 0;
13413 FUNC(tan) (0);
13414 if (errno == ENOSYS)
13415 /* Function not implemented. */
13416 return;
13417
13418 START (tan_upward);
13419
13420 save_round_mode = fegetround ();
13421
13422 if (!fesetround (FE_UPWARD))
13423 {
13424 TEST_f_f (tan, 1, 1.5574077246549022305069748074583601730873L);
13425 TEST_f_f (tan, 2, -2.1850398632615189916433061023136825434320L);
13426 TEST_f_f (tan, 3, -0.1425465430742778052956354105339134932261L);
13427 TEST_f_f (tan, 4, 1.1578212823495775831373424182673239231198L);
13428 TEST_f_f (tan, 5, -3.3805150062465856369827058794473439087096L);
13429 TEST_f_f (tan, 6, -0.2910061913847491570536995888681755428312L);
13430 TEST_f_f (tan, 7, 0.8714479827243187364564508896003135663222L);
13431 TEST_f_f (tan, 8, -6.7997114552203786999252627596086333648814L);
13432 TEST_f_f (tan, 9, -0.4523156594418098405903708757987855343087L);
13433 TEST_f_f (tan, 10, 0.6483608274590866712591249330098086768169L);
13434 }
13435
13436 fesetround (save_round_mode);
13437
13438 END (tan_upward);
13439}
13440
13441
8847214f
UD		 13442static void
13443tanh_test (void)
13444{
aaca11d8 13445 errno = 0;
3c6cad26 13446 FUNC(tanh) (0.7L);
aaca11d8
UD		 13447 if (errno == ENOSYS)
13448 /* Function not implemented. */
13449 return;
13450
8847214f
UD		 13451 START (tanh);
13452
13453 TEST_f_f (tanh, 0, 0);
13454 TEST_f_f (tanh, minus_zero, minus_zero);
13455
15daa639 13456#ifndef TEST_INLINE
8847214f
UD		 13457 TEST_f_f (tanh, plus_infty, 1);
13458 TEST_f_f (tanh, minus_infty, -1);
15daa639 13459#endif
67e971f1 13460 TEST_f_f (tanh, qnan_value, qnan_value);
8847214f 13461
2550dfe9
AJ		 13462 TEST_f_f (tanh, 0.75L, 0.635148952387287319214434357312496495L);
13463 TEST_f_f (tanh, -0.75L, -0.635148952387287319214434357312496495L);
3eab00bd
AJ		 13464
13465 TEST_f_f (tanh, 1.0L, 0.7615941559557648881194582826047935904L);
13466 TEST_f_f (tanh, -1.0L, -0.7615941559557648881194582826047935904L);
8847214f 13467
30e5dcb7 13468 /* 2^-57 */
2550dfe9 13469 TEST_f_f (tanh, 0x1p-57L, 6.938893903907228377647697925567626953125e-18L);
30e5dcb7 13470
8847214f
UD		 13471 END (tanh);
13472}
13473
13474static void
13475tgamma_test (void)
13476{
13477 errno = 0;
13478 FUNC(tgamma) (1);
13479 if (errno == ENOSYS)
13480 /* Function not implemented. */
13481 return;
8847214f
UD		 13482
13483 START (tgamma);
13484
13485 TEST_f_f (tgamma, plus_infty, plus_infty);
41bf21a1 13486 TEST_f_f (tgamma, max_value, plus_infty, OVERFLOW_EXCEPTION);
52495f29
UD		 13487 TEST_f_f (tgamma, 0, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
13488 TEST_f_f (tgamma, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
67e971f1
TS		 13489 /* tgamma (x) == qNaN plus invalid exception for integer x <= 0. */
13490 TEST_f_f (tgamma, -2, qnan_value, INVALID_EXCEPTION);
13491 TEST_f_f (tgamma, -max_value, qnan_value, INVALID_EXCEPTION);
13492 TEST_f_f (tgamma, minus_infty, qnan_value, INVALID_EXCEPTION);
13493 TEST_f_f (tgamma, qnan_value, qnan_value);
8847214f
UD		 13494
13495 TEST_f_f (tgamma, 0.5, M_SQRT_PIl);
13496 TEST_f_f (tgamma, -0.5, -M_2_SQRT_PIl);
13497
13498 TEST_f_f (tgamma, 1, 1);
13499 TEST_f_f (tgamma, 4, 6);
13500
79df8ce5
AJ		 13501 TEST_f_f (tgamma, 0.7L, 1.29805533264755778568117117915281162L);
13502 TEST_f_f (tgamma, 1.2L, 0.918168742399760610640951655185830401L);
8847214f
UD		 13503
13504 END (tgamma);
13505}
13506
2550dfe9 13507
8847214f
UD		 13508static void
13509trunc_test (void)
13510{
13511 START (trunc);
13512
13513 TEST_f_f (trunc, plus_infty, plus_infty);
13514 TEST_f_f (trunc, minus_infty, minus_infty);
67e971f1 13515 TEST_f_f (trunc, qnan_value, qnan_value);
8847214f
UD		 13516
13517 TEST_f_f (trunc, 0, 0);
13518 TEST_f_f (trunc, minus_zero, minus_zero);
5c68d401
RM		 13519 TEST_f_f (trunc, 0.1, 0);
13520 TEST_f_f (trunc, 0.25, 0);
8847214f 13521 TEST_f_f (trunc, 0.625, 0);
5c68d401
RM		 13522 TEST_f_f (trunc, -0.1, minus_zero);
13523 TEST_f_f (trunc, -0.25, minus_zero);
8847214f
UD		 13524 TEST_f_f (trunc, -0.625, minus_zero);
13525 TEST_f_f (trunc, 1, 1);
13526 TEST_f_f (trunc, -1, -1);
13527 TEST_f_f (trunc, 1.625, 1);
13528 TEST_f_f (trunc, -1.625, -1);
13529
13530 TEST_f_f (trunc, 1048580.625L, 1048580L);
13531 TEST_f_f (trunc, -1048580.625L, -1048580L);
13532
13533 TEST_f_f (trunc, 8388610.125L, 8388610.0L);
13534 TEST_f_f (trunc, -8388610.125L, -8388610.0L);
13535
13536 TEST_f_f (trunc, 4294967296.625L, 4294967296.0L);
13537 TEST_f_f (trunc, -4294967296.625L, -4294967296.0L);
13538
f964490f
RM		 13539#ifdef TEST_LDOUBLE
13540 /* The result can only be represented in long double. */
13541 TEST_f_f (trunc, 4503599627370495.5L, 4503599627370495.0L);
13542 TEST_f_f (trunc, 4503599627370496.25L, 4503599627370496.0L);
13543 TEST_f_f (trunc, 4503599627370496.5L, 4503599627370496.0L);
13544 TEST_f_f (trunc, 4503599627370496.75L, 4503599627370496.0L);
13545 TEST_f_f (trunc, 4503599627370497.5L, 4503599627370497.0L);
13546
5c68d401
RM		 13547# if LDBL_MANT_DIG > 100
13548 TEST_f_f (trunc, 4503599627370494.5000000000001L, 4503599627370494.0L);
13549 TEST_f_f (trunc, 4503599627370495.5000000000001L, 4503599627370495.0L);
13550 TEST_f_f (trunc, 4503599627370496.5000000000001L, 4503599627370496.0L);
13551# endif
830fce04 13552
f964490f
RM		 13553 TEST_f_f (trunc, -4503599627370495.5L, -4503599627370495.0L);
13554 TEST_f_f (trunc, -4503599627370496.25L, -4503599627370496.0L);
13555 TEST_f_f (trunc, -4503599627370496.5L, -4503599627370496.0L);
13556 TEST_f_f (trunc, -4503599627370496.75L, -4503599627370496.0L);
13557 TEST_f_f (trunc, -4503599627370497.5L, -4503599627370497.0L);
830fce04 13558
5c68d401
RM		 13559# if LDBL_MANT_DIG > 100
13560 TEST_f_f (trunc, -4503599627370494.5000000000001L, -4503599627370494.0L);
13561 TEST_f_f (trunc, -4503599627370495.5000000000001L, -4503599627370495.0L);
13562 TEST_f_f (trunc, -4503599627370496.5000000000001L, -4503599627370496.0L);
13563# endif
f964490f
RM		 13564
13565 TEST_f_f (trunc, 9007199254740991.5L, 9007199254740991.0L);
13566 TEST_f_f (trunc, 9007199254740992.25L, 9007199254740992.0L);
13567 TEST_f_f (trunc, 9007199254740992.5L, 9007199254740992.0L);
13568 TEST_f_f (trunc, 9007199254740992.75L, 9007199254740992.0L);
13569 TEST_f_f (trunc, 9007199254740993.5L, 9007199254740993.0L);
13570
5c68d401
RM		 13571# if LDBL_MANT_DIG > 100
13572 TEST_f_f (trunc, 9007199254740991.0000000000001L, 9007199254740991.0L);
13573 TEST_f_f (trunc, 9007199254740992.0000000000001L, 9007199254740992.0L);
13574 TEST_f_f (trunc, 9007199254740993.0000000000001L, 9007199254740993.0L);
13575 TEST_f_f (trunc, 9007199254740991.5000000000001L, 9007199254740991.0L);
13576 TEST_f_f (trunc, 9007199254740992.5000000000001L, 9007199254740992.0L);
13577 TEST_f_f (trunc, 9007199254740993.5000000000001L, 9007199254740993.0L);
13578# endif
13579
f964490f
RM		 13580 TEST_f_f (trunc, -9007199254740991.5L, -9007199254740991.0L);
13581 TEST_f_f (trunc, -9007199254740992.25L, -9007199254740992.0L);
13582 TEST_f_f (trunc, -9007199254740992.5L, -9007199254740992.0L);
13583 TEST_f_f (trunc, -9007199254740992.75L, -9007199254740992.0L);
13584 TEST_f_f (trunc, -9007199254740993.5L, -9007199254740993.0L);
13585
5c68d401
RM		 13586# if LDBL_MANT_DIG > 100
13587 TEST_f_f (trunc, -9007199254740991.0000000000001L, -9007199254740991.0L);
13588 TEST_f_f (trunc, -9007199254740992.0000000000001L, -9007199254740992.0L);
13589 TEST_f_f (trunc, -9007199254740993.0000000000001L, -9007199254740993.0L);
13590 TEST_f_f (trunc, -9007199254740991.5000000000001L, -9007199254740991.0L);
13591 TEST_f_f (trunc, -9007199254740992.5000000000001L, -9007199254740992.0L);
13592 TEST_f_f (trunc, -9007199254740993.5000000000001L, -9007199254740993.0L);
13593# endif
13594
f964490f
RM		 13595 TEST_f_f (trunc, 72057594037927935.5L, 72057594037927935.0L);
13596 TEST_f_f (trunc, 72057594037927936.25L, 72057594037927936.0L);
13597 TEST_f_f (trunc, 72057594037927936.5L, 72057594037927936.0L);
13598 TEST_f_f (trunc, 72057594037927936.75L, 72057594037927936.0L);
13599 TEST_f_f (trunc, 72057594037927937.5L, 72057594037927937.0L);
13600
13601 TEST_f_f (trunc, -72057594037927935.5L, -72057594037927935.0L);
13602 TEST_f_f (trunc, -72057594037927936.25L, -72057594037927936.0L);
13603 TEST_f_f (trunc, -72057594037927936.5L, -72057594037927936.0L);
13604 TEST_f_f (trunc, -72057594037927936.75L, -72057594037927936.0L);
13605 TEST_f_f (trunc, -72057594037927937.5L, -72057594037927937.0L);
13606
13607 TEST_f_f (trunc, 10141204801825835211973625643007.5L, 10141204801825835211973625643007.0L);
13608 TEST_f_f (trunc, 10141204801825835211973625643008.25L, 10141204801825835211973625643008.0L);
13609 TEST_f_f (trunc, 10141204801825835211973625643008.5L, 10141204801825835211973625643008.0L);
13610 TEST_f_f (trunc, 10141204801825835211973625643008.75L, 10141204801825835211973625643008.0L);
830fce04 13611 TEST_f_f (trunc, 10141204801825835211973625643009.5L, 10141204801825835211973625643009.0L);
f964490f 13612#endif
8847214f
UD		 13613
13614 END (trunc);
13615}
13616
13617static void
13618y0_test (void)
13619{
8a216c1b 13620 FLOAT s, c;
8847214f 13621 errno = 0;
cd53c157
UD		 13622 FUNC (sincos) (0, &s, &c);
13623 if (errno == ENOSYS)
13624 /* Required function not implemented. */
13625 return;
8847214f
UD		 13626 FUNC(y0) (1);
13627 if (errno == ENOSYS)
13628 /* Function not implemented. */
13629 return;
13630
13631 /* y0 is the Bessel function of the second kind of order 0 */
13632 START (y0);
13633
caac9ddb 13634 TEST_f_f (y0, -1.0, minus_infty, INVALID_EXCEPTION);
41bf21a1 13635 TEST_f_f (y0, -max_value, minus_infty, INVALID_EXCEPTION);
8847214f 13636 TEST_f_f (y0, 0.0, minus_infty);
67e971f1 13637 TEST_f_f (y0, qnan_value, qnan_value);
8847214f
UD		 13638 TEST_f_f (y0, plus_infty, 0);
13639
2550dfe9
AJ		 13640 TEST_f_f (y0, 0.125L, -1.38968062514384052915582277745018693L);
13641 TEST_f_f (y0, 0.75L, -0.137172769385772397522814379396581855L);
13642 TEST_f_f (y0, 1.0, 0.0882569642156769579829267660235151628L);
13643 TEST_f_f (y0, 1.5, 0.382448923797758843955068554978089862L);
13644 TEST_f_f (y0, 2.0, 0.510375672649745119596606592727157873L);
13645 TEST_f_f (y0, 8.0, 0.223521489387566220527323400498620359L);
13646 TEST_f_f (y0, 10.0, 0.0556711672835993914244598774101900481L);
8847214f 13647
c36e1d23
JM		 13648 TEST_f_f (y0, 0x1.3ffp+74L, 1.818984347516051243459467456433028748678e-12L);
13649
13650#ifndef TEST_FLOAT
2a185d32 13651 TEST_f_f (y0, 0x1.ff00000000002p+840L, 1.846591691699331493194965158699937660696e-127L);
98c48fe5 13652 TEST_f_f (y0, 0x1p1023L, 8.2687542933709649327986678723012001545638e-155L);
c36e1d23
JM		 13653#endif
13654
d2f9799e
JM		 13655#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
13656 TEST_f_f (y0, 0x1p16382L, 8.0839224448726336195866026476176740513439e-2467L);
13657 TEST_f_f (y0, 0x1p16383L, -3.8895531955766020648617743624167352352217e-2467L);
13658#endif
13659
05b227bd
DM		 13660 TEST_f_f (y0, 0x1p-10L, -4.4865150767109739412411806297168793661098L);
13661 TEST_f_f (y0, 0x1p-20L, -8.8992283012125827603076426611387876938160L);
13662 TEST_f_f (y0, 0x1p-30L, -1.3311940304267782826037118027401817264906e+1L);
13663 TEST_f_f (y0, 0x1p-40L, -1.7724652307320814696990854700366226762563e+1L);
13664 TEST_f_f (y0, 0x1p-50L, -2.2137364310373846564919987139743760738155e+1L);
13665 TEST_f_f (y0, 0x1p-60L, -2.6550076313426878432849115782108205929120e+1L);
13666 TEST_f_f (y0, 0x1p-70L, -3.0962788316479910300778244424468159753887e+1L);
13667 TEST_f_f (y0, 0x1p-80L, -3.5375500319532942168707373066828113573541e+1L);
13668 TEST_f_f (y0, 0x1p-90L, -3.9788212322585974036636501709188067393195e+1L);
13669 TEST_f_f (y0, 0x1p-100L, -4.420092432563900590456563035154802121284e+1L);
13670 TEST_f_f (y0, 0x1p-110L, -4.861363632869203777249475899390797503250e+1L);
13671
8847214f
UD		 13672 END (y0);
13673}
13674
13675
13676static void
13677y1_test (void)
13678{
8a216c1b 13679 FLOAT s, c;
8847214f 13680 errno = 0;
cd53c157
UD		 13681 FUNC (sincos) (0, &s, &c);
13682 if (errno == ENOSYS)
13683 /* Required function not implemented. */
13684 return;
8847214f
UD		 13685 FUNC(y1) (1);
13686 if (errno == ENOSYS)
13687 /* Function not implemented. */
13688 return;
13689
13690 /* y1 is the Bessel function of the second kind of order 1 */
13691 START (y1);
13692
caac9ddb 13693 TEST_f_f (y1, -1.0, minus_infty, INVALID_EXCEPTION);
41bf21a1 13694 TEST_f_f (y1, -max_value, minus_infty, INVALID_EXCEPTION);
8847214f
UD		 13695 TEST_f_f (y1, 0.0, minus_infty);
13696 TEST_f_f (y1, plus_infty, 0);
67e971f1 13697 TEST_f_f (y1, qnan_value, qnan_value);
8847214f 13698
2550dfe9
AJ		 13699 TEST_f_f (y1, 0.125L, -5.19993611253477499595928744876579921L);
13700 TEST_f_f (y1, 0.75L, -1.03759455076928541973767132140642198L);
13701 TEST_f_f (y1, 1.0, -0.781212821300288716547150000047964821L);
13702 TEST_f_f (y1, 1.5, -0.412308626973911295952829820633445323L);
13703 TEST_f_f (y1, 2.0, -0.107032431540937546888370772277476637L);
13704 TEST_f_f (y1, 8.0, -0.158060461731247494255555266187483550L);
13705 TEST_f_f (y1, 10.0, 0.249015424206953883923283474663222803L);
8847214f 13706
41c7328e 13707 TEST_f_f (y1, 0x1.27e204p+99L, -8.881610148467797208469612080785210013461e-16L);
c36e1d23
JM		 13708
13709#ifndef TEST_FLOAT
2a185d32 13710 TEST_f_f (y1, 0x1.001000001p+593L, 3.927269966354206207832593635798954916263e-90L);
98c48fe5 13711 TEST_f_f (y1, 0x1p1023L, 1.5665258060609012834424478437196679802783e-155L);
c36e1d23
JM		 13712#endif
13713
d2f9799e
JM		 13714#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384
13715 TEST_f_f (y1, 0x1p16382L, 1.2193782500509000574176799046642541129387e-2466L);
13716 TEST_f_f (y1, 0x1p16383L, -9.5859502826270374691362975419147645151233e-2467L);
13717#endif
13718
05b227bd
DM		 13719 TEST_f_f (y1, 0x1p-10L, -6.5190099301063115047395187618929589514382e+02L);
13720 TEST_f_f (y1, 0x1p-20L, -6.6754421443450423911167962313100637952285e+05L);
13721 TEST_f_f (y1, 0x1p-30L, -6.8356527557643159612937462812258975438856e+08L);
13722 TEST_f_f (y1, 0x1p-40L, -6.9997084219026594793707805777425993547887e+11L);
13723 TEST_f_f (y1, 0x1p-50L, -7.1677014240283233068755952926181262431559e+14L);
13724 TEST_f_f (y1, 0x1p-60L, -7.3397262582050030662406095795388448059822e+17L);
13725 TEST_f_f (y1, 0x1p-70L, -7.5158796884019231398303842094477769620063e+20L);
13726 TEST_f_f (y1, 0x1p-80L, -7.6962608009235692951863134304745236090943e+23L);
13727 TEST_f_f (y1, 0x1p-90L, -7.8809710601457349582707849528059121757126e+26L);
13728 TEST_f_f (y1, 0x1p-100L, -8.0701143655892325972692837916732540679297e+29L);
13729 TEST_f_f (y1, 0x1p-110L, -8.2637971103633741796037466026734121655600e+32L);
13730
8847214f
UD		 13731 END (y1);
13732}
13733
2550dfe9 13734
8847214f
UD		 13735static void
13736yn_test (void)
13737{
8a216c1b 13738 FLOAT s, c;
8847214f 13739 errno = 0;
cd53c157
UD		 13740 FUNC (sincos) (0, &s, &c);
13741 if (errno == ENOSYS)
13742 /* Required function not implemented. */
13743 return;
8847214f
UD		 13744 FUNC(yn) (1, 1);
13745 if (errno == ENOSYS)
13746 /* Function not implemented. */
13747 return;
13748
13749 /* yn is the Bessel function of the second kind of order n */
13750 START (yn);
13751
13752 /* yn (0, x) == y0 (x) */
caac9ddb 13753 TEST_ff_f (yn, 0, -1.0, minus_infty, INVALID_EXCEPTION);
41bf21a1 13754 TEST_ff_f (yn, 0, -max_value, minus_infty, INVALID_EXCEPTION);
8847214f 13755 TEST_ff_f (yn, 0, 0.0, minus_infty);
67e971f1 13756 TEST_ff_f (yn, 0, qnan_value, qnan_value);
8847214f
UD		 13757 TEST_ff_f (yn, 0, plus_infty, 0);
13758
2550dfe9
AJ		 13759 TEST_ff_f (yn, 0, 0.125L, -1.38968062514384052915582277745018693L);
13760 TEST_ff_f (yn, 0, 0.75L, -0.137172769385772397522814379396581855L);
13761 TEST_ff_f (yn, 0, 1.0, 0.0882569642156769579829267660235151628L);
13762 TEST_ff_f (yn, 0, 1.5, 0.382448923797758843955068554978089862L);
13763 TEST_ff_f (yn, 0, 2.0, 0.510375672649745119596606592727157873L);
13764 TEST_ff_f (yn, 0, 8.0, 0.223521489387566220527323400498620359L);
13765 TEST_ff_f (yn, 0, 10.0, 0.0556711672835993914244598774101900481L);
8847214f
UD		 13766
13767 /* yn (1, x) == y1 (x) */
caac9ddb 13768 TEST_ff_f (yn, 1, -1.0, minus_infty, INVALID_EXCEPTION);
8847214f
UD		 13769 TEST_ff_f (yn, 1, 0.0, minus_infty);
13770 TEST_ff_f (yn, 1, plus_infty, 0);
67e971f1 13771 TEST_ff_f (yn, 1, qnan_value, qnan_value);
8847214f 13772
2550dfe9
AJ		 13773 TEST_ff_f (yn, 1, 0.125L, -5.19993611253477499595928744876579921L);
13774 TEST_ff_f (yn, 1, 0.75L, -1.03759455076928541973767132140642198L);
13775 TEST_ff_f (yn, 1, 1.0, -0.781212821300288716547150000047964821L);
13776 TEST_ff_f (yn, 1, 1.5, -0.412308626973911295952829820633445323L);
13777 TEST_ff_f (yn, 1, 2.0, -0.107032431540937546888370772277476637L);
13778 TEST_ff_f (yn, 1, 8.0, -0.158060461731247494255555266187483550L);
13779 TEST_ff_f (yn, 1, 10.0, 0.249015424206953883923283474663222803L);
8847214f
UD		 13780
13781 /* yn (3, x) */
13782 TEST_ff_f (yn, 3, plus_infty, 0);
67e971f1 13783 TEST_ff_f (yn, 3, qnan_value, qnan_value);
8847214f 13784
2550dfe9
AJ		 13785 TEST_ff_f (yn, 3, 0.125L, -2612.69757350066712600220955744091741L);
13786 TEST_ff_f (yn, 3, 0.75L, -12.9877176234475433186319774484809207L);
13787 TEST_ff_f (yn, 3, 1.0, -5.82151760596472884776175706442981440L);
13788 TEST_ff_f (yn, 3, 2.0, -1.12778377684042778608158395773179238L);
13789 TEST_ff_f (yn, 3, 10.0, -0.251362657183837329779204747654240998L);
8847214f
UD		 13790
13791 /* yn (10, x) */
13792 TEST_ff_f (yn, 10, plus_infty, 0);
67e971f1 13793 TEST_ff_f (yn, 10, qnan_value, qnan_value);
8847214f 13794
2550dfe9
AJ		 13795 TEST_ff_f (yn, 10, 0.125L, -127057845771019398.252538486899753195L);
13796 TEST_ff_f (yn, 10, 0.75L, -2133501638.90573424452445412893839236L);
13797 TEST_ff_f (yn, 10, 1.0, -121618014.278689189288130426667971145L);
13798 TEST_ff_f (yn, 10, 2.0, -129184.542208039282635913145923304214L);
13799 TEST_ff_f (yn, 10, 10.0, -0.359814152183402722051986577343560609L);
8847214f 13800
541428fe
MP		 13801 /* Check whether yn returns correct value for LDBL_MIN, DBL_MIN,
13802 and FLT_MIN. See Bug 14173. */
13803 TEST_ff_f (yn, 10, min_value, minus_infty, OVERFLOW_EXCEPTION);
8847214f 13804
f2da7793 13805 TEST_ff_f (yn, 10, min_value, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE);
354691b7 13806
541428fe 13807 END (yn);
8847214f
UD		 13808}
13809
13810
f5c8f285
UD		 13811static void
13812significand_test (void)
13813{
13814 /* significand returns the mantissa of the exponential representation. */
64d063b8
TS		 13815
13816 /* TODO: missing +/-Inf as well as qNaN tests. */
13817
f5c8f285
UD		 13818 START (significand);
13819
13820 TEST_f_f (significand, 4.0, 1.0);
13821 TEST_f_f (significand, 6.0, 1.5);
13822 TEST_f_f (significand, 8.0, 1.0);
13823
13824 END (significand);
13825}
13826
13827
8847214f
UD		 13828static void
13829initialize (void)
13830{
13831 fpstack_test ("start *init*");
8847214f 13832
8847214f
UD		 13833 /* Clear all exceptions. From now on we must not get random exceptions. */
13834 feclearexcept (FE_ALL_EXCEPT);
f2da7793 13835 errno = 0;
8847214f
UD		 13836
13837 /* Test to make sure we start correctly. */
13838 fpstack_test ("end *init*");
13839}
13840
13841/* Definitions of arguments for argp functions. */
13842static const struct argp_option options[] =
13843{
13844 { "verbose", 'v', "NUMBER", 0, "Level of verbosity (0..3)"},
13845 { "ulps-file", 'u', NULL, 0, "Output ulps to file ULPs"},
13846 { "no-max-error", 'f', NULL, 0,
13847 "Don't output maximal errors of functions"},
13848 { "no-points", 'p', NULL, 0,
13849 "Don't output results of functions invocations"},
cd33623e
UD		 13850 { "ignore-max-ulp", 'i', "yes/no", 0,
13851 "Ignore given maximal errors"},
26510bdd
CD		 13852 { "output-dir", 'o', "DIR", 0,
13853 "Directory where generated files will be placed"},
8847214f
UD		 13854 { NULL, 0, NULL, 0, NULL }
13855};
13856
13857/* Short description of program. */
13858static const char doc[] = "Math test suite: " TEST_MSG ;
13859
13860/* Prototype for option handler. */
fe559c5e 13861static error_t parse_opt (int key, char *arg, struct argp_state *state);
8847214f
UD		 13862
13863/* Data structure to communicate with argp functions. */
13864static struct argp argp =
13865{
13866 options, parse_opt, NULL, doc,
13867};
13868
13869
13870/* Handle program arguments. */
13871static error_t
13872parse_opt (int key, char *arg, struct argp_state *state)
13873{
13874 switch (key)
13875 {
13876 case 'f':
6815fabc 13877 output_max_error = 0;
8847214f 13878 break;
cd33623e
UD		 13879 case 'i':
13880 if (strcmp (arg, "yes") == 0)
13881 ignore_max_ulp = 1;
13882 else if (strcmp (arg, "no") == 0)
13883 ignore_max_ulp = 0;
13884 break;
26510bdd
CD		 13885 case 'o':
13886 output_dir = (char *) malloc (strlen (arg) + 1);
13887 if (output_dir != NULL)
13888 strcpy (output_dir, arg);
13889 else
13890 return errno;
13891 break;
8847214f 13892 case 'p':
6815fabc 13893 output_points = 0;
8847214f
UD		 13894 break;
13895 case 'u':
13896 output_ulps = 1;
13897 break;
13898 case 'v':
13899 if (optarg)
13900 verbose = (unsigned int) strtoul (optarg, NULL, 0);
13901 else
13902 verbose = 3;
13903 break;
13904 default:
13905 return ARGP_ERR_UNKNOWN;
13906 }
13907 return 0;
13908}
13909
13910#if 0
13911/* function to check our ulp calculation. */
13912void
13913check_ulp (void)
13914{
13915 int i;
13916
13917 FLOAT u, diff, ulp;
13918 /* This gives one ulp. */
13919 u = FUNC(nextafter) (10, 20);
13920 check_equal (10.0, u, 1, &diff, &ulp);
13921 printf ("One ulp: % .4" PRINTF_NEXPR "\n", ulp);
13922
13923 /* This gives one more ulp. */
13924 u = FUNC(nextafter) (u, 20);
13925 check_equal (10.0, u, 2, &diff, &ulp);
13926 printf ("two ulp: % .4" PRINTF_NEXPR "\n", ulp);
13927
13928 /* And now calculate 100 ulp. */
13929 for (i = 2; i < 100; i++)
13930 u = FUNC(nextafter) (u, 20);
13931 check_equal (10.0, u, 100, &diff, &ulp);
13932 printf ("100 ulp: % .4" PRINTF_NEXPR "\n", ulp);
13933}
13934#endif
13935
13936int
13937main (int argc, char **argv)
13938{
13939
13940 int remaining;
26510bdd
CD		 13941 char *ulps_file_path;
13942 size_t dir_len = 0;
8847214f
UD		 13943
13944 verbose = 1;
13945 output_ulps = 0;
13946 output_max_error = 1;
13947 output_points = 1;
26510bdd 13948 output_dir = NULL;
cd33623e
UD		 13949 /* XXX set to 0 for releases. */
13950 ignore_max_ulp = 0;
bdf09fab 13951
8847214f
UD		 13952 /* Parse and process arguments. */
13953 argp_parse (&argp, argc, argv, 0, &remaining, NULL);
13954
13955 if (remaining != argc)
13956 {
13957 fprintf (stderr, "wrong number of arguments");
13958 argp_help (&argp, stdout, ARGP_HELP_SEE, program_invocation_short_name);
13959 exit (EXIT_FAILURE);
13960 }
13961
13962 if (output_ulps)
13963 {
26510bdd
CD		 13964 if (output_dir != NULL)
13965 dir_len = strlen (output_dir);
13966 ulps_file_path = (char *) malloc (dir_len + strlen (ulps_file_name) + 1);
13967 if (ulps_file_path == NULL)
13968 {
13969 perror ("can't allocate path for `ULPs' file: ");
13970 exit (1);
13971 }
13972 sprintf (ulps_file_path, "%s%s", output_dir == NULL ? "" : output_dir, ulps_file_name);
13973 ulps_file = fopen (ulps_file_path, "a");
8847214f
UD		 13974 if (ulps_file == NULL)
13975 {
13976 perror ("can't open file `ULPs' for writing: ");
13977 exit (1);
13978 }
13979 }
13980
13981
13982 initialize ();
13983 printf (TEST_MSG);
13984
13985#if 0
13986 check_ulp ();
13987#endif
13988
ec751a23 13989 /* Keep the tests a wee bit ordered (according to ISO C99). */
8847214f 13990 /* Classification macros: */
ef1bb361 13991 finite_test ();
8847214f
UD		 13992 fpclassify_test ();
13993 isfinite_test ();
ef1bb361
JM		 13994 isinf_test ();
13995 isnan_test ();
8847214f 13996 isnormal_test ();
57267616 13997 issignaling_test ();
8847214f
UD		 13998 signbit_test ();
13999
14000 /* Trigonometric functions: */
14001 acos_test ();
5ba3cc69
JM		 14002 acos_test_tonearest ();
14003 acos_test_towardzero ();
14004 acos_test_downward ();
14005 acos_test_upward ();
8847214f 14006 asin_test ();
5ba3cc69
JM		 14007 asin_test_tonearest ();
14008 asin_test_towardzero ();
14009 asin_test_downward ();
14010 asin_test_upward ();
8847214f
UD		 14011 atan_test ();
14012 atan2_test ();
14013 cos_test ();
804360ed
JM		 14014 cos_test_tonearest ();
14015 cos_test_towardzero ();
14016 cos_test_downward ();
14017 cos_test_upward ();
8847214f 14018 sin_test ();
804360ed
JM		 14019 sin_test_tonearest ();
14020 sin_test_towardzero ();
14021 sin_test_downward ();
14022 sin_test_upward ();
8847214f
UD		 14023 sincos_test ();
14024 tan_test ();
804360ed
JM		 14025 tan_test_tonearest ();
14026 tan_test_towardzero ();
14027 tan_test_downward ();
14028 tan_test_upward ();
8847214f
UD		 14029
14030 /* Hyperbolic functions: */
14031 acosh_test ();
14032 asinh_test ();
14033 atanh_test ();
14034 cosh_test ();
ca811b22
JM		 14035 cosh_test_tonearest ();
14036 cosh_test_towardzero ();
14037 cosh_test_downward ();
14038 cosh_test_upward ();
8847214f 14039 sinh_test ();
ca811b22
JM		 14040 sinh_test_tonearest ();
14041 sinh_test_towardzero ();
14042 sinh_test_downward ();
14043 sinh_test_upward ();
8847214f
UD		 14044 tanh_test ();
14045
14046 /* Exponential and logarithmic functions: */
14047 exp_test ();
28afd92d
JM		 14048 exp_test_tonearest ();
14049 exp_test_towardzero ();
14050 exp_test_downward ();
14051 exp_test_upward ();
8847214f
UD		 14052 exp10_test ();
14053 exp2_test ();
14054 expm1_test ();
14055 frexp_test ();
14056 ldexp_test ();
14057 log_test ();
14058 log10_test ();
14059 log1p_test ();
14060 log2_test ();
14061 logb_test ();
a462cb63 14062 logb_test_downward ();
8847214f
UD		 14063 modf_test ();
14064 ilogb_test ();
14065 scalb_test ();
14066 scalbn_test ();
14067 scalbln_test ();
f5c8f285 14068 significand_test ();
8847214f
UD		 14069
14070 /* Power and absolute value functions: */
14071 cbrt_test ();
14072 fabs_test ();
14073 hypot_test ();
14074 pow_test ();
b7cd39e8
JM		 14075 pow_test_tonearest ();
14076 pow_test_towardzero ();
14077 pow_test_downward ();
14078 pow_test_upward ();
8847214f
UD		 14079 sqrt_test ();
14080
14081 /* Error and gamma functions: */
14082 erf_test ();
14083 erfc_test ();
14084 gamma_test ();
14085 lgamma_test ();
14086 tgamma_test ();
14087
14088 /* Nearest integer functions: */
14089 ceil_test ();
14090 floor_test ();
14091 nearbyint_test ();
14092 rint_test ();
4d37c8aa
UD		 14093 rint_test_tonearest ();
14094 rint_test_towardzero ();
14095 rint_test_downward ();
14096 rint_test_upward ();
8847214f 14097 lrint_test ();
6624dbc0
UD		 14098 lrint_test_tonearest ();
14099 lrint_test_towardzero ();
14100 lrint_test_downward ();
14101 lrint_test_upward ();
8847214f 14102 llrint_test ();
830fce04
RM		 14103 llrint_test_tonearest ();
14104 llrint_test_towardzero ();
14105 llrint_test_downward ();
14106 llrint_test_upward ();
8847214f
UD		 14107 round_test ();
14108 lround_test ();
14109 llround_test ();
14110 trunc_test ();
14111
14112 /* Remainder functions: */
14113 fmod_test ();
14114 remainder_test ();
14115 remquo_test ();
14116
14117 /* Manipulation functions: */
14118 copysign_test ();
14119 nextafter_test ();
fe559c5e 14120 nexttoward_test ();
8847214f
UD		 14121
14122 /* maximum, minimum and positive difference functions */
14123 fdim_test ();
14124 fmax_test ();
14125 fmin_test ();
14126
14127 /* Multiply and add: */
14128 fma_test ();
8ec5b013
JM		 14129 fma_test_towardzero ();
14130 fma_test_downward ();
14131 fma_test_upward ();
8847214f 14132
0e8e0c1c
JM		 14133 /* Comparison macros: */
14134 isgreater_test ();
14135 isgreaterequal_test ();
14136 isless_test ();
14137 islessequal_test ();
14138 islessgreater_test ();
14139 isunordered_test ();
14140
8847214f
UD		 14141 /* Complex functions: */
14142 cabs_test ();
14143 cacos_test ();
14144 cacosh_test ();
14145 carg_test ();
14146 casin_test ();
14147 casinh_test ();
14148 catan_test ();
14149 catanh_test ();
14150 ccos_test ();
14151 ccosh_test ();
14152 cexp_test ();
0cdc8e6f 14153 cimag_test ();
8847214f
UD		 14154 clog10_test ();
14155 clog_test ();
0cdc8e6f 14156 conj_test ();
8847214f
UD		 14157 cpow_test ();
14158 cproj_test ();
0cdc8e6f 14159 creal_test ();
8847214f
UD		 14160 csin_test ();
14161 csinh_test ();
14162 csqrt_test ();
14163 ctan_test ();
ca61cf32
JM		 14164 ctan_test_tonearest ();
14165 ctan_test_towardzero ();
14166 ctan_test_downward ();
14167 ctan_test_upward ();
8847214f 14168 ctanh_test ();
ca61cf32
JM		 14169 ctanh_test_tonearest ();
14170 ctanh_test_towardzero ();
14171 ctanh_test_downward ();
14172 ctanh_test_upward ();
8847214f
UD		 14173
14174 /* Bessel functions: */
14175 j0_test ();
14176 j1_test ();
14177 jn_test ();
14178 y0_test ();
14179 y1_test ();
14180 yn_test ();
14181
14182 if (output_ulps)
14183 fclose (ulps_file);
14184
14185 printf ("\nTest suite completed:\n");
f2da7793
JM		 14186 printf (" %d test cases plus %d tests for exception flags and\n"
14187 " %d tests for errno executed.\n",
14188 noTests, noExcTests, noErrnoTests);
8847214f 14189 if (noXFails)
a9a56960 14190 printf (" %d expected failures occurred.\n", noXFails);
8847214f 14191 if (noXPasses)
a9a56960 14192 printf (" %d unexpected passes occurred.\n", noXPasses);
8847214f
UD		 14193 if (noErrors)
14194 {
a9a56960 14195 printf (" %d errors occurred.\n", noErrors);
cf3141a5 14196 return 1;
8847214f
UD		 14197 }
14198 printf (" All tests passed successfully.\n");
cf3141a5
AJ		 14199
14200 return 0;
8847214f
UD		 14201}
14202
14203/*
14204 * Local Variables:
14205 * mode:c
14206 * End:
14207 */
A mirror of the official glibc repository