1 /* Copyright (C) 1997-2006, 2007, 2009, 2010 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Andreas Jaeger <aj@suse.de>, 1997.
5 The GNU C Library is free software; you can redistribute it and/or
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.
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
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, write to the Free
17 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
20 /* Part of testsuite for libm.
22 This file is processed by a perl script. The resulting file has to
23 be included by a master file that defines:
26 FUNC(function): converts general function name (like cos) to
27 name with correct suffix (e.g. cosl or cosf)
28 MATHCONST(x): like FUNC but for constants (e.g convert 0.0 to 0.0L)
29 FLOAT: floating point type to test
30 - TEST_MSG: informal message to be displayed
31 CHOOSE(Clongdouble,Cdouble,Cfloat,Cinlinelongdouble,Cinlinedouble,Cinlinefloat):
32 chooses one of the parameters as delta for testing
34 PRINTF_EXPR Floating point conversion specification to print a variable
35 of type FLOAT with printf. PRINTF_EXPR just contains
36 the specifier, not the percent and width arguments,
38 PRINTF_XEXPR Like PRINTF_EXPR, but print in hexadecimal format.
39 PRINTF_NEXPR Like PRINTF_EXPR, but print nice. */
41 /* This testsuite has currently tests for:
42 acos, acosh, asin, asinh, atan, atan2, atanh,
43 cbrt, ceil, copysign, cos, cosh, erf, erfc, exp, exp10, exp2, expm1,
44 fabs, fdim, floor, fma, fmax, fmin, fmod, fpclassify,
46 ilogb, isfinite, isinf, isnan, isnormal,
47 isless, islessequal, isgreater, isgreaterequal, islessgreater, isunordered,
49 ldexp, lgamma, log, log10, log1p, log2, logb,
50 modf, nearbyint, nextafter,
51 pow, remainder, remquo, rint, lrint, llrint,
52 round, lround, llround,
53 scalb, scalbn, scalbln, signbit, sin, sincos, sinh, sqrt, tan, tanh, tgamma, trunc,
54 y0, y1, yn, significand
56 and for the following complex math functions:
57 cabs, cacos, cacosh, carg, casin, casinh, catan, catanh,
58 ccos, ccosh, cexp, clog, cpow, cproj, csin, csinh, csqrt, ctan, ctanh.
60 At the moment the following functions aren't tested:
63 Parameter handling is primitive in the moment:
64 --verbose=[0..3] for different levels of output:
66 1: basic report on failed tests (default)
67 2: full report on all tests
68 -v for full output (equals --verbose=3)
69 -u for generation of an ULPs file
74 This suite tests some aspects of the correct implementation of
75 mathematical functions in libm. Some simple, specific parameters
76 are tested for correctness but there's no exhaustive
77 testing. Handling of specific inputs (e.g. infinity, not-a-number)
78 is also tested. Correct handling of exceptions is checked
79 against. These implemented tests should check all cases that are
82 Exception testing: At the moment only divide-by-zero and invalid
83 exceptions are tested. Overflow/underflow and inexact exceptions
84 aren't checked at the moment.
86 NaN values: There exist signalling and quiet NaNs. This implementation
87 only uses quiet NaN as parameter but does not differenciate
88 between the two kinds of NaNs as result.
90 Inline functions: Inlining functions should give an improvement in
91 speed - but not in precission. The inlined functions return
92 reasonable values for a reasonable range of input values. The
93 result is not necessarily correct for all values and exceptions are
94 not correctly raised in all cases. Problematic input and return
95 values are infinity, not-a-number and minus zero. This suite
96 therefore does not check these specific inputs and the exception
97 handling for inlined mathematical functions - just the "reasonable"
100 Beware: The tests might fail for any of the following reasons:
102 - Functions are wrong
103 - Floating Point Unit not working properly
104 - Compiler has errors
106 With e.g. gcc 2.7.2.2 the test for cexp fails because of a compiler error.
109 To Do: All parameter should be numbers that can be represented as
110 exact floating point values. Currently some values cannot be
111 represented exactly and therefore the result is not the expected
112 result. For this we will use 36 digits so that numbers can be
113 represented exactly. */
119 #include "libm-test-ulps.h"
132 /* Possible exceptions */
133 #define NO_EXCEPTION 0x0
134 #define INVALID_EXCEPTION 0x1
135 #define DIVIDE_BY_ZERO_EXCEPTION 0x2
136 /* The next flags signals that those exceptions are allowed but not required. */
137 #define INVALID_EXCEPTION_OK 0x4
138 #define DIVIDE_BY_ZERO_EXCEPTION_OK 0x8
139 #define EXCEPTIONS_OK INVALID_EXCEPTION_OK+DIVIDE_BY_ZERO_EXCEPTION_OK
140 /* Some special test flags, passed togther with exceptions. */
141 #define IGNORE_ZERO_INF_SIGN 0x10
143 /* Various constants (we must supply them precalculated for accuracy). */
144 #define M_PI_6l .52359877559829887307710723054658383L
145 #define M_E2l 7.389056098930650227230427460575008L
146 #define M_E3l 20.085536923187667740928529654581719L
147 #define M_2_SQRT_PIl 3.5449077018110320545963349666822903L /* 2 sqrt (M_PIl) */
148 #define M_SQRT_PIl 1.7724538509055160272981674833411451L /* sqrt (M_PIl) */
149 #define M_LOG_SQRT_PIl 0.57236494292470008707171367567652933L /* log(sqrt(M_PIl)) */
150 #define M_LOG_2_SQRT_PIl 1.265512123484645396488945797134706L /* log(2*sqrt(M_PIl)) */
151 #define M_PI_34l (M_PIl - M_PI_4l) /* 3*pi/4 */
152 #define M_PI_34_LOG10El (M_PIl - M_PI_4l) * M_LOG10El
153 #define M_PI2_LOG10El M_PI_2l * M_LOG10El
154 #define M_PI4_LOG10El M_PI_4l * M_LOG10El
155 #define M_PI_LOG10El M_PIl * M_LOG10El
156 #define M_SQRT_2_2 0.70710678118654752440084436210484903L /* sqrt (2) / 2 */
158 static FILE *ulps_file; /* File to document difference. */
159 static int output_ulps; /* Should ulps printed? */
161 static int noErrors; /* number of errors */
162 static int noTests; /* number of tests (without testing exceptions) */
163 static int noExcTests; /* number of tests for exception flags */
164 static int noXFails; /* number of expected failures. */
165 static int noXPasses; /* number of unexpected passes. */
168 static int output_max_error; /* Should the maximal errors printed? */
169 static int output_points; /* Should the single function results printed? */
170 static int ignore_max_ulp; /* Should we ignore max_ulp? */
172 static FLOAT minus_zero, plus_zero;
173 static FLOAT plus_infty, minus_infty, nan_value, max_value, min_value;
175 static FLOAT max_error, real_max_error, imag_max_error;
178 #define BUILD_COMPLEX(real, imag) \
179 ({ __complex__ FLOAT __retval; \
180 __real__ __retval = (real); \
181 __imag__ __retval = (imag); \
184 #define BUILD_COMPLEX_INT(real, imag) \
185 ({ __complex__ int __retval; \
186 __real__ __retval = (real); \
187 __imag__ __retval = (imag); \
191 #define MANT_DIG CHOOSE ((LDBL_MANT_DIG-1), (DBL_MANT_DIG-1), (FLT_MANT_DIG-1), \
192 (LDBL_MANT_DIG-1), (DBL_MANT_DIG-1), (FLT_MANT_DIG-1))
195 init_max_error (void)
200 feclearexcept (FE_ALL_EXCEPT);
204 set_max_error (FLOAT current, FLOAT *curr_max_error)
206 if (current > *curr_max_error)
207 *curr_max_error = current;
211 /* Should the message print to screen? This depends on the verbose flag,
212 and the test status. */
214 print_screen (int ok, int xfail)
218 || (verbose == 1 && ok == xfail)))
224 /* Should the message print to screen? This depends on the verbose flag,
225 and the test status. */
227 print_screen_max_error (int ok, int xfail)
231 || ((verbose == 1) && (ok == xfail))))
236 /* Update statistic counters. */
238 update_stats (int ok, int xfail)
243 else if (!ok && xfail)
245 else if (!ok && !xfail)
250 print_ulps (const char *test_name, FLOAT ulp)
254 fprintf (ulps_file, "Test \"%s\":\n", test_name);
255 fprintf (ulps_file, "%s: %.0" PRINTF_NEXPR "\n",
256 CHOOSE("ldouble", "double", "float",
257 "ildouble", "idouble", "ifloat"),
263 print_function_ulps (const char *function_name, FLOAT ulp)
267 fprintf (ulps_file, "Function: \"%s\":\n", function_name);
268 fprintf (ulps_file, "%s: %.0" PRINTF_NEXPR "\n",
269 CHOOSE("ldouble", "double", "float",
270 "ildouble", "idouble", "ifloat"),
277 print_complex_function_ulps (const char *function_name, FLOAT real_ulp,
284 fprintf (ulps_file, "Function: Real part of \"%s\":\n", function_name);
285 fprintf (ulps_file, "%s: %.0" PRINTF_NEXPR "\n",
286 CHOOSE("ldouble", "double", "float",
287 "ildouble", "idouble", "ifloat"),
288 FUNC(ceil) (real_ulp));
292 fprintf (ulps_file, "Function: Imaginary part of \"%s\":\n", function_name);
293 fprintf (ulps_file, "%s: %.0" PRINTF_NEXPR "\n",
294 CHOOSE("ldouble", "double", "float",
295 "ildouble", "idouble", "ifloat"),
296 FUNC(ceil) (imag_ulp));
305 /* Test if Floating-Point stack hasn't changed */
307 fpstack_test (const char *test_name)
310 static int old_stack;
313 asm ("fnstsw" : "=a" (sw));
319 printf ("FP-Stack wrong after test %s (%d, should be %d)\n",
320 test_name, sw, old_stack);
329 print_max_error (const char *func_name, FLOAT allowed, int xfail)
333 if (max_error == 0.0 || (max_error <= allowed && !ignore_max_ulp))
339 print_function_ulps (func_name, max_error);
342 if (print_screen_max_error (ok, xfail))
344 printf ("Maximal error of `%s'\n", func_name);
345 printf (" is : %.0" PRINTF_NEXPR " ulp\n", FUNC(ceil) (max_error));
346 printf (" accepted: %.0" PRINTF_NEXPR " ulp\n", FUNC(ceil) (allowed));
349 update_stats (ok, xfail);
354 print_complex_max_error (const char *func_name, __complex__ FLOAT allowed,
355 __complex__ int xfail)
359 if ((real_max_error == 0 && imag_max_error == 0)
360 || (real_max_error <= __real__ allowed
361 && imag_max_error <= __imag__ allowed
368 print_complex_function_ulps (func_name, real_max_error, imag_max_error);
371 if (print_screen_max_error (ok, xfail))
373 printf ("Maximal error of real part of: %s\n", func_name);
374 printf (" is : %.0" PRINTF_NEXPR " ulp\n",
375 FUNC(ceil) (real_max_error));
376 printf (" accepted: %.0" PRINTF_NEXPR " ulp\n",
377 FUNC(ceil) (__real__ allowed));
378 printf ("Maximal error of imaginary part of: %s\n", func_name);
379 printf (" is : %.0" PRINTF_NEXPR " ulp\n",
380 FUNC(ceil) (imag_max_error));
381 printf (" accepted: %.0" PRINTF_NEXPR " ulp\n",
382 FUNC(ceil) (__imag__ allowed));
385 update_stats (ok, xfail);
389 /* Test whether a given exception was raised. */
391 test_single_exception (const char *test_name,
395 const char *flag_name)
399 if (exception & exc_flag)
401 if (fetestexcept (fe_flag))
403 if (print_screen (1, 0))
404 printf ("Pass: %s: Exception \"%s\" set\n", test_name, flag_name);
409 if (print_screen (0, 0))
410 printf ("Failure: %s: Exception \"%s\" not set\n",
411 test_name, flag_name);
416 if (fetestexcept (fe_flag))
419 if (print_screen (0, 0))
420 printf ("Failure: %s: Exception \"%s\" set\n",
421 test_name, flag_name);
425 if (print_screen (1, 0))
426 printf ("%s: Exception \"%s\" not set\n", test_name,
437 /* Test whether exceptions given by EXCEPTION are raised. Ignore thereby
438 allowed but not required exceptions.
441 test_exceptions (const char *test_name, int exception)
445 if ((exception & DIVIDE_BY_ZERO_EXCEPTION_OK) == 0)
446 test_single_exception (test_name, exception,
447 DIVIDE_BY_ZERO_EXCEPTION, FE_DIVBYZERO,
451 if ((exception & INVALID_EXCEPTION_OK) == 0)
452 test_single_exception (test_name, exception, INVALID_EXCEPTION, FE_INVALID,
453 "Invalid operation");
455 feclearexcept (FE_ALL_EXCEPT);
460 check_float_internal (const char *test_name, FLOAT computed, FLOAT expected,
461 FLOAT max_ulp, int xfail, int exceptions,
462 FLOAT *curr_max_error)
469 test_exceptions (test_name, exceptions);
470 if (isnan (computed) && isnan (expected))
472 else if (isinf (computed) && isinf (expected))
474 /* Test for sign of infinities. */
475 if ((exceptions & IGNORE_ZERO_INF_SIGN) == 0
476 && signbit (computed) != signbit (expected))
479 printf ("infinity has wrong sign.\n");
484 /* Don't calc ulp for NaNs or infinities. */
485 else if (isinf (computed) || isnan (computed) || isinf (expected) || isnan (expected))
489 diff = FUNC(fabs) (computed - expected);
490 switch (fpclassify (expected))
493 /* ilogb (0) isn't allowed. */
494 ulp = diff / FUNC(ldexp) (1.0, - MANT_DIG);
497 ulp = diff / FUNC(ldexp) (1.0, FUNC(ilogb) (expected) - MANT_DIG);
500 ulp = (FUNC(ldexp) (diff, MANT_DIG)
501 / FUNC(ldexp) (1.0, FUNC(ilogb) (expected)));
504 /* It should never happen. */
508 set_max_error (ulp, curr_max_error);
510 if ((exceptions & IGNORE_ZERO_INF_SIGN) == 0
511 && computed == 0.0 && expected == 0.0
512 && signbit(computed) != signbit (expected))
514 else if (ulp <= 0.5 || (ulp <= max_ulp && !ignore_max_ulp))
519 print_ulps (test_name, ulp);
523 if (print_screen (ok, xfail))
526 printf ("Failure: ");
527 printf ("Test: %s\n", test_name);
528 printf ("Result:\n");
529 printf (" is: % .20" PRINTF_EXPR " % .20" PRINTF_XEXPR "\n",
531 printf (" should be: % .20" PRINTF_EXPR " % .20" PRINTF_XEXPR "\n",
535 printf (" difference: % .20" PRINTF_EXPR " % .20" PRINTF_XEXPR
537 printf (" ulp : % .4" PRINTF_NEXPR "\n", ulp);
538 printf (" max.ulp : % .4" PRINTF_NEXPR "\n", max_ulp);
541 update_stats (ok, xfail);
543 fpstack_test (test_name);
548 check_float (const char *test_name, FLOAT computed, FLOAT expected,
549 FLOAT max_ulp, int xfail, int exceptions)
551 check_float_internal (test_name, computed, expected, max_ulp, xfail,
552 exceptions, &max_error);
557 check_complex (const char *test_name, __complex__ FLOAT computed,
558 __complex__ FLOAT expected,
559 __complex__ FLOAT max_ulp, __complex__ int xfail,
562 FLOAT part_comp, part_exp, part_max_ulp;
566 sprintf (str, "Real part of: %s", test_name);
567 part_comp = __real__ computed;
568 part_exp = __real__ expected;
569 part_max_ulp = __real__ max_ulp;
570 part_xfail = __real__ xfail;
572 check_float_internal (str, part_comp, part_exp, part_max_ulp, part_xfail,
573 exception, &real_max_error);
575 sprintf (str, "Imaginary part of: %s", test_name);
576 part_comp = __imag__ computed;
577 part_exp = __imag__ expected;
578 part_max_ulp = __imag__ max_ulp;
579 part_xfail = __imag__ xfail;
581 /* Don't check again for exceptions, just pass through the
582 zero/inf sign test. */
583 check_float_internal (str, part_comp, part_exp, part_max_ulp, part_xfail,
584 exception & IGNORE_ZERO_INF_SIGN,
589 /* Check that computed and expected values are equal (int values). */
591 check_int (const char *test_name, int computed, int expected, int max_ulp,
592 int xfail, int exceptions)
594 int diff = computed - expected;
597 test_exceptions (test_name, exceptions);
599 if (abs (diff) <= max_ulp)
603 print_ulps (test_name, diff);
605 if (print_screen (ok, xfail))
608 printf ("Failure: ");
609 printf ("Test: %s\n", test_name);
610 printf ("Result:\n");
611 printf (" is: %d\n", computed);
612 printf (" should be: %d\n", expected);
615 update_stats (ok, xfail);
616 fpstack_test (test_name);
620 /* Check that computed and expected values are equal (long int values). */
622 check_long (const char *test_name, long int computed, long int expected,
623 long int max_ulp, int xfail, int exceptions)
625 long int diff = computed - expected;
628 test_exceptions (test_name, exceptions);
630 if (labs (diff) <= max_ulp)
634 print_ulps (test_name, diff);
636 if (print_screen (ok, xfail))
639 printf ("Failure: ");
640 printf ("Test: %s\n", test_name);
641 printf ("Result:\n");
642 printf (" is: %ld\n", computed);
643 printf (" should be: %ld\n", expected);
646 update_stats (ok, xfail);
647 fpstack_test (test_name);
651 /* Check that computed value is true/false. */
653 check_bool (const char *test_name, int computed, int expected,
654 long int max_ulp, int xfail, int exceptions)
658 test_exceptions (test_name, exceptions);
660 if ((computed == 0) == (expected == 0))
663 if (print_screen (ok, xfail))
666 printf ("Failure: ");
667 printf ("Test: %s\n", test_name);
668 printf ("Result:\n");
669 printf (" is: %d\n", computed);
670 printf (" should be: %d\n", expected);
673 update_stats (ok, xfail);
674 fpstack_test (test_name);
678 /* check that computed and expected values are equal (long int values) */
680 check_longlong (const char *test_name, long long int computed,
681 long long int expected,
682 long long int max_ulp, int xfail,
685 long long int diff = computed - expected;
688 test_exceptions (test_name, exceptions);
690 if (llabs (diff) <= max_ulp)
694 print_ulps (test_name, diff);
696 if (print_screen (ok, xfail))
700 printf ("Test: %s\n", test_name);
701 printf ("Result:\n");
702 printf (" is: %lld\n", computed);
703 printf (" should be: %lld\n", expected);
706 update_stats (ok, xfail);
707 fpstack_test (test_name);
712 /* This is to prevent messages from the SVID libm emulation. */
714 matherr (struct exception *x __attribute__ ((unused)))
720 /****************************************************************************
721 Tests for single functions of libm.
722 Please keep them alphabetically sorted!
723 ****************************************************************************/
731 /* Function not implemented. */
736 TEST_f_f (acos, plus_infty, nan_value, INVALID_EXCEPTION);
737 TEST_f_f (acos, minus_infty, nan_value, INVALID_EXCEPTION);
738 TEST_f_f (acos, nan_value, nan_value);
741 TEST_f_f (acos, 1.125L, nan_value, INVALID_EXCEPTION);
742 TEST_f_f (acos, -1.125L, nan_value, INVALID_EXCEPTION);
744 TEST_f_f (acos, 0, M_PI_2l);
745 TEST_f_f (acos, minus_zero, M_PI_2l);
746 TEST_f_f (acos, 1, 0);
747 TEST_f_f (acos, -1, M_PIl);
748 TEST_f_f (acos, 0.5, M_PI_6l*2.0);
749 TEST_f_f (acos, -0.5, M_PI_6l*4.0);
750 TEST_f_f (acos, 0.75L, 0.722734247813415611178377352641333362L);
751 TEST_f_f (acos, 2e-17L, 1.57079632679489659923132169163975144L);
752 TEST_f_f (acos, 0.0625L, 1.50825556499840522843072005474337068L);
762 /* Function not implemented. */
767 TEST_f_f (acosh, plus_infty, plus_infty);
768 TEST_f_f (acosh, minus_infty, nan_value, INVALID_EXCEPTION);
771 TEST_f_f (acosh, -1.125L, nan_value, INVALID_EXCEPTION);
773 TEST_f_f (acosh, 1, 0);
774 TEST_f_f (acosh, 7, 2.63391579384963341725009269461593689L);
785 /* Function not implemented. */
790 TEST_f_f (asin, plus_infty, nan_value, INVALID_EXCEPTION);
791 TEST_f_f (asin, minus_infty, nan_value, INVALID_EXCEPTION);
792 TEST_f_f (asin, nan_value, nan_value);
794 /* asin x == NaN plus invalid exception for |x| > 1. */
795 TEST_f_f (asin, 1.125L, nan_value, INVALID_EXCEPTION);
796 TEST_f_f (asin, -1.125L, nan_value, INVALID_EXCEPTION);
798 TEST_f_f (asin, 0, 0);
799 TEST_f_f (asin, minus_zero, minus_zero);
800 TEST_f_f (asin, 0.5, M_PI_6l);
801 TEST_f_f (asin, -0.5, -M_PI_6l);
802 TEST_f_f (asin, 1.0, M_PI_2l);
803 TEST_f_f (asin, -1.0, -M_PI_2l);
804 TEST_f_f (asin, 0.75L, 0.848062078981481008052944338998418080L);
815 /* Function not implemented. */
820 TEST_f_f (asinh, 0, 0);
821 TEST_f_f (asinh, minus_zero, minus_zero);
823 TEST_f_f (asinh, plus_infty, plus_infty);
824 TEST_f_f (asinh, minus_infty, minus_infty);
826 TEST_f_f (asinh, nan_value, nan_value);
827 TEST_f_f (asinh, 0.75L, 0.693147180559945309417232121458176568L);
838 /* Function not implemented. */
843 TEST_f_f (atan, 0, 0);
844 TEST_f_f (atan, minus_zero, minus_zero);
846 TEST_f_f (atan, plus_infty, M_PI_2l);
847 TEST_f_f (atan, minus_infty, -M_PI_2l);
848 TEST_f_f (atan, nan_value, nan_value);
850 TEST_f_f (atan, 1, M_PI_4l);
851 TEST_f_f (atan, -1, -M_PI_4l);
853 TEST_f_f (atan, 0.75L, 0.643501108793284386802809228717322638L);
866 /* Function not implemented. */
872 TEST_f_f (atanh, 0, 0);
873 TEST_f_f (atanh, minus_zero, minus_zero);
875 TEST_f_f (atanh, 1, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
876 TEST_f_f (atanh, -1, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
877 TEST_f_f (atanh, nan_value, nan_value);
879 /* atanh (x) == NaN plus invalid exception if |x| > 1. */
880 TEST_f_f (atanh, 1.125L, nan_value, INVALID_EXCEPTION);
881 TEST_f_f (atanh, -1.125L, nan_value, INVALID_EXCEPTION);
883 TEST_f_f (atanh, 0.75L, 0.972955074527656652552676371721589865L);
894 /* Function not implemented. */
899 /* atan2 (0,x) == 0 for x > 0. */
900 TEST_ff_f (atan2, 0, 1, 0);
902 /* atan2 (-0,x) == -0 for x > 0. */
903 TEST_ff_f (atan2, minus_zero, 1, minus_zero);
905 TEST_ff_f (atan2, 0, 0, 0);
906 TEST_ff_f (atan2, minus_zero, 0, minus_zero);
908 /* atan2 (+0,x) == +pi for x < 0. */
909 TEST_ff_f (atan2, 0, -1, M_PIl);
911 /* atan2 (-0,x) == -pi for x < 0. */
912 TEST_ff_f (atan2, minus_zero, -1, -M_PIl);
914 TEST_ff_f (atan2, 0, minus_zero, M_PIl);
915 TEST_ff_f (atan2, minus_zero, minus_zero, -M_PIl);
917 /* atan2 (y,+0) == pi/2 for y > 0. */
918 TEST_ff_f (atan2, 1, 0, M_PI_2l);
920 /* atan2 (y,-0) == pi/2 for y > 0. */
921 TEST_ff_f (atan2, 1, minus_zero, M_PI_2l);
923 /* atan2 (y,+0) == -pi/2 for y < 0. */
924 TEST_ff_f (atan2, -1, 0, -M_PI_2l);
926 /* atan2 (y,-0) == -pi/2 for y < 0. */
927 TEST_ff_f (atan2, -1, minus_zero, -M_PI_2l);
929 /* atan2 (y,inf) == +0 for finite y > 0. */
930 TEST_ff_f (atan2, 1, plus_infty, 0);
932 /* atan2 (y,inf) == -0 for finite y < 0. */
933 TEST_ff_f (atan2, -1, plus_infty, minus_zero);
935 /* atan2(+inf, x) == pi/2 for finite x. */
936 TEST_ff_f (atan2, plus_infty, -1, M_PI_2l);
938 /* atan2(-inf, x) == -pi/2 for finite x. */
939 TEST_ff_f (atan2, minus_infty, 1, -M_PI_2l);
941 /* atan2 (y,-inf) == +pi for finite y > 0. */
942 TEST_ff_f (atan2, 1, minus_infty, M_PIl);
944 /* atan2 (y,-inf) == -pi for finite y < 0. */
945 TEST_ff_f (atan2, -1, minus_infty, -M_PIl);
947 TEST_ff_f (atan2, plus_infty, plus_infty, M_PI_4l);
948 TEST_ff_f (atan2, minus_infty, plus_infty, -M_PI_4l);
949 TEST_ff_f (atan2, plus_infty, minus_infty, M_PI_34l);
950 TEST_ff_f (atan2, minus_infty, minus_infty, -M_PI_34l);
951 TEST_ff_f (atan2, nan_value, nan_value, nan_value);
953 TEST_ff_f (atan2, 0.75L, 1, 0.643501108793284386802809228717322638L);
954 TEST_ff_f (atan2, -0.75L, 1.0L, -0.643501108793284386802809228717322638L);
955 TEST_ff_f (atan2, 0.75L, -1.0L, 2.49809154479650885165983415456218025L);
956 TEST_ff_f (atan2, -0.75L, -1.0L, -2.49809154479650885165983415456218025L);
957 TEST_ff_f (atan2, 0.390625L, .00029L, 1.57005392693128974780151246612928941L);
958 TEST_ff_f (atan2, 1.390625L, 0.9296875L, 0.981498387184244311516296577615519772L);
960 TEST_ff_f (atan2, -0.00756827042671106339L, -.001792735857538728036L, -1.80338464113663849327153994379639112L);
969 FUNC(cabs) (BUILD_COMPLEX (0.7L, 12.4L));
971 /* Function not implemented. */
976 /* cabs (x + iy) is specified as hypot (x,y) */
978 /* cabs (+inf + i x) == +inf. */
979 TEST_c_f (cabs, plus_infty, 1.0, plus_infty);
980 /* cabs (-inf + i x) == +inf. */
981 TEST_c_f (cabs, minus_infty, 1.0, plus_infty);
983 TEST_c_f (cabs, minus_infty, nan_value, plus_infty);
984 TEST_c_f (cabs, minus_infty, nan_value, plus_infty);
986 TEST_c_f (cabs, nan_value, nan_value, nan_value);
988 /* cabs (x,y) == cabs (y,x). */
989 TEST_c_f (cabs, 0.75L, 12.390625L, 12.4133028598606664302388810868156657L);
990 /* cabs (x,y) == cabs (-x,y). */
991 TEST_c_f (cabs, -12.390625L, 0.75L, 12.4133028598606664302388810868156657L);
992 /* cabs (x,y) == cabs (-y,x). */
993 TEST_c_f (cabs, -0.75L, 12.390625L, 12.4133028598606664302388810868156657L);
994 /* cabs (x,y) == cabs (-x,-y). */
995 TEST_c_f (cabs, -12.390625L, -0.75L, 12.4133028598606664302388810868156657L);
996 /* cabs (x,y) == cabs (-y,-x). */
997 TEST_c_f (cabs, -0.75L, -12.390625L, 12.4133028598606664302388810868156657L);
998 /* cabs (x,0) == fabs (x). */
999 TEST_c_f (cabs, -0.75L, 0, 0.75L);
1000 TEST_c_f (cabs, 0.75L, 0, 0.75L);
1001 TEST_c_f (cabs, -1.0L, 0, 1.0L);
1002 TEST_c_f (cabs, 1.0L, 0, 1.0L);
1003 TEST_c_f (cabs, -5.7e7L, 0, 5.7e7L);
1004 TEST_c_f (cabs, 5.7e7L, 0, 5.7e7L);
1006 TEST_c_f (cabs, 0.75L, 1.25L, 1.45773797371132511771853821938639577L);
1016 FUNC(cacos) (BUILD_COMPLEX (0.7L, 1.2L));
1017 if (errno == ENOSYS)
1018 /* Function not implemented. */
1024 TEST_c_c (cacos, 0, 0, M_PI_2l, minus_zero);
1025 TEST_c_c (cacos, minus_zero, 0, M_PI_2l, minus_zero);
1026 TEST_c_c (cacos, minus_zero, minus_zero, M_PI_2l, 0.0);
1027 TEST_c_c (cacos, 0, minus_zero, M_PI_2l, 0.0);
1029 TEST_c_c (cacos, minus_infty, plus_infty, M_PI_34l, minus_infty);
1030 TEST_c_c (cacos, minus_infty, minus_infty, M_PI_34l, plus_infty);
1032 TEST_c_c (cacos, plus_infty, plus_infty, M_PI_4l, minus_infty);
1033 TEST_c_c (cacos, plus_infty, minus_infty, M_PI_4l, plus_infty);
1035 TEST_c_c (cacos, -10.0, plus_infty, M_PI_2l, minus_infty);
1036 TEST_c_c (cacos, -10.0, minus_infty, M_PI_2l, plus_infty);
1037 TEST_c_c (cacos, 0, plus_infty, M_PI_2l, minus_infty);
1038 TEST_c_c (cacos, 0, minus_infty, M_PI_2l, plus_infty);
1039 TEST_c_c (cacos, 0.1L, plus_infty, M_PI_2l, minus_infty);
1040 TEST_c_c (cacos, 0.1L, minus_infty, M_PI_2l, plus_infty);
1042 TEST_c_c (cacos, minus_infty, 0, M_PIl, minus_infty);
1043 TEST_c_c (cacos, minus_infty, minus_zero, M_PIl, plus_infty);
1044 TEST_c_c (cacos, minus_infty, 100, M_PIl, minus_infty);
1045 TEST_c_c (cacos, minus_infty, -100, M_PIl, plus_infty);
1047 TEST_c_c (cacos, plus_infty, 0, 0.0, minus_infty);
1048 TEST_c_c (cacos, plus_infty, minus_zero, 0.0, plus_infty);
1049 TEST_c_c (cacos, plus_infty, 0.5, 0.0, minus_infty);
1050 TEST_c_c (cacos, plus_infty, -0.5, 0.0, plus_infty);
1052 TEST_c_c (cacos, plus_infty, nan_value, nan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
1053 TEST_c_c (cacos, minus_infty, nan_value, nan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
1055 TEST_c_c (cacos, 0, nan_value, M_PI_2l, nan_value);
1056 TEST_c_c (cacos, minus_zero, nan_value, M_PI_2l, nan_value);
1058 TEST_c_c (cacos, nan_value, plus_infty, nan_value, minus_infty);
1059 TEST_c_c (cacos, nan_value, minus_infty, nan_value, plus_infty);
1061 TEST_c_c (cacos, 10.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1062 TEST_c_c (cacos, -10.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1064 TEST_c_c (cacos, nan_value, 0.75, nan_value, nan_value, INVALID_EXCEPTION_OK);
1065 TEST_c_c (cacos, nan_value, -0.75, nan_value, nan_value, INVALID_EXCEPTION_OK);
1067 TEST_c_c (cacos, nan_value, nan_value, nan_value, nan_value);
1069 TEST_c_c (cacos, 0.75L, 1.25L, 1.11752014915610270578240049553777969L, -1.13239363160530819522266333696834467L);
1070 TEST_c_c (cacos, -2, -3, 2.1414491111159960199416055713254211L, 1.9833870299165354323470769028940395L);
1072 END (cacos, complex);
1079 FUNC(cacosh) (BUILD_COMPLEX (0.7L, 1.2L));
1080 if (errno == ENOSYS)
1081 /* Function not implemented. */
1087 TEST_c_c (cacosh, 0, 0, 0.0, M_PI_2l);
1088 TEST_c_c (cacosh, minus_zero, 0, 0.0, M_PI_2l);
1089 TEST_c_c (cacosh, 0, minus_zero, 0.0, -M_PI_2l);
1090 TEST_c_c (cacosh, minus_zero, minus_zero, 0.0, -M_PI_2l);
1091 TEST_c_c (cacosh, minus_infty, plus_infty, plus_infty, M_PI_34l);
1092 TEST_c_c (cacosh, minus_infty, minus_infty, plus_infty, -M_PI_34l);
1094 TEST_c_c (cacosh, plus_infty, plus_infty, plus_infty, M_PI_4l);
1095 TEST_c_c (cacosh, plus_infty, minus_infty, plus_infty, -M_PI_4l);
1097 TEST_c_c (cacosh, -10.0, plus_infty, plus_infty, M_PI_2l);
1098 TEST_c_c (cacosh, -10.0, minus_infty, plus_infty, -M_PI_2l);
1099 TEST_c_c (cacosh, 0, plus_infty, plus_infty, M_PI_2l);
1100 TEST_c_c (cacosh, 0, minus_infty, plus_infty, -M_PI_2l);
1101 TEST_c_c (cacosh, 0.1L, plus_infty, plus_infty, M_PI_2l);
1102 TEST_c_c (cacosh, 0.1L, minus_infty, plus_infty, -M_PI_2l);
1104 TEST_c_c (cacosh, minus_infty, 0, plus_infty, M_PIl);
1105 TEST_c_c (cacosh, minus_infty, minus_zero, plus_infty, -M_PIl);
1106 TEST_c_c (cacosh, minus_infty, 100, plus_infty, M_PIl);
1107 TEST_c_c (cacosh, minus_infty, -100, plus_infty, -M_PIl);
1109 TEST_c_c (cacosh, plus_infty, 0, plus_infty, 0.0);
1110 TEST_c_c (cacosh, plus_infty, minus_zero, plus_infty, minus_zero);
1111 TEST_c_c (cacosh, plus_infty, 0.5, plus_infty, 0.0);
1112 TEST_c_c (cacosh, plus_infty, -0.5, plus_infty, minus_zero);
1114 TEST_c_c (cacosh, plus_infty, nan_value, plus_infty, nan_value);
1115 TEST_c_c (cacosh, minus_infty, nan_value, plus_infty, nan_value);
1117 TEST_c_c (cacosh, 0, nan_value, nan_value, nan_value);
1118 TEST_c_c (cacosh, minus_zero, nan_value, nan_value, nan_value);
1120 TEST_c_c (cacosh, nan_value, plus_infty, plus_infty, nan_value);
1121 TEST_c_c (cacosh, nan_value, minus_infty, plus_infty, nan_value);
1123 TEST_c_c (cacosh, 10.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1124 TEST_c_c (cacosh, -10.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1126 TEST_c_c (cacosh, nan_value, 0.75, nan_value, nan_value, INVALID_EXCEPTION_OK);
1127 TEST_c_c (cacosh, nan_value, -0.75, nan_value, nan_value, INVALID_EXCEPTION_OK);
1129 TEST_c_c (cacosh, nan_value, nan_value, nan_value, nan_value);
1131 TEST_c_c (cacosh, 0.75L, 1.25L, 1.13239363160530819522266333696834467L, 1.11752014915610270578240049553777969L);
1132 TEST_c_c (cacosh, -2, -3, 1.9833870299165354323470769028940395L, -2.1414491111159960199416055713254211L);
1134 END (cacosh, complex);
1143 /* carg (x + iy) is specified as atan2 (y, x) */
1145 /* carg (x + i 0) == 0 for x > 0. */
1146 TEST_c_f (carg, 2.0, 0, 0);
1147 /* carg (x - i 0) == -0 for x > 0. */
1148 TEST_c_f (carg, 2.0, minus_zero, minus_zero);
1150 TEST_c_f (carg, 0, 0, 0);
1151 TEST_c_f (carg, 0, minus_zero, minus_zero);
1153 /* carg (x + i 0) == +pi for x < 0. */
1154 TEST_c_f (carg, -2.0, 0, M_PIl);
1156 /* carg (x - i 0) == -pi for x < 0. */
1157 TEST_c_f (carg, -2.0, minus_zero, -M_PIl);
1159 TEST_c_f (carg, minus_zero, 0, M_PIl);
1160 TEST_c_f (carg, minus_zero, minus_zero, -M_PIl);
1162 /* carg (+0 + i y) == pi/2 for y > 0. */
1163 TEST_c_f (carg, 0, 2.0, M_PI_2l);
1165 /* carg (-0 + i y) == pi/2 for y > 0. */
1166 TEST_c_f (carg, minus_zero, 2.0, M_PI_2l);
1168 /* carg (+0 + i y) == -pi/2 for y < 0. */
1169 TEST_c_f (carg, 0, -2.0, -M_PI_2l);
1171 /* carg (-0 + i y) == -pi/2 for y < 0. */
1172 TEST_c_f (carg, minus_zero, -2.0, -M_PI_2l);
1174 /* carg (inf + i y) == +0 for finite y > 0. */
1175 TEST_c_f (carg, plus_infty, 2.0, 0);
1177 /* carg (inf + i y) == -0 for finite y < 0. */
1178 TEST_c_f (carg, plus_infty, -2.0, minus_zero);
1180 /* carg(x + i inf) == pi/2 for finite x. */
1181 TEST_c_f (carg, 10.0, plus_infty, M_PI_2l);
1183 /* carg(x - i inf) == -pi/2 for finite x. */
1184 TEST_c_f (carg, 10.0, minus_infty, -M_PI_2l);
1186 /* carg (-inf + i y) == +pi for finite y > 0. */
1187 TEST_c_f (carg, minus_infty, 10.0, M_PIl);
1189 /* carg (-inf + i y) == -pi for finite y < 0. */
1190 TEST_c_f (carg, minus_infty, -10.0, -M_PIl);
1192 TEST_c_f (carg, plus_infty, plus_infty, M_PI_4l);
1194 TEST_c_f (carg, plus_infty, minus_infty, -M_PI_4l);
1196 TEST_c_f (carg, minus_infty, plus_infty, 3 * M_PI_4l);
1198 TEST_c_f (carg, minus_infty, minus_infty, -3 * M_PI_4l);
1200 TEST_c_f (carg, nan_value, nan_value, nan_value);
1209 FUNC(casin) (BUILD_COMPLEX (0.7L, 1.2L));
1210 if (errno == ENOSYS)
1211 /* Function not implemented. */
1216 TEST_c_c (casin, 0, 0, 0.0, 0.0);
1217 TEST_c_c (casin, minus_zero, 0, minus_zero, 0.0);
1218 TEST_c_c (casin, 0, minus_zero, 0.0, minus_zero);
1219 TEST_c_c (casin, minus_zero, minus_zero, minus_zero, minus_zero);
1221 TEST_c_c (casin, plus_infty, plus_infty, M_PI_4l, plus_infty);
1222 TEST_c_c (casin, plus_infty, minus_infty, M_PI_4l, minus_infty);
1223 TEST_c_c (casin, minus_infty, plus_infty, -M_PI_4l, plus_infty);
1224 TEST_c_c (casin, minus_infty, minus_infty, -M_PI_4l, minus_infty);
1226 TEST_c_c (casin, -10.0, plus_infty, minus_zero, plus_infty);
1227 TEST_c_c (casin, -10.0, minus_infty, minus_zero, minus_infty);
1228 TEST_c_c (casin, 0, plus_infty, 0.0, plus_infty);
1229 TEST_c_c (casin, 0, minus_infty, 0.0, minus_infty);
1230 TEST_c_c (casin, minus_zero, plus_infty, minus_zero, plus_infty);
1231 TEST_c_c (casin, minus_zero, minus_infty, minus_zero, minus_infty);
1232 TEST_c_c (casin, 0.1L, plus_infty, 0.0, plus_infty);
1233 TEST_c_c (casin, 0.1L, minus_infty, 0.0, minus_infty);
1235 TEST_c_c (casin, minus_infty, 0, -M_PI_2l, plus_infty);
1236 TEST_c_c (casin, minus_infty, minus_zero, -M_PI_2l, minus_infty);
1237 TEST_c_c (casin, minus_infty, 100, -M_PI_2l, plus_infty);
1238 TEST_c_c (casin, minus_infty, -100, -M_PI_2l, minus_infty);
1240 TEST_c_c (casin, plus_infty, 0, M_PI_2l, plus_infty);
1241 TEST_c_c (casin, plus_infty, minus_zero, M_PI_2l, minus_infty);
1242 TEST_c_c (casin, plus_infty, 0.5, M_PI_2l, plus_infty);
1243 TEST_c_c (casin, plus_infty, -0.5, M_PI_2l, minus_infty);
1245 TEST_c_c (casin, nan_value, plus_infty, nan_value, plus_infty);
1246 TEST_c_c (casin, nan_value, minus_infty, nan_value, minus_infty);
1248 TEST_c_c (casin, 0.0, nan_value, 0.0, nan_value);
1249 TEST_c_c (casin, minus_zero, nan_value, minus_zero, nan_value);
1251 TEST_c_c (casin, plus_infty, nan_value, nan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
1252 TEST_c_c (casin, minus_infty, nan_value, nan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
1254 TEST_c_c (casin, nan_value, 10.5, nan_value, nan_value, INVALID_EXCEPTION_OK);
1255 TEST_c_c (casin, nan_value, -10.5, nan_value, nan_value, INVALID_EXCEPTION_OK);
1257 TEST_c_c (casin, 0.75, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1258 TEST_c_c (casin, -0.75, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1260 TEST_c_c (casin, nan_value, nan_value, nan_value, nan_value);
1262 TEST_c_c (casin, 0.75L, 1.25L, 0.453276177638793913448921196101971749L, 1.13239363160530819522266333696834467L);
1263 TEST_c_c (casin, -2, -3, -0.57065278432109940071028387968566963L, -1.9833870299165354323470769028940395L);
1265 END (casin, complex);
1273 FUNC(casinh) (BUILD_COMPLEX (0.7L, 1.2L));
1274 if (errno == ENOSYS)
1275 /* Function not implemented. */
1280 TEST_c_c (casinh, 0, 0, 0.0, 0.0);
1281 TEST_c_c (casinh, minus_zero, 0, minus_zero, 0);
1282 TEST_c_c (casinh, 0, minus_zero, 0.0, minus_zero);
1283 TEST_c_c (casinh, minus_zero, minus_zero, minus_zero, minus_zero);
1285 TEST_c_c (casinh, plus_infty, plus_infty, plus_infty, M_PI_4l);
1286 TEST_c_c (casinh, plus_infty, minus_infty, plus_infty, -M_PI_4l);
1287 TEST_c_c (casinh, minus_infty, plus_infty, minus_infty, M_PI_4l);
1288 TEST_c_c (casinh, minus_infty, minus_infty, minus_infty, -M_PI_4l);
1290 TEST_c_c (casinh, -10.0, plus_infty, minus_infty, M_PI_2l);
1291 TEST_c_c (casinh, -10.0, minus_infty, minus_infty, -M_PI_2l);
1292 TEST_c_c (casinh, 0, plus_infty, plus_infty, M_PI_2l);
1293 TEST_c_c (casinh, 0, minus_infty, plus_infty, -M_PI_2l);
1294 TEST_c_c (casinh, minus_zero, plus_infty, minus_infty, M_PI_2l);
1295 TEST_c_c (casinh, minus_zero, minus_infty, minus_infty, -M_PI_2l);
1296 TEST_c_c (casinh, 0.1L, plus_infty, plus_infty, M_PI_2l);
1297 TEST_c_c (casinh, 0.1L, minus_infty, plus_infty, -M_PI_2l);
1299 TEST_c_c (casinh, minus_infty, 0, minus_infty, 0.0);
1300 TEST_c_c (casinh, minus_infty, minus_zero, minus_infty, minus_zero);
1301 TEST_c_c (casinh, minus_infty, 100, minus_infty, 0.0);
1302 TEST_c_c (casinh, minus_infty, -100, minus_infty, minus_zero);
1304 TEST_c_c (casinh, plus_infty, 0, plus_infty, 0.0);
1305 TEST_c_c (casinh, plus_infty, minus_zero, plus_infty, minus_zero);
1306 TEST_c_c (casinh, plus_infty, 0.5, plus_infty, 0.0);
1307 TEST_c_c (casinh, plus_infty, -0.5, plus_infty, minus_zero);
1309 TEST_c_c (casinh, plus_infty, nan_value, plus_infty, nan_value);
1310 TEST_c_c (casinh, minus_infty, nan_value, minus_infty, nan_value);
1312 TEST_c_c (casinh, nan_value, 0, nan_value, 0.0);
1313 TEST_c_c (casinh, nan_value, minus_zero, nan_value, minus_zero);
1315 TEST_c_c (casinh, nan_value, plus_infty, plus_infty, nan_value, IGNORE_ZERO_INF_SIGN);
1316 TEST_c_c (casinh, nan_value, minus_infty, plus_infty, nan_value, IGNORE_ZERO_INF_SIGN);
1318 TEST_c_c (casinh, 10.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1319 TEST_c_c (casinh, -10.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1321 TEST_c_c (casinh, nan_value, 0.75, nan_value, nan_value, INVALID_EXCEPTION_OK);
1322 TEST_c_c (casinh, -0.75, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1324 TEST_c_c (casinh, nan_value, nan_value, nan_value, nan_value);
1326 TEST_c_c (casinh, 0.75L, 1.25L, 1.03171853444778027336364058631006594L, 0.911738290968487636358489564316731207L);
1327 TEST_c_c (casinh, -2, -3, -1.9686379257930962917886650952454982L, -0.96465850440760279204541105949953237L);
1329 END (casinh, complex);
1337 FUNC(catan) (BUILD_COMPLEX (0.7L, 1.2L));
1338 if (errno == ENOSYS)
1339 /* Function not implemented. */
1344 TEST_c_c (catan, 0, 0, 0, 0);
1345 TEST_c_c (catan, minus_zero, 0, minus_zero, 0);
1346 TEST_c_c (catan, 0, minus_zero, 0, minus_zero);
1347 TEST_c_c (catan, minus_zero, minus_zero, minus_zero, minus_zero);
1349 TEST_c_c (catan, plus_infty, plus_infty, M_PI_2l, 0);
1350 TEST_c_c (catan, plus_infty, minus_infty, M_PI_2l, minus_zero);
1351 TEST_c_c (catan, minus_infty, plus_infty, -M_PI_2l, 0);
1352 TEST_c_c (catan, minus_infty, minus_infty, -M_PI_2l, minus_zero);
1355 TEST_c_c (catan, plus_infty, -10.0, M_PI_2l, minus_zero);
1356 TEST_c_c (catan, minus_infty, -10.0, -M_PI_2l, minus_zero);
1357 TEST_c_c (catan, plus_infty, minus_zero, M_PI_2l, minus_zero);
1358 TEST_c_c (catan, minus_infty, minus_zero, -M_PI_2l, minus_zero);
1359 TEST_c_c (catan, plus_infty, 0.0, M_PI_2l, 0);
1360 TEST_c_c (catan, minus_infty, 0.0, -M_PI_2l, 0);
1361 TEST_c_c (catan, plus_infty, 0.1L, M_PI_2l, 0);
1362 TEST_c_c (catan, minus_infty, 0.1L, -M_PI_2l, 0);
1364 TEST_c_c (catan, 0.0, minus_infty, M_PI_2l, minus_zero);
1365 TEST_c_c (catan, minus_zero, minus_infty, -M_PI_2l, minus_zero);
1366 TEST_c_c (catan, 100.0, minus_infty, M_PI_2l, minus_zero);
1367 TEST_c_c (catan, -100.0, minus_infty, -M_PI_2l, minus_zero);
1369 TEST_c_c (catan, 0.0, plus_infty, M_PI_2l, 0);
1370 TEST_c_c (catan, minus_zero, plus_infty, -M_PI_2l, 0);
1371 TEST_c_c (catan, 0.5, plus_infty, M_PI_2l, 0);
1372 TEST_c_c (catan, -0.5, plus_infty, -M_PI_2l, 0);
1374 TEST_c_c (catan, nan_value, 0.0, nan_value, 0);
1375 TEST_c_c (catan, nan_value, minus_zero, nan_value, minus_zero);
1377 TEST_c_c (catan, nan_value, plus_infty, nan_value, 0);
1378 TEST_c_c (catan, nan_value, minus_infty, nan_value, minus_zero);
1380 TEST_c_c (catan, 0.0, nan_value, nan_value, nan_value);
1381 TEST_c_c (catan, minus_zero, nan_value, nan_value, nan_value);
1383 TEST_c_c (catan, plus_infty, nan_value, M_PI_2l, 0, IGNORE_ZERO_INF_SIGN);
1384 TEST_c_c (catan, minus_infty, nan_value, -M_PI_2l, 0, IGNORE_ZERO_INF_SIGN);
1386 TEST_c_c (catan, nan_value, 10.5, nan_value, nan_value, INVALID_EXCEPTION_OK);
1387 TEST_c_c (catan, nan_value, -10.5, nan_value, nan_value, INVALID_EXCEPTION_OK);
1389 TEST_c_c (catan, 0.75, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1390 TEST_c_c (catan, -0.75, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1392 TEST_c_c (catan, nan_value, nan_value, nan_value, nan_value);
1394 TEST_c_c (catan, 0.75L, 1.25L, 1.10714871779409050301706546017853704L, 0.549306144334054845697622618461262852L);
1395 TEST_c_c (catan, -2, -3, -1.4099210495965755225306193844604208L, -0.22907268296853876629588180294200276L);
1397 END (catan, complex);
1404 FUNC(catanh) (BUILD_COMPLEX (0.7L, 1.2L));
1405 if (errno == ENOSYS)
1406 /* Function not implemented. */
1411 TEST_c_c (catanh, 0, 0, 0.0, 0.0);
1412 TEST_c_c (catanh, minus_zero, 0, minus_zero, 0.0);
1413 TEST_c_c (catanh, 0, minus_zero, 0.0, minus_zero);
1414 TEST_c_c (catanh, minus_zero, minus_zero, minus_zero, minus_zero);
1416 TEST_c_c (catanh, plus_infty, plus_infty, 0.0, M_PI_2l);
1417 TEST_c_c (catanh, plus_infty, minus_infty, 0.0, -M_PI_2l);
1418 TEST_c_c (catanh, minus_infty, plus_infty, minus_zero, M_PI_2l);
1419 TEST_c_c (catanh, minus_infty, minus_infty, minus_zero, -M_PI_2l);
1421 TEST_c_c (catanh, -10.0, plus_infty, minus_zero, M_PI_2l);
1422 TEST_c_c (catanh, -10.0, minus_infty, minus_zero, -M_PI_2l);
1423 TEST_c_c (catanh, minus_zero, plus_infty, minus_zero, M_PI_2l);
1424 TEST_c_c (catanh, minus_zero, minus_infty, minus_zero, -M_PI_2l);
1425 TEST_c_c (catanh, 0, plus_infty, 0.0, M_PI_2l);
1426 TEST_c_c (catanh, 0, minus_infty, 0.0, -M_PI_2l);
1427 TEST_c_c (catanh, 0.1L, plus_infty, 0.0, M_PI_2l);
1428 TEST_c_c (catanh, 0.1L, minus_infty, 0.0, -M_PI_2l);
1430 TEST_c_c (catanh, minus_infty, 0, minus_zero, M_PI_2l);
1431 TEST_c_c (catanh, minus_infty, minus_zero, minus_zero, -M_PI_2l);
1432 TEST_c_c (catanh, minus_infty, 100, minus_zero, M_PI_2l);
1433 TEST_c_c (catanh, minus_infty, -100, minus_zero, -M_PI_2l);
1435 TEST_c_c (catanh, plus_infty, 0, 0.0, M_PI_2l);
1436 TEST_c_c (catanh, plus_infty, minus_zero, 0.0, -M_PI_2l);
1437 TEST_c_c (catanh, plus_infty, 0.5, 0.0, M_PI_2l);
1438 TEST_c_c (catanh, plus_infty, -0.5, 0.0, -M_PI_2l);
1440 TEST_c_c (catanh, 0, nan_value, 0.0, nan_value);
1441 TEST_c_c (catanh, minus_zero, nan_value, minus_zero, nan_value);
1443 TEST_c_c (catanh, plus_infty, nan_value, 0.0, nan_value);
1444 TEST_c_c (catanh, minus_infty, nan_value, minus_zero, nan_value);
1446 TEST_c_c (catanh, nan_value, 0, nan_value, nan_value);
1447 TEST_c_c (catanh, nan_value, minus_zero, nan_value, nan_value);
1449 TEST_c_c (catanh, nan_value, plus_infty, 0.0, M_PI_2l, IGNORE_ZERO_INF_SIGN);
1450 TEST_c_c (catanh, nan_value, minus_infty, 0.0, -M_PI_2l, IGNORE_ZERO_INF_SIGN);
1452 TEST_c_c (catanh, 10.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1453 TEST_c_c (catanh, -10.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1455 TEST_c_c (catanh, nan_value, 0.75, nan_value, nan_value, INVALID_EXCEPTION_OK);
1456 TEST_c_c (catanh, nan_value, -0.75, nan_value, nan_value, INVALID_EXCEPTION_OK);
1458 TEST_c_c (catanh, nan_value, nan_value, nan_value, nan_value);
1460 TEST_c_c (catanh, 0.75L, 1.25L, 0.261492138795671927078652057366532140L, 0.996825126463918666098902241310446708L);
1461 TEST_c_c (catanh, -2, -3, -0.14694666622552975204743278515471595L, -1.3389725222944935611241935759091443L);
1463 END (catanh, complex);
1471 if (errno == ENOSYS)
1472 /* Function not implemented. */
1477 TEST_f_f (cbrt, 0.0, 0.0);
1478 TEST_f_f (cbrt, minus_zero, minus_zero);
1480 TEST_f_f (cbrt, plus_infty, plus_infty);
1481 TEST_f_f (cbrt, minus_infty, minus_infty);
1482 TEST_f_f (cbrt, nan_value, nan_value);
1484 TEST_f_f (cbrt, -0.001L, -0.1L);
1485 TEST_f_f (cbrt, 8, 2);
1486 TEST_f_f (cbrt, -27.0, -3.0);
1487 TEST_f_f (cbrt, 0.9921875L, 0.997389022060725270579075195353955217L);
1488 TEST_f_f (cbrt, 0.75L, 0.908560296416069829445605878163630251L);
1498 FUNC(ccos) (BUILD_COMPLEX (0, 0));
1499 if (errno == ENOSYS)
1500 /* Function not implemented. */
1505 TEST_c_c (ccos, 0.0, 0.0, 1.0, minus_zero);
1506 TEST_c_c (ccos, minus_zero, 0.0, 1.0, 0.0);
1507 TEST_c_c (ccos, 0.0, minus_zero, 1.0, 0.0);
1508 TEST_c_c (ccos, minus_zero, minus_zero, 1.0, minus_zero);
1510 TEST_c_c (ccos, plus_infty, 0.0, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
1511 TEST_c_c (ccos, plus_infty, minus_zero, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
1512 TEST_c_c (ccos, minus_infty, 0.0, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
1513 TEST_c_c (ccos, minus_infty, minus_zero, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
1515 TEST_c_c (ccos, 0.0, plus_infty, plus_infty, minus_zero);
1516 TEST_c_c (ccos, 0.0, minus_infty, plus_infty, 0.0);
1517 TEST_c_c (ccos, minus_zero, plus_infty, plus_infty, 0.0);
1518 TEST_c_c (ccos, minus_zero, minus_infty, plus_infty, minus_zero);
1520 TEST_c_c (ccos, plus_infty, plus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
1521 TEST_c_c (ccos, minus_infty, plus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
1522 TEST_c_c (ccos, plus_infty, minus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
1523 TEST_c_c (ccos, minus_infty, minus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
1525 TEST_c_c (ccos, 4.625, plus_infty, minus_infty, plus_infty);
1526 TEST_c_c (ccos, 4.625, minus_infty, minus_infty, minus_infty);
1527 TEST_c_c (ccos, -4.625, plus_infty, minus_infty, minus_infty);
1528 TEST_c_c (ccos, -4.625, minus_infty, minus_infty, plus_infty);
1530 TEST_c_c (ccos, plus_infty, 6.75, nan_value, nan_value, INVALID_EXCEPTION);
1531 TEST_c_c (ccos, plus_infty, -6.75, nan_value, nan_value, INVALID_EXCEPTION);
1532 TEST_c_c (ccos, minus_infty, 6.75, nan_value, nan_value, INVALID_EXCEPTION);
1533 TEST_c_c (ccos, minus_infty, -6.75, nan_value, nan_value, INVALID_EXCEPTION);
1535 TEST_c_c (ccos, nan_value, 0.0, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
1536 TEST_c_c (ccos, nan_value, minus_zero, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
1538 TEST_c_c (ccos, nan_value, plus_infty, plus_infty, nan_value);
1539 TEST_c_c (ccos, nan_value, minus_infty, plus_infty, nan_value);
1541 TEST_c_c (ccos, nan_value, 9.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
1542 TEST_c_c (ccos, nan_value, -9.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
1544 TEST_c_c (ccos, 0.0, nan_value, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
1545 TEST_c_c (ccos, minus_zero, nan_value, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
1547 TEST_c_c (ccos, 10.0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1548 TEST_c_c (ccos, -10.0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1550 TEST_c_c (ccos, plus_infty, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1551 TEST_c_c (ccos, minus_infty, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1553 TEST_c_c (ccos, nan_value, nan_value, nan_value, nan_value);
1555 TEST_c_c (ccos, 0.75L, 1.25L, 1.38173873063425888530729933139078645L, -1.09193013555397466170919531722024128L);
1556 TEST_c_c (ccos, -2, -3, -4.18962569096880723013255501961597373L, -9.10922789375533659797919726277886212L);
1558 END (ccos, complex);
1566 FUNC(ccosh) (BUILD_COMPLEX (0.7L, 1.2L));
1567 if (errno == ENOSYS)
1568 /* Function not implemented. */
1573 TEST_c_c (ccosh, 0.0, 0.0, 1.0, 0.0);
1574 TEST_c_c (ccosh, minus_zero, 0.0, 1.0, minus_zero);
1575 TEST_c_c (ccosh, 0.0, minus_zero, 1.0, minus_zero);
1576 TEST_c_c (ccosh, minus_zero, minus_zero, 1.0, 0.0);
1578 TEST_c_c (ccosh, 0.0, plus_infty, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
1579 TEST_c_c (ccosh, minus_zero, plus_infty, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
1580 TEST_c_c (ccosh, 0.0, minus_infty, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
1581 TEST_c_c (ccosh, minus_zero, minus_infty, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
1583 TEST_c_c (ccosh, plus_infty, 0.0, plus_infty, 0.0);
1584 TEST_c_c (ccosh, minus_infty, 0.0, plus_infty, minus_zero);
1585 TEST_c_c (ccosh, plus_infty, minus_zero, plus_infty, minus_zero);
1586 TEST_c_c (ccosh, minus_infty, minus_zero, plus_infty, 0.0);
1588 TEST_c_c (ccosh, plus_infty, plus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
1589 TEST_c_c (ccosh, minus_infty, plus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
1590 TEST_c_c (ccosh, plus_infty, minus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
1591 TEST_c_c (ccosh, minus_infty, minus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
1593 TEST_c_c (ccosh, plus_infty, 4.625, minus_infty, minus_infty);
1594 TEST_c_c (ccosh, minus_infty, 4.625, minus_infty, plus_infty);
1595 TEST_c_c (ccosh, plus_infty, -4.625, minus_infty, plus_infty);
1596 TEST_c_c (ccosh, minus_infty, -4.625, minus_infty, minus_infty);
1598 TEST_c_c (ccosh, 6.75, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
1599 TEST_c_c (ccosh, -6.75, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
1600 TEST_c_c (ccosh, 6.75, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
1601 TEST_c_c (ccosh, -6.75, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
1603 TEST_c_c (ccosh, 0.0, nan_value, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
1604 TEST_c_c (ccosh, minus_zero, nan_value, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
1606 TEST_c_c (ccosh, plus_infty, nan_value, plus_infty, nan_value);
1607 TEST_c_c (ccosh, minus_infty, nan_value, plus_infty, nan_value);
1609 TEST_c_c (ccosh, 9.0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1610 TEST_c_c (ccosh, -9.0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1612 TEST_c_c (ccosh, nan_value, 0.0, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
1613 TEST_c_c (ccosh, nan_value, minus_zero, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
1615 TEST_c_c (ccosh, nan_value, 10.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
1616 TEST_c_c (ccosh, nan_value, -10.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
1618 TEST_c_c (ccosh, nan_value, plus_infty, nan_value, nan_value, INVALID_EXCEPTION_OK);
1619 TEST_c_c (ccosh, nan_value, minus_infty, nan_value, nan_value, INVALID_EXCEPTION_OK);
1621 TEST_c_c (ccosh, nan_value, nan_value, nan_value, nan_value);
1623 TEST_c_c (ccosh, 0.75L, 1.25L, 0.408242591877968807788852146397499084L, 0.780365930845853240391326216300863152L);
1625 TEST_c_c (ccosh, -2, -3, -3.72454550491532256547397070325597253L, 0.511822569987384608834463849801875634L);
1627 END (ccosh, complex);
1636 TEST_f_f (ceil, 0.0, 0.0);
1637 TEST_f_f (ceil, minus_zero, minus_zero);
1638 TEST_f_f (ceil, plus_infty, plus_infty);
1639 TEST_f_f (ceil, minus_infty, minus_infty);
1640 TEST_f_f (ceil, nan_value, nan_value);
1642 TEST_f_f (ceil, M_PIl, 4.0);
1643 TEST_f_f (ceil, -M_PIl, -3.0);
1644 TEST_f_f (ceil, 0.1, 1.0);
1645 TEST_f_f (ceil, 0.25, 1.0);
1646 TEST_f_f (ceil, 0.625, 1.0);
1647 TEST_f_f (ceil, -0.1, minus_zero);
1648 TEST_f_f (ceil, -0.25, minus_zero);
1649 TEST_f_f (ceil, -0.625, minus_zero);
1652 /* The result can only be represented in long double. */
1653 TEST_f_f (ceil, 4503599627370495.5L, 4503599627370496.0L);
1654 TEST_f_f (ceil, 4503599627370496.25L, 4503599627370497.0L);
1655 TEST_f_f (ceil, 4503599627370496.5L, 4503599627370497.0L);
1656 TEST_f_f (ceil, 4503599627370496.75L, 4503599627370497.0L);
1657 TEST_f_f (ceil, 4503599627370497.5L, 4503599627370498.0L);
1659 TEST_f_f (ceil, -4503599627370495.5L, -4503599627370495.0L);
1660 TEST_f_f (ceil, -4503599627370496.25L, -4503599627370496.0L);
1661 TEST_f_f (ceil, -4503599627370496.5L, -4503599627370496.0L);
1662 TEST_f_f (ceil, -4503599627370496.75L, -4503599627370496.0L);
1663 TEST_f_f (ceil, -4503599627370497.5L, -4503599627370497.0L);
1665 # if LDBL_MANT_DIG > 100
1666 TEST_f_f (ceil, 4503599627370494.5000000000001L, 4503599627370495.0L);
1667 TEST_f_f (ceil, 4503599627370495.5000000000001L, 4503599627370496.0L);
1668 TEST_f_f (ceil, 4503599627370496.5000000000001L, 4503599627370497.0L);
1669 TEST_f_f (ceil, -4503599627370494.5000000000001L, -4503599627370494.0L);
1670 TEST_f_f (ceil, -4503599627370495.5000000000001L, -4503599627370495.0L);
1671 TEST_f_f (ceil, -4503599627370496.5000000000001L, -4503599627370496.0L);
1674 TEST_f_f (ceil, 9007199254740991.5L, 9007199254740992.0L);
1675 TEST_f_f (ceil, 9007199254740992.25L, 9007199254740993.0L);
1676 TEST_f_f (ceil, 9007199254740992.5L, 9007199254740993.0L);
1677 TEST_f_f (ceil, 9007199254740992.75L, 9007199254740993.0L);
1678 TEST_f_f (ceil, 9007199254740993.5L, 9007199254740994.0L);
1680 TEST_f_f (ceil, -9007199254740991.5L, -9007199254740991.0L);
1681 TEST_f_f (ceil, -9007199254740992.25L, -9007199254740992.0L);
1682 TEST_f_f (ceil, -9007199254740992.5L, -9007199254740992.0L);
1683 TEST_f_f (ceil, -9007199254740992.75L, -9007199254740992.0L);
1684 TEST_f_f (ceil, -9007199254740993.5L, -9007199254740993.0L);
1686 # if LDBL_MANT_DIG > 100
1687 TEST_f_f (ceil, 9007199254740991.0000000000001L, 9007199254740992.0L);
1688 TEST_f_f (ceil, 9007199254740992.0000000000001L, 9007199254740993.0L);
1689 TEST_f_f (ceil, 9007199254740993.0000000000001L, 9007199254740994.0L);
1690 TEST_f_f (ceil, 9007199254740991.5000000000001L, 9007199254740992.0L);
1691 TEST_f_f (ceil, 9007199254740992.5000000000001L, 9007199254740993.0L);
1692 TEST_f_f (ceil, 9007199254740993.5000000000001L, 9007199254740994.0L);
1694 TEST_f_f (ceil, -9007199254740991.0000000000001L, -9007199254740991.0L);
1695 TEST_f_f (ceil, -9007199254740992.0000000000001L, -9007199254740992.0L);
1696 TEST_f_f (ceil, -9007199254740993.0000000000001L, -9007199254740993.0L);
1697 TEST_f_f (ceil, -9007199254740991.5000000000001L, -9007199254740991.0L);
1698 TEST_f_f (ceil, -9007199254740992.5000000000001L, -9007199254740992.0L);
1699 TEST_f_f (ceil, -9007199254740993.5000000000001L, -9007199254740993.0L);
1702 TEST_f_f (ceil, 72057594037927935.5L, 72057594037927936.0L);
1703 TEST_f_f (ceil, 72057594037927936.25L, 72057594037927937.0L);
1704 TEST_f_f (ceil, 72057594037927936.5L, 72057594037927937.0L);
1705 TEST_f_f (ceil, 72057594037927936.75L, 72057594037927937.0L);
1706 TEST_f_f (ceil, 72057594037927937.5L, 72057594037927938.0L);
1708 TEST_f_f (ceil, -72057594037927935.5L, -72057594037927935.0L);
1709 TEST_f_f (ceil, -72057594037927936.25L, -72057594037927936.0L);
1710 TEST_f_f (ceil, -72057594037927936.5L, -72057594037927936.0L);
1711 TEST_f_f (ceil, -72057594037927936.75L, -72057594037927936.0L);
1712 TEST_f_f (ceil, -72057594037927937.5L, -72057594037927937.0L);
1714 TEST_f_f (ceil, 10141204801825835211973625643007.5L, 10141204801825835211973625643008.0L);
1715 TEST_f_f (ceil, 10141204801825835211973625643008.25L, 10141204801825835211973625643009.0L);
1716 TEST_f_f (ceil, 10141204801825835211973625643008.5L, 10141204801825835211973625643009.0L);
1717 TEST_f_f (ceil, 10141204801825835211973625643008.75L, 10141204801825835211973625643009.0L);
1718 TEST_f_f (ceil, 10141204801825835211973625643009.5L, 10141204801825835211973625643010.0L);
1729 FUNC(cexp) (BUILD_COMPLEX (0, 0));
1730 if (errno == ENOSYS)
1731 /* Function not implemented. */
1736 TEST_c_c (cexp, plus_zero, plus_zero, 1, 0.0);
1737 TEST_c_c (cexp, minus_zero, plus_zero, 1, 0.0);
1738 TEST_c_c (cexp, plus_zero, minus_zero, 1, minus_zero);
1739 TEST_c_c (cexp, minus_zero, minus_zero, 1, minus_zero);
1741 TEST_c_c (cexp, plus_infty, plus_zero, plus_infty, 0.0);
1742 TEST_c_c (cexp, plus_infty, minus_zero, plus_infty, minus_zero);
1744 TEST_c_c (cexp, minus_infty, plus_zero, 0.0, 0.0);
1745 TEST_c_c (cexp, minus_infty, minus_zero, 0.0, minus_zero);
1747 TEST_c_c (cexp, 0.0, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
1748 TEST_c_c (cexp, minus_zero, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
1750 TEST_c_c (cexp, 0.0, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
1751 TEST_c_c (cexp, minus_zero, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
1753 TEST_c_c (cexp, 100.0, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
1754 TEST_c_c (cexp, -100.0, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
1756 TEST_c_c (cexp, 100.0, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
1757 TEST_c_c (cexp, -100.0, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
1759 TEST_c_c (cexp, minus_infty, 2.0, minus_zero, 0.0);
1760 TEST_c_c (cexp, minus_infty, 4.0, minus_zero, minus_zero);
1761 TEST_c_c (cexp, plus_infty, 2.0, minus_infty, plus_infty);
1762 TEST_c_c (cexp, plus_infty, 4.0, minus_infty, minus_infty);
1764 TEST_c_c (cexp, plus_infty, plus_infty, plus_infty, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
1765 TEST_c_c (cexp, plus_infty, minus_infty, plus_infty, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
1767 TEST_c_c (cexp, minus_infty, plus_infty, 0.0, 0.0, IGNORE_ZERO_INF_SIGN);
1768 TEST_c_c (cexp, minus_infty, minus_infty, 0.0, minus_zero, IGNORE_ZERO_INF_SIGN);
1770 TEST_c_c (cexp, minus_infty, nan_value, 0, 0, IGNORE_ZERO_INF_SIGN);
1772 TEST_c_c (cexp, plus_infty, nan_value, plus_infty, nan_value);
1774 TEST_c_c (cexp, nan_value, 0.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
1775 TEST_c_c (cexp, nan_value, 1.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
1777 TEST_c_c (cexp, nan_value, plus_infty, nan_value, nan_value, INVALID_EXCEPTION_OK);
1778 TEST_c_c (cexp, 0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1779 TEST_c_c (cexp, 1, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1780 TEST_c_c (cexp, nan_value, nan_value, nan_value, nan_value);
1782 TEST_c_c (cexp, 0.75L, 1.25L, 0.667537446429131586942201977015932112L, 2.00900045494094876258347228145863909L);
1783 TEST_c_c (cexp, -2.0, -3.0, -0.13398091492954261346140525546115575L, -0.019098516261135196432576240858800925L);
1785 END (cexp, complex);
1793 TEST_c_f (cimag, 1.0, 0.0, 0.0);
1794 TEST_c_f (cimag, 1.0, minus_zero, minus_zero);
1795 TEST_c_f (cimag, 1.0, nan_value, nan_value);
1796 TEST_c_f (cimag, nan_value, nan_value, nan_value);
1797 TEST_c_f (cimag, 1.0, plus_infty, plus_infty);
1798 TEST_c_f (cimag, 1.0, minus_infty, minus_infty);
1799 TEST_c_f (cimag, 2.0, 3.0, 3.0);
1808 FUNC(clog) (BUILD_COMPLEX (-2, -3));
1809 if (errno == ENOSYS)
1810 /* Function not implemented. */
1815 TEST_c_c (clog, minus_zero, 0, minus_infty, M_PIl, DIVIDE_BY_ZERO_EXCEPTION);
1816 TEST_c_c (clog, minus_zero, minus_zero, minus_infty, -M_PIl, DIVIDE_BY_ZERO_EXCEPTION);
1818 TEST_c_c (clog, 0, 0, minus_infty, 0.0, DIVIDE_BY_ZERO_EXCEPTION);
1819 TEST_c_c (clog, 0, minus_zero, minus_infty, minus_zero, DIVIDE_BY_ZERO_EXCEPTION);
1821 TEST_c_c (clog, minus_infty, plus_infty, plus_infty, M_PI_34l);
1822 TEST_c_c (clog, minus_infty, minus_infty, plus_infty, -M_PI_34l);
1824 TEST_c_c (clog, plus_infty, plus_infty, plus_infty, M_PI_4l);
1825 TEST_c_c (clog, plus_infty, minus_infty, plus_infty, -M_PI_4l);
1827 TEST_c_c (clog, 0, plus_infty, plus_infty, M_PI_2l);
1828 TEST_c_c (clog, 3, plus_infty, plus_infty, M_PI_2l);
1829 TEST_c_c (clog, minus_zero, plus_infty, plus_infty, M_PI_2l);
1830 TEST_c_c (clog, -3, plus_infty, plus_infty, M_PI_2l);
1831 TEST_c_c (clog, 0, minus_infty, plus_infty, -M_PI_2l);
1832 TEST_c_c (clog, 3, minus_infty, plus_infty, -M_PI_2l);
1833 TEST_c_c (clog, minus_zero, minus_infty, plus_infty, -M_PI_2l);
1834 TEST_c_c (clog, -3, minus_infty, plus_infty, -M_PI_2l);
1836 TEST_c_c (clog, minus_infty, 0, plus_infty, M_PIl);
1837 TEST_c_c (clog, minus_infty, 1, plus_infty, M_PIl);
1838 TEST_c_c (clog, minus_infty, minus_zero, plus_infty, -M_PIl);
1839 TEST_c_c (clog, minus_infty, -1, plus_infty, -M_PIl);
1841 TEST_c_c (clog, plus_infty, 0, plus_infty, 0.0);
1842 TEST_c_c (clog, plus_infty, 1, plus_infty, 0.0);
1843 TEST_c_c (clog, plus_infty, minus_zero, plus_infty, minus_zero);
1844 TEST_c_c (clog, plus_infty, -1, plus_infty, minus_zero);
1846 TEST_c_c (clog, plus_infty, nan_value, plus_infty, nan_value);
1847 TEST_c_c (clog, minus_infty, nan_value, plus_infty, nan_value);
1849 TEST_c_c (clog, nan_value, plus_infty, plus_infty, nan_value);
1850 TEST_c_c (clog, nan_value, minus_infty, plus_infty, nan_value);
1852 TEST_c_c (clog, 0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1853 TEST_c_c (clog, 3, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1854 TEST_c_c (clog, minus_zero, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1855 TEST_c_c (clog, -3, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1857 TEST_c_c (clog, nan_value, 0, nan_value, nan_value, INVALID_EXCEPTION_OK);
1858 TEST_c_c (clog, nan_value, 5, nan_value, nan_value, INVALID_EXCEPTION_OK);
1859 TEST_c_c (clog, nan_value, minus_zero, nan_value, nan_value, INVALID_EXCEPTION_OK);
1860 TEST_c_c (clog, nan_value, -5, nan_value, nan_value, INVALID_EXCEPTION_OK);
1862 TEST_c_c (clog, nan_value, nan_value, nan_value, nan_value);
1864 TEST_c_c (clog, 0.75L, 1.25L, 0.376885901188190075998919126749298416L, 1.03037682652431246378774332703115153L);
1865 TEST_c_c (clog, -2, -3, 1.2824746787307683680267437207826593L, -2.1587989303424641704769327722648368L);
1867 END (clog, complex);
1875 FUNC(clog10) (BUILD_COMPLEX (0.7L, 1.2L));
1876 if (errno == ENOSYS)
1877 /* Function not implemented. */
1882 TEST_c_c (clog10, minus_zero, 0, minus_infty, M_PIl, DIVIDE_BY_ZERO_EXCEPTION);
1883 TEST_c_c (clog10, minus_zero, minus_zero, minus_infty, -M_PIl, DIVIDE_BY_ZERO_EXCEPTION);
1885 TEST_c_c (clog10, 0, 0, minus_infty, 0.0, DIVIDE_BY_ZERO_EXCEPTION);
1886 TEST_c_c (clog10, 0, minus_zero, minus_infty, minus_zero, DIVIDE_BY_ZERO_EXCEPTION);
1888 TEST_c_c (clog10, minus_infty, plus_infty, plus_infty, M_PI_34_LOG10El);
1890 TEST_c_c (clog10, plus_infty, plus_infty, plus_infty, M_PI4_LOG10El);
1891 TEST_c_c (clog10, plus_infty, minus_infty, plus_infty, -M_PI4_LOG10El);
1893 TEST_c_c (clog10, 0, plus_infty, plus_infty, M_PI2_LOG10El);
1894 TEST_c_c (clog10, 3, plus_infty, plus_infty, M_PI2_LOG10El);
1895 TEST_c_c (clog10, minus_zero, plus_infty, plus_infty, M_PI2_LOG10El);
1896 TEST_c_c (clog10, -3, plus_infty, plus_infty, M_PI2_LOG10El);
1897 TEST_c_c (clog10, 0, minus_infty, plus_infty, -M_PI2_LOG10El);
1898 TEST_c_c (clog10, 3, minus_infty, plus_infty, -M_PI2_LOG10El);
1899 TEST_c_c (clog10, minus_zero, minus_infty, plus_infty, -M_PI2_LOG10El);
1900 TEST_c_c (clog10, -3, minus_infty, plus_infty, -M_PI2_LOG10El);
1902 TEST_c_c (clog10, minus_infty, 0, plus_infty, M_PI_LOG10El);
1903 TEST_c_c (clog10, minus_infty, 1, plus_infty, M_PI_LOG10El);
1904 TEST_c_c (clog10, minus_infty, minus_zero, plus_infty, -M_PI_LOG10El);
1905 TEST_c_c (clog10, minus_infty, -1, plus_infty, -M_PI_LOG10El);
1907 TEST_c_c (clog10, plus_infty, 0, plus_infty, 0.0);
1908 TEST_c_c (clog10, plus_infty, 1, plus_infty, 0.0);
1909 TEST_c_c (clog10, plus_infty, minus_zero, plus_infty, minus_zero);
1910 TEST_c_c (clog10, plus_infty, -1, plus_infty, minus_zero);
1912 TEST_c_c (clog10, plus_infty, nan_value, plus_infty, nan_value);
1913 TEST_c_c (clog10, minus_infty, nan_value, plus_infty, nan_value);
1915 TEST_c_c (clog10, nan_value, plus_infty, plus_infty, nan_value);
1916 TEST_c_c (clog10, nan_value, minus_infty, plus_infty, nan_value);
1918 TEST_c_c (clog10, 0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1919 TEST_c_c (clog10, 3, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1920 TEST_c_c (clog10, minus_zero, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1921 TEST_c_c (clog10, -3, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
1923 TEST_c_c (clog10, nan_value, 0, nan_value, nan_value, INVALID_EXCEPTION_OK);
1924 TEST_c_c (clog10, nan_value, 5, nan_value, nan_value, INVALID_EXCEPTION_OK);
1925 TEST_c_c (clog10, nan_value, minus_zero, nan_value, nan_value, INVALID_EXCEPTION_OK);
1926 TEST_c_c (clog10, nan_value, -5, nan_value, nan_value, INVALID_EXCEPTION_OK);
1928 TEST_c_c (clog10, nan_value, nan_value, nan_value, nan_value);
1930 TEST_c_c (clog10, 0.75L, 1.25L, 0.163679467193165171449476605077428975L, 0.447486970040493067069984724340855636L);
1931 TEST_c_c (clog10, -2, -3, 0.556971676153418384603252578971164214L, -0.937554462986374708541507952140189646L);
1933 END (clog10, complex);
1941 TEST_c_c (conj, 0.0, 0.0, 0.0, minus_zero);
1942 TEST_c_c (conj, 0.0, minus_zero, 0.0, 0.0);
1943 TEST_c_c (conj, nan_value, nan_value, nan_value, nan_value);
1944 TEST_c_c (conj, plus_infty, minus_infty, plus_infty, plus_infty);
1945 TEST_c_c (conj, plus_infty, plus_infty, plus_infty, minus_infty);
1946 TEST_c_c (conj, 1.0, 2.0, 1.0, -2.0);
1947 TEST_c_c (conj, 3.0, -4.0, 3.0, 4.0);
1949 END (conj, complex);
1954 copysign_test (void)
1958 TEST_ff_f (copysign, 0, 4, 0);
1959 TEST_ff_f (copysign, 0, -4, minus_zero);
1960 TEST_ff_f (copysign, minus_zero, 4, 0);
1961 TEST_ff_f (copysign, minus_zero, -4, minus_zero);
1963 TEST_ff_f (copysign, plus_infty, 0, plus_infty);
1964 TEST_ff_f (copysign, plus_infty, minus_zero, minus_infty);
1965 TEST_ff_f (copysign, minus_infty, 0, plus_infty);
1966 TEST_ff_f (copysign, minus_infty, minus_zero, minus_infty);
1968 TEST_ff_f (copysign, 0, plus_infty, 0);
1969 TEST_ff_f (copysign, 0, minus_zero, minus_zero);
1970 TEST_ff_f (copysign, minus_zero, plus_infty, 0);
1971 TEST_ff_f (copysign, minus_zero, minus_zero, minus_zero);
1973 /* XXX More correctly we would have to check the sign of the NaN. */
1974 TEST_ff_f (copysign, nan_value, 0, nan_value);
1975 TEST_ff_f (copysign, nan_value, minus_zero, nan_value);
1976 TEST_ff_f (copysign, -nan_value, 0, nan_value);
1977 TEST_ff_f (copysign, -nan_value, minus_zero, nan_value);
1988 if (errno == ENOSYS)
1989 /* Function not implemented. */
1994 TEST_f_f (cos, 0, 1);
1995 TEST_f_f (cos, minus_zero, 1);
1997 TEST_f_f (cos, plus_infty, nan_value, INVALID_EXCEPTION);
1998 check_int ("errno for cos(+inf) == EDOM", errno, EDOM, 0, 0, 0);
2000 TEST_f_f (cos, minus_infty, nan_value, INVALID_EXCEPTION);
2001 check_int ("errno for cos(-inf) == EDOM", errno, EDOM, 0, 0, 0);
2003 TEST_f_f (cos, nan_value, nan_value);
2004 check_int ("errno for cos(NaN) unchanged", errno, 0, 0, 0, 0);
2006 TEST_f_f (cos, M_PI_6l * 2.0, 0.5);
2007 TEST_f_f (cos, M_PI_6l * 4.0, -0.5);
2008 TEST_f_f (cos, M_PI_2l, 0);
2010 TEST_f_f (cos, 0.75L, 0.731688868873820886311838753000084544L);
2013 TEST_f_f (cos, 0.80190127184058835, 0.69534156199418473);
2025 if (errno == ENOSYS)
2026 /* Function not implemented. */
2030 TEST_f_f (cosh, 0, 1);
2031 TEST_f_f (cosh, minus_zero, 1);
2034 TEST_f_f (cosh, plus_infty, plus_infty);
2035 TEST_f_f (cosh, minus_infty, plus_infty);
2037 TEST_f_f (cosh, nan_value, nan_value);
2039 TEST_f_f (cosh, 0.75L, 1.29468328467684468784170818539018176L);
2049 FUNC(cpow) (BUILD_COMPLEX (1, 0), BUILD_COMPLEX (0, 0));
2050 if (errno == ENOSYS)
2051 /* Function not implemented. */
2056 TEST_cc_c (cpow, 1, 0, 0, 0, 1.0, 0.0);
2057 TEST_cc_c (cpow, 2, 0, 10, 0, 1024.0, 0.0);
2059 TEST_cc_c (cpow, M_El, 0, 0, 2 * M_PIl, 1.0, 0.0);
2060 TEST_cc_c (cpow, 2, 3, 4, 0, -119.0, -120.0);
2062 TEST_cc_c (cpow, nan_value, nan_value, nan_value, nan_value, nan_value, nan_value);
2064 TEST_cc_c (cpow, 0.75L, 1.25L, 0.75L, 1.25L, 0.117506293914473555420279832210420483L, 0.346552747708338676483025352060418001L);
2065 TEST_cc_c (cpow, 0.75L, 1.25L, 1.0L, 1.0L, 0.0846958290317209430433805274189191353L, 0.513285749182902449043287190519090481L);
2066 TEST_cc_c (cpow, 0.75L, 1.25L, 1.0L, 0.0L, 0.75L, 1.25L);
2067 TEST_cc_c (cpow, 0.75L, 1.25L, 0.0L, 1.0L, 0.331825439177608832276067945276730566L, 0.131338600281188544930936345230903032L);
2069 END (cpow, complex);
2077 TEST_c_c (cproj, 0.0, 0.0, 0.0, 0.0);
2078 TEST_c_c (cproj, minus_zero, minus_zero, minus_zero, minus_zero);
2079 TEST_c_c (cproj, 0.0, minus_zero, 0.0, minus_zero);
2080 TEST_c_c (cproj, minus_zero, 0.0, minus_zero, 0.0);
2082 TEST_c_c (cproj, nan_value, nan_value, nan_value, nan_value);
2084 TEST_c_c (cproj, plus_infty, plus_infty, plus_infty, 0.0);
2085 TEST_c_c (cproj, plus_infty, minus_infty, plus_infty, minus_zero);
2086 TEST_c_c (cproj, minus_infty, plus_infty, plus_infty, 0.0);
2087 TEST_c_c (cproj, minus_infty, minus_infty, plus_infty, minus_zero);
2089 TEST_c_c (cproj, 1.0, 0.0, 1.0, 0.0);
2090 TEST_c_c (cproj, 2.0, 3.0, 2.0, 3.0);
2092 END (cproj, complex);
2100 TEST_c_f (creal, 0.0, 1.0, 0.0);
2101 TEST_c_f (creal, minus_zero, 1.0, minus_zero);
2102 TEST_c_f (creal, nan_value, 1.0, nan_value);
2103 TEST_c_f (creal, nan_value, nan_value, nan_value);
2104 TEST_c_f (creal, plus_infty, 1.0, plus_infty);
2105 TEST_c_f (creal, minus_infty, 1.0, minus_infty);
2106 TEST_c_f (creal, 2.0, 3.0, 2.0);
2115 FUNC(csin) (BUILD_COMPLEX (0.7L, 1.2L));
2116 if (errno == ENOSYS)
2117 /* Function not implemented. */
2122 TEST_c_c (csin, 0.0, 0.0, 0.0, 0.0);
2123 TEST_c_c (csin, minus_zero, 0.0, minus_zero, 0.0);
2124 TEST_c_c (csin, 0.0, minus_zero, 0, minus_zero);
2125 TEST_c_c (csin, minus_zero, minus_zero, minus_zero, minus_zero);
2127 TEST_c_c (csin, 0.0, plus_infty, 0.0, plus_infty);
2128 TEST_c_c (csin, minus_zero, plus_infty, minus_zero, plus_infty);
2129 TEST_c_c (csin, 0.0, minus_infty, 0.0, minus_infty);
2130 TEST_c_c (csin, minus_zero, minus_infty, minus_zero, minus_infty);
2132 TEST_c_c (csin, plus_infty, 0.0, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
2133 TEST_c_c (csin, minus_infty, 0.0, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
2134 TEST_c_c (csin, plus_infty, minus_zero, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
2135 TEST_c_c (csin, minus_infty, minus_zero, nan_value, 0.0, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
2137 TEST_c_c (csin, plus_infty, plus_infty, nan_value, plus_infty, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
2138 TEST_c_c (csin, minus_infty, plus_infty, nan_value, plus_infty, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
2139 TEST_c_c (csin, plus_infty, minus_infty, nan_value, plus_infty, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
2140 TEST_c_c (csin, minus_infty, minus_infty, nan_value, plus_infty, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
2142 TEST_c_c (csin, plus_infty, 6.75, nan_value, nan_value, INVALID_EXCEPTION);
2143 TEST_c_c (csin, plus_infty, -6.75, nan_value, nan_value, INVALID_EXCEPTION);
2144 TEST_c_c (csin, minus_infty, 6.75, nan_value, nan_value, INVALID_EXCEPTION);
2145 TEST_c_c (csin, minus_infty, -6.75, nan_value, nan_value, INVALID_EXCEPTION);
2147 TEST_c_c (csin, 4.625, plus_infty, minus_infty, minus_infty);
2148 TEST_c_c (csin, 4.625, minus_infty, minus_infty, plus_infty);
2149 TEST_c_c (csin, -4.625, plus_infty, plus_infty, minus_infty);
2150 TEST_c_c (csin, -4.625, minus_infty, plus_infty, plus_infty);
2152 TEST_c_c (csin, nan_value, 0.0, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
2153 TEST_c_c (csin, nan_value, minus_zero, nan_value, 0.0, IGNORE_ZERO_INF_SIGN);
2155 TEST_c_c (csin, nan_value, plus_infty, nan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
2156 TEST_c_c (csin, nan_value, minus_infty, nan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
2158 TEST_c_c (csin, nan_value, 9.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
2159 TEST_c_c (csin, nan_value, -9.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
2161 TEST_c_c (csin, 0.0, nan_value, 0.0, nan_value);
2162 TEST_c_c (csin, minus_zero, nan_value, minus_zero, nan_value);
2164 TEST_c_c (csin, 10.0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
2165 TEST_c_c (csin, nan_value, -10.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
2167 TEST_c_c (csin, plus_infty, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
2168 TEST_c_c (csin, minus_infty, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
2170 TEST_c_c (csin, nan_value, nan_value, nan_value, nan_value);
2172 TEST_c_c (csin, 0.75L, 1.25L, 1.28722291002649188575873510790565441L, 1.17210635989270256101081285116138863L);
2173 TEST_c_c (csin, -2, -3, -9.15449914691142957346729954460983256L, 4.16890695996656435075481305885375484L);
2175 END (csin, complex);
2183 FUNC(csinh) (BUILD_COMPLEX (0.7L, 1.2L));
2184 if (errno == ENOSYS)
2185 /* Function not implemented. */
2190 TEST_c_c (csinh, 0.0, 0.0, 0.0, 0.0);
2191 TEST_c_c (csinh, minus_zero, 0.0, minus_zero, 0.0);
2192 TEST_c_c (csinh, 0.0, minus_zero, 0.0, minus_zero);
2193 TEST_c_c (csinh, minus_zero, minus_zero, minus_zero, minus_zero);
2195 TEST_c_c (csinh, 0.0, plus_infty, 0.0, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
2196 TEST_c_c (csinh, minus_zero, plus_infty, 0.0, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
2197 TEST_c_c (csinh, 0.0, minus_infty, 0.0, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
2198 TEST_c_c (csinh, minus_zero, minus_infty, 0.0, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
2200 TEST_c_c (csinh, plus_infty, 0.0, plus_infty, 0.0);
2201 TEST_c_c (csinh, minus_infty, 0.0, minus_infty, 0.0);
2202 TEST_c_c (csinh, plus_infty, minus_zero, plus_infty, minus_zero);
2203 TEST_c_c (csinh, minus_infty, minus_zero, minus_infty, minus_zero);
2205 TEST_c_c (csinh, plus_infty, plus_infty, plus_infty, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
2206 TEST_c_c (csinh, minus_infty, plus_infty, plus_infty, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
2207 TEST_c_c (csinh, plus_infty, minus_infty, plus_infty, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
2208 TEST_c_c (csinh, minus_infty, minus_infty, plus_infty, nan_value, INVALID_EXCEPTION|IGNORE_ZERO_INF_SIGN);
2210 TEST_c_c (csinh, plus_infty, 4.625, minus_infty, minus_infty);
2211 TEST_c_c (csinh, minus_infty, 4.625, plus_infty, minus_infty);
2212 TEST_c_c (csinh, plus_infty, -4.625, minus_infty, plus_infty);
2213 TEST_c_c (csinh, minus_infty, -4.625, plus_infty, plus_infty);
2215 TEST_c_c (csinh, 6.75, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
2216 TEST_c_c (csinh, -6.75, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
2217 TEST_c_c (csinh, 6.75, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
2218 TEST_c_c (csinh, -6.75, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
2220 TEST_c_c (csinh, 0.0, nan_value, 0.0, nan_value, IGNORE_ZERO_INF_SIGN);
2221 TEST_c_c (csinh, minus_zero, nan_value, 0.0, nan_value, IGNORE_ZERO_INF_SIGN);
2223 TEST_c_c (csinh, plus_infty, nan_value, plus_infty, nan_value, IGNORE_ZERO_INF_SIGN);
2224 TEST_c_c (csinh, minus_infty, nan_value, plus_infty, nan_value, IGNORE_ZERO_INF_SIGN);
2226 TEST_c_c (csinh, 9.0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
2227 TEST_c_c (csinh, -9.0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
2229 TEST_c_c (csinh, nan_value, 0.0, nan_value, 0.0);
2230 TEST_c_c (csinh, nan_value, minus_zero, nan_value, minus_zero);
2232 TEST_c_c (csinh, nan_value, 10.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
2233 TEST_c_c (csinh, nan_value, -10.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
2235 TEST_c_c (csinh, nan_value, plus_infty, nan_value, nan_value, INVALID_EXCEPTION_OK);
2236 TEST_c_c (csinh, nan_value, minus_infty, nan_value, nan_value, INVALID_EXCEPTION_OK);
2238 TEST_c_c (csinh, nan_value, nan_value, nan_value, nan_value);
2240 TEST_c_c (csinh, 0.75L, 1.25L, 0.259294854551162779153349830618433028L, 1.22863452409509552219214606515777594L);
2241 TEST_c_c (csinh, -2, -3, 3.59056458998577995201256544779481679L, -0.530921086248519805267040090660676560L);
2243 END (csinh, complex);
2251 FUNC(csqrt) (BUILD_COMPLEX (-1, 0));
2252 if (errno == ENOSYS)
2253 /* Function not implemented. */
2258 TEST_c_c (csqrt, 0, 0, 0.0, 0.0);
2259 TEST_c_c (csqrt, 0, minus_zero, 0, minus_zero);
2260 TEST_c_c (csqrt, minus_zero, 0, 0.0, 0.0);
2261 TEST_c_c (csqrt, minus_zero, minus_zero, 0.0, minus_zero);
2263 TEST_c_c (csqrt, minus_infty, 0, 0.0, plus_infty);
2264 TEST_c_c (csqrt, minus_infty, 6, 0.0, plus_infty);
2265 TEST_c_c (csqrt, minus_infty, minus_zero, 0.0, minus_infty);
2266 TEST_c_c (csqrt, minus_infty, -6, 0.0, minus_infty);
2268 TEST_c_c (csqrt, plus_infty, 0, plus_infty, 0.0);
2269 TEST_c_c (csqrt, plus_infty, 6, plus_infty, 0.0);
2270 TEST_c_c (csqrt, plus_infty, minus_zero, plus_infty, minus_zero);
2271 TEST_c_c (csqrt, plus_infty, -6, plus_infty, minus_zero);
2273 TEST_c_c (csqrt, 0, plus_infty, plus_infty, plus_infty);
2274 TEST_c_c (csqrt, 4, plus_infty, plus_infty, plus_infty);
2275 TEST_c_c (csqrt, plus_infty, plus_infty, plus_infty, plus_infty);
2276 TEST_c_c (csqrt, minus_zero, plus_infty, plus_infty, plus_infty);
2277 TEST_c_c (csqrt, -4, plus_infty, plus_infty, plus_infty);
2278 TEST_c_c (csqrt, minus_infty, plus_infty, plus_infty, plus_infty);
2279 TEST_c_c (csqrt, 0, minus_infty, plus_infty, minus_infty);
2280 TEST_c_c (csqrt, 4, minus_infty, plus_infty, minus_infty);
2281 TEST_c_c (csqrt, plus_infty, minus_infty, plus_infty, minus_infty);
2282 TEST_c_c (csqrt, minus_zero, minus_infty, plus_infty, minus_infty);
2283 TEST_c_c (csqrt, -4, minus_infty, plus_infty, minus_infty);
2284 TEST_c_c (csqrt, minus_infty, minus_infty, plus_infty, minus_infty);
2286 TEST_c_c (csqrt, minus_infty, nan_value, nan_value, plus_infty, IGNORE_ZERO_INF_SIGN);
2288 TEST_c_c (csqrt, plus_infty, nan_value, plus_infty, nan_value);
2290 TEST_c_c (csqrt, 0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
2291 TEST_c_c (csqrt, 1, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
2292 TEST_c_c (csqrt, minus_zero, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
2293 TEST_c_c (csqrt, -1, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
2295 TEST_c_c (csqrt, nan_value, 0, nan_value, nan_value, INVALID_EXCEPTION_OK);
2296 TEST_c_c (csqrt, nan_value, 8, nan_value, nan_value, INVALID_EXCEPTION_OK);
2297 TEST_c_c (csqrt, nan_value, minus_zero, nan_value, nan_value, INVALID_EXCEPTION_OK);
2298 TEST_c_c (csqrt, nan_value, -8, nan_value, nan_value, INVALID_EXCEPTION_OK);
2300 TEST_c_c (csqrt, nan_value, nan_value, nan_value, nan_value);
2302 TEST_c_c (csqrt, 16.0, -30.0, 5.0, -3.0);
2303 TEST_c_c (csqrt, -1, 0, 0.0, 1.0);
2304 TEST_c_c (csqrt, 0, 2, 1.0, 1.0);
2305 TEST_c_c (csqrt, 119, 120, 12.0, 5.0);
2306 TEST_c_c (csqrt, 0.75L, 1.25L, 1.05065169626078392338656675760808326L, 0.594868882070379067881984030639932657L);
2307 TEST_c_c (csqrt, -2, -3, 0.89597747612983812471573375529004348L, -1.6741492280355400404480393008490519L);
2308 TEST_c_c (csqrt, -2, 3, 0.89597747612983812471573375529004348L, 1.6741492280355400404480393008490519L);
2309 /* Principal square root should be returned (i.e., non-negative real
2311 TEST_c_c (csqrt, 0, -1, M_SQRT_2_2, -M_SQRT_2_2);
2313 END (csqrt, complex);
2320 FUNC(ctan) (BUILD_COMPLEX (0.7L, 1.2L));
2321 if (errno == ENOSYS)
2322 /* Function not implemented. */
2327 TEST_c_c (ctan, 0, 0, 0.0, 0.0);
2328 TEST_c_c (ctan, 0, minus_zero, 0.0, minus_zero);
2329 TEST_c_c (ctan, minus_zero, 0, minus_zero, 0.0);
2330 TEST_c_c (ctan, minus_zero, minus_zero, minus_zero, minus_zero);
2332 TEST_c_c (ctan, 0, plus_infty, 0.0, 1.0);
2333 TEST_c_c (ctan, 1, plus_infty, 0.0, 1.0);
2334 TEST_c_c (ctan, minus_zero, plus_infty, minus_zero, 1.0);
2335 TEST_c_c (ctan, -1, plus_infty, minus_zero, 1.0);
2337 TEST_c_c (ctan, 0, minus_infty, 0.0, -1.0);
2338 TEST_c_c (ctan, 1, minus_infty, 0.0, -1.0);
2339 TEST_c_c (ctan, minus_zero, minus_infty, minus_zero, -1.0);
2340 TEST_c_c (ctan, -1, minus_infty, minus_zero, -1.0);
2342 TEST_c_c (ctan, plus_infty, 0, nan_value, nan_value, INVALID_EXCEPTION);
2343 TEST_c_c (ctan, plus_infty, 2, nan_value, nan_value, INVALID_EXCEPTION);
2344 TEST_c_c (ctan, minus_infty, 0, nan_value, nan_value, INVALID_EXCEPTION);
2345 TEST_c_c (ctan, minus_infty, 2, nan_value, nan_value, INVALID_EXCEPTION);
2346 TEST_c_c (ctan, plus_infty, minus_zero, nan_value, nan_value, INVALID_EXCEPTION);
2347 TEST_c_c (ctan, plus_infty, -2, nan_value, nan_value, INVALID_EXCEPTION);
2348 TEST_c_c (ctan, minus_infty, minus_zero, nan_value, nan_value, INVALID_EXCEPTION);
2349 TEST_c_c (ctan, minus_infty, -2, nan_value, nan_value, INVALID_EXCEPTION);
2351 TEST_c_c (ctan, nan_value, plus_infty, 0.0, 1.0, IGNORE_ZERO_INF_SIGN);
2352 TEST_c_c (ctan, nan_value, minus_infty, 0.0, -1.0, IGNORE_ZERO_INF_SIGN);
2354 TEST_c_c (ctan, 0, nan_value, 0.0, nan_value);
2355 TEST_c_c (ctan, minus_zero, nan_value, minus_zero, nan_value);
2357 TEST_c_c (ctan, 0.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
2358 TEST_c_c (ctan, -4.5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
2360 TEST_c_c (ctan, nan_value, 0, nan_value, nan_value, INVALID_EXCEPTION_OK);
2361 TEST_c_c (ctan, nan_value, 5, nan_value, nan_value, INVALID_EXCEPTION_OK);
2362 TEST_c_c (ctan, nan_value, minus_zero, nan_value, nan_value, INVALID_EXCEPTION_OK);
2363 TEST_c_c (ctan, nan_value, -0.25, nan_value, nan_value, INVALID_EXCEPTION_OK);
2365 TEST_c_c (ctan, nan_value, nan_value, nan_value, nan_value);
2367 TEST_c_c (ctan, 0.75L, 1.25L, 0.160807785916206426725166058173438663L, 0.975363285031235646193581759755216379L);
2368 TEST_c_c (ctan, -2, -3, 0.376402564150424829275122113032269084e-2L, -1.00323862735360980144635859782192726L);
2370 END (ctan, complex);
2378 FUNC(ctanh) (BUILD_COMPLEX (0, 0));
2379 if (errno == ENOSYS)
2380 /* Function not implemented. */
2385 TEST_c_c (ctanh, 0, 0, 0.0, 0.0);
2386 TEST_c_c (ctanh, 0, minus_zero, 0.0, minus_zero);
2387 TEST_c_c (ctanh, minus_zero, 0, minus_zero, 0.0);
2388 TEST_c_c (ctanh, minus_zero, minus_zero, minus_zero, minus_zero);
2390 TEST_c_c (ctanh, plus_infty, 0, 1.0, 0.0);
2391 TEST_c_c (ctanh, plus_infty, 1, 1.0, 0.0);
2392 TEST_c_c (ctanh, plus_infty, minus_zero, 1.0, minus_zero);
2393 TEST_c_c (ctanh, plus_infty, -1, 1.0, minus_zero);
2394 TEST_c_c (ctanh, minus_infty, 0, -1.0, 0.0);
2395 TEST_c_c (ctanh, minus_infty, 1, -1.0, 0.0);
2396 TEST_c_c (ctanh, minus_infty, minus_zero, -1.0, minus_zero);
2397 TEST_c_c (ctanh, minus_infty, -1, -1.0, minus_zero);
2399 TEST_c_c (ctanh, 0, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
2400 TEST_c_c (ctanh, 2, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
2401 TEST_c_c (ctanh, 0, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
2402 TEST_c_c (ctanh, 2, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
2403 TEST_c_c (ctanh, minus_zero, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
2404 TEST_c_c (ctanh, -2, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
2405 TEST_c_c (ctanh, minus_zero, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
2406 TEST_c_c (ctanh, -2, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
2408 TEST_c_c (ctanh, plus_infty, nan_value, 1.0, 0.0, IGNORE_ZERO_INF_SIGN);
2409 TEST_c_c (ctanh, minus_infty, nan_value, -1.0, 0.0, IGNORE_ZERO_INF_SIGN);
2411 TEST_c_c (ctanh, nan_value, 0, nan_value, 0.0);
2412 TEST_c_c (ctanh, nan_value, minus_zero, nan_value, minus_zero);
2414 TEST_c_c (ctanh, nan_value, 0.5, nan_value, nan_value, INVALID_EXCEPTION_OK);
2415 TEST_c_c (ctanh, nan_value, -4.5, nan_value, nan_value, INVALID_EXCEPTION_OK);
2417 TEST_c_c (ctanh, 0, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
2418 TEST_c_c (ctanh, 5, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
2419 TEST_c_c (ctanh, minus_zero, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
2420 TEST_c_c (ctanh, -0.25, nan_value, nan_value, nan_value, INVALID_EXCEPTION_OK);
2422 TEST_c_c (ctanh, nan_value, nan_value, nan_value, nan_value);
2424 TEST_c_c (ctanh, 0, M_PI_4l, 0.0, 1.0);
2426 TEST_c_c (ctanh, 0.75L, 1.25L, 1.37260757053378320258048606571226857L, 0.385795952609750664177596760720790220L);
2427 TEST_c_c (ctanh, -2, -3, -0.965385879022133124278480269394560686L, 0.988437503832249372031403430350121098e-2L);
2429 END (ctanh, complex);
2438 if (errno == ENOSYS)
2439 /* Function not implemented. */
2444 TEST_f_f (erf, 0, 0);
2445 TEST_f_f (erf, minus_zero, minus_zero);
2446 TEST_f_f (erf, plus_infty, 1);
2447 TEST_f_f (erf, minus_infty, -1);
2448 TEST_f_f (erf, nan_value, nan_value);
2450 TEST_f_f (erf, 0.125L, 0.140316204801333817393029446521623398L);
2451 TEST_f_f (erf, 0.75L, 0.711155633653515131598937834591410777L);
2452 TEST_f_f (erf, 1.25L, 0.922900128256458230136523481197281140L);
2453 TEST_f_f (erf, 2.0L, 0.995322265018952734162069256367252929L);
2454 TEST_f_f (erf, 4.125L, 0.999999994576599200434933994687765914L);
2455 TEST_f_f (erf, 27.0L, 1.0L);
2466 if (errno == ENOSYS)
2467 /* Function not implemented. */
2472 TEST_f_f (erfc, plus_infty, 0.0);
2473 TEST_f_f (erfc, minus_infty, 2.0);
2474 TEST_f_f (erfc, 0.0, 1.0);
2475 TEST_f_f (erfc, minus_zero, 1.0);
2476 TEST_f_f (erfc, nan_value, nan_value);
2478 TEST_f_f (erfc, 0.125L, 0.859683795198666182606970553478376602L);
2479 TEST_f_f (erfc, 0.75L, 0.288844366346484868401062165408589223L);
2480 TEST_f_f (erfc, 1.25L, 0.0770998717435417698634765188027188596L);
2481 TEST_f_f (erfc, 2.0L, 0.00467773498104726583793074363274707139L);
2482 TEST_f_f (erfc, 4.125L, 0.542340079956506600531223408575531062e-8L);
2484 /* The result can only be represented in long double. */
2485 # if LDBL_MIN_10_EXP < -319
2486 TEST_f_f (erfc, 27.0L, 0.523704892378925568501606768284954709e-318L);
2499 if (errno == ENOSYS)
2500 /* Function not implemented. */
2505 TEST_f_f (exp, 0, 1);
2506 TEST_f_f (exp, minus_zero, 1);
2509 TEST_f_f (exp, plus_infty, plus_infty);
2510 TEST_f_f (exp, minus_infty, 0);
2512 TEST_f_f (exp, nan_value, nan_value);
2513 TEST_f_f (exp, 1, M_El);
2515 TEST_f_f (exp, 2, M_E2l);
2516 TEST_f_f (exp, 3, M_E3l);
2517 TEST_f_f (exp, 0.75L, 2.11700001661267466854536981983709561L);
2518 TEST_f_f (exp, 50.0L, 5184705528587072464087.45332293348538L);
2519 TEST_f_f (exp, 88.72269439697265625L, 3.40233126623160774937554134772290447915e38L);
2520 #if defined TEST_LDOUBLE && __LDBL_MAX_EXP__ > 1024
2521 /* The result can only be represented in sane long double. */
2522 TEST_f_f (exp, 1000.0L, 0.197007111401704699388887935224332313e435L);
2534 if (errno == ENOSYS)
2535 /* Function not implemented. */
2540 TEST_f_f (exp10, 0, 1);
2541 TEST_f_f (exp10, minus_zero, 1);
2543 TEST_f_f (exp10, plus_infty, plus_infty);
2544 TEST_f_f (exp10, minus_infty, 0);
2545 TEST_f_f (exp10, nan_value, nan_value);
2546 TEST_f_f (exp10, 3, 1000);
2547 TEST_f_f (exp10, -1, 0.1L);
2548 TEST_f_f (exp10, 1e6, plus_infty);
2549 TEST_f_f (exp10, -1e6, 0);
2550 TEST_f_f (exp10, 0.75L, 5.62341325190349080394951039776481231L);
2561 if (errno == ENOSYS)
2562 /* Function not implemented. */
2567 TEST_f_f (exp2, 0, 1);
2568 TEST_f_f (exp2, minus_zero, 1);
2569 TEST_f_f (exp2, plus_infty, plus_infty);
2570 TEST_f_f (exp2, minus_infty, 0);
2571 TEST_f_f (exp2, nan_value, nan_value);
2573 TEST_f_f (exp2, 10, 1024);
2574 TEST_f_f (exp2, -1, 0.5);
2575 TEST_f_f (exp2, 1e6, plus_infty);
2576 TEST_f_f (exp2, -1e6, 0);
2577 TEST_f_f (exp2, 0.75L, 1.68179283050742908606225095246642979L);
2588 if (errno == ENOSYS)
2589 /* Function not implemented. */
2594 TEST_f_f (expm1, 0, 0);
2595 TEST_f_f (expm1, minus_zero, minus_zero);
2598 TEST_f_f (expm1, plus_infty, plus_infty);
2599 TEST_f_f (expm1, minus_infty, -1);
2601 TEST_f_f (expm1, nan_value, nan_value);
2603 TEST_f_f (expm1, 1, M_El - 1.0);
2604 TEST_f_f (expm1, 0.75L, 1.11700001661267466854536981983709561L);
2607 TEST_f_f (expm1, 100000.0, plus_infty);
2608 check_int ("errno for expm1(large) == ERANGE", errno, ERANGE, 0, 0, 0);
2619 TEST_f_f (fabs, 0, 0);
2620 TEST_f_f (fabs, minus_zero, 0);
2622 TEST_f_f (fabs, plus_infty, plus_infty);
2623 TEST_f_f (fabs, minus_infty, plus_infty);
2624 TEST_f_f (fabs, nan_value, nan_value);
2626 TEST_f_f (fabs, 38.0, 38.0);
2627 TEST_f_f (fabs, -M_El, M_El);
2638 TEST_ff_f (fdim, 0, 0, 0);
2639 TEST_ff_f (fdim, 9, 0, 9);
2640 TEST_ff_f (fdim, 0, 9, 0);
2641 TEST_ff_f (fdim, -9, 0, 0);
2642 TEST_ff_f (fdim, 0, -9, 9);
2644 TEST_ff_f (fdim, plus_infty, 9, plus_infty);
2645 TEST_ff_f (fdim, plus_infty, -9, plus_infty);
2646 TEST_ff_f (fdim, minus_infty, 9, 0);
2647 TEST_ff_f (fdim, minus_infty, -9, 0);
2648 TEST_ff_f (fdim, 9, minus_infty, plus_infty);
2649 TEST_ff_f (fdim, -9, minus_infty, plus_infty);
2650 TEST_ff_f (fdim, 9, plus_infty, 0);
2651 TEST_ff_f (fdim, -9, plus_infty, 0);
2653 TEST_ff_f (fdim, 0, nan_value, nan_value);
2654 TEST_ff_f (fdim, 9, nan_value, nan_value);
2655 TEST_ff_f (fdim, -9, nan_value, nan_value);
2656 TEST_ff_f (fdim, nan_value, 9, nan_value);
2657 TEST_ff_f (fdim, nan_value, -9, nan_value);
2658 TEST_ff_f (fdim, plus_infty, nan_value, nan_value);
2659 TEST_ff_f (fdim, minus_infty, nan_value, nan_value);
2660 TEST_ff_f (fdim, nan_value, plus_infty, nan_value);
2661 TEST_ff_f (fdim, nan_value, minus_infty, nan_value);
2662 TEST_ff_f (fdim, nan_value, nan_value, nan_value);
2664 TEST_ff_f (fdim, plus_infty, plus_infty, 0);
2675 TEST_f_f (floor, 0.0, 0.0);
2676 TEST_f_f (floor, minus_zero, minus_zero);
2677 TEST_f_f (floor, plus_infty, plus_infty);
2678 TEST_f_f (floor, minus_infty, minus_infty);
2679 TEST_f_f (floor, nan_value, nan_value);
2681 TEST_f_f (floor, M_PIl, 3.0);
2682 TEST_f_f (floor, -M_PIl, -4.0);
2684 TEST_f_f (floor, 0.1, 0.0);
2685 TEST_f_f (floor, 0.25, 0.0);
2686 TEST_f_f (floor, 0.625, 0.0);
2687 TEST_f_f (floor, -0.1, -1.0);
2688 TEST_f_f (floor, -0.25, -1.0);
2689 TEST_f_f (floor, -0.625, -1.0);
2692 /* The result can only be represented in long double. */
2693 TEST_f_f (floor, 4503599627370495.5L, 4503599627370495.0L);
2694 TEST_f_f (floor, 4503599627370496.25L, 4503599627370496.0L);
2695 TEST_f_f (floor, 4503599627370496.5L, 4503599627370496.0L);
2696 TEST_f_f (floor, 4503599627370496.75L, 4503599627370496.0L);
2697 TEST_f_f (floor, 4503599627370497.5L, 4503599627370497.0L);
2698 # if LDBL_MANT_DIG > 100
2699 TEST_f_f (floor, 4503599627370494.5000000000001L, 4503599627370494.0L);
2700 TEST_f_f (floor, 4503599627370495.5000000000001L, 4503599627370495.0L);
2701 TEST_f_f (floor, 4503599627370496.5000000000001L, 4503599627370496.0L);
2704 TEST_f_f (floor, -4503599627370495.5L, -4503599627370496.0L);
2705 TEST_f_f (floor, -4503599627370496.25L, -4503599627370497.0L);
2706 TEST_f_f (floor, -4503599627370496.5L, -4503599627370497.0L);
2707 TEST_f_f (floor, -4503599627370496.75L, -4503599627370497.0L);
2708 TEST_f_f (floor, -4503599627370497.5L, -4503599627370498.0L);
2709 # if LDBL_MANT_DIG > 100
2710 TEST_f_f (floor, -4503599627370494.5000000000001L, -4503599627370495.0L);
2711 TEST_f_f (floor, -4503599627370495.5000000000001L, -4503599627370496.0L);
2712 TEST_f_f (floor, -4503599627370496.5000000000001L, -4503599627370497.0L);
2715 TEST_f_f (floor, 9007199254740991.5L, 9007199254740991.0L);
2716 TEST_f_f (floor, 9007199254740992.25L, 9007199254740992.0L);
2717 TEST_f_f (floor, 9007199254740992.5L, 9007199254740992.0L);
2718 TEST_f_f (floor, 9007199254740992.75L, 9007199254740992.0L);
2719 TEST_f_f (floor, 9007199254740993.5L, 9007199254740993.0L);
2721 # if LDBL_MANT_DIG > 100
2722 TEST_f_f (floor, 9007199254740991.0000000000001L, 9007199254740991.0L);
2723 TEST_f_f (floor, 9007199254740992.0000000000001L, 9007199254740992.0L);
2724 TEST_f_f (floor, 9007199254740993.0000000000001L, 9007199254740993.0L);
2725 TEST_f_f (floor, 9007199254740991.5000000000001L, 9007199254740991.0L);
2726 TEST_f_f (floor, 9007199254740992.5000000000001L, 9007199254740992.0L);
2727 TEST_f_f (floor, 9007199254740993.5000000000001L, 9007199254740993.0L);
2730 TEST_f_f (floor, -9007199254740991.5L, -9007199254740992.0L);
2731 TEST_f_f (floor, -9007199254740992.25L, -9007199254740993.0L);
2732 TEST_f_f (floor, -9007199254740992.5L, -9007199254740993.0L);
2733 TEST_f_f (floor, -9007199254740992.75L, -9007199254740993.0L);
2734 TEST_f_f (floor, -9007199254740993.5L, -9007199254740994.0L);
2736 # if LDBL_MANT_DIG > 100
2737 TEST_f_f (floor, -9007199254740991.0000000000001L, -9007199254740992.0L);
2738 TEST_f_f (floor, -9007199254740992.0000000000001L, -9007199254740993.0L);
2739 TEST_f_f (floor, -9007199254740993.0000000000001L, -9007199254740994.0L);
2740 TEST_f_f (floor, -9007199254740991.5000000000001L, -9007199254740992.0L);
2741 TEST_f_f (floor, -9007199254740992.5000000000001L, -9007199254740993.0L);
2742 TEST_f_f (floor, -9007199254740993.5000000000001L, -9007199254740994.0L);
2745 TEST_f_f (floor, 72057594037927935.5L, 72057594037927935.0L);
2746 TEST_f_f (floor, 72057594037927936.25L, 72057594037927936.0L);
2747 TEST_f_f (floor, 72057594037927936.5L, 72057594037927936.0L);
2748 TEST_f_f (floor, 72057594037927936.75L, 72057594037927936.0L);
2749 TEST_f_f (floor, 72057594037927937.5L, 72057594037927937.0L);
2751 TEST_f_f (floor, -72057594037927935.5L, -72057594037927936.0L);
2752 TEST_f_f (floor, -72057594037927936.25L, -72057594037927937.0L);
2753 TEST_f_f (floor, -72057594037927936.5L, -72057594037927937.0L);
2754 TEST_f_f (floor, -72057594037927936.75L, -72057594037927937.0L);
2755 TEST_f_f (floor, -72057594037927937.5L, -72057594037927938.0L);
2757 TEST_f_f (floor, 10141204801825835211973625643007.5L, 10141204801825835211973625643007.0L);
2758 TEST_f_f (floor, 10141204801825835211973625643008.25L, 10141204801825835211973625643008.0L);
2759 TEST_f_f (floor, 10141204801825835211973625643008.5L, 10141204801825835211973625643008.0L);
2760 TEST_f_f (floor, 10141204801825835211973625643008.75L, 10141204801825835211973625643008.0L);
2761 TEST_f_f (floor, 10141204801825835211973625643009.5L, 10141204801825835211973625643009.0L);
2773 TEST_fff_f (fma, 1.0, 2.0, 3.0, 5.0);
2774 TEST_fff_f (fma, nan_value, 2.0, 3.0, nan_value);
2775 TEST_fff_f (fma, 1.0, nan_value, 3.0, nan_value);
2776 TEST_fff_f (fma, 1.0, 2.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
2777 TEST_fff_f (fma, plus_infty, 0.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
2778 TEST_fff_f (fma, minus_infty, 0.0, nan_value, nan_value, INVALID_EXCEPTION_OK);
2779 TEST_fff_f (fma, 0.0, plus_infty, nan_value, nan_value, INVALID_EXCEPTION_OK);
2780 TEST_fff_f (fma, 0.0, minus_infty, nan_value, nan_value, INVALID_EXCEPTION_OK);
2781 TEST_fff_f (fma, plus_infty, 0.0, 1.0, nan_value, INVALID_EXCEPTION);
2782 TEST_fff_f (fma, minus_infty, 0.0, 1.0, nan_value, INVALID_EXCEPTION);
2783 TEST_fff_f (fma, 0.0, plus_infty, 1.0, nan_value, INVALID_EXCEPTION);
2784 TEST_fff_f (fma, 0.0, minus_infty, 1.0, nan_value, INVALID_EXCEPTION);
2786 TEST_fff_f (fma, plus_infty, plus_infty, minus_infty, nan_value, INVALID_EXCEPTION);
2787 TEST_fff_f (fma, minus_infty, plus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
2788 TEST_fff_f (fma, plus_infty, minus_infty, plus_infty, nan_value, INVALID_EXCEPTION);
2789 TEST_fff_f (fma, minus_infty, minus_infty, minus_infty, nan_value, INVALID_EXCEPTION);
2791 TEST_fff_f (fma, 1.25L, 0.75L, 0.0625L, 1.0L);
2792 #if defined (TEST_FLOAT) && FLT_MANT_DIG == 24
2793 TEST_fff_f (fma, 0x1.7ff8p+13, 0x1.000002p+0, 0x1.ffffp-24, 0x1.7ff802p+13);
2794 TEST_fff_f (fma, 0x1.fffp+0, 0x1.00001p+0, -0x1.fffp+0, 0x1.fffp-20);
2795 TEST_fff_f (fma, 0x1.9abcdep+127, 0x0.9abcdep-126, -0x1.f08948p+0, 0x1.bb421p-25);
2796 TEST_fff_f (fma, 0x1.9abcdep+100, 0x0.9abcdep-126, -0x1.f08948p-27, 0x1.bb421p-52);
2797 TEST_fff_f (fma, 0x1.fffffep+127, 0x1.001p+0, -0x1.fffffep+127, 0x1.fffffep+115);
2798 TEST_fff_f (fma, -0x1.fffffep+127, 0x1.fffffep+0, 0x1.fffffep+127, -0x1.fffffap+127);
2799 TEST_fff_f (fma, 0x1.fffffep+127, 2.0, -0x1.fffffep+127, 0x1.fffffep+127);
2801 #if defined (TEST_DOUBLE) && DBL_MANT_DIG == 53
2802 TEST_fff_f (fma, 0x1.7fp+13, 0x1.0000000000001p+0, 0x1.ffep-48, 0x1.7f00000000001p+13);
2803 TEST_fff_f (fma, 0x1.fffp+0, 0x1.0000000000001p+0, -0x1.fffp+0, 0x1.fffp-52);
2804 TEST_fff_f (fma, 0x1.0000002p+0, 0x1.ffffffcp-1, 0x1p-300, 1.0);
2805 TEST_fff_f (fma, 0x1.0000002p+0, 0x1.ffffffcp-1, -0x1p-300, 0x1.fffffffffffffp-1);
2806 TEST_fff_f (fma, 0x1.deadbeef2feedp+1023, 0x0.deadbeef2feedp-1022, -0x1.a05f8c01a4bfbp+1, 0x1.0989687bc9da4p-53);
2807 TEST_fff_f (fma, 0x1.deadbeef2feedp+900, 0x0.deadbeef2feedp-1022, -0x1.a05f8c01a4bfbp-122, 0x1.0989687bc9da4p-176);
2808 TEST_fff_f (fma, 0x1.fffffffffffffp+1023, 0x1.001p+0, -0x1.fffffffffffffp+1023, 0x1.fffffffffffffp+1011);
2809 TEST_fff_f (fma, -0x1.fffffffffffffp+1023, 0x1.fffffffffffffp+0, 0x1.fffffffffffffp+1023, -0x1.ffffffffffffdp+1023);
2810 TEST_fff_f (fma, 0x1.fffffffffffffp+1023, 2.0, -0x1.fffffffffffffp+1023, 0x1.fffffffffffffp+1023);
2822 TEST_ff_f (fmax, 0, 0, 0);
2823 TEST_ff_f (fmax, minus_zero, minus_zero, minus_zero);
2824 TEST_ff_f (fmax, 9, 0, 9);
2825 TEST_ff_f (fmax, 0, 9, 9);
2826 TEST_ff_f (fmax, -9, 0, 0);
2827 TEST_ff_f (fmax, 0, -9, 0);
2829 TEST_ff_f (fmax, plus_infty, 9, plus_infty);
2830 TEST_ff_f (fmax, 0, plus_infty, plus_infty);
2831 TEST_ff_f (fmax, -9, plus_infty, plus_infty);
2832 TEST_ff_f (fmax, plus_infty, -9, plus_infty);
2834 TEST_ff_f (fmax, minus_infty, 9, 9);
2835 TEST_ff_f (fmax, minus_infty, -9, -9);
2836 TEST_ff_f (fmax, 9, minus_infty, 9);
2837 TEST_ff_f (fmax, -9, minus_infty, -9);
2839 TEST_ff_f (fmax, 0, nan_value, 0);
2840 TEST_ff_f (fmax, 9, nan_value, 9);
2841 TEST_ff_f (fmax, -9, nan_value, -9);
2842 TEST_ff_f (fmax, nan_value, 0, 0);
2843 TEST_ff_f (fmax, nan_value, 9, 9);
2844 TEST_ff_f (fmax, nan_value, -9, -9);
2845 TEST_ff_f (fmax, plus_infty, nan_value, plus_infty);
2846 TEST_ff_f (fmax, minus_infty, nan_value, minus_infty);
2847 TEST_ff_f (fmax, nan_value, plus_infty, plus_infty);
2848 TEST_ff_f (fmax, nan_value, minus_infty, minus_infty);
2849 TEST_ff_f (fmax, nan_value, nan_value, nan_value);
2860 TEST_ff_f (fmin, 0, 0, 0);
2861 TEST_ff_f (fmin, minus_zero, minus_zero, minus_zero);
2862 TEST_ff_f (fmin, 9, 0, 0);
2863 TEST_ff_f (fmin, 0, 9, 0);
2864 TEST_ff_f (fmin, -9, 0, -9);
2865 TEST_ff_f (fmin, 0, -9, -9);
2867 TEST_ff_f (fmin, plus_infty, 9, 9);
2868 TEST_ff_f (fmin, 9, plus_infty, 9);
2869 TEST_ff_f (fmin, plus_infty, -9, -9);
2870 TEST_ff_f (fmin, -9, plus_infty, -9);
2871 TEST_ff_f (fmin, minus_infty, 9, minus_infty);
2872 TEST_ff_f (fmin, minus_infty, -9, minus_infty);
2873 TEST_ff_f (fmin, 9, minus_infty, minus_infty);
2874 TEST_ff_f (fmin, -9, minus_infty, minus_infty);
2876 TEST_ff_f (fmin, 0, nan_value, 0);
2877 TEST_ff_f (fmin, 9, nan_value, 9);
2878 TEST_ff_f (fmin, -9, nan_value, -9);
2879 TEST_ff_f (fmin, nan_value, 0, 0);
2880 TEST_ff_f (fmin, nan_value, 9, 9);
2881 TEST_ff_f (fmin, nan_value, -9, -9);
2882 TEST_ff_f (fmin, plus_infty, nan_value, plus_infty);
2883 TEST_ff_f (fmin, minus_infty, nan_value, minus_infty);
2884 TEST_ff_f (fmin, nan_value, plus_infty, plus_infty);
2885 TEST_ff_f (fmin, nan_value, minus_infty, minus_infty);
2886 TEST_ff_f (fmin, nan_value, nan_value, nan_value);
2896 FUNC(fmod) (6.5, 2.3L);
2897 if (errno == ENOSYS)
2898 /* Function not implemented. */
2903 /* fmod (+0, y) == +0 for y != 0. */
2904 TEST_ff_f (fmod, 0, 3, 0);
2906 /* fmod (-0, y) == -0 for y != 0. */
2907 TEST_ff_f (fmod, minus_zero, 3, minus_zero);
2909 /* fmod (+inf, y) == NaN plus invalid exception. */
2911 TEST_ff_f (fmod, plus_infty, 3, nan_value, INVALID_EXCEPTION);
2912 check_int ("errno for fmod(Inf,3) unchanged", errno, EDOM, 0, 0, 0);
2913 /* fmod (-inf, y) == NaN plus invalid exception. */
2915 TEST_ff_f (fmod, minus_infty, 3, nan_value, INVALID_EXCEPTION);
2916 check_int ("errno for fmod(-Inf,3) unchanged", errno, EDOM, 0, 0, 0);
2917 /* fmod (x, +0) == NaN plus invalid exception. */
2919 TEST_ff_f (fmod, 3, 0, nan_value, INVALID_EXCEPTION);
2920 check_int ("errno for fmod(3,0) unchanged", errno, EDOM, 0, 0, 0);
2921 /* fmod (x, -0) == NaN plus invalid exception. */
2922 TEST_ff_f (fmod, 3, minus_zero, nan_value, INVALID_EXCEPTION);
2924 /* fmod (x, +inf) == x for x not infinite. */
2925 TEST_ff_f (fmod, 3.0, plus_infty, 3.0);
2926 /* fmod (x, -inf) == x for x not infinite. */
2927 TEST_ff_f (fmod, 3.0, minus_infty, 3.0);
2929 TEST_ff_f (fmod, nan_value, nan_value, nan_value);
2931 TEST_ff_f (fmod, 6.5, 2.25L, 2.0L);
2932 TEST_ff_f (fmod, -6.5, 2.25L, -2.0L);
2933 TEST_ff_f (fmod, 6.5, -2.25L, 2.0L);
2934 TEST_ff_f (fmod, -6.5, -2.25L, -2.0L);
2941 fpclassify_test (void)
2945 TEST_f_i (fpclassify, nan_value, FP_NAN);
2946 TEST_f_i (fpclassify, plus_infty, FP_INFINITE);
2947 TEST_f_i (fpclassify, minus_infty, FP_INFINITE);
2948 TEST_f_i (fpclassify, plus_zero, FP_ZERO);
2949 TEST_f_i (fpclassify, minus_zero, FP_ZERO);
2950 TEST_f_i (fpclassify, 1000, FP_NORMAL);
2963 TEST_fI_f1 (frexp, plus_infty, plus_infty, IGNORE);
2964 TEST_fI_f1 (frexp, minus_infty, minus_infty, IGNORE);
2965 TEST_fI_f1 (frexp, nan_value, nan_value, IGNORE);
2967 TEST_fI_f1 (frexp, 0.0, 0.0, 0.0);
2968 TEST_fI_f1 (frexp, minus_zero, minus_zero, 0.0);
2970 TEST_fI_f1 (frexp, 12.8L, 0.8L, 4);
2971 TEST_fI_f1 (frexp, -27.34L, -0.854375L, 5);
2983 if (errno == ENOSYS)
2984 /* Function not implemented. */
2986 feclearexcept (FE_ALL_EXCEPT);
2990 TEST_f_f (gamma, plus_infty, plus_infty);
2991 TEST_f_f (gamma, 0, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
2992 TEST_f_f (gamma, -3, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
2993 TEST_f_f (gamma, minus_infty, plus_infty);
2994 TEST_f_f (gamma, nan_value, nan_value);
2996 TEST_f_f1 (gamma, 1, 0, 1);
2997 TEST_f_f1 (gamma, 3, M_LN2l, 1);
2999 TEST_f_f1 (gamma, 0.5, M_LOG_SQRT_PIl, 1);
3000 TEST_f_f1 (gamma, -0.5, M_LOG_2_SQRT_PIl, -1);
3009 FUNC(hypot) (0.7L, 12.4L);
3010 if (errno == ENOSYS)
3011 /* Function not implemented. */
3016 TEST_ff_f (hypot, plus_infty, 1, plus_infty, IGNORE_ZERO_INF_SIGN);
3017 TEST_ff_f (hypot, minus_infty, 1, plus_infty, IGNORE_ZERO_INF_SIGN);
3020 TEST_ff_f (hypot, plus_infty, nan_value, plus_infty);
3021 TEST_ff_f (hypot, minus_infty, nan_value, plus_infty);
3022 TEST_ff_f (hypot, nan_value, plus_infty, plus_infty);
3023 TEST_ff_f (hypot, nan_value, minus_infty, plus_infty);
3026 TEST_ff_f (hypot, nan_value, nan_value, nan_value);
3028 /* hypot (x,y) == hypot (+-x, +-y) */
3029 TEST_ff_f (hypot, 0.7L, 12.4L, 12.419742348374220601176836866763271L);
3030 TEST_ff_f (hypot, -0.7L, 12.4L, 12.419742348374220601176836866763271L);
3031 TEST_ff_f (hypot, 0.7L, -12.4L, 12.419742348374220601176836866763271L);
3032 TEST_ff_f (hypot, -0.7L, -12.4L, 12.419742348374220601176836866763271L);
3033 TEST_ff_f (hypot, 12.4L, 0.7L, 12.419742348374220601176836866763271L);
3034 TEST_ff_f (hypot, -12.4L, 0.7L, 12.419742348374220601176836866763271L);
3035 TEST_ff_f (hypot, 12.4L, -0.7L, 12.419742348374220601176836866763271L);
3036 TEST_ff_f (hypot, -12.4L, -0.7L, 12.419742348374220601176836866763271L);
3038 /* hypot (x,0) == fabs (x) */
3039 TEST_ff_f (hypot, 0.75L, 0, 0.75L);
3040 TEST_ff_f (hypot, -0.75L, 0, 0.75L);
3041 TEST_ff_f (hypot, -5.7e7, 0, 5.7e7L);
3043 TEST_ff_f (hypot, 0.75L, 1.25L, 1.45773797371132511771853821938639577L);
3054 TEST_f_i (ilogb, 1, 0);
3055 TEST_f_i (ilogb, M_El, 1);
3056 TEST_f_i (ilogb, 1024, 10);
3057 TEST_f_i (ilogb, -2000, 10);
3059 /* XXX We have a problem here: the standard does not tell us whether
3060 exceptions are allowed/required. ignore them for now. */
3062 TEST_f_i (ilogb, 0.0, FP_ILOGB0, EXCEPTIONS_OK);
3063 TEST_f_i (ilogb, nan_value, FP_ILOGBNAN, EXCEPTIONS_OK);
3064 TEST_f_i (ilogb, plus_infty, INT_MAX, EXCEPTIONS_OK);
3065 TEST_f_i (ilogb, minus_infty, INT_MAX, EXCEPTIONS_OK);
3071 isfinite_test (void)
3075 TEST_f_b (isfinite, 0, 1);
3076 TEST_f_b (isfinite, minus_zero, 1);
3077 TEST_f_b (isfinite, 10, 1);
3078 TEST_f_b (isfinite, plus_infty, 0);
3079 TEST_f_b (isfinite, minus_infty, 0);
3080 TEST_f_b (isfinite, nan_value, 0);
3086 isnormal_test (void)
3090 TEST_f_b (isnormal, 0, 0);
3091 TEST_f_b (isnormal, minus_zero, 0);
3092 TEST_f_b (isnormal, 10, 1);
3093 TEST_f_b (isnormal, plus_infty, 0);
3094 TEST_f_b (isnormal, minus_infty, 0);
3095 TEST_f_b (isnormal, nan_value, 0);
3105 FUNC (sincos) (0, &s, &c);
3106 if (errno == ENOSYS)
3107 /* Required function not implemented. */
3110 if (errno == ENOSYS)
3111 /* Function not implemented. */
3116 /* j0 is the Bessel function of the first kind of order 0 */
3117 TEST_f_f (j0, nan_value, nan_value);
3118 TEST_f_f (j0, plus_infty, 0);
3119 TEST_f_f (j0, -1.0, 0.765197686557966551449717526102663221L);
3120 TEST_f_f (j0, 0.0, 1.0);
3121 TEST_f_f (j0, 0.125L, 0.996097563041985204620768999453174712L);
3122 TEST_f_f (j0, 0.75L, 0.864242275166648623555731103820923211L);
3123 TEST_f_f (j0, 1.0, 0.765197686557966551449717526102663221L);
3124 TEST_f_f (j0, 1.5, 0.511827671735918128749051744283411720L);
3125 TEST_f_f (j0, 2.0, 0.223890779141235668051827454649948626L);
3126 TEST_f_f (j0, 8.0, 0.171650807137553906090869407851972001L);
3127 TEST_f_f (j0, 10.0, -0.245935764451348335197760862485328754L);
3128 TEST_f_f (j0, 4.0, -3.9714980986384737228659076845169804197562E-1L);
3129 TEST_f_f (j0, -4.0, -3.9714980986384737228659076845169804197562E-1L);
3140 FUNC (sincos) (0, &s, &c);
3141 if (errno == ENOSYS)
3142 /* Required function not implemented. */
3145 if (errno == ENOSYS)
3146 /* Function not implemented. */
3149 /* j1 is the Bessel function of the first kind of order 1 */
3153 TEST_f_f (j1, nan_value, nan_value);
3154 TEST_f_f (j1, plus_infty, 0);
3156 TEST_f_f (j1, -1.0, -0.440050585744933515959682203718914913L);
3157 TEST_f_f (j1, 0.0, 0.0);
3158 TEST_f_f (j1, 0.125L, 0.0623780091344946810942311355879361177L);
3159 TEST_f_f (j1, 0.75L, 0.349243602174862192523281016426251335L);
3160 TEST_f_f (j1, 1.0, 0.440050585744933515959682203718914913L);
3161 TEST_f_f (j1, 1.5, 0.557936507910099641990121213156089400L);
3162 TEST_f_f (j1, 2.0, 0.576724807756873387202448242269137087L);
3163 TEST_f_f (j1, 8.0, 0.234636346853914624381276651590454612L);
3164 TEST_f_f (j1, 10.0, 0.0434727461688614366697487680258592883L);
3174 FUNC (sincos) (0, &s, &c);
3175 if (errno == ENOSYS)
3176 /* Required function not implemented. */
3179 if (errno == ENOSYS)
3180 /* Function not implemented. */
3183 /* jn is the Bessel function of the first kind of order n. */
3186 /* jn (0, x) == j0 (x) */
3187 TEST_ff_f (jn, 0, nan_value, nan_value);
3188 TEST_ff_f (jn, 0, plus_infty, 0);
3189 TEST_ff_f (jn, 0, -1.0, 0.765197686557966551449717526102663221L);
3190 TEST_ff_f (jn, 0, 0.0, 1.0);
3191 TEST_ff_f (jn, 0, 0.125L, 0.996097563041985204620768999453174712L);
3192 TEST_ff_f (jn, 0, 0.75L, 0.864242275166648623555731103820923211L);
3193 TEST_ff_f (jn, 0, 1.0, 0.765197686557966551449717526102663221L);
3194 TEST_ff_f (jn, 0, 1.5, 0.511827671735918128749051744283411720L);
3195 TEST_ff_f (jn, 0, 2.0, 0.223890779141235668051827454649948626L);
3196 TEST_ff_f (jn, 0, 8.0, 0.171650807137553906090869407851972001L);
3197 TEST_ff_f (jn, 0, 10.0, -0.245935764451348335197760862485328754L);
3198 TEST_ff_f (jn, 0, 4.0, -3.9714980986384737228659076845169804197562E-1L);
3199 TEST_ff_f (jn, 0, -4.0, -3.9714980986384737228659076845169804197562E-1L);
3201 /* jn (1, x) == j1 (x) */
3202 TEST_ff_f (jn, 1, nan_value, nan_value);
3203 TEST_ff_f (jn, 1, plus_infty, 0);
3204 TEST_ff_f (jn, 1, -1.0, -0.440050585744933515959682203718914913L);
3205 TEST_ff_f (jn, 1, 0.0, 0.0);
3206 TEST_ff_f (jn, 1, 0.125L, 0.0623780091344946810942311355879361177L);
3207 TEST_ff_f (jn, 1, 0.75L, 0.349243602174862192523281016426251335L);
3208 TEST_ff_f (jn, 1, 1.0, 0.440050585744933515959682203718914913L);
3209 TEST_ff_f (jn, 1, 1.5, 0.557936507910099641990121213156089400L);
3210 TEST_ff_f (jn, 1, 2.0, 0.576724807756873387202448242269137087L);
3211 TEST_ff_f (jn, 1, 8.0, 0.234636346853914624381276651590454612L);
3212 TEST_ff_f (jn, 1, 10.0, 0.0434727461688614366697487680258592883L);
3215 TEST_ff_f (jn, 3, nan_value, nan_value);
3216 TEST_ff_f (jn, 3, plus_infty, 0);
3218 TEST_ff_f (jn, 3, -1.0, -0.0195633539826684059189053216217515083L);
3219 TEST_ff_f (jn, 3, 0.0, 0.0);
3220 TEST_ff_f (jn, 3, 0.125L, 0.406503832554912875023029337653442868e-4L);
3221 TEST_ff_f (jn, 3, 0.75L, 0.848438342327410884392755236884386804e-2L);
3222 TEST_ff_f (jn, 3, 1.0, 0.0195633539826684059189053216217515083L);
3223 TEST_ff_f (jn, 3, 2.0, 0.128943249474402051098793332969239835L);
3224 TEST_ff_f (jn, 3, 10.0, 0.0583793793051868123429354784103409563L);
3227 TEST_ff_f (jn, 10, nan_value, nan_value);
3228 TEST_ff_f (jn, 10, plus_infty, 0);
3230 TEST_ff_f (jn, 10, -1.0, 0.263061512368745320699785368779050294e-9L);
3231 TEST_ff_f (jn, 10, 0.0, 0.0);
3232 TEST_ff_f (jn, 10, 0.125L, 0.250543369809369890173993791865771547e-18L);
3233 TEST_ff_f (jn, 10, 0.75L, 0.149621713117596814698712483621682835e-10L);
3234 TEST_ff_f (jn, 10, 1.0, 0.263061512368745320699785368779050294e-9L);
3235 TEST_ff_f (jn, 10, 2.0, 0.251538628271673670963516093751820639e-6L);
3236 TEST_ff_f (jn, 10, 10.0, 0.207486106633358857697278723518753428L);
3245 TEST_ff_f (ldexp, 0, 0, 0);
3246 TEST_ff_f (ldexp, minus_zero, 0, minus_zero);
3248 TEST_ff_f (ldexp, plus_infty, 1, plus_infty);
3249 TEST_ff_f (ldexp, minus_infty, 1, minus_infty);
3250 TEST_ff_f (ldexp, nan_value, 1, nan_value);
3252 TEST_ff_f (ldexp, 0.8L, 4, 12.8L);
3253 TEST_ff_f (ldexp, -0.854375L, 5, -27.34L);
3255 /* ldexp (x, 0) == x. */
3256 TEST_ff_f (ldexp, 1.0L, 0L, 1.0L);
3265 if (errno == ENOSYS)
3266 /* Function not implemented. */
3268 feclearexcept (FE_ALL_EXCEPT);
3272 TEST_f_f (lgamma, plus_infty, plus_infty);
3273 TEST_f_f (lgamma, 0, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
3274 check_int ("signgam for lgamma(0) == 1", signgam, 1, 0, 0, 0);
3275 TEST_f_f (lgamma, minus_zero, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
3276 check_int ("signgam for lgamma(-0) == -1", signgam, -1, 0, 0, 0);
3277 TEST_f_f (lgamma, nan_value, nan_value);
3279 /* lgamma (x) == +inf plus divide by zero exception for integer x <= 0. */
3281 TEST_f_f (lgamma, -3, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
3282 check_int ("errno for lgamma(-integer) == ERANGE", errno, ERANGE, 0, 0, 0);
3283 TEST_f_f (lgamma, minus_infty, plus_infty);
3285 TEST_f_f1 (lgamma, 1, 0, 1);
3287 TEST_f_f1 (lgamma, 3, M_LN2l, 1);
3289 TEST_f_f1 (lgamma, 0.5, M_LOG_SQRT_PIl, 1);
3290 TEST_f_f1 (lgamma, -0.5, M_LOG_2_SQRT_PIl, -1);
3291 TEST_f_f1 (lgamma, 0.7L, 0.260867246531666514385732417016759578L, 1);
3292 TEST_f_f1 (lgamma, 1.2L, -0.853740900033158497197028392998854470e-1L, 1);
3301 /* XXX this test is incomplete. We need to have a way to specifiy
3302 the rounding method and test the critical cases. So far, only
3303 unproblematic numbers are tested. */
3307 TEST_f_l (lrint, 0.0, 0);
3308 TEST_f_l (lrint, minus_zero, 0);
3309 TEST_f_l (lrint, 0.2L, 0);
3310 TEST_f_l (lrint, -0.2L, 0);
3312 TEST_f_l (lrint, 1.4L, 1);
3313 TEST_f_l (lrint, -1.4L, -1);
3315 TEST_f_l (lrint, 8388600.3L, 8388600);
3316 TEST_f_l (lrint, -8388600.3L, -8388600);
3318 TEST_f_l (lrint, 1071930.0008, 1071930);
3320 TEST_f_l (lrint, 1073741824.01, 1073741824);
3321 # if LONG_MAX > 281474976710656
3322 TEST_f_l (lrint, 281474976710656.025, 281474976710656);
3331 lrint_test_tonearest (void)
3333 int save_round_mode;
3334 START (lrint_tonearest);
3336 save_round_mode = fegetround ();
3338 if (!fesetround (FE_TONEAREST))
3340 TEST_f_l (lrint, 0.0, 0);
3341 TEST_f_l (lrint, minus_zero, 0);
3342 TEST_f_l (lrint, 0.2L, 0);
3343 TEST_f_l (lrint, -0.2L, 0);
3344 TEST_f_l (lrint, 0.5L, 0);
3345 TEST_f_l (lrint, -0.5L, 0);
3346 TEST_f_l (lrint, 0.8L, 1);
3347 TEST_f_l (lrint, -0.8L, -1);
3349 TEST_f_l (lrint, 1.4L, 1);
3350 TEST_f_l (lrint, -1.4L, -1);
3352 TEST_f_l (lrint, 8388600.3L, 8388600);
3353 TEST_f_l (lrint, -8388600.3L, -8388600);
3355 TEST_f_l (lrint, 1071930.0008, 1071930);
3357 TEST_f_l (lrint, 1073741824.01, 1073741824);
3358 # if LONG_MAX > 281474976710656
3359 TEST_f_l (lrint, 281474976710656.025, 281474976710656);
3364 fesetround (save_round_mode);
3366 END (lrint_tonearest);
3371 lrint_test_towardzero (void)
3373 int save_round_mode;
3374 START (lrint_towardzero);
3376 save_round_mode = fegetround ();
3378 if (!fesetround (FE_TOWARDZERO))
3380 TEST_f_l (lrint, 0.0, 0);
3381 TEST_f_l (lrint, minus_zero, 0);
3382 TEST_f_l (lrint, 0.2L, 0);
3383 TEST_f_l (lrint, -0.2L, 0);
3384 TEST_f_l (lrint, 0.5L, 0);
3385 TEST_f_l (lrint, -0.5L, 0);
3386 TEST_f_l (lrint, 0.8L, 0);
3387 TEST_f_l (lrint, -0.8L, 0);
3389 TEST_f_l (lrint, 1.4L, 1);
3390 TEST_f_l (lrint, -1.4L, -1);
3392 TEST_f_l (lrint, 8388600.3L, 8388600);
3393 TEST_f_l (lrint, -8388600.3L, -8388600);
3395 TEST_f_l (lrint, 1071930.0008, 1071930);
3397 TEST_f_l (lrint, 1073741824.01, 1073741824);
3398 # if LONG_MAX > 281474976710656
3399 TEST_f_l (lrint, 281474976710656.025, 281474976710656);
3404 fesetround (save_round_mode);
3406 END (lrint_towardzero);
3411 lrint_test_downward (void)
3413 int save_round_mode;
3414 START (lrint_downward);
3416 save_round_mode = fegetround ();
3418 if (!fesetround (FE_DOWNWARD))
3420 TEST_f_l (lrint, 0.0, 0);
3421 TEST_f_l (lrint, minus_zero, 0);
3422 TEST_f_l (lrint, 0.2L, 0);
3423 TEST_f_l (lrint, -0.2L, -1);
3424 TEST_f_l (lrint, 0.5L, 0);
3425 TEST_f_l (lrint, -0.5L, -1);
3426 TEST_f_l (lrint, 0.8L, 0);
3427 TEST_f_l (lrint, -0.8L, -1);
3429 TEST_f_l (lrint, 1.4L, 1);
3430 TEST_f_l (lrint, -1.4L, -2);
3432 TEST_f_l (lrint, 8388600.3L, 8388600);
3433 TEST_f_l (lrint, -8388600.3L, -8388601);
3435 TEST_f_l (lrint, 1071930.0008, 1071930);
3437 TEST_f_l (lrint, 1073741824.01, 1073741824);
3438 # if LONG_MAX > 281474976710656
3439 TEST_f_l (lrint, 281474976710656.025, 281474976710656);
3444 fesetround (save_round_mode);
3446 END (lrint_downward);
3451 lrint_test_upward (void)
3453 int save_round_mode;
3454 START (lrint_upward);
3456 save_round_mode = fegetround ();
3458 if (!fesetround (FE_UPWARD))
3460 TEST_f_l (lrint, 0.0, 0);
3461 TEST_f_l (lrint, minus_zero, 0);
3462 TEST_f_l (lrint, 0.2L, 1);
3463 TEST_f_l (lrint, -0.2L, 0);
3464 TEST_f_l (lrint, 0.5L, 1);
3465 TEST_f_l (lrint, -0.5L, 0);
3466 TEST_f_l (lrint, 0.8L, 1);
3467 TEST_f_l (lrint, -0.8L, 0);
3469 TEST_f_l (lrint, 1.4L, 2);
3470 TEST_f_l (lrint, -1.4L, -1);
3472 TEST_f_l (lrint, 8388600.3L, 8388601);
3473 TEST_f_l (lrint, -8388600.3L, -8388600);
3476 TEST_f_l (lrint, 1071930.0008, 1071931);
3477 TEST_f_l (lrint, 1073741824.01, 1073741825);
3478 # if LONG_MAX > 281474976710656 && defined (TEST_LDOUBLE)
3479 TEST_f_l (lrint, 281474976710656.025, 281474976710656);
3484 fesetround (save_round_mode);
3493 /* XXX this test is incomplete. We need to have a way to specifiy
3494 the rounding method and test the critical cases. So far, only
3495 unproblematic numbers are tested. */
3499 TEST_f_L (llrint, 0.0, 0);
3500 TEST_f_L (llrint, minus_zero, 0);
3501 TEST_f_L (llrint, 0.2L, 0);
3502 TEST_f_L (llrint, -0.2L, 0);
3504 TEST_f_L (llrint, 1.4L, 1);
3505 TEST_f_L (llrint, -1.4L, -1);
3507 TEST_f_L (llrint, 8388600.3L, 8388600);
3508 TEST_f_L (llrint, -8388600.3L, -8388600);
3510 TEST_f_l (llrint, 1071930.0008, 1071930);
3512 /* Test boundary conditions. */
3514 TEST_f_L (llrint, 2097151.0,2097151LL);
3516 TEST_f_L (llrint, 8388608.0, 8388608LL);
3518 TEST_f_L (llrint, 16777216.0, 16777216LL);
3520 TEST_f_L (llrint, 2199023255552.0, 2199023255552LL);
3522 TEST_f_L (llrint, 4398046511104.0, 4398046511104LL);
3523 /* 0x1000000000000 */
3524 TEST_f_L (llrint, 281474976710656.0, 281474976710656LL);
3525 /* 0x10000000000000 */
3526 TEST_f_L (llrint, 4503599627370496.0, 4503599627370496LL);
3527 /* 0x10000080000000 */
3528 TEST_f_L (llrint, 4503601774854144.0, 4503601774854144LL);
3529 /* 0x20000000000000 */
3530 TEST_f_L (llrint, 9007199254740992.0, 9007199254740992LL);
3531 /* 0x80000000000000 */
3532 TEST_f_L (llrint, 36028797018963968.0, 36028797018963968LL);
3533 /* 0x100000000000000 */
3534 TEST_f_L (llrint, 72057594037927936.0, 72057594037927936LL);
3536 /* The input can only be represented in long double. */
3537 TEST_f_L (llrint, 4503599627370495.5L, 4503599627370496LL);
3538 TEST_f_L (llrint, 4503599627370496.25L, 4503599627370496LL);
3539 TEST_f_L (llrint, 4503599627370496.5L, 4503599627370496LL);
3540 TEST_f_L (llrint, 4503599627370496.75L, 4503599627370497LL);
3541 TEST_f_L (llrint, 4503599627370497.5L, 4503599627370498LL);
3543 TEST_f_L (llrint, -4503599627370495.5L, -4503599627370496LL);
3544 TEST_f_L (llrint, -4503599627370496.25L, -4503599627370496LL);
3545 TEST_f_L (llrint, -4503599627370496.5L, -4503599627370496LL);
3546 TEST_f_L (llrint, -4503599627370496.75L, -4503599627370497LL);
3547 TEST_f_L (llrint, -4503599627370497.5L, -4503599627370498LL);
3549 # if LDBL_MANT_DIG > 100
3550 TEST_f_L (llrint, 4503599627370495.4999999999999L, 4503599627370495LL);
3551 TEST_f_L (llrint, 4503599627370496.4999999999999L, 4503599627370496LL);
3552 TEST_f_L (llrint, 4503599627370497.4999999999999L, 4503599627370497LL);
3553 TEST_f_L (llrint, 4503599627370494.5000000000001L, 4503599627370495LL);
3554 TEST_f_L (llrint, 4503599627370495.5000000000001L, 4503599627370496LL);
3555 TEST_f_L (llrint, 4503599627370496.5000000000001L, 4503599627370497LL);
3557 TEST_f_L (llrint, -4503599627370495.4999999999999L, -4503599627370495LL);
3558 TEST_f_L (llrint, -4503599627370496.4999999999999L, -4503599627370496LL);
3559 TEST_f_L (llrint, -4503599627370497.4999999999999L, -4503599627370497LL);
3560 TEST_f_L (llrint, -4503599627370494.5000000000001L, -4503599627370495LL);
3561 TEST_f_L (llrint, -4503599627370495.5000000000001L, -4503599627370496LL);
3562 TEST_f_L (llrint, -4503599627370496.5000000000001L, -4503599627370497LL);
3565 TEST_f_L (llrint, 9007199254740991.5L, 9007199254740992LL);
3566 TEST_f_L (llrint, 9007199254740992.25L, 9007199254740992LL);
3567 TEST_f_L (llrint, 9007199254740992.5L, 9007199254740992LL);
3568 TEST_f_L (llrint, 9007199254740992.75L, 9007199254740993LL);
3569 TEST_f_L (llrint, 9007199254740993.5L, 9007199254740994LL);
3571 TEST_f_L (llrint, -9007199254740991.5L, -9007199254740992LL);
3572 TEST_f_L (llrint, -9007199254740992.25L, -9007199254740992LL);
3573 TEST_f_L (llrint, -9007199254740992.5L, -9007199254740992LL);
3574 TEST_f_L (llrint, -9007199254740992.75L, -9007199254740993LL);
3575 TEST_f_L (llrint, -9007199254740993.5L, -9007199254740994LL);
3577 # if LDBL_MANT_DIG > 100
3578 TEST_f_L (llrint, 9007199254740991.4999999999999L, 9007199254740991LL);
3579 TEST_f_L (llrint, 9007199254740992.4999999999999L, 9007199254740992LL);
3580 TEST_f_L (llrint, 9007199254740993.4999999999999L, 9007199254740993LL);
3581 TEST_f_L (llrint, 9007199254740991.5000000000001L, 9007199254740992LL);
3582 TEST_f_L (llrint, 9007199254740992.5000000000001L, 9007199254740993LL);
3583 TEST_f_L (llrint, 9007199254740993.5000000000001L, 9007199254740994LL);
3585 TEST_f_L (llrint, -9007199254740991.4999999999999L, -9007199254740991LL);
3586 TEST_f_L (llrint, -9007199254740992.4999999999999L, -9007199254740992LL);
3587 TEST_f_L (llrint, -9007199254740993.4999999999999L, -9007199254740993LL);
3588 TEST_f_L (llrint, -9007199254740991.5000000000001L, -9007199254740992LL);
3589 TEST_f_L (llrint, -9007199254740992.5000000000001L, -9007199254740993LL);
3590 TEST_f_L (llrint, -9007199254740993.5000000000001L, -9007199254740994LL);
3593 TEST_f_L (llrint, 72057594037927935.5L, 72057594037927936LL);
3594 TEST_f_L (llrint, 72057594037927936.25L, 72057594037927936LL);
3595 TEST_f_L (llrint, 72057594037927936.5L, 72057594037927936LL);
3596 TEST_f_L (llrint, 72057594037927936.75L, 72057594037927937LL);
3597 TEST_f_L (llrint, 72057594037927937.5L, 72057594037927938LL);
3599 TEST_f_L (llrint, -72057594037927935.5L, -72057594037927936LL);
3600 TEST_f_L (llrint, -72057594037927936.25L, -72057594037927936LL);
3601 TEST_f_L (llrint, -72057594037927936.5L, -72057594037927936LL);
3602 TEST_f_L (llrint, -72057594037927936.75L, -72057594037927937LL);
3603 TEST_f_L (llrint, -72057594037927937.5L, -72057594037927938LL);
3605 # if LDBL_MANT_DIG > 100
3606 TEST_f_L (llrint, 9223372036854775805.5L, 9223372036854775806LL);
3607 TEST_f_L (llrint, -9223372036854775805.5L, -9223372036854775806LL);
3608 TEST_f_L (llrint, 9223372036854775806.0L, 9223372036854775806LL);
3609 TEST_f_L (llrint, -9223372036854775806.0L, -9223372036854775806LL);
3610 TEST_f_L (llrint, 9223372036854775806.25L, 9223372036854775806LL);
3611 TEST_f_L (llrint, -9223372036854775806.25L, -9223372036854775806LL);
3612 TEST_f_L (llrint, 9223372036854775806.5L, 9223372036854775806L);
3613 TEST_f_L (llrint, -9223372036854775806.5L, -9223372036854775806LL);
3614 TEST_f_L (llrint, 9223372036854775806.75L, 9223372036854775807LL);
3615 TEST_f_L (llrint, -9223372036854775806.75L, -9223372036854775807LL);
3616 TEST_f_L (llrint, 9223372036854775807.0L, 9223372036854775807LL);
3617 TEST_f_L (llrint, -9223372036854775807.0L, -9223372036854775807LL);
3625 llrint_test_tonearest (void)
3627 int save_round_mode;
3628 START (llrint_tonearest);
3630 save_round_mode = fegetround ();
3632 if (!fesetround (FE_TONEAREST))
3634 TEST_f_L (llrint, 0.0, 0);
3635 TEST_f_L (llrint, minus_zero, 0);
3636 TEST_f_L (llrint, 0.2L, 0);
3637 TEST_f_L (llrint, -0.2L, 0);
3639 TEST_f_L (llrint, 1.4L, 1);
3640 TEST_f_L (llrint, -1.4L, -1);
3642 TEST_f_L (llrint, 8388600.3L, 8388600);
3643 TEST_f_L (llrint, -8388600.3L, -8388600);
3645 TEST_f_l (llrint, 1071930.0008, 1071930);
3647 /* Test boundary conditions. */
3649 TEST_f_L (llrint, 2097151.0,2097151LL);
3651 TEST_f_L (llrint, 8388608.0, 8388608LL);
3653 TEST_f_L (llrint, 16777216.0, 16777216LL);
3655 TEST_f_L (llrint, 2199023255552.0, 2199023255552LL);
3657 TEST_f_L (llrint, 4398046511104.0, 4398046511104LL);
3658 /* 0x1000000000000 */
3659 TEST_f_L (llrint, 281474976710656.0, 281474976710656LL);
3660 /* 0x10000000000000 */
3661 TEST_f_L (llrint, 4503599627370496.0, 4503599627370496LL);
3662 /* 0x10000080000000 */
3663 TEST_f_L (llrint, 4503601774854144.0, 4503601774854144LL);
3664 /* 0x20000000000000 */
3665 TEST_f_L (llrint, 9007199254740992.0, 9007199254740992LL);
3666 /* 0x80000000000000 */
3667 TEST_f_L (llrint, 36028797018963968.0, 36028797018963968LL);
3668 /* 0x100000000000000 */
3669 TEST_f_L (llrint, 72057594037927936.0, 72057594037927936LL);
3671 /* The input can only be represented in long double. */
3672 TEST_f_L (llrint, 4503599627370495.5L, 4503599627370496LL);
3673 TEST_f_L (llrint, 4503599627370496.25L, 4503599627370496LL);
3674 TEST_f_L (llrint, 4503599627370496.5L, 4503599627370496LL);
3675 TEST_f_L (llrint, 4503599627370496.75L, 4503599627370497LL);
3676 TEST_f_L (llrint, 4503599627370497.5L, 4503599627370498LL);
3678 TEST_f_L (llrint, -4503599627370495.5L, -4503599627370496LL);
3679 TEST_f_L (llrint, -4503599627370496.25L, -4503599627370496LL);
3680 TEST_f_L (llrint, -4503599627370496.5L, -4503599627370496LL);
3681 TEST_f_L (llrint, -4503599627370496.75L, -4503599627370497LL);
3682 TEST_f_L (llrint, -4503599627370497.5L, -4503599627370498LL);
3684 # if LDBL_MANT_DIG > 100
3685 TEST_f_L (llrint, 4503599627370495.4999999999999L, 4503599627370495LL);
3686 TEST_f_L (llrint, 4503599627370496.4999999999999L, 4503599627370496LL);
3687 TEST_f_L (llrint, 4503599627370497.4999999999999L, 4503599627370497LL);
3688 TEST_f_L (llrint, 4503599627370494.5000000000001L, 4503599627370495LL);
3689 TEST_f_L (llrint, 4503599627370495.5000000000001L, 4503599627370496LL);
3690 TEST_f_L (llrint, 4503599627370496.5000000000001L, 4503599627370497LL);
3692 TEST_f_L (llrint, -4503599627370495.4999999999999L, -4503599627370495LL);
3693 TEST_f_L (llrint, -4503599627370496.4999999999999L, -4503599627370496LL);
3694 TEST_f_L (llrint, -4503599627370497.4999999999999L, -4503599627370497LL);
3695 TEST_f_L (llrint, -4503599627370494.5000000000001L, -4503599627370495LL);
3696 TEST_f_L (llrint, -4503599627370495.5000000000001L, -4503599627370496LL);
3697 TEST_f_L (llrint, -4503599627370496.5000000000001L, -4503599627370497LL);
3700 TEST_f_L (llrint, 9007199254740991.5L, 9007199254740992LL);
3701 TEST_f_L (llrint, 9007199254740992.25L, 9007199254740992LL);
3702 TEST_f_L (llrint, 9007199254740992.5L, 9007199254740992LL);
3703 TEST_f_L (llrint, 9007199254740992.75L, 9007199254740993LL);
3704 TEST_f_L (llrint, 9007199254740993.5L, 9007199254740994LL);
3706 TEST_f_L (llrint, -9007199254740991.5L, -9007199254740992LL);
3707 TEST_f_L (llrint, -9007199254740992.25L, -9007199254740992LL);
3708 TEST_f_L (llrint, -9007199254740992.5L, -9007199254740992LL);
3709 TEST_f_L (llrint, -9007199254740992.75L, -9007199254740993LL);
3710 TEST_f_L (llrint, -9007199254740993.5L, -9007199254740994LL);
3712 # if LDBL_MANT_DIG > 100
3713 TEST_f_L (llrint, 9007199254740991.4999999999999L, 9007199254740991LL);
3714 TEST_f_L (llrint, 9007199254740992.4999999999999L, 9007199254740992LL);
3715 TEST_f_L (llrint, 9007199254740993.4999999999999L, 9007199254740993LL);
3716 TEST_f_L (llrint, 9007199254740991.5000000000001L, 9007199254740992LL);
3717 TEST_f_L (llrint, 9007199254740992.5000000000001L, 9007199254740993LL);
3718 TEST_f_L (llrint, 9007199254740993.5000000000001L, 9007199254740994LL);
3720 TEST_f_L (llrint, -9007199254740991.4999999999999L, -9007199254740991LL);
3721 TEST_f_L (llrint, -9007199254740992.4999999999999L, -9007199254740992LL);
3722 TEST_f_L (llrint, -9007199254740993.4999999999999L, -9007199254740993LL);
3723 TEST_f_L (llrint, -9007199254740991.5000000000001L, -9007199254740992LL);
3724 TEST_f_L (llrint, -9007199254740992.5000000000001L, -9007199254740993LL);
3725 TEST_f_L (llrint, -9007199254740993.5000000000001L, -9007199254740994LL);
3728 TEST_f_L (llrint, 72057594037927935.5L, 72057594037927936LL);
3729 TEST_f_L (llrint, 72057594037927936.25L, 72057594037927936LL);
3730 TEST_f_L (llrint, 72057594037927936.5L, 72057594037927936LL);
3731 TEST_f_L (llrint, 72057594037927936.75L, 72057594037927937LL);
3732 TEST_f_L (llrint, 72057594037927937.5L, 72057594037927938LL);
3734 TEST_f_L (llrint, -72057594037927935.5L, -72057594037927936LL);
3735 TEST_f_L (llrint, -72057594037927936.25L, -72057594037927936LL);
3736 TEST_f_L (llrint, -72057594037927936.5L, -72057594037927936LL);
3737 TEST_f_L (llrint, -72057594037927936.75L, -72057594037927937LL);
3738 TEST_f_L (llrint, -72057594037927937.5L, -72057594037927938LL);
3740 # if LDBL_MANT_DIG > 100
3741 TEST_f_L (llrint, 9223372036854775805.5L, 9223372036854775806LL);
3742 TEST_f_L (llrint, -9223372036854775805.5L, -9223372036854775806LL);
3743 TEST_f_L (llrint, 9223372036854775806.0L, 9223372036854775806LL);
3744 TEST_f_L (llrint, -9223372036854775806.0L, -9223372036854775806LL);
3745 TEST_f_L (llrint, 9223372036854775806.25L, 9223372036854775806LL);
3746 TEST_f_L (llrint, -9223372036854775806.25L, -9223372036854775806LL);
3747 TEST_f_L (llrint, 9223372036854775806.5L, 9223372036854775806L);
3748 TEST_f_L (llrint, -9223372036854775806.5L, -9223372036854775806LL);
3749 TEST_f_L (llrint, 9223372036854775806.75L, 9223372036854775807LL);
3750 TEST_f_L (llrint, -9223372036854775806.75L, -9223372036854775807LL);
3751 TEST_f_L (llrint, 9223372036854775807.0L, 9223372036854775807LL);
3752 TEST_f_L (llrint, -9223372036854775807.0L, -9223372036854775807LL);
3757 fesetround (save_round_mode);
3759 END (llrint_tonearest);
3763 llrint_test_towardzero (void)
3765 int save_round_mode;
3766 START (llrint_towardzero);
3768 save_round_mode = fegetround ();
3770 if (!fesetround (FE_TOWARDZERO))
3772 TEST_f_L (llrint, 0.0, 0);
3773 TEST_f_L (llrint, minus_zero, 0);
3774 TEST_f_L (llrint, 0.2L, 0);
3775 TEST_f_L (llrint, -0.2L, 0);
3777 TEST_f_L (llrint, 1.4L, 1);
3778 TEST_f_L (llrint, -1.4L, -1);
3780 TEST_f_L (llrint, 8388600.3L, 8388600);
3781 TEST_f_L (llrint, -8388600.3L, -8388600);
3783 TEST_f_l (llrint, 1071930.0008, 1071930);
3785 /* Test boundary conditions. */
3787 TEST_f_L (llrint, 2097151.0,2097151LL);
3789 TEST_f_L (llrint, 8388608.0, 8388608LL);
3791 TEST_f_L (llrint, 16777216.0, 16777216LL);
3793 TEST_f_L (llrint, 2199023255552.0, 2199023255552LL);
3795 TEST_f_L (llrint, 4398046511104.0, 4398046511104LL);
3796 /* 0x1000000000000 */
3797 TEST_f_L (llrint, 281474976710656.0, 281474976710656LL);
3798 /* 0x10000000000000 */
3799 TEST_f_L (llrint, 4503599627370496.0, 4503599627370496LL);
3800 /* 0x10000080000000 */
3801 TEST_f_L (llrint, 4503601774854144.0, 4503601774854144LL);
3802 /* 0x20000000000000 */
3803 TEST_f_L (llrint, 9007199254740992.0, 9007199254740992LL);
3804 /* 0x80000000000000 */
3805 TEST_f_L (llrint, 36028797018963968.0, 36028797018963968LL);
3806 /* 0x100000000000000 */
3807 TEST_f_L (llrint, 72057594037927936.0, 72057594037927936LL);
3809 /* The input can only be represented in long double. */
3810 TEST_f_L (llrint, 4503599627370495.5L, 4503599627370495LL);
3811 TEST_f_L (llrint, 4503599627370496.25L, 4503599627370496LL);
3812 TEST_f_L (llrint, 4503599627370496.5L, 4503599627370496LL);
3813 TEST_f_L (llrint, 4503599627370496.75L, 4503599627370496LL);
3814 TEST_f_L (llrint, 4503599627370497.5L, 4503599627370497LL);
3816 TEST_f_L (llrint, -4503599627370495.5L, -4503599627370495LL);
3817 TEST_f_L (llrint, -4503599627370496.25L, -4503599627370496LL);
3818 TEST_f_L (llrint, -4503599627370496.5L, -4503599627370496LL);
3819 TEST_f_L (llrint, -4503599627370496.75L, -4503599627370496LL);
3820 TEST_f_L (llrint, -4503599627370497.5L, -4503599627370497LL);
3822 # if LDBL_MANT_DIG > 100
3823 TEST_f_L (llrint, 4503599627370495.4999999999999L, 4503599627370495LL);
3824 TEST_f_L (llrint, 4503599627370496.4999999999999L, 4503599627370496LL);
3825 TEST_f_L (llrint, 4503599627370497.4999999999999L, 4503599627370497LL);
3826 TEST_f_L (llrint, 4503599627370494.5000000000001L, 4503599627370494LL);
3827 TEST_f_L (llrint, 4503599627370495.5000000000001L, 4503599627370495LL);
3828 TEST_f_L (llrint, 4503599627370496.5000000000001L, 4503599627370496LL);
3830 TEST_f_L (llrint, -4503599627370495.4999999999999L, -4503599627370495LL);
3831 TEST_f_L (llrint, -4503599627370496.4999999999999L, -4503599627370496LL);
3832 TEST_f_L (llrint, -4503599627370497.4999999999999L, -4503599627370497LL);
3833 TEST_f_L (llrint, -4503599627370494.5000000000001L, -4503599627370494LL);
3834 TEST_f_L (llrint, -4503599627370495.5000000000001L, -4503599627370495LL);
3835 TEST_f_L (llrint, -4503599627370496.5000000000001L, -4503599627370496LL);
3838 TEST_f_L (llrint, 9007199254740991.5L, 9007199254740991LL);
3839 TEST_f_L (llrint, 9007199254740992.25L, 9007199254740992LL);
3840 TEST_f_L (llrint, 9007199254740992.5L, 9007199254740992LL);
3841 TEST_f_L (llrint, 9007199254740992.75L, 9007199254740992LL);
3842 TEST_f_L (llrint, 9007199254740993.5L, 9007199254740993LL);
3844 TEST_f_L (llrint, -9007199254740991.5L, -9007199254740991LL);
3845 TEST_f_L (llrint, -9007199254740992.25L, -9007199254740992LL);
3846 TEST_f_L (llrint, -9007199254740992.5L, -9007199254740992LL);
3847 TEST_f_L (llrint, -9007199254740992.75L, -9007199254740992LL);
3848 TEST_f_L (llrint, -9007199254740993.5L, -9007199254740993LL);
3850 # if LDBL_MANT_DIG > 100
3851 TEST_f_L (llrint, 9007199254740991.4999999999999L, 9007199254740991LL);
3852 TEST_f_L (llrint, 9007199254740992.4999999999999L, 9007199254740992LL);
3853 TEST_f_L (llrint, 9007199254740993.4999999999999L, 9007199254740993LL);
3854 TEST_f_L (llrint, 9007199254740991.5000000000001L, 9007199254740991LL);
3855 TEST_f_L (llrint, 9007199254740992.5000000000001L, 9007199254740992LL);
3856 TEST_f_L (llrint, 9007199254740993.5000000000001L, 9007199254740993LL);
3858 TEST_f_L (llrint, -9007199254740991.4999999999999L, -9007199254740991LL);
3859 TEST_f_L (llrint, -9007199254740992.4999999999999L, -9007199254740992LL);
3860 TEST_f_L (llrint, -9007199254740993.4999999999999L, -9007199254740993LL);
3861 TEST_f_L (llrint, -9007199254740991.5000000000001L, -9007199254740991LL);
3862 TEST_f_L (llrint, -9007199254740992.5000000000001L, -9007199254740992LL);
3863 TEST_f_L (llrint, -9007199254740993.5000000000001L, -9007199254740993LL);
3866 TEST_f_L (llrint, 72057594037927935.5L, 72057594037927935LL);
3867 TEST_f_L (llrint, 72057594037927936.25L, 72057594037927936LL);
3868 TEST_f_L (llrint, 72057594037927936.5L, 72057594037927936LL);
3869 TEST_f_L (llrint, 72057594037927936.75L, 72057594037927936LL);
3870 TEST_f_L (llrint, 72057594037927937.5L, 72057594037927937LL);
3872 TEST_f_L (llrint, -72057594037927935.5L, -72057594037927935LL);
3873 TEST_f_L (llrint, -72057594037927936.25L, -72057594037927936LL);
3874 TEST_f_L (llrint, -72057594037927936.5L, -72057594037927936LL);
3875 TEST_f_L (llrint, -72057594037927936.75L, -72057594037927936LL);
3876 TEST_f_L (llrint, -72057594037927937.5L, -72057594037927937LL);
3878 # if LDBL_MANT_DIG > 100
3879 TEST_f_L (llrint, 9223372036854775805.5L, 9223372036854775805LL);
3880 TEST_f_L (llrint, -9223372036854775805.5L, -9223372036854775805LL);
3881 TEST_f_L (llrint, 9223372036854775806.0L, 9223372036854775806LL);
3882 TEST_f_L (llrint, -9223372036854775806.0L, -9223372036854775806LL);
3883 TEST_f_L (llrint, 9223372036854775806.25L, 9223372036854775806LL);
3884 TEST_f_L (llrint, -9223372036854775806.25L, -9223372036854775806LL);
3885 TEST_f_L (llrint, 9223372036854775806.5L, 9223372036854775806L);
3886 TEST_f_L (llrint, -9223372036854775806.5L, -9223372036854775806LL);
3887 TEST_f_L (llrint, 9223372036854775806.75L, 9223372036854775806LL);
3888 TEST_f_L (llrint, -9223372036854775806.75L, -9223372036854775806LL);
3889 TEST_f_L (llrint, 9223372036854775807.0L, 9223372036854775807LL);
3890 TEST_f_L (llrint, -9223372036854775807.0L, -9223372036854775807LL);
3895 fesetround (save_round_mode);
3897 END (llrint_towardzero);
3901 llrint_test_downward (void)
3903 int save_round_mode;
3904 START (llrint_downward);
3906 save_round_mode = fegetround ();
3908 if (!fesetround (FE_DOWNWARD))
3910 TEST_f_L (llrint, 0.0, 0);
3911 TEST_f_L (llrint, minus_zero, 0);
3912 TEST_f_L (llrint, 0.2L, 0);
3913 TEST_f_L (llrint, -0.2L, -1);
3915 TEST_f_L (llrint, 1.4L, 1);
3916 TEST_f_L (llrint, -1.4L, -2);
3918 TEST_f_L (llrint, 8388600.3L, 8388600);
3919 TEST_f_L (llrint, -8388600.3L, -8388601);
3921 TEST_f_l (llrint, 1071930.0008, 1071930);
3923 /* Test boundary conditions. */
3925 TEST_f_L (llrint, 2097151.0,2097151LL);
3927 TEST_f_L (llrint, 8388608.0, 8388608LL);
3929 TEST_f_L (llrint, 16777216.0, 16777216LL);
3931 TEST_f_L (llrint, 2199023255552.0, 2199023255552LL);
3933 TEST_f_L (llrint, 4398046511104.0, 4398046511104LL);
3934 /* 0x1000000000000 */
3935 TEST_f_L (llrint, 281474976710656.0, 281474976710656LL);
3936 /* 0x10000000000000 */
3937 TEST_f_L (llrint, 4503599627370496.0, 4503599627370496LL);
3938 /* 0x10000080000000 */
3939 TEST_f_L (llrint, 4503601774854144.0, 4503601774854144LL);
3940 /* 0x20000000000000 */
3941 TEST_f_L (llrint, 9007199254740992.0, 9007199254740992LL);
3942 /* 0x80000000000000 */
3943 TEST_f_L (llrint, 36028797018963968.0, 36028797018963968LL);
3944 /* 0x100000000000000 */
3945 TEST_f_L (llrint, 72057594037927936.0, 72057594037927936LL);
3947 /* The input can only be represented in long double. */
3948 TEST_f_L (llrint, 4503599627370495.5L, 4503599627370495LL);
3949 TEST_f_L (llrint, 4503599627370496.25L, 4503599627370496LL);
3950 TEST_f_L (llrint, 4503599627370496.5L, 4503599627370496LL);
3951 TEST_f_L (llrint, 4503599627370496.75L, 4503599627370496LL);
3952 TEST_f_L (llrint, 4503599627370497.5L, 4503599627370497LL);
3954 TEST_f_L (llrint, 4503599627370495.4999999999999L, 4503599627370495LL);
3955 TEST_f_L (llrint, 4503599627370496.4999999999999L, 4503599627370496LL);
3956 TEST_f_L (llrint, 4503599627370497.4999999999999L, 4503599627370497LL);
3957 TEST_f_L (llrint, 4503599627370494.5000000000001L, 4503599627370494LL);
3958 TEST_f_L (llrint, 4503599627370495.5000000000001L, 4503599627370495LL);
3959 TEST_f_L (llrint, 4503599627370496.5000000000001L, 4503599627370496LL);
3961 TEST_f_L (llrint, -4503599627370495.5L, -4503599627370496LL);
3962 TEST_f_L (llrint, -4503599627370496.25L, -4503599627370497LL);
3963 TEST_f_L (llrint, -4503599627370496.5L, -4503599627370497LL);
3964 TEST_f_L (llrint, -4503599627370496.75L, -4503599627370497LL);
3965 TEST_f_L (llrint, -4503599627370497.5L, -4503599627370498LL);
3967 TEST_f_L (llrint, -4503599627370495.4999999999999L, -4503599627370496LL);
3968 TEST_f_L (llrint, -4503599627370496.4999999999999L, -4503599627370497LL);
3969 TEST_f_L (llrint, -4503599627370497.4999999999999L, -4503599627370498LL);
3970 TEST_f_L (llrint, -4503599627370494.5000000000001L, -4503599627370495LL);
3971 TEST_f_L (llrint, -4503599627370495.5000000000001L, -4503599627370496LL);
3972 TEST_f_L (llrint, -4503599627370496.5000000000001L, -4503599627370497LL);
3974 TEST_f_L (llrint, 9007199254740991.5L, 9007199254740991LL);
3975 TEST_f_L (llrint, 9007199254740992.25L, 9007199254740992LL);
3976 TEST_f_L (llrint, 9007199254740992.5L, 9007199254740992LL);
3977 TEST_f_L (llrint, 9007199254740992.75L, 9007199254740992LL);
3978 TEST_f_L (llrint, 9007199254740993.5L, 9007199254740993LL);
3980 TEST_f_L (llrint, 9007199254740991.4999999999999L, 9007199254740991LL);
3981 TEST_f_L (llrint, 9007199254740992.4999999999999L, 9007199254740992LL);
3982 TEST_f_L (llrint, 9007199254740993.4999999999999L, 9007199254740993LL);
3983 TEST_f_L (llrint, 9007199254740991.5000000000001L, 9007199254740991LL);
3984 TEST_f_L (llrint, 9007199254740992.5000000000001L, 9007199254740992LL);
3985 TEST_f_L (llrint, 9007199254740993.5000000000001L, 9007199254740993LL);
3987 TEST_f_L (llrint, -9007199254740991.5L, -9007199254740992LL);
3988 TEST_f_L (llrint, -9007199254740992.25L, -9007199254740993LL);
3989 TEST_f_L (llrint, -9007199254740992.5L, -9007199254740993LL);
3990 TEST_f_L (llrint, -9007199254740992.75L, -9007199254740993LL);
3991 TEST_f_L (llrint, -9007199254740993.5L, -9007199254740994LL);
3993 TEST_f_L (llrint, -9007199254740991.4999999999999L, -9007199254740992LL);
3994 TEST_f_L (llrint, -9007199254740992.4999999999999L, -9007199254740993LL);
3995 TEST_f_L (llrint, -9007199254740993.4999999999999L, -9007199254740994LL);
3996 TEST_f_L (llrint, -9007199254740991.5000000000001L, -9007199254740992LL);
3997 TEST_f_L (llrint, -9007199254740992.5000000000001L, -9007199254740993LL);
3998 TEST_f_L (llrint, -9007199254740993.5000000000001L, -9007199254740994LL);
4000 TEST_f_L (llrint, 72057594037927935.5L, 72057594037927935LL);
4001 TEST_f_L (llrint, 72057594037927936.25L, 72057594037927936LL);
4002 TEST_f_L (llrint, 72057594037927936.5L, 72057594037927936LL);
4003 TEST_f_L (llrint, 72057594037927936.75L, 72057594037927936LL);
4004 TEST_f_L (llrint, 72057594037927937.5L, 72057594037927937LL);
4006 TEST_f_L (llrint, -72057594037927935.5L, -72057594037927936LL);
4007 TEST_f_L (llrint, -72057594037927936.25L, -72057594037927937LL);
4008 TEST_f_L (llrint, -72057594037927936.5L, -72057594037927937LL);
4009 TEST_f_L (llrint, -72057594037927936.75L, -72057594037927937LL);
4010 TEST_f_L (llrint, -72057594037927937.5L, -72057594037927938LL);
4012 # if LDBL_MANT_DIG > 100
4013 TEST_f_L (llrint, 9223372036854775805.5L, 9223372036854775805LL);
4014 TEST_f_L (llrint, -9223372036854775805.5L, -9223372036854775806LL);
4015 TEST_f_L (llrint, 9223372036854775806.0L, 9223372036854775806LL);
4016 TEST_f_L (llrint, -9223372036854775806.0L, -9223372036854775806LL);
4017 TEST_f_L (llrint, 9223372036854775806.25L, 9223372036854775806LL);
4018 TEST_f_L (llrint, -9223372036854775806.25L, -9223372036854775807LL);
4019 TEST_f_L (llrint, 9223372036854775806.5L, 9223372036854775806L);
4020 TEST_f_L (llrint, -9223372036854775806.5L, -9223372036854775807LL);
4021 TEST_f_L (llrint, 9223372036854775806.75L, 9223372036854775806LL);
4022 TEST_f_L (llrint, -9223372036854775806.75L, -9223372036854775807LL);
4023 TEST_f_L (llrint, 9223372036854775807.0L, 9223372036854775807LL);
4024 TEST_f_L (llrint, -9223372036854775807.0L, -9223372036854775807LL);
4029 fesetround (save_round_mode);
4031 END (llrint_downward);
4035 llrint_test_upward (void)
4037 int save_round_mode;
4038 START (llrint_upward);
4040 save_round_mode = fegetround ();
4042 if (!fesetround (FE_UPWARD))
4044 TEST_f_L (llrint, 0.0, 0);
4045 TEST_f_L (llrint, minus_zero, 0);
4046 TEST_f_L (llrint, 0.2L, 1);
4047 TEST_f_L (llrint, -0.2L, 0);
4049 TEST_f_L (llrint, 1.4L, 2);
4050 TEST_f_L (llrint, -1.4L, -1);
4052 TEST_f_L (llrint, 8388600.3L, 8388601);
4053 TEST_f_L (llrint, -8388600.3L, -8388600);
4055 TEST_f_l (llrint, 1071930.0008, 1071931);
4057 /* Test boundary conditions. */
4059 TEST_f_L (llrint, 2097151.0,2097151LL);
4061 TEST_f_L (llrint, 8388608.0, 8388608LL);
4063 TEST_f_L (llrint, 16777216.0, 16777216LL);
4065 TEST_f_L (llrint, 2199023255552.0, 2199023255552LL);
4067 TEST_f_L (llrint, 4398046511104.0, 4398046511104LL);
4068 /* 0x1000000000000 */
4069 TEST_f_L (llrint, 281474976710656.0, 281474976710656LL);
4070 /* 0x10000000000000 */
4071 TEST_f_L (llrint, 4503599627370496.0, 4503599627370496LL);
4072 /* 0x10000080000000 */
4073 TEST_f_L (llrint, 4503601774854144.0, 4503601774854144LL);
4074 /* 0x20000000000000 */
4075 TEST_f_L (llrint, 9007199254740992.0, 9007199254740992LL);
4076 /* 0x80000000000000 */
4077 TEST_f_L (llrint, 36028797018963968.0, 36028797018963968LL);
4078 /* 0x100000000000000 */
4079 TEST_f_L (llrint, 72057594037927936.0, 72057594037927936LL);
4081 /* The input can only be represented in long double. */
4082 TEST_f_L (llrint, 4503599627370495.5L, 4503599627370496LL);
4083 TEST_f_L (llrint, 4503599627370496.25L, 4503599627370497LL);
4084 TEST_f_L (llrint, 4503599627370496.5L, 4503599627370497LL);
4085 TEST_f_L (llrint, 4503599627370496.75L, 4503599627370497LL);
4086 TEST_f_L (llrint, 4503599627370497.5L, 4503599627370498LL);
4088 TEST_f_L (llrint, 4503599627370495.4999999999999L, 4503599627370496LL);
4089 TEST_f_L (llrint, 4503599627370496.4999999999999L, 4503599627370497LL);
4090 TEST_f_L (llrint, 4503599627370497.4999999999999L, 4503599627370498LL);
4091 TEST_f_L (llrint, 4503599627370494.5000000000001L, 4503599627370495LL);
4092 TEST_f_L (llrint, 4503599627370495.5000000000001L, 4503599627370496LL);
4093 TEST_f_L (llrint, 4503599627370496.5000000000001L, 4503599627370497LL);
4095 TEST_f_L (llrint, -4503599627370495.5L, -4503599627370495LL);
4096 TEST_f_L (llrint, -4503599627370496.25L, -4503599627370496LL);
4097 TEST_f_L (llrint, -4503599627370496.5L, -4503599627370496LL);
4098 TEST_f_L (llrint, -4503599627370496.75L, -4503599627370496LL);
4099 TEST_f_L (llrint, -4503599627370497.5L, -4503599627370497LL);
4101 TEST_f_L (llrint, -4503599627370495.4999999999999L, -4503599627370495LL);
4102 TEST_f_L (llrint, -4503599627370496.4999999999999L, -4503599627370496LL);
4103 TEST_f_L (llrint, -4503599627370497.4999999999999L, -4503599627370497LL);
4104 TEST_f_L (llrint, -4503599627370494.5000000000001L, -4503599627370494LL);
4105 TEST_f_L (llrint, -4503599627370495.5000000000001L, -4503599627370495LL);
4106 TEST_f_L (llrint, -4503599627370496.5000000000001L, -4503599627370496LL);
4108 TEST_f_L (llrint, 9007199254740991.5L, 9007199254740992LL);
4109 TEST_f_L (llrint, 9007199254740992.25L, 9007199254740993LL);
4110 TEST_f_L (llrint, 9007199254740992.5L, 9007199254740993LL);
4111 TEST_f_L (llrint, 9007199254740992.75L, 9007199254740993LL);
4112 TEST_f_L (llrint, 9007199254740993.5L, 9007199254740994LL);
4114 TEST_f_L (llrint, 9007199254740991.4999999999999L, 9007199254740992LL);
4115 TEST_f_L (llrint, 9007199254740992.4999999999999L, 9007199254740993LL);
4116 TEST_f_L (llrint, 9007199254740993.4999999999999L, 9007199254740994LL);
4117 TEST_f_L (llrint, 9007199254740991.5000000000001L, 9007199254740992LL);
4118 TEST_f_L (llrint, 9007199254740992.5000000000001L, 9007199254740993LL);
4119 TEST_f_L (llrint, 9007199254740993.5000000000001L, 9007199254740994LL);
4121 TEST_f_L (llrint, -9007199254740991.5L, -9007199254740991LL);
4122 TEST_f_L (llrint, -9007199254740992.25L, -9007199254740992LL);
4123 TEST_f_L (llrint, -9007199254740992.5L, -9007199254740992LL);
4124 TEST_f_L (llrint, -9007199254740992.75L, -9007199254740992LL);
4125 TEST_f_L (llrint, -9007199254740993.5L, -9007199254740993LL);
4127 TEST_f_L (llrint, -9007199254740991.4999999999999L, -9007199254740991LL);
4128 TEST_f_L (llrint, -9007199254740992.4999999999999L, -9007199254740992LL);
4129 TEST_f_L (llrint, -9007199254740993.4999999999999L, -9007199254740993LL);
4130 TEST_f_L (llrint, -9007199254740991.5000000000001L, -9007199254740991LL);
4131 TEST_f_L (llrint, -9007199254740992.5000000000001L, -9007199254740992LL);
4132 TEST_f_L (llrint, -9007199254740993.5000000000001L, -9007199254740993LL);
4134 TEST_f_L (llrint, 72057594037927935.5L, 72057594037927936LL);
4135 TEST_f_L (llrint, 72057594037927936.25L, 72057594037927937LL);
4136 TEST_f_L (llrint, 72057594037927936.5L, 72057594037927937LL);
4137 TEST_f_L (llrint, 72057594037927936.75L, 72057594037927937LL);
4138 TEST_f_L (llrint, 72057594037927937.5L, 72057594037927938LL);
4140 TEST_f_L (llrint, -72057594037927935.5L, -72057594037927935LL);
4141 TEST_f_L (llrint, -72057594037927936.25L, -72057594037927936LL);
4142 TEST_f_L (llrint, -72057594037927936.5L, -72057594037927936LL);
4143 TEST_f_L (llrint, -72057594037927936.75L, -72057594037927936LL);
4144 TEST_f_L (llrint, -72057594037927937.5L, -72057594037927937LL);
4146 # if LDBL_MANT_DIG > 100
4147 TEST_f_L (llrint, 9223372036854775805.5L, 9223372036854775806LL);
4148 TEST_f_L (llrint, -9223372036854775805.5L, -9223372036854775805LL);
4149 TEST_f_L (llrint, 9223372036854775806.0L, 9223372036854775806LL);
4150 TEST_f_L (llrint, -9223372036854775806.0L, -9223372036854775806LL);
4151 TEST_f_L (llrint, 9223372036854775806.25L, 9223372036854775807LL);
4152 TEST_f_L (llrint, -9223372036854775806.25L, -9223372036854775806LL);
4153 TEST_f_L (llrint, 9223372036854775806.5L, 9223372036854775807L);
4154 TEST_f_L (llrint, -9223372036854775806.5L, -9223372036854775806LL);
4155 TEST_f_L (llrint, 9223372036854775806.75L, 9223372036854775807LL);
4156 TEST_f_L (llrint, -9223372036854775806.75L, -9223372036854775806LL);
4157 TEST_f_L (llrint, 9223372036854775807.0L, 9223372036854775807LL);
4158 TEST_f_L (llrint, -9223372036854775807.0L, -9223372036854775807LL);
4163 fesetround (save_round_mode);
4165 END (llrint_upward);
4174 if (errno == ENOSYS)
4175 /* Function not implemented. */
4179 TEST_f_f (log, 0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4180 TEST_f_f (log, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4182 TEST_f_f (log, 1, 0);
4184 TEST_f_f (log, -1, nan_value, INVALID_EXCEPTION);
4185 TEST_f_f (log, minus_infty, nan_value, INVALID_EXCEPTION);
4186 TEST_f_f (log, plus_infty, plus_infty);
4187 TEST_f_f (log, nan_value, nan_value);
4189 TEST_f_f (log, M_El, 1);
4190 TEST_f_f (log, 1.0 / M_El, -1);
4191 TEST_f_f (log, 2, M_LN2l);
4192 TEST_f_f (log, 10, M_LN10l);
4193 TEST_f_f (log, 0.75L, -0.287682072451780927439219005993827432L);
4204 if (errno == ENOSYS)
4205 /* Function not implemented. */
4210 TEST_f_f (log10, 0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4211 TEST_f_f (log10, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4213 TEST_f_f (log10, 1, 0);
4215 /* log10 (x) == NaN plus invalid exception if x < 0. */
4216 TEST_f_f (log10, -1, nan_value, INVALID_EXCEPTION);
4217 TEST_f_f (log10, minus_infty, nan_value, INVALID_EXCEPTION);
4219 TEST_f_f (log10, plus_infty, plus_infty);
4220 TEST_f_f (log10, nan_value, nan_value);
4222 TEST_f_f (log10, 0.1L, -1);
4223 TEST_f_f (log10, 10.0, 1);
4224 TEST_f_f (log10, 100.0, 2);
4225 TEST_f_f (log10, 10000.0, 4);
4226 TEST_f_f (log10, M_El, M_LOG10El);
4227 TEST_f_f (log10, 0.75L, -0.124938736608299953132449886193870744L);
4238 if (errno == ENOSYS)
4239 /* Function not implemented. */
4244 TEST_f_f (log1p, 0, 0);
4245 TEST_f_f (log1p, minus_zero, minus_zero);
4247 TEST_f_f (log1p, -1, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4248 TEST_f_f (log1p, -2, nan_value, INVALID_EXCEPTION);
4249 TEST_f_f (log1p, minus_infty, nan_value, INVALID_EXCEPTION);
4251 TEST_f_f (log1p, plus_infty, plus_infty);
4252 TEST_f_f (log1p, nan_value, nan_value);
4254 TEST_f_f (log1p, M_El - 1.0, 1);
4256 TEST_f_f (log1p, -0.25L, -0.287682072451780927439219005993827432L);
4257 TEST_f_f (log1p, -0.875, -2.07944154167983592825169636437452970L);
4268 if (errno == ENOSYS)
4269 /* Function not implemented. */
4274 TEST_f_f (log2, 0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4275 TEST_f_f (log2, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4277 TEST_f_f (log2, 1, 0);
4279 TEST_f_f (log2, -1, nan_value, INVALID_EXCEPTION);
4280 TEST_f_f (log2, minus_infty, nan_value, INVALID_EXCEPTION);
4282 TEST_f_f (log2, plus_infty, plus_infty);
4283 TEST_f_f (log2, nan_value, nan_value);
4285 TEST_f_f (log2, M_El, M_LOG2El);
4286 TEST_f_f (log2, 2.0, 1);
4287 TEST_f_f (log2, 16.0, 4);
4288 TEST_f_f (log2, 256.0, 8);
4289 TEST_f_f (log2, 0.75L, -.415037499278843818546261056052183492L);
4300 TEST_f_f (logb, plus_infty, plus_infty);
4301 TEST_f_f (logb, minus_infty, plus_infty);
4303 TEST_f_f (logb, 0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4305 TEST_f_f (logb, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4306 TEST_f_f (logb, nan_value, nan_value);
4308 TEST_f_f (logb, 1, 0);
4309 TEST_f_f (logb, M_El, 1);
4310 TEST_f_f (logb, 1024, 10);
4311 TEST_f_f (logb, -2000, 10);
4322 TEST_f_l (lround, 0, 0);
4323 TEST_f_l (lround, minus_zero, 0);
4324 TEST_f_l (lround, 0.2L, 0.0);
4325 TEST_f_l (lround, -0.2L, 0);
4326 TEST_f_l (lround, 0.5, 1);
4327 TEST_f_l (lround, -0.5, -1);
4328 TEST_f_l (lround, 0.8L, 1);
4329 TEST_f_l (lround, -0.8L, -1);
4330 TEST_f_l (lround, 1.5, 2);
4331 TEST_f_l (lround, -1.5, -2);
4332 TEST_f_l (lround, 22514.5, 22515);
4333 TEST_f_l (lround, -22514.5, -22515);
4334 TEST_f_l (lround, 1071930.0008, 1071930);
4336 TEST_f_l (lround, 1073741824.01, 1073741824);
4337 # if LONG_MAX > 281474976710656
4338 TEST_f_l (lround, 281474976710656.025, 281474976710656);
4340 TEST_f_l (lround, 2097152.5, 2097153);
4341 TEST_f_l (lround, -2097152.5, -2097153);
4342 /* nextafter(0.5,-1) */
4343 TEST_f_l (lround, 0x1.fffffffffffffp-2, 0);
4344 /* nextafter(-0.5,1) */
4345 TEST_f_l (lround, -0x1.fffffffffffffp-2, 0);
4347 /* nextafter(0.5,-1) */
4348 TEST_f_l (lround, 0x1.fffffp-2, 0);
4349 /* nextafter(-0.5,1) */
4350 TEST_f_l (lround, -0x1.fffffp-2, 0);
4351 TEST_f_l (lround, 0x1.fffffep+23, 16777215);
4352 TEST_f_l (lround, -0x1.fffffep+23, -16777215);
4363 TEST_f_L (llround, 0, 0);
4364 TEST_f_L (llround, minus_zero, 0);
4365 TEST_f_L (llround, 0.2L, 0.0);
4366 TEST_f_L (llround, -0.2L, 0);
4367 TEST_f_L (llround, 0.5, 1);
4368 TEST_f_L (llround, -0.5, -1);
4369 TEST_f_L (llround, 0.8L, 1);
4370 TEST_f_L (llround, -0.8L, -1);
4371 TEST_f_L (llround, 1.5, 2);
4372 TEST_f_L (llround, -1.5, -2);
4373 TEST_f_L (llround, 22514.5, 22515);
4374 TEST_f_L (llround, -22514.5, -22515);
4375 TEST_f_l (llround, 1071930.0008, 1071930);
4377 TEST_f_L (llround, 2097152.5, 2097153);
4378 TEST_f_L (llround, -2097152.5, -2097153);
4379 TEST_f_L (llround, 34359738368.5, 34359738369ll);
4380 TEST_f_L (llround, -34359738368.5, -34359738369ll);
4383 /* Test boundary conditions. */
4385 TEST_f_L (llround, 2097151.0, 2097151LL);
4387 TEST_f_L (llround, 8388608.0, 8388608LL);
4389 TEST_f_L (llround, 16777216.0, 16777216LL);
4391 TEST_f_L (llround, 2199023255552.0, 2199023255552LL);
4393 TEST_f_L (llround, 4398046511104.0, 4398046511104LL);
4394 /* 0x1000000000000 */
4395 TEST_f_L (llround, 281474976710656.0, 281474976710656LL);
4396 /* 0x10000000000000 */
4397 TEST_f_L (llround, 4503599627370496.0, 4503599627370496LL);
4398 /* 0x10000080000000 */
4399 TEST_f_L (llround, 4503601774854144.0, 4503601774854144LL);
4400 /* 0x20000000000000 */
4401 TEST_f_L (llround, 9007199254740992.0, 9007199254740992LL);
4402 /* 0x80000000000000 */
4403 TEST_f_L (llround, 36028797018963968.0, 36028797018963968LL);
4404 /* 0x100000000000000 */
4405 TEST_f_L (llround, 72057594037927936.0, 72057594037927936LL);
4409 TEST_f_L (llround, 4294967295.5, 4294967296LL);
4411 TEST_f_L (llround, 8589934591.5, 8589934592LL);
4413 /* nextafter(0.5,-1) */
4414 TEST_f_L (llround, 0x1.fffffffffffffp-2, 0);
4415 /* nextafter(-0.5,1) */
4416 TEST_f_L (llround, -0x1.fffffffffffffp-2, 0);
4417 /* On PowerPC an exponent of '52' is the largest incrementally
4418 * representable sequence of whole-numbers in the 'double' range. We test
4419 * lround to make sure that a guard bit set during the lround operation
4420 * hasn't forced an erroneous shift giving us an incorrect result. The odd
4421 * numbers between +-(2^52+1 and 2^53-1) are affected since they have the
4422 * rightmost bit set. */
4424 TEST_f_L (llround, 0x1.0000000000001p+52,4503599627370497LL);
4425 TEST_f_L (llround, -0x1.0000000000001p+52,-4503599627370497LL);
4426 /* +-(2^53-1): Input is the last (positive and negative) incrementally
4427 * representable whole-number in the 'double' range that might round
4429 TEST_f_L (llround, 0x1.fffffffffffffp+52, 9007199254740991LL);
4430 TEST_f_L (llround, -0x1.fffffffffffffp+52, -9007199254740991LL);
4432 /* nextafter(0.5,-1) */
4433 TEST_f_L (llround, 0x1.fffffep-2, 0);
4434 /* nextafter(-0.5,1) */
4435 TEST_f_L (llround, -0x1.fffffep-2, 0);
4436 /* As above, on PowerPC an exponent of '23' is the largest incrementally
4437 * representable sequence of whole-numbers in the 'float' range.
4438 * Likewise, numbers between +-(2^23+1 and 2^24-1) are affected. */
4439 TEST_f_L (llround, 0x1.000002p+23,8388609);
4440 TEST_f_L (llround, -0x1.000002p+23,-8388609);
4441 TEST_f_L (llround, 0x1.fffffep+23, 16777215);
4442 TEST_f_L (llround, -0x1.fffffep+23, -16777215);
4447 /* The input can only be represented in long double. */
4448 TEST_f_L (llround, 4503599627370495.5L, 4503599627370496LL);
4449 TEST_f_L (llround, 4503599627370496.25L, 4503599627370496LL);
4450 TEST_f_L (llround, 4503599627370496.5L, 4503599627370497LL);
4451 TEST_f_L (llround, 4503599627370496.75L, 4503599627370497LL);
4452 TEST_f_L (llround, 4503599627370497.5L, 4503599627370498LL);
4454 # if LDBL_MANT_DIG > 100
4455 TEST_f_L (llround, 4503599627370495.4999999999999L, 4503599627370495LL);
4456 TEST_f_L (llround, 4503599627370496.4999999999999L, 4503599627370496LL);
4457 TEST_f_L (llround, 4503599627370497.4999999999999L, 4503599627370497LL);
4458 TEST_f_L (llround, 4503599627370494.5000000000001L, 4503599627370495LL);
4459 TEST_f_L (llround, 4503599627370495.5000000000001L, 4503599627370496LL);
4460 TEST_f_L (llround, 4503599627370496.5000000000001L, 4503599627370497LL);
4462 TEST_f_L (llround, -4503599627370495.4999999999999L, -4503599627370495LL);
4463 TEST_f_L (llround, -4503599627370496.4999999999999L, -4503599627370496LL);
4464 TEST_f_L (llround, -4503599627370497.4999999999999L, -4503599627370497LL);
4465 TEST_f_L (llround, -4503599627370494.5000000000001L, -4503599627370495LL);
4466 TEST_f_L (llround, -4503599627370495.5000000000001L, -4503599627370496LL);
4467 TEST_f_L (llround, -4503599627370496.5000000000001L, -4503599627370497LL);
4470 TEST_f_L (llround, -4503599627370495.5L, -4503599627370496LL);
4471 TEST_f_L (llround, -4503599627370496.25L, -4503599627370496LL);
4472 TEST_f_L (llround, -4503599627370496.5L, -4503599627370497LL);
4473 TEST_f_L (llround, -4503599627370496.75L, -4503599627370497LL);
4474 TEST_f_L (llround, -4503599627370497.5L, -4503599627370498LL);
4476 TEST_f_L (llround, 9007199254740991.5L, 9007199254740992LL);
4477 TEST_f_L (llround, 9007199254740992.25L, 9007199254740992LL);
4478 TEST_f_L (llround, 9007199254740992.5L, 9007199254740993LL);
4479 TEST_f_L (llround, 9007199254740992.75L, 9007199254740993LL);
4480 TEST_f_L (llround, 9007199254740993.5L, 9007199254740994LL);
4482 # if LDBL_MANT_DIG > 100
4483 TEST_f_L (llround, 9007199254740991.4999999999999L, 9007199254740991LL);
4484 TEST_f_L (llround, 9007199254740992.4999999999999L, 9007199254740992LL);
4485 TEST_f_L (llround, 9007199254740993.4999999999999L, 9007199254740993LL);
4486 TEST_f_L (llround, 9007199254740991.5000000000001L, 9007199254740992LL);
4487 TEST_f_L (llround, 9007199254740992.5000000000001L, 9007199254740993LL);
4488 TEST_f_L (llround, 9007199254740993.5000000000001L, 9007199254740994LL);
4490 TEST_f_L (llround, -9007199254740991.4999999999999L, -9007199254740991LL);
4491 TEST_f_L (llround, -9007199254740992.4999999999999L, -9007199254740992LL);
4492 TEST_f_L (llround, -9007199254740993.4999999999999L, -9007199254740993LL);
4493 TEST_f_L (llround, -9007199254740991.5000000000001L, -9007199254740992LL);
4494 TEST_f_L (llround, -9007199254740992.5000000000001L, -9007199254740993LL);
4495 TEST_f_L (llround, -9007199254740993.5000000000001L, -9007199254740994LL);
4498 TEST_f_L (llround, -9007199254740991.5L, -9007199254740992LL);
4499 TEST_f_L (llround, -9007199254740992.25L, -9007199254740992LL);
4500 TEST_f_L (llround, -9007199254740992.5L, -9007199254740993LL);
4501 TEST_f_L (llround, -9007199254740992.75L, -9007199254740993LL);
4502 TEST_f_L (llround, -9007199254740993.5L, -9007199254740994LL);
4504 TEST_f_L (llround, 72057594037927935.5L, 72057594037927936LL);
4505 TEST_f_L (llround, 72057594037927936.25L, 72057594037927936LL);
4506 TEST_f_L (llround, 72057594037927936.5L, 72057594037927937LL);
4507 TEST_f_L (llround, 72057594037927936.75L, 72057594037927937LL);
4508 TEST_f_L (llround, 72057594037927937.5L, 72057594037927938LL);
4510 TEST_f_L (llround, -72057594037927935.5L, -72057594037927936LL);
4511 TEST_f_L (llround, -72057594037927936.25L, -72057594037927936LL);
4512 TEST_f_L (llround, -72057594037927936.5L, -72057594037927937LL);
4513 TEST_f_L (llround, -72057594037927936.75L, -72057594037927937LL);
4514 TEST_f_L (llround, -72057594037927937.5L, -72057594037927938LL);
4516 TEST_f_L (llround, 9223372036854775806.25L, 9223372036854775806LL);
4517 TEST_f_L (llround, -9223372036854775806.25L, -9223372036854775806LL);
4518 TEST_f_L (llround, 9223372036854775806.5L, 9223372036854775807LL);
4519 TEST_f_L (llround, -9223372036854775806.5L, -9223372036854775807LL);
4520 TEST_f_L (llround, 9223372036854775807.0L, 9223372036854775807LL);
4521 TEST_f_L (llround, -9223372036854775807.0L, -9223372036854775807LL);
4534 TEST_fF_f1 (modf, plus_infty, 0, plus_infty);
4535 TEST_fF_f1 (modf, minus_infty, minus_zero, minus_infty);
4536 TEST_fF_f1 (modf, nan_value, nan_value, nan_value);
4537 TEST_fF_f1 (modf, 0, 0, 0);
4538 TEST_fF_f1 (modf, 1.5, 0.5, 1);
4539 TEST_fF_f1 (modf, 2.5, 0.5, 2);
4540 TEST_fF_f1 (modf, -2.5, -0.5, -2);
4541 TEST_fF_f1 (modf, 20, 0, 20);
4542 TEST_fF_f1 (modf, 21, 0, 21);
4543 TEST_fF_f1 (modf, 89.5, 0.5, 89);
4550 nearbyint_test (void)
4554 TEST_f_f (nearbyint, 0.0, 0.0);
4555 TEST_f_f (nearbyint, minus_zero, minus_zero);
4556 TEST_f_f (nearbyint, plus_infty, plus_infty);
4557 TEST_f_f (nearbyint, minus_infty, minus_infty);
4558 TEST_f_f (nearbyint, nan_value, nan_value);
4560 /* Default rounding mode is round to nearest. */
4561 TEST_f_f (nearbyint, 0.5, 0.0);
4562 TEST_f_f (nearbyint, 1.5, 2.0);
4563 TEST_f_f (nearbyint, -0.5, minus_zero);
4564 TEST_f_f (nearbyint, -1.5, -2.0);
4566 TEST_f_f (nearbyint, 262144.75, 262145.0);
4567 TEST_f_f (nearbyint, 262142.75, 262143.0);
4568 TEST_f_f (nearbyint, 524286.75, 524287.0);
4569 TEST_f_f (nearbyint, 524288.75, 524289.0);
4575 nextafter_test (void)
4580 TEST_ff_f (nextafter, 0, 0, 0);
4581 TEST_ff_f (nextafter, minus_zero, 0, 0);
4582 TEST_ff_f (nextafter, 0, minus_zero, minus_zero);
4583 TEST_ff_f (nextafter, minus_zero, minus_zero, minus_zero);
4585 TEST_ff_f (nextafter, 9, 9, 9);
4586 TEST_ff_f (nextafter, -9, -9, -9);
4587 TEST_ff_f (nextafter, plus_infty, plus_infty, plus_infty);
4588 TEST_ff_f (nextafter, minus_infty, minus_infty, minus_infty);
4590 TEST_ff_f (nextafter, nan_value, 1.1L, nan_value);
4591 TEST_ff_f (nextafter, 1.1L, nan_value, nan_value);
4592 TEST_ff_f (nextafter, nan_value, nan_value, nan_value);
4594 FLOAT fltmax = CHOOSE (LDBL_MAX, DBL_MAX, FLT_MAX,
4595 LDBL_MAX, DBL_MAX, FLT_MAX);
4596 TEST_ff_f (nextafter, fltmax, plus_infty, plus_infty);
4597 TEST_ff_f (nextafter, -fltmax, minus_infty, minus_infty);
4600 // XXX Enable once gcc is fixed.
4601 //TEST_ff_f (nextafter, 0x0.00000040000000000000p-16385L, -0.1L, 0x0.0000003ffffffff00000p-16385L);
4604 /* XXX We need the hexadecimal FP number representation here for further
4612 nexttoward_test (void)
4615 TEST_ff_f (nexttoward, 0, 0, 0);
4616 TEST_ff_f (nexttoward, minus_zero, 0, 0);
4617 TEST_ff_f (nexttoward, 0, minus_zero, minus_zero);
4618 TEST_ff_f (nexttoward, minus_zero, minus_zero, minus_zero);
4620 TEST_ff_f (nexttoward, 9, 9, 9);
4621 TEST_ff_f (nexttoward, -9, -9, -9);
4622 TEST_ff_f (nexttoward, plus_infty, plus_infty, plus_infty);
4623 TEST_ff_f (nexttoward, minus_infty, minus_infty, minus_infty);
4625 TEST_ff_f (nexttoward, nan_value, 1.1L, nan_value);
4626 TEST_ff_f (nexttoward, 1.1L, nan_value, nan_value);
4627 TEST_ff_f (nexttoward, nan_value, nan_value, nan_value);
4629 /* XXX We need the hexadecimal FP number representation here for further
4642 if (errno == ENOSYS)
4643 /* Function not implemented. */
4648 TEST_ff_f (pow, 0, 0, 1);
4649 TEST_ff_f (pow, 0, minus_zero, 1);
4650 TEST_ff_f (pow, minus_zero, 0, 1);
4651 TEST_ff_f (pow, minus_zero, minus_zero, 1);
4653 TEST_ff_f (pow, 10, 0, 1);
4654 TEST_ff_f (pow, 10, minus_zero, 1);
4655 TEST_ff_f (pow, -10, 0, 1);
4656 TEST_ff_f (pow, -10, minus_zero, 1);
4658 TEST_ff_f (pow, nan_value, 0, 1);
4659 TEST_ff_f (pow, nan_value, minus_zero, 1);
4663 TEST_ff_f (pow, 1.1L, plus_infty, plus_infty);
4664 TEST_ff_f (pow, plus_infty, plus_infty, plus_infty);
4665 TEST_ff_f (pow, -1.1L, plus_infty, plus_infty);
4666 TEST_ff_f (pow, minus_infty, plus_infty, plus_infty);
4668 TEST_ff_f (pow, 0.9L, plus_infty, 0);
4669 TEST_ff_f (pow, 1e-7L, plus_infty, 0);
4670 TEST_ff_f (pow, -0.9L, plus_infty, 0);
4671 TEST_ff_f (pow, -1e-7L, plus_infty, 0);
4673 TEST_ff_f (pow, 1.1L, minus_infty, 0);
4674 TEST_ff_f (pow, plus_infty, minus_infty, 0);
4675 TEST_ff_f (pow, -1.1L, minus_infty, 0);
4676 TEST_ff_f (pow, minus_infty, minus_infty, 0);
4678 TEST_ff_f (pow, 0.9L, minus_infty, plus_infty);
4679 TEST_ff_f (pow, 1e-7L, minus_infty, plus_infty);
4680 TEST_ff_f (pow, -0.9L, minus_infty, plus_infty);
4681 TEST_ff_f (pow, -1e-7L, minus_infty, plus_infty);
4683 TEST_ff_f (pow, plus_infty, 1e-7L, plus_infty);
4684 TEST_ff_f (pow, plus_infty, 1, plus_infty);
4685 TEST_ff_f (pow, plus_infty, 1e7L, plus_infty);
4687 TEST_ff_f (pow, plus_infty, -1e-7L, 0);
4688 TEST_ff_f (pow, plus_infty, -1, 0);
4689 TEST_ff_f (pow, plus_infty, -1e7L, 0);
4691 TEST_ff_f (pow, minus_infty, 1, minus_infty);
4692 TEST_ff_f (pow, minus_infty, 11, minus_infty);
4693 TEST_ff_f (pow, minus_infty, 1001, minus_infty);
4695 TEST_ff_f (pow, minus_infty, 2, plus_infty);
4696 TEST_ff_f (pow, minus_infty, 12, plus_infty);
4697 TEST_ff_f (pow, minus_infty, 1002, plus_infty);
4698 TEST_ff_f (pow, minus_infty, 0.1L, plus_infty);
4699 TEST_ff_f (pow, minus_infty, 1.1L, plus_infty);
4700 TEST_ff_f (pow, minus_infty, 11.1L, plus_infty);
4701 TEST_ff_f (pow, minus_infty, 1001.1L, plus_infty);
4703 TEST_ff_f (pow, minus_infty, -1, minus_zero);
4704 TEST_ff_f (pow, minus_infty, -11, minus_zero);
4705 TEST_ff_f (pow, minus_infty, -1001, minus_zero);
4707 TEST_ff_f (pow, minus_infty, -2, 0);
4708 TEST_ff_f (pow, minus_infty, -12, 0);
4709 TEST_ff_f (pow, minus_infty, -1002, 0);
4710 TEST_ff_f (pow, minus_infty, -0.1L, 0);
4711 TEST_ff_f (pow, minus_infty, -1.1L, 0);
4712 TEST_ff_f (pow, minus_infty, -11.1L, 0);
4713 TEST_ff_f (pow, minus_infty, -1001.1L, 0);
4716 TEST_ff_f (pow, nan_value, nan_value, nan_value);
4717 TEST_ff_f (pow, 0, nan_value, nan_value);
4718 TEST_ff_f (pow, 1, nan_value, 1);
4719 TEST_ff_f (pow, -1, nan_value, nan_value);
4720 TEST_ff_f (pow, nan_value, 1, nan_value);
4721 TEST_ff_f (pow, nan_value, -1, nan_value);
4723 /* pow (x, NaN) == NaN. */
4724 TEST_ff_f (pow, 3.0, nan_value, nan_value);
4725 TEST_ff_f (pow, minus_zero, nan_value, nan_value);
4726 TEST_ff_f (pow, plus_infty, nan_value, nan_value);
4727 TEST_ff_f (pow, -3.0, nan_value, nan_value);
4728 TEST_ff_f (pow, minus_infty, nan_value, nan_value);
4730 TEST_ff_f (pow, nan_value, 3.0, nan_value);
4731 TEST_ff_f (pow, nan_value, -3.0, nan_value);
4732 TEST_ff_f (pow, nan_value, plus_infty, nan_value);
4733 TEST_ff_f (pow, nan_value, minus_infty, nan_value);
4734 TEST_ff_f (pow, nan_value, 2.5, nan_value);
4735 TEST_ff_f (pow, nan_value, -2.5, nan_value);
4737 TEST_ff_f (pow, 1, plus_infty, 1);
4738 TEST_ff_f (pow, -1, plus_infty, 1);
4739 TEST_ff_f (pow, 1, minus_infty, 1);
4740 TEST_ff_f (pow, -1, minus_infty, 1);
4741 TEST_ff_f (pow, 1, 1, 1);
4742 TEST_ff_f (pow, 1, -1, 1);
4743 TEST_ff_f (pow, 1, 1.25, 1);
4744 TEST_ff_f (pow, 1, -1.25, 1);
4745 TEST_ff_f (pow, 1, 0x1p62L, 1);
4746 TEST_ff_f (pow, 1, 0x1p63L, 1);
4747 TEST_ff_f (pow, 1, 0x1p64L, 1);
4748 TEST_ff_f (pow, 1, 0x1p72L, 1);
4750 /* pow (x, +-0) == 1. */
4751 TEST_ff_f (pow, plus_infty, 0, 1);
4752 TEST_ff_f (pow, plus_infty, minus_zero, 1);
4753 TEST_ff_f (pow, minus_infty, 0, 1);
4754 TEST_ff_f (pow, minus_infty, minus_zero, 1);
4755 TEST_ff_f (pow, 32.75L, 0, 1);
4756 TEST_ff_f (pow, 32.75L, minus_zero, 1);
4757 TEST_ff_f (pow, -32.75L, 0, 1);
4758 TEST_ff_f (pow, -32.75L, minus_zero, 1);
4759 TEST_ff_f (pow, 0x1p72L, 0, 1);
4760 TEST_ff_f (pow, 0x1p72L, minus_zero, 1);
4761 TEST_ff_f (pow, 0x1p-72L, 0, 1);
4762 TEST_ff_f (pow, 0x1p-72L, minus_zero, 1);
4764 TEST_ff_f (pow, -0.1L, 1.1L, nan_value, INVALID_EXCEPTION);
4765 TEST_ff_f (pow, -0.1L, -1.1L, nan_value, INVALID_EXCEPTION);
4766 TEST_ff_f (pow, -10.1L, 1.1L, nan_value, INVALID_EXCEPTION);
4767 TEST_ff_f (pow, -10.1L, -1.1L, nan_value, INVALID_EXCEPTION);
4770 TEST_ff_f (pow, 0, -1, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4771 check_int ("errno for pow(0,-odd) == ERANGE", errno, ERANGE, 0, 0, 0);
4773 TEST_ff_f (pow, 0, -11, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4774 check_int ("errno for pow(0,-odd) == ERANGE", errno, ERANGE, 0, 0, 0);
4776 TEST_ff_f (pow, minus_zero, -1, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4777 check_int ("errno for pow(-0,-odd) == ERANGE", errno, ERANGE, 0, 0, 0);
4779 TEST_ff_f (pow, minus_zero, -11L, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4780 check_int ("errno for pow(-0,-odd) == ERANGE", errno, ERANGE, 0, 0, 0);
4783 TEST_ff_f (pow, 0, -2, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4784 check_int ("errno for pow(0,-even) == ERANGE", errno, ERANGE, 0, 0, 0);
4786 TEST_ff_f (pow, 0, -11.1L, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4787 check_int ("errno for pow(0,-num) == ERANGE", errno, ERANGE, 0, 0, 0);
4789 TEST_ff_f (pow, minus_zero, -2, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4790 check_int ("errno for pow(-0,-even) == ERANGE", errno, ERANGE, 0, 0, 0);
4792 TEST_ff_f (pow, minus_zero, -11.1L, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
4793 check_int ("errno for pow(-0,-num) == ERANGE", errno, ERANGE, 0, 0, 0);
4795 TEST_ff_f (pow, 0x1p72L, 0x1p72L, plus_infty);
4796 TEST_ff_f (pow, 10, -0x1p72L, 0);
4797 TEST_ff_f (pow, max_value, max_value, plus_infty);
4798 TEST_ff_f (pow, 10, -max_value, 0);
4800 TEST_ff_f (pow, 0, 1, 0);
4801 TEST_ff_f (pow, 0, 11, 0);
4803 TEST_ff_f (pow, minus_zero, 1, minus_zero);
4804 TEST_ff_f (pow, minus_zero, 11, minus_zero);
4806 TEST_ff_f (pow, 0, 2, 0);
4807 TEST_ff_f (pow, 0, 11.1L, 0);
4809 TEST_ff_f (pow, minus_zero, 2, 0);
4810 TEST_ff_f (pow, minus_zero, 11.1L, 0);
4811 TEST_ff_f (pow, 0, plus_infty, 0);
4812 TEST_ff_f (pow, minus_zero, plus_infty, 0);
4815 /* pow (x, +inf) == +inf for |x| > 1. */
4816 TEST_ff_f (pow, 1.5, plus_infty, plus_infty);
4818 /* pow (x, +inf) == +0 for |x| < 1. */
4819 TEST_ff_f (pow, 0.5, plus_infty, 0.0);
4821 /* pow (x, -inf) == +0 for |x| > 1. */
4822 TEST_ff_f (pow, 1.5, minus_infty, 0.0);
4824 /* pow (x, -inf) == +inf for |x| < 1. */
4825 TEST_ff_f (pow, 0.5, minus_infty, plus_infty);
4828 /* pow (+inf, y) == +inf for y > 0. */
4829 TEST_ff_f (pow, plus_infty, 2, plus_infty);
4831 /* pow (+inf, y) == +0 for y < 0. */
4832 TEST_ff_f (pow, plus_infty, -1, 0.0);
4834 /* pow (-inf, y) == -inf for y an odd integer > 0. */
4835 TEST_ff_f (pow, minus_infty, 27, minus_infty);
4837 /* pow (-inf, y) == +inf for y > 0 and not an odd integer. */
4838 TEST_ff_f (pow, minus_infty, 28, plus_infty);
4840 /* pow (-inf, y) == -0 for y an odd integer < 0. */
4841 TEST_ff_f (pow, minus_infty, -3, minus_zero);
4842 /* pow (-inf, y) == +0 for y < 0 and not an odd integer. */
4843 TEST_ff_f (pow, minus_infty, -2.0, 0.0);
4845 /* pow (+0, y) == +0 for y an odd integer > 0. */
4846 TEST_ff_f (pow, 0.0, 27, 0.0);
4848 /* pow (-0, y) == -0 for y an odd integer > 0. */
4849 TEST_ff_f (pow, minus_zero, 27, minus_zero);
4851 /* pow (+0, y) == +0 for y > 0 and not an odd integer. */
4852 TEST_ff_f (pow, 0.0, 4, 0.0);
4854 /* pow (-0, y) == +0 for y > 0 and not an odd integer. */
4855 TEST_ff_f (pow, minus_zero, 4, 0.0);
4857 TEST_ff_f (pow, 16, 0.25L, 2);
4858 TEST_ff_f (pow, 0x1p64L, 0.125L, 256);
4859 TEST_ff_f (pow, 2, 4, 16);
4860 TEST_ff_f (pow, 256, 8, 0x1p64L);
4862 TEST_ff_f (pow, 0.75L, 1.25L, 0.697953644326574699205914060237425566L);
4864 #if defined TEST_DOUBLE || defined TEST_LDOUBLE
4865 TEST_ff_f (pow, -7.49321e+133, -9.80818e+16, 0);
4872 remainder_test (void)
4875 FUNC(remainder) (1.625, 1.0);
4876 if (errno == ENOSYS)
4877 /* Function not implemented. */
4882 TEST_ff_f (remainder, 1, 0, nan_value, INVALID_EXCEPTION);
4883 TEST_ff_f (remainder, 1, minus_zero, nan_value, INVALID_EXCEPTION);
4884 TEST_ff_f (remainder, plus_infty, 1, nan_value, INVALID_EXCEPTION);
4885 TEST_ff_f (remainder, minus_infty, 1, nan_value, INVALID_EXCEPTION);
4886 TEST_ff_f (remainder, nan_value, nan_value, nan_value);
4888 TEST_ff_f (remainder, 1.625, 1.0, -0.375);
4889 TEST_ff_f (remainder, -1.625, 1.0, 0.375);
4890 TEST_ff_f (remainder, 1.625, -1.0, -0.375);
4891 TEST_ff_f (remainder, -1.625, -1.0, 0.375);
4892 TEST_ff_f (remainder, 5.0, 2.0, 1.0);
4893 TEST_ff_f (remainder, 3.0, 2.0, -1.0);
4905 FUNC(remquo) (1.625, 1.0, &x);
4906 if (errno == ENOSYS)
4907 /* Function not implemented. */
4912 TEST_ffI_f1 (remquo, 1, 0, nan_value, IGNORE, INVALID_EXCEPTION);
4913 TEST_ffI_f1 (remquo, 1, minus_zero, nan_value, IGNORE, INVALID_EXCEPTION);
4914 TEST_ffI_f1 (remquo, plus_infty, 1, nan_value, IGNORE, INVALID_EXCEPTION);
4915 TEST_ffI_f1 (remquo, minus_infty, 1, nan_value, IGNORE, INVALID_EXCEPTION);
4916 TEST_ffI_f1 (remquo, nan_value, nan_value, nan_value, IGNORE);
4918 TEST_ffI_f1 (remquo, 1.625, 1.0, -0.375, 2);
4919 TEST_ffI_f1 (remquo, -1.625, 1.0, 0.375, -2);
4920 TEST_ffI_f1 (remquo, 1.625, -1.0, -0.375, -2);
4921 TEST_ffI_f1 (remquo, -1.625, -1.0, 0.375, 2);
4923 TEST_ffI_f1 (remquo, 5, 2, 1, 2);
4924 TEST_ffI_f1 (remquo, 3, 2, -1, 2);
4934 TEST_f_f (rint, 0.0, 0.0);
4935 TEST_f_f (rint, minus_zero, minus_zero);
4936 TEST_f_f (rint, plus_infty, plus_infty);
4937 TEST_f_f (rint, minus_infty, minus_infty);
4939 /* Default rounding mode is round to even. */
4940 TEST_f_f (rint, 0.5, 0.0);
4941 TEST_f_f (rint, 1.5, 2.0);
4942 TEST_f_f (rint, 2.5, 2.0);
4943 TEST_f_f (rint, 3.5, 4.0);
4944 TEST_f_f (rint, 4.5, 4.0);
4945 TEST_f_f (rint, -0.5, -0.0);
4946 TEST_f_f (rint, -1.5, -2.0);
4947 TEST_f_f (rint, -2.5, -2.0);
4948 TEST_f_f (rint, -3.5, -4.0);
4949 TEST_f_f (rint, -4.5, -4.0);
4950 TEST_f_f (rint, 0.1, 0.0);
4951 TEST_f_f (rint, 0.25, 0.0);
4952 TEST_f_f (rint, 0.625, 1.0);
4953 TEST_f_f (rint, -0.1, -0.0);
4954 TEST_f_f (rint, -0.25, -0.0);
4955 TEST_f_f (rint, -0.625, -1.0);
4956 TEST_f_f (rint, 262144.75, 262145.0);
4957 TEST_f_f (rint, 262142.75, 262143.0);
4958 TEST_f_f (rint, 524286.75, 524287.0);
4959 TEST_f_f (rint, 524288.75, 524289.0);
4961 /* The result can only be represented in long double. */
4962 TEST_f_f (rint, 4503599627370495.5L, 4503599627370496.0L);
4963 TEST_f_f (rint, 4503599627370496.25L, 4503599627370496.0L);
4964 TEST_f_f (rint, 4503599627370496.5L, 4503599627370496.0L);
4965 TEST_f_f (rint, 4503599627370496.75L, 4503599627370497.0L);
4966 TEST_f_f (rint, 4503599627370497.5L, 4503599627370498.0L);
4968 # if LDBL_MANT_DIG > 100
4969 TEST_f_f (rint, 4503599627370494.5000000000001L, 4503599627370495.0L);
4970 TEST_f_f (rint, 4503599627370495.5000000000001L, 4503599627370496.0L);
4971 TEST_f_f (rint, 4503599627370496.5000000000001L, 4503599627370497.0L);
4974 TEST_f_f (rint, -4503599627370495.5L, -4503599627370496.0L);
4975 TEST_f_f (rint, -4503599627370496.25L, -4503599627370496.0L);
4976 TEST_f_f (rint, -4503599627370496.5L, -4503599627370496.0L);
4977 TEST_f_f (rint, -4503599627370496.75L, -4503599627370497.0L);
4978 TEST_f_f (rint, -4503599627370497.5L, -4503599627370498.0L);
4980 # if LDBL_MANT_DIG > 100
4981 TEST_f_f (rint, -4503599627370494.5000000000001L, -4503599627370495.0L);
4982 TEST_f_f (rint, -4503599627370495.5000000000001L, -4503599627370496.0L);
4983 TEST_f_f (rint, -4503599627370496.5000000000001L, -4503599627370497.0L);
4985 TEST_f_f (rint, 9007199254740991.0000000000001L, 9007199254740991.0L);
4986 TEST_f_f (rint, 9007199254740992.0000000000001L, 9007199254740992.0L);
4987 TEST_f_f (rint, 9007199254740993.0000000000001L, 9007199254740993.0L);
4988 TEST_f_f (rint, 9007199254740991.5000000000001L, 9007199254740992.0L);
4989 TEST_f_f (rint, 9007199254740992.5000000000001L, 9007199254740993.0L);
4990 TEST_f_f (rint, 9007199254740993.5000000000001L, 9007199254740994.0L);
4992 TEST_f_f (rint, -9007199254740991.0000000000001L, -9007199254740991.0L);
4993 TEST_f_f (rint, -9007199254740992.0000000000001L, -9007199254740992.0L);
4994 TEST_f_f (rint, -9007199254740993.0000000000001L, -9007199254740993.0L);
4995 TEST_f_f (rint, -9007199254740991.5000000000001L, -9007199254740992.0L);
4996 TEST_f_f (rint, -9007199254740992.5000000000001L, -9007199254740993.0L);
4997 TEST_f_f (rint, -9007199254740993.5000000000001L, -9007199254740994.0L);
5000 TEST_f_f (rint, 9007199254740991.5L, 9007199254740992.0L);
5001 TEST_f_f (rint, 9007199254740992.25L, 9007199254740992.0L);
5002 TEST_f_f (rint, 9007199254740992.5L, 9007199254740992.0L);
5003 TEST_f_f (rint, 9007199254740992.75L, 9007199254740993.0L);
5004 TEST_f_f (rint, 9007199254740993.5L, 9007199254740994.0L);
5006 TEST_f_f (rint, -9007199254740991.5L, -9007199254740992.0L);
5007 TEST_f_f (rint, -9007199254740992.25L, -9007199254740992.0L);
5008 TEST_f_f (rint, -9007199254740992.5L, -9007199254740992.0L);
5009 TEST_f_f (rint, -9007199254740992.75L, -9007199254740993.0L);
5010 TEST_f_f (rint, -9007199254740993.5L, -9007199254740994.0L);
5012 TEST_f_f (rint, 72057594037927935.5L, 72057594037927936.0L);
5013 TEST_f_f (rint, 72057594037927936.25L, 72057594037927936.0L);
5014 TEST_f_f (rint, 72057594037927936.5L, 72057594037927936.0L);
5015 TEST_f_f (rint, 72057594037927936.75L, 72057594037927937.0L);
5016 TEST_f_f (rint, 72057594037927937.5L, 72057594037927938.0L);
5018 TEST_f_f (rint, -72057594037927935.5L, -72057594037927936.0L);
5019 TEST_f_f (rint, -72057594037927936.25L, -72057594037927936.0L);
5020 TEST_f_f (rint, -72057594037927936.5L, -72057594037927936.0L);
5021 TEST_f_f (rint, -72057594037927936.75L, -72057594037927937.0L);
5022 TEST_f_f (rint, -72057594037927937.5L, -72057594037927938.0L);
5024 TEST_f_f (rint, 10141204801825835211973625643007.5L, 10141204801825835211973625643008.0L);
5025 TEST_f_f (rint, 10141204801825835211973625643008.25L, 10141204801825835211973625643008.0L);
5026 TEST_f_f (rint, 10141204801825835211973625643008.5L, 10141204801825835211973625643008.0L);
5027 TEST_f_f (rint, 10141204801825835211973625643008.75L, 10141204801825835211973625643009.0L);
5028 TEST_f_f (rint, 10141204801825835211973625643009.5L, 10141204801825835211973625643010.0L);
5035 rint_test_tonearest (void)
5037 int save_round_mode;
5038 START (rint_tonearest);
5040 save_round_mode = fegetround ();
5042 if (!fesetround (FE_TONEAREST))
5044 TEST_f_f (rint, 2.0, 2.0);
5045 TEST_f_f (rint, 1.5, 2.0);
5046 TEST_f_f (rint, 1.0, 1.0);
5047 TEST_f_f (rint, 0.5, 0.0);
5048 TEST_f_f (rint, 0.0, 0.0);
5049 TEST_f_f (rint, minus_zero, minus_zero);
5050 TEST_f_f (rint, -0.5, -0.0);
5051 TEST_f_f (rint, -1.0, -1.0);
5052 TEST_f_f (rint, -1.5, -2.0);
5053 TEST_f_f (rint, -2.0, -2.0);
5054 TEST_f_f (rint, 0.1, 0.0);
5055 TEST_f_f (rint, 0.25, 0.0);
5056 TEST_f_f (rint, 0.625, 1.0);
5057 TEST_f_f (rint, -0.1, -0.0);
5058 TEST_f_f (rint, -0.25, -0.0);
5059 TEST_f_f (rint, -0.625, -1.0);
5061 /* The result can only be represented in long double. */
5062 TEST_f_f (rint, 4503599627370495.5L, 4503599627370496.0L);
5063 TEST_f_f (rint, 4503599627370496.25L, 4503599627370496.0L);
5064 TEST_f_f (rint, 4503599627370496.5L, 4503599627370496.0L);
5065 TEST_f_f (rint, 4503599627370496.75L, 4503599627370497.0L);
5066 TEST_f_f (rint, 4503599627370497.5L, 4503599627370498.0L);
5067 # if LDBL_MANT_DIG > 100
5068 TEST_f_f (rint, 4503599627370494.5000000000001L, 4503599627370495.0L);
5069 TEST_f_f (rint, 4503599627370495.5000000000001L, 4503599627370496.0L);
5070 TEST_f_f (rint, 4503599627370496.5000000000001L, 4503599627370497.0L);
5072 TEST_f_f (rint, -4503599627370495.5L, -4503599627370496.0L);
5073 TEST_f_f (rint, -4503599627370496.25L, -4503599627370496.0L);
5074 TEST_f_f (rint, -4503599627370496.5L, -4503599627370496.0L);
5075 TEST_f_f (rint, -4503599627370496.75L, -4503599627370497.0L);
5076 TEST_f_f (rint, -4503599627370497.5L, -4503599627370498.0L);
5077 # if LDBL_MANT_DIG > 100
5078 TEST_f_f (rint, -4503599627370494.5000000000001L, -4503599627370495.0L);
5079 TEST_f_f (rint, -4503599627370495.5000000000001L, -4503599627370496.0L);
5080 TEST_f_f (rint, -4503599627370496.5000000000001L, -4503599627370497.0L);
5082 TEST_f_f (rint, 9007199254740991.0000000000001L, 9007199254740991.0L);
5083 TEST_f_f (rint, 9007199254740992.0000000000001L, 9007199254740992.0L);
5084 TEST_f_f (rint, 9007199254740993.0000000000001L, 9007199254740993.0L);
5085 TEST_f_f (rint, 9007199254740991.5000000000001L, 9007199254740992.0L);
5086 TEST_f_f (rint, 9007199254740992.5000000000001L, 9007199254740993.0L);
5087 TEST_f_f (rint, 9007199254740993.5000000000001L, 9007199254740994.0L);
5089 TEST_f_f (rint, -9007199254740991.0000000000001L, -9007199254740991.0L);
5090 TEST_f_f (rint, -9007199254740992.0000000000001L, -9007199254740992.0L);
5091 TEST_f_f (rint, -9007199254740993.0000000000001L, -9007199254740993.0L);
5092 TEST_f_f (rint, -9007199254740991.5000000000001L, -9007199254740992.0L);
5093 TEST_f_f (rint, -9007199254740992.5000000000001L, -9007199254740993.0L);
5094 TEST_f_f (rint, -9007199254740993.5000000000001L, -9007199254740994.0L);
5099 fesetround (save_round_mode);
5101 END (rint_tonearest);
5105 rint_test_towardzero (void)
5107 int save_round_mode;
5108 START (rint_towardzero);
5110 save_round_mode = fegetround ();
5112 if (!fesetround (FE_TOWARDZERO))
5114 TEST_f_f (rint, 2.0, 2.0);
5115 TEST_f_f (rint, 1.5, 1.0);
5116 TEST_f_f (rint, 1.0, 1.0);
5117 TEST_f_f (rint, 0.5, 0.0);
5118 TEST_f_f (rint, 0.0, 0.0);
5119 TEST_f_f (rint, minus_zero, minus_zero);
5120 TEST_f_f (rint, -0.5, -0.0);
5121 TEST_f_f (rint, -1.0, -1.0);
5122 TEST_f_f (rint, -1.5, -1.0);
5123 TEST_f_f (rint, -2.0, -2.0);
5124 TEST_f_f (rint, 0.1, 0.0);
5125 TEST_f_f (rint, 0.25, 0.0);
5126 TEST_f_f (rint, 0.625, 0.0);
5127 TEST_f_f (rint, -0.1, -0.0);
5128 TEST_f_f (rint, -0.25, -0.0);
5129 TEST_f_f (rint, -0.625, -0.0);
5131 /* The result can only be represented in long double. */
5132 TEST_f_f (rint, 4503599627370495.5L, 4503599627370495.0L);
5133 TEST_f_f (rint, 4503599627370496.25L, 4503599627370496.0L);
5134 TEST_f_f (rint, 4503599627370496.5L, 4503599627370496.0L);
5135 TEST_f_f (rint, 4503599627370496.75L, 4503599627370496.0L);
5136 TEST_f_f (rint, 4503599627370497.5L, 4503599627370497.0L);
5137 # if LDBL_MANT_DIG > 100
5138 TEST_f_f (rint, 4503599627370494.5000000000001L, 4503599627370494.0L);
5139 TEST_f_f (rint, 4503599627370495.5000000000001L, 4503599627370495.0L);
5140 TEST_f_f (rint, 4503599627370496.5000000000001L, 4503599627370496.0L);
5142 TEST_f_f (rint, -4503599627370495.5L, -4503599627370495.0L);
5143 TEST_f_f (rint, -4503599627370496.25L, -4503599627370496.0L);
5144 TEST_f_f (rint, -4503599627370496.5L, -4503599627370496.0L);
5145 TEST_f_f (rint, -4503599627370496.75L, -4503599627370496.0L);
5146 TEST_f_f (rint, -4503599627370497.5L, -4503599627370497.0L);
5147 # if LDBL_MANT_DIG > 100
5148 TEST_f_f (rint, -4503599627370494.5000000000001L, -4503599627370494.0L);
5149 TEST_f_f (rint, -4503599627370495.5000000000001L, -4503599627370495.0L);
5150 TEST_f_f (rint, -4503599627370496.5000000000001L, -4503599627370496.0L);
5152 TEST_f_f (rint, 9007199254740991.0000000000001L, 9007199254740991.0L);
5153 TEST_f_f (rint, 9007199254740992.0000000000001L, 9007199254740992.0L);
5154 TEST_f_f (rint, 9007199254740993.0000000000001L, 9007199254740993.0L);
5155 TEST_f_f (rint, 9007199254740991.5000000000001L, 9007199254740991.0L);
5156 TEST_f_f (rint, 9007199254740992.5000000000001L, 9007199254740992.0L);
5157 TEST_f_f (rint, 9007199254740993.5000000000001L, 9007199254740993.0L);
5159 TEST_f_f (rint, -9007199254740991.0000000000001L, -9007199254740991.0L);
5160 TEST_f_f (rint, -9007199254740992.0000000000001L, -9007199254740992.0L);
5161 TEST_f_f (rint, -9007199254740993.0000000000001L, -9007199254740993.0L);
5162 TEST_f_f (rint, -9007199254740991.5000000000001L, -9007199254740991.0L);
5163 TEST_f_f (rint, -9007199254740992.5000000000001L, -9007199254740992.0L);
5164 TEST_f_f (rint, -9007199254740993.5000000000001L, -9007199254740993.0L);
5169 fesetround (save_round_mode);
5171 END (rint_towardzero);
5175 rint_test_downward (void)
5177 int save_round_mode;
5178 START (rint_downward);
5180 save_round_mode = fegetround ();
5182 if (!fesetround (FE_DOWNWARD))
5184 TEST_f_f (rint, 2.0, 2.0);
5185 TEST_f_f (rint, 1.5, 1.0);
5186 TEST_f_f (rint, 1.0, 1.0);
5187 TEST_f_f (rint, 0.5, 0.0);
5188 TEST_f_f (rint, 0.0, 0.0);
5189 TEST_f_f (rint, minus_zero, minus_zero);
5190 TEST_f_f (rint, -0.5, -1.0);
5191 TEST_f_f (rint, -1.0, -1.0);
5192 TEST_f_f (rint, -1.5, -2.0);
5193 TEST_f_f (rint, -2.0, -2.0);
5194 TEST_f_f (rint, 0.1, 0.0);
5195 TEST_f_f (rint, 0.25, 0.0);
5196 TEST_f_f (rint, 0.625, 0.0);
5197 TEST_f_f (rint, -0.1, -1.0);
5198 TEST_f_f (rint, -0.25, -1.0);
5199 TEST_f_f (rint, -0.625, -1.0);
5201 /* The result can only be represented in long double. */
5202 TEST_f_f (rint, 4503599627370495.5L, 4503599627370495.0L);
5203 TEST_f_f (rint, 4503599627370496.25L, 4503599627370496.0L);
5204 TEST_f_f (rint, 4503599627370496.5L, 4503599627370496.0L);
5205 TEST_f_f (rint, 4503599627370496.75L, 4503599627370496.0L);
5206 TEST_f_f (rint, 4503599627370497.5L, 4503599627370497.0L);
5207 # if LDBL_MANT_DIG > 100
5208 TEST_f_f (rint, 4503599627370494.5000000000001L, 4503599627370494.0L);
5209 TEST_f_f (rint, 4503599627370495.5000000000001L, 4503599627370495.0L);
5210 TEST_f_f (rint, 4503599627370496.5000000000001L, 4503599627370496.0L);
5212 TEST_f_f (rint, -4503599627370495.5L, -4503599627370496.0L);
5213 TEST_f_f (rint, -4503599627370496.25L, -4503599627370497.0L);
5214 TEST_f_f (rint, -4503599627370496.5L, -4503599627370497.0L);
5215 TEST_f_f (rint, -4503599627370496.75L, -4503599627370497.0L);
5216 TEST_f_f (rint, -4503599627370497.5L, -4503599627370498.0L);
5217 # if LDBL_MANT_DIG > 100
5218 TEST_f_f (rint, -4503599627370494.5000000000001L, -4503599627370495.0L);
5219 TEST_f_f (rint, -4503599627370495.5000000000001L, -4503599627370496.0L);
5220 TEST_f_f (rint, -4503599627370496.5000000000001L, -4503599627370497.0L);
5222 TEST_f_f (rint, 9007199254740991.0000000000001L, 9007199254740991.0L);
5223 TEST_f_f (rint, 9007199254740992.0000000000001L, 9007199254740992.0L);
5224 TEST_f_f (rint, 9007199254740993.0000000000001L, 9007199254740993.0L);
5225 TEST_f_f (rint, 9007199254740991.5000000000001L, 9007199254740991.0L);
5226 TEST_f_f (rint, 9007199254740992.5000000000001L, 9007199254740992.0L);
5227 TEST_f_f (rint, 9007199254740993.5000000000001L, 9007199254740993.0L);
5229 TEST_f_f (rint, -9007199254740991.0000000000001L, -9007199254740992.0L);
5230 TEST_f_f (rint, -9007199254740992.0000000000001L, -9007199254740993.0L);
5231 TEST_f_f (rint, -9007199254740993.0000000000001L, -9007199254740994.0L);
5232 TEST_f_f (rint, -9007199254740991.5000000000001L, -9007199254740992.0L);
5233 TEST_f_f (rint, -9007199254740992.5000000000001L, -9007199254740993.0L);
5234 TEST_f_f (rint, -9007199254740993.5000000000001L, -9007199254740994.0L);
5239 fesetround (save_round_mode);
5241 END (rint_downward);
5245 rint_test_upward (void)
5247 int save_round_mode;
5248 START (rint_upward);
5250 save_round_mode = fegetround ();
5252 if (!fesetround (FE_UPWARD))
5254 TEST_f_f (rint, 2.0, 2.0);
5255 TEST_f_f (rint, 1.5, 2.0);
5256 TEST_f_f (rint, 1.0, 1.0);
5257 TEST_f_f (rint, 0.5, 1.0);
5258 TEST_f_f (rint, 0.0, 0.0);
5259 TEST_f_f (rint, minus_zero, minus_zero);
5260 TEST_f_f (rint, -0.5, -0.0);
5261 TEST_f_f (rint, -1.0, -1.0);
5262 TEST_f_f (rint, -1.5, -1.0);
5263 TEST_f_f (rint, -2.0, -2.0);
5264 TEST_f_f (rint, 0.1, 1.0);
5265 TEST_f_f (rint, 0.25, 1.0);
5266 TEST_f_f (rint, 0.625, 1.0);
5267 TEST_f_f (rint, -0.1, -0.0);
5268 TEST_f_f (rint, -0.25, -0.0);
5269 TEST_f_f (rint, -0.625, -0.0);
5271 /* The result can only be represented in long double. */
5272 TEST_f_f (rint, 4503599627370495.5L, 4503599627370496.0L);
5273 TEST_f_f (rint, 4503599627370496.25L, 4503599627370497.0L);
5274 TEST_f_f (rint, 4503599627370496.5L, 4503599627370497.0L);
5275 TEST_f_f (rint, 4503599627370496.75L, 4503599627370497.0L);
5276 TEST_f_f (rint, 4503599627370497.5L, 4503599627370498.0L);
5277 # if LDBL_MANT_DIG > 100
5278 TEST_f_f (rint, 4503599627370494.5000000000001L, 4503599627370495.0L);
5279 TEST_f_f (rint, 4503599627370495.5000000000001L, 4503599627370496.0L);
5280 TEST_f_f (rint, 4503599627370496.5000000000001L, 4503599627370497.0L);
5282 TEST_f_f (rint, -4503599627370495.5L, -4503599627370495.0L);
5283 TEST_f_f (rint, -4503599627370496.25L, -4503599627370496.0L);
5284 TEST_f_f (rint, -4503599627370496.5L, -4503599627370496.0L);
5285 TEST_f_f (rint, -4503599627370496.75L, -4503599627370496.0L);
5286 TEST_f_f (rint, -4503599627370497.5L, -4503599627370497.0L);
5287 # if LDBL_MANT_DIG > 100
5288 TEST_f_f (rint, -4503599627370494.5000000000001L, -4503599627370494.0L);
5289 TEST_f_f (rint, -4503599627370495.5000000000001L, -4503599627370495.0L);
5290 TEST_f_f (rint, -4503599627370496.5000000000001L, -4503599627370496.0L);
5292 TEST_f_f (rint, 9007199254740991.0000000000001L, 9007199254740992.0L);
5293 TEST_f_f (rint, 9007199254740992.0000000000001L, 9007199254740993.0L);
5294 TEST_f_f (rint, 9007199254740993.0000000000001L, 9007199254740994.0L);
5295 TEST_f_f (rint, 9007199254740991.5000000000001L, 9007199254740992.0L);
5296 TEST_f_f (rint, 9007199254740992.5000000000001L, 9007199254740993.0L);
5297 TEST_f_f (rint, 9007199254740993.5000000000001L, 9007199254740994.0L);
5299 TEST_f_f (rint, -9007199254740991.0000000000001L, -9007199254740991.0L);
5300 TEST_f_f (rint, -9007199254740992.0000000000001L, -9007199254740992.0L);
5301 TEST_f_f (rint, -9007199254740993.0000000000001L, -9007199254740993.0L);
5302 TEST_f_f (rint, -9007199254740991.5000000000001L, -9007199254740991.0L);
5303 TEST_f_f (rint, -9007199254740992.5000000000001L, -9007199254740992.0L);
5304 TEST_f_f (rint, -9007199254740993.5000000000001L, -9007199254740993.0L);
5309 fesetround (save_round_mode);
5319 TEST_f_f (round, 0, 0);
5320 TEST_f_f (round, minus_zero, minus_zero);
5321 TEST_f_f (round, 0.2L, 0.0);
5322 TEST_f_f (round, -0.2L, minus_zero);
5323 TEST_f_f (round, 0.5, 1.0);
5324 TEST_f_f (round, -0.5, -1.0);
5325 TEST_f_f (round, 0.8L, 1.0);
5326 TEST_f_f (round, -0.8L, -1.0);
5327 TEST_f_f (round, 1.5, 2.0);
5328 TEST_f_f (round, -1.5, -2.0);
5329 TEST_f_f (round, 0.1, 0.0);
5330 TEST_f_f (round, 0.25, 0.0);
5331 TEST_f_f (round, 0.625, 1.0);
5332 TEST_f_f (round, -0.1, -0.0);
5333 TEST_f_f (round, -0.25, -0.0);
5334 TEST_f_f (round, -0.625, -1.0);
5335 TEST_f_f (round, 2097152.5, 2097153);
5336 TEST_f_f (round, -2097152.5, -2097153);
5339 /* The result can only be represented in long double. */
5340 TEST_f_f (round, 4503599627370495.5L, 4503599627370496.0L);
5341 TEST_f_f (round, 4503599627370496.25L, 4503599627370496.0L);
5342 TEST_f_f (round, 4503599627370496.5L, 4503599627370497.0L);
5343 TEST_f_f (round, 4503599627370496.75L, 4503599627370497.0L);
5344 TEST_f_f (round, 4503599627370497.5L, 4503599627370498.0L);
5345 # if LDBL_MANT_DIG > 100
5346 TEST_f_f (round, 4503599627370494.5000000000001L, 4503599627370495.0L);
5347 TEST_f_f (round, 4503599627370495.5000000000001L, 4503599627370496.0L);
5348 TEST_f_f (round, 4503599627370496.5000000000001L, 4503599627370497.0L);
5351 TEST_f_f (round, -4503599627370495.5L, -4503599627370496.0L);
5352 TEST_f_f (round, -4503599627370496.25L, -4503599627370496.0L);
5353 TEST_f_f (round, -4503599627370496.5L, -4503599627370497.0L);
5354 TEST_f_f (round, -4503599627370496.75L, -4503599627370497.0L);
5355 TEST_f_f (round, -4503599627370497.5L, -4503599627370498.0L);
5356 # if LDBL_MANT_DIG > 100
5357 TEST_f_f (round, -4503599627370494.5000000000001L, -4503599627370495.0L);
5358 TEST_f_f (round, -4503599627370495.5000000000001L, -4503599627370496.0L);
5359 TEST_f_f (round, -4503599627370496.5000000000001L, -4503599627370497.0L);
5362 TEST_f_f (round, 9007199254740991.5L, 9007199254740992.0L);
5363 TEST_f_f (round, 9007199254740992.25L, 9007199254740992.0L);
5364 TEST_f_f (round, 9007199254740992.5L, 9007199254740993.0L);
5365 TEST_f_f (round, 9007199254740992.75L, 9007199254740993.0L);
5366 TEST_f_f (round, 9007199254740993.5L, 9007199254740994.0L);
5368 TEST_f_f (round, -9007199254740991.5L, -9007199254740992.0L);
5369 TEST_f_f (round, -9007199254740992.25L, -9007199254740992.0L);
5370 TEST_f_f (round, -9007199254740992.5L, -9007199254740993.0L);
5371 TEST_f_f (round, -9007199254740992.75L, -9007199254740993.0L);
5372 TEST_f_f (round, -9007199254740993.5L, -9007199254740994.0L);
5374 # if LDBL_MANT_DIG > 100
5375 TEST_f_f (round, 9007199254740991.0000000000001L, 9007199254740991.0L);
5376 TEST_f_f (round, 9007199254740992.0000000000001L, 9007199254740992.0L);
5377 TEST_f_f (round, 9007199254740993.0000000000001L, 9007199254740993.0L);
5378 TEST_f_f (round, 9007199254740991.5000000000001L, 9007199254740992.0L);
5379 TEST_f_f (round, 9007199254740992.5000000000001L, 9007199254740993.0L);
5380 TEST_f_f (round, 9007199254740993.5000000000001L, 9007199254740994.0L);
5382 TEST_f_f (round, -9007199254740991.0000000000001L, -9007199254740991.0L);
5383 TEST_f_f (round, -9007199254740992.0000000000001L, -9007199254740992.0L);
5384 TEST_f_f (round, -9007199254740993.0000000000001L, -9007199254740993.0L);
5385 TEST_f_f (round, -9007199254740991.5000000000001L, -9007199254740992.0L);
5386 TEST_f_f (round, -9007199254740992.5000000000001L, -9007199254740993.0L);
5387 TEST_f_f (round, -9007199254740993.5000000000001L, -9007199254740994.0L);
5390 TEST_f_f (round, 72057594037927935.5L, 72057594037927936.0L);
5391 TEST_f_f (round, 72057594037927936.25L, 72057594037927936.0L);
5392 TEST_f_f (round, 72057594037927936.5L, 72057594037927937.0L);
5393 TEST_f_f (round, 72057594037927936.75L, 72057594037927937.0L);
5394 TEST_f_f (round, 72057594037927937.5L, 72057594037927938.0L);
5396 TEST_f_f (round, -72057594037927935.5L, -72057594037927936.0L);
5397 TEST_f_f (round, -72057594037927936.25L, -72057594037927936.0L);
5398 TEST_f_f (round, -72057594037927936.5L, -72057594037927937.0L);
5399 TEST_f_f (round, -72057594037927936.75L, -72057594037927937.0L);
5400 TEST_f_f (round, -72057594037927937.5L, -72057594037927938.0L);
5402 TEST_f_f (round, 10141204801825835211973625643007.5L, 10141204801825835211973625643008.0L);
5403 TEST_f_f (round, 10141204801825835211973625643008.25L, 10141204801825835211973625643008.0L);
5404 TEST_f_f (round, 10141204801825835211973625643008.5L, 10141204801825835211973625643009.0L);
5405 TEST_f_f (round, 10141204801825835211973625643008.75L, 10141204801825835211973625643009.0L);
5406 TEST_f_f (round, 10141204801825835211973625643009.5L, 10141204801825835211973625643010.0L);
5419 TEST_ff_f (scalb, 2.0, 0.5, nan_value, INVALID_EXCEPTION);
5420 TEST_ff_f (scalb, 3.0, -2.5, nan_value, INVALID_EXCEPTION);
5422 TEST_ff_f (scalb, 0, nan_value, nan_value);
5423 TEST_ff_f (scalb, 1, nan_value, nan_value);
5425 TEST_ff_f (scalb, 1, 0, 1);
5426 TEST_ff_f (scalb, -1, 0, -1);
5428 TEST_ff_f (scalb, 0, plus_infty, nan_value, INVALID_EXCEPTION);
5429 TEST_ff_f (scalb, minus_zero, plus_infty, nan_value, INVALID_EXCEPTION);
5431 TEST_ff_f (scalb, 0, 2, 0);
5432 TEST_ff_f (scalb, minus_zero, -4, minus_zero);
5433 TEST_ff_f (scalb, 0, 0, 0);
5434 TEST_ff_f (scalb, minus_zero, 0, minus_zero);
5435 TEST_ff_f (scalb, 0, -1, 0);
5436 TEST_ff_f (scalb, minus_zero, -10, minus_zero);
5437 TEST_ff_f (scalb, 0, minus_infty, 0);
5438 TEST_ff_f (scalb, minus_zero, minus_infty, minus_zero);
5440 TEST_ff_f (scalb, plus_infty, -1, plus_infty);
5441 TEST_ff_f (scalb, minus_infty, -10, minus_infty);
5442 TEST_ff_f (scalb, plus_infty, 0, plus_infty);
5443 TEST_ff_f (scalb, minus_infty, 0, minus_infty);
5444 TEST_ff_f (scalb, plus_infty, 2, plus_infty);
5445 TEST_ff_f (scalb, minus_infty, 100, minus_infty);
5447 TEST_ff_f (scalb, 0.1L, minus_infty, 0.0);
5448 TEST_ff_f (scalb, -0.1L, minus_infty, minus_zero);
5450 TEST_ff_f (scalb, 1, plus_infty, plus_infty);
5451 TEST_ff_f (scalb, -1, plus_infty, minus_infty);
5452 TEST_ff_f (scalb, plus_infty, plus_infty, plus_infty);
5453 TEST_ff_f (scalb, minus_infty, plus_infty, minus_infty);
5455 TEST_ff_f (scalb, plus_infty, minus_infty, nan_value, INVALID_EXCEPTION);
5456 TEST_ff_f (scalb, minus_infty, minus_infty, nan_value, INVALID_EXCEPTION);
5458 TEST_ff_f (scalb, nan_value, 1, nan_value);
5459 TEST_ff_f (scalb, 1, nan_value, nan_value);
5460 TEST_ff_f (scalb, nan_value, 0, nan_value);
5461 TEST_ff_f (scalb, 0, nan_value, nan_value);
5462 TEST_ff_f (scalb, nan_value, plus_infty, nan_value);
5463 TEST_ff_f (scalb, plus_infty, nan_value, nan_value);
5464 TEST_ff_f (scalb, nan_value, nan_value, nan_value);
5466 TEST_ff_f (scalb, 0.8L, 4, 12.8L);
5467 TEST_ff_f (scalb, -0.854375L, 5, -27.34L);
5479 TEST_fi_f (scalbn, 0, 0, 0);
5480 TEST_fi_f (scalbn, minus_zero, 0, minus_zero);
5482 TEST_fi_f (scalbn, plus_infty, 1, plus_infty);
5483 TEST_fi_f (scalbn, minus_infty, 1, minus_infty);
5484 TEST_fi_f (scalbn, nan_value, 1, nan_value);
5486 TEST_fi_f (scalbn, 0.8L, 4, 12.8L);
5487 TEST_fi_f (scalbn, -0.854375L, 5, -27.34L);
5489 TEST_fi_f (scalbn, 1, 0L, 1);
5501 TEST_fl_f (scalbln, 0, 0, 0);
5502 TEST_fl_f (scalbln, minus_zero, 0, minus_zero);
5504 TEST_fl_f (scalbln, plus_infty, 1, plus_infty);
5505 TEST_fl_f (scalbln, minus_infty, 1, minus_infty);
5506 TEST_fl_f (scalbln, nan_value, 1, nan_value);
5508 TEST_fl_f (scalbln, 0.8L, 4, 12.8L);
5509 TEST_fl_f (scalbln, -0.854375L, 5, -27.34L);
5511 TEST_fl_f (scalbln, 1, 0L, 1);
5523 TEST_f_b (signbit, 0, 0);
5524 TEST_f_b (signbit, minus_zero, 1);
5525 TEST_f_b (signbit, plus_infty, 0);
5526 TEST_f_b (signbit, minus_infty, 1);
5528 /* signbit (x) != 0 for x < 0. */
5529 TEST_f_b (signbit, -1, 1);
5530 /* signbit (x) == 0 for x >= 0. */
5531 TEST_f_b (signbit, 1, 0);
5542 if (errno == ENOSYS)
5543 /* Function not implemented. */
5548 TEST_f_f (sin, 0, 0);
5549 TEST_f_f (sin, minus_zero, minus_zero);
5551 TEST_f_f (sin, plus_infty, nan_value, INVALID_EXCEPTION);
5552 check_int ("errno for sin(+inf) == EDOM", errno, EDOM, 0, 0, 0);
5554 TEST_f_f (sin, minus_infty, nan_value, INVALID_EXCEPTION);
5555 check_int ("errno for sin(-inf) == EDOM", errno, EDOM, 0, 0, 0);
5557 TEST_f_f (sin, nan_value, nan_value);
5558 check_int ("errno for sin(NaN) unchanged", errno, 0, 0, 0, 0);
5560 TEST_f_f (sin, M_PI_6l, 0.5);
5561 TEST_f_f (sin, -M_PI_6l, -0.5);
5562 TEST_f_f (sin, M_PI_2l, 1);
5563 TEST_f_f (sin, -M_PI_2l, -1);
5564 TEST_f_f (sin, 0.75L, 0.681638760023334166733241952779893935L);
5567 TEST_f_f (sin, 0.80190127184058835, 0.71867942238767868);
5578 FLOAT sin_res, cos_res;
5581 FUNC(sincos) (0, &sin_res, &cos_res);
5582 if (errno == ENOSYS)
5583 /* Function not implemented. */
5588 /* sincos is treated differently because it returns void. */
5589 TEST_extra (sincos, 0, 0, 1);
5591 TEST_extra (sincos, minus_zero, minus_zero, 1);
5592 TEST_extra (sincos, plus_infty, nan_value, nan_value, INVALID_EXCEPTION);
5593 TEST_extra (sincos, minus_infty, nan_value, nan_value, INVALID_EXCEPTION);
5594 TEST_extra (sincos, nan_value, nan_value, nan_value);
5596 TEST_extra (sincos, M_PI_2l, 1, 0);
5597 TEST_extra (sincos, M_PI_6l, 0.5, 0.86602540378443864676372317075293616L);
5598 TEST_extra (sincos, M_PI_6l*2.0, 0.86602540378443864676372317075293616L, 0.5);
5599 TEST_extra (sincos, 0.75L, 0.681638760023334166733241952779893935L, 0.731688868873820886311838753000084544L);
5602 TEST_extra (sincos, 0.80190127184058835, 0.71867942238767868, 0.69534156199418473);
5613 if (errno == ENOSYS)
5614 /* Function not implemented. */
5618 TEST_f_f (sinh, 0, 0);
5619 TEST_f_f (sinh, minus_zero, minus_zero);
5622 TEST_f_f (sinh, plus_infty, plus_infty);
5623 TEST_f_f (sinh, minus_infty, minus_infty);
5625 TEST_f_f (sinh, nan_value, nan_value);
5627 TEST_f_f (sinh, 0.75L, 0.822316731935829980703661634446913849L);
5628 TEST_f_f (sinh, 0x8p-32L, 1.86264514923095703232705808926175479e-9L);
5638 if (errno == ENOSYS)
5639 /* Function not implemented. */
5644 TEST_f_f (sqrt, 0, 0);
5645 TEST_f_f (sqrt, nan_value, nan_value);
5646 TEST_f_f (sqrt, plus_infty, plus_infty);
5648 TEST_f_f (sqrt, minus_zero, minus_zero);
5650 /* sqrt (x) == NaN plus invalid exception for x < 0. */
5651 TEST_f_f (sqrt, -1, nan_value, INVALID_EXCEPTION);
5652 TEST_f_f (sqrt, minus_infty, nan_value, INVALID_EXCEPTION);
5653 TEST_f_f (sqrt, nan_value, nan_value);
5655 TEST_f_f (sqrt, 2209, 47);
5656 TEST_f_f (sqrt, 4, 2);
5657 TEST_f_f (sqrt, 2, M_SQRT2l);
5658 TEST_f_f (sqrt, 0.25, 0.5);
5659 TEST_f_f (sqrt, 6642.25, 81.5);
5660 TEST_f_f (sqrt, 15190.5625L, 123.25L);
5661 TEST_f_f (sqrt, 0.75L, 0.866025403784438646763723170752936183L);
5672 if (errno == ENOSYS)
5673 /* Function not implemented. */
5678 TEST_f_f (tan, 0, 0);
5679 TEST_f_f (tan, minus_zero, minus_zero);
5681 TEST_f_f (tan, plus_infty, nan_value, INVALID_EXCEPTION);
5682 check_int ("errno for tan(Inf) == EDOM", errno, EDOM, 0, 0, 0);
5684 TEST_f_f (tan, minus_infty, nan_value, INVALID_EXCEPTION);
5685 check_int ("errno for tan(-Inf) == EDOM", errno, EDOM, 0, 0, 0);
5687 TEST_f_f (tan, nan_value, nan_value);
5688 check_int ("errno for tan(NaN) == 0", errno, 0, 0, 0, 0);
5690 TEST_f_f (tan, M_PI_4l, 1);
5691 TEST_f_f (tan, 0.75L, 0.931596459944072461165202756573936428L);
5701 if (errno == ENOSYS)
5702 /* Function not implemented. */
5707 TEST_f_f (tanh, 0, 0);
5708 TEST_f_f (tanh, minus_zero, minus_zero);
5711 TEST_f_f (tanh, plus_infty, 1);
5712 TEST_f_f (tanh, minus_infty, -1);
5714 TEST_f_f (tanh, nan_value, nan_value);
5716 TEST_f_f (tanh, 0.75L, 0.635148952387287319214434357312496495L);
5717 TEST_f_f (tanh, -0.75L, -0.635148952387287319214434357312496495L);
5719 TEST_f_f (tanh, 1.0L, 0.7615941559557648881194582826047935904L);
5720 TEST_f_f (tanh, -1.0L, -0.7615941559557648881194582826047935904L);
5723 TEST_f_f (tanh, 0x1p-57L, 6.938893903907228377647697925567626953125e-18L);
5733 if (errno == ENOSYS)
5734 /* Function not implemented. */
5736 feclearexcept (FE_ALL_EXCEPT);
5740 TEST_f_f (tgamma, plus_infty, plus_infty);
5741 TEST_f_f (tgamma, 0, plus_infty, DIVIDE_BY_ZERO_EXCEPTION);
5742 TEST_f_f (tgamma, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION);
5743 /* tgamma (x) == NaN plus invalid exception for integer x <= 0. */
5744 TEST_f_f (tgamma, -2, nan_value, INVALID_EXCEPTION);
5745 TEST_f_f (tgamma, minus_infty, nan_value, INVALID_EXCEPTION);
5746 TEST_f_f (tgamma, nan_value, nan_value);
5748 TEST_f_f (tgamma, 0.5, M_SQRT_PIl);
5749 TEST_f_f (tgamma, -0.5, -M_2_SQRT_PIl);
5751 TEST_f_f (tgamma, 1, 1);
5752 TEST_f_f (tgamma, 4, 6);
5754 TEST_f_f (tgamma, 0.7L, 1.29805533264755778568117117915281162L);
5755 TEST_f_f (tgamma, 1.2L, 0.918168742399760610640951655185830401L);
5766 TEST_f_f (trunc, plus_infty, plus_infty);
5767 TEST_f_f (trunc, minus_infty, minus_infty);
5768 TEST_f_f (trunc, nan_value, nan_value);
5770 TEST_f_f (trunc, 0, 0);
5771 TEST_f_f (trunc, minus_zero, minus_zero);
5772 TEST_f_f (trunc, 0.1, 0);
5773 TEST_f_f (trunc, 0.25, 0);
5774 TEST_f_f (trunc, 0.625, 0);
5775 TEST_f_f (trunc, -0.1, minus_zero);
5776 TEST_f_f (trunc, -0.25, minus_zero);
5777 TEST_f_f (trunc, -0.625, minus_zero);
5778 TEST_f_f (trunc, 1, 1);
5779 TEST_f_f (trunc, -1, -1);
5780 TEST_f_f (trunc, 1.625, 1);
5781 TEST_f_f (trunc, -1.625, -1);
5783 TEST_f_f (trunc, 1048580.625L, 1048580L);
5784 TEST_f_f (trunc, -1048580.625L, -1048580L);
5786 TEST_f_f (trunc, 8388610.125L, 8388610.0L);
5787 TEST_f_f (trunc, -8388610.125L, -8388610.0L);
5789 TEST_f_f (trunc, 4294967296.625L, 4294967296.0L);
5790 TEST_f_f (trunc, -4294967296.625L, -4294967296.0L);
5793 /* The result can only be represented in long double. */
5794 TEST_f_f (trunc, 4503599627370495.5L, 4503599627370495.0L);
5795 TEST_f_f (trunc, 4503599627370496.25L, 4503599627370496.0L);
5796 TEST_f_f (trunc, 4503599627370496.5L, 4503599627370496.0L);
5797 TEST_f_f (trunc, 4503599627370496.75L, 4503599627370496.0L);
5798 TEST_f_f (trunc, 4503599627370497.5L, 4503599627370497.0L);
5800 # if LDBL_MANT_DIG > 100
5801 TEST_f_f (trunc, 4503599627370494.5000000000001L, 4503599627370494.0L);
5802 TEST_f_f (trunc, 4503599627370495.5000000000001L, 4503599627370495.0L);
5803 TEST_f_f (trunc, 4503599627370496.5000000000001L, 4503599627370496.0L);
5806 TEST_f_f (trunc, -4503599627370495.5L, -4503599627370495.0L);
5807 TEST_f_f (trunc, -4503599627370496.25L, -4503599627370496.0L);
5808 TEST_f_f (trunc, -4503599627370496.5L, -4503599627370496.0L);
5809 TEST_f_f (trunc, -4503599627370496.75L, -4503599627370496.0L);
5810 TEST_f_f (trunc, -4503599627370497.5L, -4503599627370497.0L);
5812 # if LDBL_MANT_DIG > 100
5813 TEST_f_f (trunc, -4503599627370494.5000000000001L, -4503599627370494.0L);
5814 TEST_f_f (trunc, -4503599627370495.5000000000001L, -4503599627370495.0L);
5815 TEST_f_f (trunc, -4503599627370496.5000000000001L, -4503599627370496.0L);
5818 TEST_f_f (trunc, 9007199254740991.5L, 9007199254740991.0L);
5819 TEST_f_f (trunc, 9007199254740992.25L, 9007199254740992.0L);
5820 TEST_f_f (trunc, 9007199254740992.5L, 9007199254740992.0L);
5821 TEST_f_f (trunc, 9007199254740992.75L, 9007199254740992.0L);
5822 TEST_f_f (trunc, 9007199254740993.5L, 9007199254740993.0L);
5824 # if LDBL_MANT_DIG > 100
5825 TEST_f_f (trunc, 9007199254740991.0000000000001L, 9007199254740991.0L);
5826 TEST_f_f (trunc, 9007199254740992.0000000000001L, 9007199254740992.0L);
5827 TEST_f_f (trunc, 9007199254740993.0000000000001L, 9007199254740993.0L);
5828 TEST_f_f (trunc, 9007199254740991.5000000000001L, 9007199254740991.0L);
5829 TEST_f_f (trunc, 9007199254740992.5000000000001L, 9007199254740992.0L);
5830 TEST_f_f (trunc, 9007199254740993.5000000000001L, 9007199254740993.0L);
5833 TEST_f_f (trunc, -9007199254740991.5L, -9007199254740991.0L);
5834 TEST_f_f (trunc, -9007199254740992.25L, -9007199254740992.0L);
5835 TEST_f_f (trunc, -9007199254740992.5L, -9007199254740992.0L);
5836 TEST_f_f (trunc, -9007199254740992.75L, -9007199254740992.0L);
5837 TEST_f_f (trunc, -9007199254740993.5L, -9007199254740993.0L);
5839 # if LDBL_MANT_DIG > 100
5840 TEST_f_f (trunc, -9007199254740991.0000000000001L, -9007199254740991.0L);
5841 TEST_f_f (trunc, -9007199254740992.0000000000001L, -9007199254740992.0L);
5842 TEST_f_f (trunc, -9007199254740993.0000000000001L, -9007199254740993.0L);
5843 TEST_f_f (trunc, -9007199254740991.5000000000001L, -9007199254740991.0L);
5844 TEST_f_f (trunc, -9007199254740992.5000000000001L, -9007199254740992.0L);
5845 TEST_f_f (trunc, -9007199254740993.5000000000001L, -9007199254740993.0L);
5848 TEST_f_f (trunc, 72057594037927935.5L, 72057594037927935.0L);
5849 TEST_f_f (trunc, 72057594037927936.25L, 72057594037927936.0L);
5850 TEST_f_f (trunc, 72057594037927936.5L, 72057594037927936.0L);
5851 TEST_f_f (trunc, 72057594037927936.75L, 72057594037927936.0L);
5852 TEST_f_f (trunc, 72057594037927937.5L, 72057594037927937.0L);
5854 TEST_f_f (trunc, -72057594037927935.5L, -72057594037927935.0L);
5855 TEST_f_f (trunc, -72057594037927936.25L, -72057594037927936.0L);
5856 TEST_f_f (trunc, -72057594037927936.5L, -72057594037927936.0L);
5857 TEST_f_f (trunc, -72057594037927936.75L, -72057594037927936.0L);
5858 TEST_f_f (trunc, -72057594037927937.5L, -72057594037927937.0L);
5860 TEST_f_f (trunc, 10141204801825835211973625643007.5L, 10141204801825835211973625643007.0L);
5861 TEST_f_f (trunc, 10141204801825835211973625643008.25L, 10141204801825835211973625643008.0L);
5862 TEST_f_f (trunc, 10141204801825835211973625643008.5L, 10141204801825835211973625643008.0L);
5863 TEST_f_f (trunc, 10141204801825835211973625643008.75L, 10141204801825835211973625643008.0L);
5864 TEST_f_f (trunc, 10141204801825835211973625643009.5L, 10141204801825835211973625643009.0L);
5875 FUNC (sincos) (0, &s, &c);
5876 if (errno == ENOSYS)
5877 /* Required function not implemented. */
5880 if (errno == ENOSYS)
5881 /* Function not implemented. */
5884 /* y0 is the Bessel function of the second kind of order 0 */
5887 TEST_f_f (y0, -1.0, minus_infty, INVALID_EXCEPTION);
5888 TEST_f_f (y0, 0.0, minus_infty);
5889 TEST_f_f (y0, nan_value, nan_value);
5890 TEST_f_f (y0, plus_infty, 0);
5892 TEST_f_f (y0, 0.125L, -1.38968062514384052915582277745018693L);
5893 TEST_f_f (y0, 0.75L, -0.137172769385772397522814379396581855L);
5894 TEST_f_f (y0, 1.0, 0.0882569642156769579829267660235151628L);
5895 TEST_f_f (y0, 1.5, 0.382448923797758843955068554978089862L);
5896 TEST_f_f (y0, 2.0, 0.510375672649745119596606592727157873L);
5897 TEST_f_f (y0, 8.0, 0.223521489387566220527323400498620359L);
5898 TEST_f_f (y0, 10.0, 0.0556711672835993914244598774101900481L);
5909 FUNC (sincos) (0, &s, &c);
5910 if (errno == ENOSYS)
5911 /* Required function not implemented. */
5914 if (errno == ENOSYS)
5915 /* Function not implemented. */
5918 /* y1 is the Bessel function of the second kind of order 1 */
5921 TEST_f_f (y1, -1.0, minus_infty, INVALID_EXCEPTION);
5922 TEST_f_f (y1, 0.0, minus_infty);
5923 TEST_f_f (y1, plus_infty, 0);
5924 TEST_f_f (y1, nan_value, nan_value);
5926 TEST_f_f (y1, 0.125L, -5.19993611253477499595928744876579921L);
5927 TEST_f_f (y1, 0.75L, -1.03759455076928541973767132140642198L);
5928 TEST_f_f (y1, 1.0, -0.781212821300288716547150000047964821L);
5929 TEST_f_f (y1, 1.5, -0.412308626973911295952829820633445323L);
5930 TEST_f_f (y1, 2.0, -0.107032431540937546888370772277476637L);
5931 TEST_f_f (y1, 8.0, -0.158060461731247494255555266187483550L);
5932 TEST_f_f (y1, 10.0, 0.249015424206953883923283474663222803L);
5943 FUNC (sincos) (0, &s, &c);
5944 if (errno == ENOSYS)
5945 /* Required function not implemented. */
5948 if (errno == ENOSYS)
5949 /* Function not implemented. */
5952 /* yn is the Bessel function of the second kind of order n */
5955 /* yn (0, x) == y0 (x) */
5956 TEST_ff_f (yn, 0, -1.0, minus_infty, INVALID_EXCEPTION);
5957 TEST_ff_f (yn, 0, 0.0, minus_infty);
5958 TEST_ff_f (yn, 0, nan_value, nan_value);
5959 TEST_ff_f (yn, 0, plus_infty, 0);
5961 TEST_ff_f (yn, 0, 0.125L, -1.38968062514384052915582277745018693L);
5962 TEST_ff_f (yn, 0, 0.75L, -0.137172769385772397522814379396581855L);
5963 TEST_ff_f (yn, 0, 1.0, 0.0882569642156769579829267660235151628L);
5964 TEST_ff_f (yn, 0, 1.5, 0.382448923797758843955068554978089862L);
5965 TEST_ff_f (yn, 0, 2.0, 0.510375672649745119596606592727157873L);
5966 TEST_ff_f (yn, 0, 8.0, 0.223521489387566220527323400498620359L);
5967 TEST_ff_f (yn, 0, 10.0, 0.0556711672835993914244598774101900481L);
5969 /* yn (1, x) == y1 (x) */
5970 TEST_ff_f (yn, 1, -1.0, minus_infty, INVALID_EXCEPTION);
5971 TEST_ff_f (yn, 1, 0.0, minus_infty);
5972 TEST_ff_f (yn, 1, plus_infty, 0);
5973 TEST_ff_f (yn, 1, nan_value, nan_value);
5975 TEST_ff_f (yn, 1, 0.125L, -5.19993611253477499595928744876579921L);
5976 TEST_ff_f (yn, 1, 0.75L, -1.03759455076928541973767132140642198L);
5977 TEST_ff_f (yn, 1, 1.0, -0.781212821300288716547150000047964821L);
5978 TEST_ff_f (yn, 1, 1.5, -0.412308626973911295952829820633445323L);
5979 TEST_ff_f (yn, 1, 2.0, -0.107032431540937546888370772277476637L);
5980 TEST_ff_f (yn, 1, 8.0, -0.158060461731247494255555266187483550L);
5981 TEST_ff_f (yn, 1, 10.0, 0.249015424206953883923283474663222803L);
5984 TEST_ff_f (yn, 3, plus_infty, 0);
5985 TEST_ff_f (yn, 3, nan_value, nan_value);
5987 TEST_ff_f (yn, 3, 0.125L, -2612.69757350066712600220955744091741L);
5988 TEST_ff_f (yn, 3, 0.75L, -12.9877176234475433186319774484809207L);
5989 TEST_ff_f (yn, 3, 1.0, -5.82151760596472884776175706442981440L);
5990 TEST_ff_f (yn, 3, 2.0, -1.12778377684042778608158395773179238L);
5991 TEST_ff_f (yn, 3, 10.0, -0.251362657183837329779204747654240998L);
5994 TEST_ff_f (yn, 10, plus_infty, 0);
5995 TEST_ff_f (yn, 10, nan_value, nan_value);
5997 TEST_ff_f (yn, 10, 0.125L, -127057845771019398.252538486899753195L);
5998 TEST_ff_f (yn, 10, 0.75L, -2133501638.90573424452445412893839236L);
5999 TEST_ff_f (yn, 10, 1.0, -121618014.278689189288130426667971145L);
6000 TEST_ff_f (yn, 10, 2.0, -129184.542208039282635913145923304214L);
6001 TEST_ff_f (yn, 10, 10.0, -0.359814152183402722051986577343560609L);
6009 significand_test (void)
6011 /* significand returns the mantissa of the exponential representation. */
6012 START (significand);
6014 TEST_f_f (significand, 4.0, 1.0);
6015 TEST_f_f (significand, 6.0, 1.5);
6016 TEST_f_f (significand, 8.0, 1.0);
6025 fpstack_test ("start *init*");
6027 nan_value = plus_zero / plus_zero; /* Suppress GCC warning */
6029 minus_zero = FUNC(copysign) (0.0, -1.0);
6030 plus_infty = CHOOSE (HUGE_VALL, HUGE_VAL, HUGE_VALF,
6031 HUGE_VALL, HUGE_VAL, HUGE_VALF);
6032 minus_infty = CHOOSE (-HUGE_VALL, -HUGE_VAL, -HUGE_VALF,
6033 -HUGE_VALL, -HUGE_VAL, -HUGE_VALF);
6034 max_value = CHOOSE (LDBL_MAX, DBL_MAX, FLT_MAX,
6035 LDBL_MAX, DBL_MAX, FLT_MAX);
6036 min_value = CHOOSE (LDBL_MIN, DBL_MIN, FLT_MIN,
6037 LDBL_MIN, DBL_MIN, FLT_MIN);
6043 (void) &minus_infty;
6047 /* Clear all exceptions. From now on we must not get random exceptions. */
6048 feclearexcept (FE_ALL_EXCEPT);
6050 /* Test to make sure we start correctly. */
6051 fpstack_test ("end *init*");
6054 /* Definitions of arguments for argp functions. */
6055 static const struct argp_option options[] =
6057 { "verbose", 'v', "NUMBER", 0, "Level of verbosity (0..3)"},
6058 { "ulps-file", 'u', NULL, 0, "Output ulps to file ULPs"},
6059 { "no-max-error", 'f', NULL, 0,
6060 "Don't output maximal errors of functions"},
6061 { "no-points", 'p', NULL, 0,
6062 "Don't output results of functions invocations"},
6063 { "ignore-max-ulp", 'i', "yes/no", 0,
6064 "Ignore given maximal errors"},
6065 { NULL, 0, NULL, 0, NULL }
6068 /* Short description of program. */
6069 static const char doc[] = "Math test suite: " TEST_MSG ;
6071 /* Prototype for option handler. */
6072 static error_t parse_opt (int key, char *arg, struct argp_state *state);
6074 /* Data structure to communicate with argp functions. */
6075 static struct argp argp =
6077 options, parse_opt, NULL, doc,
6081 /* Handle program arguments. */
6083 parse_opt (int key, char *arg, struct argp_state *state)
6088 output_max_error = 0;
6091 if (strcmp (arg, "yes") == 0)
6093 else if (strcmp (arg, "no") == 0)
6104 verbose = (unsigned int) strtoul (optarg, NULL, 0);
6109 return ARGP_ERR_UNKNOWN;
6115 /* function to check our ulp calculation. */
6122 /* This gives one ulp. */
6123 u = FUNC(nextafter) (10, 20);
6124 check_equal (10.0, u, 1, &diff, &ulp);
6125 printf ("One ulp: % .4" PRINTF_NEXPR "\n", ulp);
6127 /* This gives one more ulp. */
6128 u = FUNC(nextafter) (u, 20);
6129 check_equal (10.0, u, 2, &diff, &ulp);
6130 printf ("two ulp: % .4" PRINTF_NEXPR "\n", ulp);
6132 /* And now calculate 100 ulp. */
6133 for (i = 2; i < 100; i++)
6134 u = FUNC(nextafter) (u, 20);
6135 check_equal (10.0, u, 100, &diff, &ulp);
6136 printf ("100 ulp: % .4" PRINTF_NEXPR "\n", ulp);
6141 main (int argc, char **argv)
6148 output_max_error = 1;
6150 /* XXX set to 0 for releases. */
6153 /* Parse and process arguments. */
6154 argp_parse (&argp, argc, argv, 0, &remaining, NULL);
6156 if (remaining != argc)
6158 fprintf (stderr, "wrong number of arguments");
6159 argp_help (&argp, stdout, ARGP_HELP_SEE, program_invocation_short_name);
6160 exit (EXIT_FAILURE);
6165 ulps_file = fopen ("ULPs", "a");
6166 if (ulps_file == NULL)
6168 perror ("can't open file `ULPs' for writing: ");
6181 /* Keep the tests a wee bit ordered (according to ISO C99). */
6182 /* Classification macros: */
6188 /* Trigonometric functions: */
6198 /* Hyperbolic functions: */
6206 /* Exponential and logarithmic functions: */
6223 significand_test ();
6225 /* Power and absolute value functions: */
6232 /* Error and gamma functions: */
6239 /* Nearest integer functions: */
6244 rint_test_tonearest ();
6245 rint_test_towardzero ();
6246 rint_test_downward ();
6247 rint_test_upward ();
6249 lrint_test_tonearest ();
6250 lrint_test_towardzero ();
6251 lrint_test_downward ();
6252 lrint_test_upward ();
6254 llrint_test_tonearest ();
6255 llrint_test_towardzero ();
6256 llrint_test_downward ();
6257 llrint_test_upward ();
6263 /* Remainder functions: */
6268 /* Manipulation functions: */
6273 /* maximum, minimum and positive difference functions */
6278 /* Multiply and add: */
6281 /* Complex functions: */
6306 /* Bessel functions: */
6317 printf ("\nTest suite completed:\n");
6318 printf (" %d test cases plus %d tests for exception flags executed.\n",
6319 noTests, noExcTests);
6321 printf (" %d expected failures occurred.\n", noXFails);
6323 printf (" %d unexpected passes occurred.\n", noXPasses);
6326 printf (" %d errors occurred.\n", noErrors);
6329 printf (" All tests passed successfully.\n");