diff options
| author | Thomas Schwinge <thomas@codesourcery.com> | 2013-12-20 09:29:29 +0100 |
|---|---|---|
| committer | Thomas Schwinge <thomas@codesourcery.com> | 2013-12-20 09:29:29 +0100 |
| commit | a65dd355fb80a05215e15ae97649de52aec885e3 (patch) | |
| tree | 81701bb0c6b648630f2bf1729a85d7f5eb49e67b /math/libm-test.inc | |
| parent | 296a5732f94abe4d5699dc981e4ccfb950b48cee (diff) | |
| parent | b4578bab30f72cddd2cf38abfb39f9c8dc892249 (diff) | |
Merge branch 'baseline' into refs/top-bases/tschwinge/Roger_Whittaker
Diffstat (limited to 'math/libm-test.inc')
| -rw-r--r-- | math/libm-test.inc | 3048 |
1 files changed, 758 insertions, 2290 deletions
diff --git a/math/libm-test.inc b/math/libm-test.inc index e534fc0734..c23696a3a7 100644 --- a/math/libm-test.inc +++ b/math/libm-test.inc @@ -173,10 +173,15 @@ struct ulp_data #define EXCEPTIONS_OK INVALID_EXCEPTION_OK+DIVIDE_BY_ZERO_EXCEPTION_OK /* Some special test flags, passed together with exceptions. */ #define IGNORE_ZERO_INF_SIGN 0x400 +#define TEST_NAN_SIGN 0x800 +#define NO_TEST_INLINE 0x1000 +#define XFAIL_TEST 0x2000 /* Indicate errno settings required or disallowed. */ -#define ERRNO_UNCHANGED 0x800 -#define ERRNO_EDOM 0x1000 -#define ERRNO_ERANGE 0x2000 +#define ERRNO_UNCHANGED 0x4000 +#define ERRNO_EDOM 0x8000 +#define ERRNO_ERANGE 0x10000 +/* Flags generated by gen-libm-test.pl, not entered here manually. */ +#define IGNORE_RESULT 0x20000 /* Values underflowing only for float. */ #ifdef TEST_FLOAT @@ -209,20 +214,66 @@ struct ulp_data ? 0 \ : UNDERFLOW_EXCEPTION) +/* Inline tests disabled for particular types. */ +#ifdef TEST_FLOAT +# define NO_TEST_INLINE_FLOAT NO_TEST_INLINE +#else +# define NO_TEST_INLINE_FLOAT 0 +#endif +#ifdef TEST_DOUBLE +# define NO_TEST_INLINE_DOUBLE NO_TEST_INLINE +#else +# define NO_TEST_INLINE_DOUBLE 0 +#endif + +/* Conditions used by tests generated by gen-auto-libm-tests.c. */ +#ifdef TEST_FLOAT +# define TEST_COND_flt_32 1 +#else +# define TEST_COND_flt_32 0 +#endif +#if defined TEST_DOUBLE || (defined TEST_LDOUBLE && LDBL_MANT_DIG == 53) +# define TEST_COND_dbl_64 1 +#else +# define TEST_COND_dbl_64 0 +#endif +#if defined TEST_LDOUBLE && LDBL_MANT_DIG == 64 && LDBL_MIN_EXP == -16381 +# define TEST_COND_ldbl_96_intel 1 +#else +# define TEST_COND_ldbl_96_intel 0 +#endif +#if defined TEST_LDOUBLE && LDBL_MANT_DIG == 64 && LDBL_MIN_EXP == -16382 +# define TEST_COND_ldbl_96_m68k 1 +#else +# define TEST_COND_ldbl_96_m68k 0 +#endif +#if defined TEST_LDOUBLE && LDBL_MANT_DIG == 113 +# define TEST_COND_ldbl_128 1 +#else +# define TEST_COND_ldbl_128 0 +#endif +#if defined TEST_LDOUBLE && LDBL_MANT_DIG == 106 +# define TEST_COND_ldbl_128ibm 1 +#else +# define TEST_COND_ldbl_128ibm 0 +#endif +#if LONG_MAX == 0x7fffffff +# define TEST_COND_long32 1 +# define TEST_COND_long64 0 +#else +# define TEST_COND_long32 0 +# define TEST_COND_long64 1 +#endif +#define TEST_COND_before_rounding (!TININESS_AFTER_ROUNDING) +#define TEST_COND_after_rounding TININESS_AFTER_ROUNDING + /* Various constants (we must supply them precalculated for accuracy). */ #define M_PI_6l .52359877559829887307710723054658383L -#define M_E2l 7.389056098930650227230427460575008L -#define M_E3l 20.085536923187667740928529654581719L -#define M_2_SQRT_PIl 3.5449077018110320545963349666822903L /* 2 sqrt (M_PIl) */ -#define M_SQRT_PIl 1.7724538509055160272981674833411451L /* sqrt (M_PIl) */ -#define M_LOG_SQRT_PIl 0.57236494292470008707171367567652933L /* log(sqrt(M_PIl)) */ -#define M_LOG_2_SQRT_PIl 1.265512123484645396488945797134706L /* log(2*sqrt(M_PIl)) */ #define M_PI_34l 2.356194490192344928846982537459627163L /* 3*pi/4 */ #define M_PI_34_LOG10El 1.023282265381381010614337719073516828L #define M_PI2_LOG10El 0.682188176920920673742891812715677885L #define M_PI4_LOG10El 0.341094088460460336871445906357838943L #define M_PI_LOG10El 1.364376353841841347485783625431355770L -#define M_1_DIV_El 0.367879441171442321595523770161460867L /* 1 div e */ #define ulps_file_name "ULPs" /* Name of the ULPs file. */ static FILE *ulps_file; /* File to document difference. */ @@ -713,13 +764,33 @@ check_float_internal (const char *test_name, FLOAT computed, FLOAT expected, test_exceptions (test_name, exceptions); test_errno (test_name, errno_value, exceptions); + if (exceptions & IGNORE_RESULT) + goto out; FLOAT max_ulp = find_test_ulps (test_name); if (issignaling (computed) && issignaling (expected)) - ok = 1; + { + if ((exceptions & TEST_NAN_SIGN) != 0 + && signbit (computed) != signbit (expected)) + { + ok = 0; + printf ("signaling NaN has wrong sign.\n"); + } + else + ok = 1; + } else if (issignaling (computed) || issignaling (expected)) ok = 0; else if (isnan (computed) && isnan (expected)) - ok = 1; + { + if ((exceptions & TEST_NAN_SIGN) != 0 + && signbit (computed) != signbit (expected)) + { + ok = 0; + printf ("quiet NaN has wrong sign.\n"); + } + else + ok = 1; + } else if (isinf (computed) && isinf (expected)) { /* Test for sign of infinities. */ @@ -775,6 +846,7 @@ check_float_internal (const char *test_name, FLOAT computed, FLOAT expected, } update_stats (ok); + out: fpstack_test (test_name); errno = 0; } @@ -814,9 +886,11 @@ check_complex (const char *test_name, __complex__ FLOAT computed, part_exp = __imag__ expected; /* Don't check again for exceptions or errno, just pass through the - zero/inf sign test. */ + other relevant flags. */ check_float_internal (str, part_comp, part_exp, - exception & IGNORE_ZERO_INF_SIGN, + exception & (IGNORE_ZERO_INF_SIGN + | TEST_NAN_SIGN + | IGNORE_RESULT), &imag_max_error); free (str); } @@ -832,6 +906,8 @@ check_int (const char *test_name, int computed, int expected, test_exceptions (test_name, exceptions); test_errno (test_name, errno_value, exceptions); + if (exceptions & IGNORE_RESULT) + goto out; noTests++; if (computed == expected) ok = 1; @@ -847,6 +923,7 @@ check_int (const char *test_name, int computed, int expected, } update_stats (ok); + out: fpstack_test (test_name); errno = 0; } @@ -862,6 +939,8 @@ check_long (const char *test_name, long int computed, long int expected, test_exceptions (test_name, exceptions); test_errno (test_name, errno_value, exceptions); + if (exceptions & IGNORE_RESULT) + goto out; noTests++; if (computed == expected) ok = 1; @@ -877,6 +956,7 @@ check_long (const char *test_name, long int computed, long int expected, } update_stats (ok); + out: fpstack_test (test_name); errno = 0; } @@ -892,6 +972,8 @@ check_bool (const char *test_name, int computed, int expected, test_exceptions (test_name, exceptions); test_errno (test_name, errno_value, exceptions); + if (exceptions & IGNORE_RESULT) + goto out; noTests++; if ((computed == 0) == (expected == 0)) ok = 1; @@ -907,6 +989,7 @@ check_bool (const char *test_name, int computed, int expected, } update_stats (ok); + out: fpstack_test (test_name); errno = 0; } @@ -923,6 +1006,8 @@ check_longlong (const char *test_name, long long int computed, test_exceptions (test_name, exceptions); test_errno (test_name, errno_value, exceptions); + if (exceptions & IGNORE_RESULT) + goto out; noTests++; if (computed == expected) ok = 1; @@ -938,10 +1023,24 @@ check_longlong (const char *test_name, long long int computed, } update_stats (ok); + out: fpstack_test (test_name); errno = 0; } +/* Return whether a test with flags EXCEPTIONS should be run. */ +static int +enable_test (int exceptions) +{ + if (exceptions & XFAIL_TEST) + return 0; +#ifdef TEST_INLINE + if (exceptions & NO_TEST_INLINE) + return 0; +#endif + return 1; +} + /* Structures for each kind of test. */ struct test_f_f_data { @@ -1137,15 +1236,16 @@ struct test_fFF_11_data /* Run an individual test, including any required setup and checking of results, or loop over all tests in an array. */ -#define RUN_TEST_f_f(ARG_STR, FUNC_NAME, ARG, EXPECTED, \ - EXCEPTIONS) \ - do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - check_float (test_name, FUNC (FUNC_NAME) (ARG), EXPECTED, \ - EXCEPTIONS); \ - COMMON_TEST_CLEANUP; \ - } \ +#define RUN_TEST_f_f(ARG_STR, FUNC_NAME, ARG, EXPECTED, \ + EXCEPTIONS) \ + do \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + check_float (test_name, FUNC (FUNC_NAME) (ARG), EXPECTED, \ + EXCEPTIONS); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_f_f(FUNC_NAME, ARRAY, ROUNDING_MODE) \ IF_ROUND_INIT_ ## ROUNDING_MODE \ @@ -1153,15 +1253,16 @@ struct test_fFF_11_data RUN_TEST_f_f ((ARRAY)[i].arg_str, FUNC_NAME, (ARRAY)[i].arg, \ (ARRAY)[i].expected, (ARRAY)[i].exceptions); \ ROUND_RESTORE_ ## ROUNDING_MODE -#define RUN_TEST_2_f(ARG_STR, FUNC_NAME, ARG1, ARG2, EXPECTED, \ - EXCEPTIONS) \ - do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - check_float (test_name, FUNC (FUNC_NAME) (ARG1, ARG2), EXPECTED, \ - EXCEPTIONS); \ - COMMON_TEST_CLEANUP; \ - } \ +#define RUN_TEST_2_f(ARG_STR, FUNC_NAME, ARG1, ARG2, EXPECTED, \ + EXCEPTIONS) \ + do \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + check_float (test_name, FUNC (FUNC_NAME) (ARG1, ARG2), \ + EXPECTED, EXCEPTIONS); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_2_f(FUNC_NAME, ARRAY, ROUNDING_MODE) \ IF_ROUND_INIT_ ## ROUNDING_MODE \ @@ -1181,12 +1282,13 @@ struct test_fFF_11_data #define RUN_TEST_fff_f(ARG_STR, FUNC_NAME, ARG1, ARG2, ARG3, \ EXPECTED, EXCEPTIONS) \ do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - check_float (test_name, FUNC (FUNC_NAME) (ARG1, ARG2, ARG3), \ - EXPECTED, EXCEPTIONS); \ - COMMON_TEST_CLEANUP; \ - } \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + check_float (test_name, FUNC (FUNC_NAME) (ARG1, ARG2, ARG3), \ + EXPECTED, EXCEPTIONS); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_fff_f(FUNC_NAME, ARRAY, ROUNDING_MODE) \ IF_ROUND_INIT_ ## ROUNDING_MODE \ @@ -1198,13 +1300,14 @@ struct test_fFF_11_data #define RUN_TEST_c_f(ARG_STR, FUNC_NAME, ARG1, ARG2, EXPECTED, \ EXCEPTIONS) \ do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - check_float (test_name, \ - FUNC (FUNC_NAME) (BUILD_COMPLEX (ARG1, ARG2)), \ - EXPECTED, EXCEPTIONS); \ - COMMON_TEST_CLEANUP; \ - } \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + check_float (test_name, \ + FUNC (FUNC_NAME) (BUILD_COMPLEX (ARG1, ARG2)), \ + EXPECTED, EXCEPTIONS); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_c_f(FUNC_NAME, ARRAY, ROUNDING_MODE) \ IF_ROUND_INIT_ ## ROUNDING_MODE \ @@ -1213,21 +1316,22 @@ struct test_fFF_11_data (ARRAY)[i].argc, (ARRAY)[i].expected, \ (ARRAY)[i].exceptions); \ ROUND_RESTORE_ ## ROUNDING_MODE -#define RUN_TEST_f_f1(ARG_STR, FUNC_NAME, ARG, EXPECTED, \ - EXCEPTIONS, EXTRA_VAR, EXTRA_TEST, \ - EXTRA_EXPECTED) \ - do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - (EXTRA_VAR) = (EXTRA_EXPECTED) == 0 ? 1 : 0; \ - check_float (test_name, FUNC (FUNC_NAME) (ARG), EXPECTED, \ - EXCEPTIONS); \ - EXTRA_OUTPUT_TEST_SETUP (ARG_STR, 1); \ - if (EXTRA_TEST) \ - check_int (extra1_name, EXTRA_VAR, EXTRA_EXPECTED, 0); \ - EXTRA_OUTPUT_TEST_CLEANUP (1); \ - COMMON_TEST_CLEANUP; \ - } \ +#define RUN_TEST_f_f1(ARG_STR, FUNC_NAME, ARG, EXPECTED, \ + EXCEPTIONS, EXTRA_VAR, EXTRA_TEST, \ + EXTRA_EXPECTED) \ + do \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + (EXTRA_VAR) = (EXTRA_EXPECTED) == 0 ? 1 : 0; \ + check_float (test_name, FUNC (FUNC_NAME) (ARG), EXPECTED, \ + EXCEPTIONS); \ + EXTRA_OUTPUT_TEST_SETUP (ARG_STR, 1); \ + if (EXTRA_TEST) \ + check_int (extra1_name, EXTRA_VAR, EXTRA_EXPECTED, 0); \ + EXTRA_OUTPUT_TEST_CLEANUP (1); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_f_f1(FUNC_NAME, ARRAY, ROUNDING_MODE, EXTRA_VAR) \ IF_ROUND_INIT_ ## ROUNDING_MODE \ @@ -1241,17 +1345,18 @@ struct test_fFF_11_data EXCEPTIONS, EXTRA_VAR, EXTRA_TEST, \ EXTRA_EXPECTED) \ do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - (EXTRA_VAR) = (EXTRA_EXPECTED) == 0 ? 1 : 0; \ - check_float (test_name, FUNC (FUNC_NAME) (ARG, &(EXTRA_VAR)), \ - EXPECTED, EXCEPTIONS); \ - EXTRA_OUTPUT_TEST_SETUP (ARG_STR, 1); \ - if (EXTRA_TEST) \ - check_float (extra1_name, EXTRA_VAR, EXTRA_EXPECTED, 0); \ - EXTRA_OUTPUT_TEST_CLEANUP (1); \ - COMMON_TEST_CLEANUP; \ - } \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + (EXTRA_VAR) = (EXTRA_EXPECTED) == 0 ? 1 : 0; \ + check_float (test_name, FUNC (FUNC_NAME) (ARG, &(EXTRA_VAR)), \ + EXPECTED, EXCEPTIONS); \ + EXTRA_OUTPUT_TEST_SETUP (ARG_STR, 1); \ + if (EXTRA_TEST) \ + check_float (extra1_name, EXTRA_VAR, EXTRA_EXPECTED, 0); \ + EXTRA_OUTPUT_TEST_CLEANUP (1); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_fF_f1(FUNC_NAME, ARRAY, ROUNDING_MODE, EXTRA_VAR) \ IF_ROUND_INIT_ ## ROUNDING_MODE \ @@ -1265,17 +1370,18 @@ struct test_fFF_11_data EXCEPTIONS, EXTRA_VAR, EXTRA_TEST, \ EXTRA_EXPECTED) \ do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - (EXTRA_VAR) = (EXTRA_EXPECTED) == 0 ? 1 : 0; \ - check_float (test_name, FUNC (FUNC_NAME) (ARG, &(EXTRA_VAR)), \ - EXPECTED, EXCEPTIONS); \ - EXTRA_OUTPUT_TEST_SETUP (ARG_STR, 1); \ - if (EXTRA_TEST) \ - check_int (extra1_name, EXTRA_VAR, EXTRA_EXPECTED, 0); \ - EXTRA_OUTPUT_TEST_CLEANUP (1); \ - COMMON_TEST_CLEANUP; \ - } \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + (EXTRA_VAR) = (EXTRA_EXPECTED) == 0 ? 1 : 0; \ + check_float (test_name, FUNC (FUNC_NAME) (ARG, &(EXTRA_VAR)), \ + EXPECTED, EXCEPTIONS); \ + EXTRA_OUTPUT_TEST_SETUP (ARG_STR, 1); \ + if (EXTRA_TEST) \ + check_int (extra1_name, EXTRA_VAR, EXTRA_EXPECTED, 0); \ + EXTRA_OUTPUT_TEST_CLEANUP (1); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_fI_f1(FUNC_NAME, ARRAY, ROUNDING_MODE, EXTRA_VAR) \ IF_ROUND_INIT_ ## ROUNDING_MODE \ @@ -1289,18 +1395,19 @@ struct test_fFF_11_data EXCEPTIONS, EXTRA_VAR, EXTRA_TEST, \ EXTRA_EXPECTED) \ do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - (EXTRA_VAR) = (EXTRA_EXPECTED) == 0 ? 1 : 0; \ - check_float (test_name, \ - FUNC (FUNC_NAME) (ARG1, ARG2, &(EXTRA_VAR)), \ - EXPECTED, EXCEPTIONS); \ - EXTRA_OUTPUT_TEST_SETUP (ARG_STR, 1); \ - if (EXTRA_TEST) \ - check_int (extra1_name, EXTRA_VAR, EXTRA_EXPECTED, 0); \ - EXTRA_OUTPUT_TEST_CLEANUP (1); \ - COMMON_TEST_CLEANUP; \ - } \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + (EXTRA_VAR) = (EXTRA_EXPECTED) == 0 ? 1 : 0; \ + check_float (test_name, \ + FUNC (FUNC_NAME) (ARG1, ARG2, &(EXTRA_VAR)), \ + EXPECTED, EXCEPTIONS); \ + EXTRA_OUTPUT_TEST_SETUP (ARG_STR, 1); \ + if (EXTRA_TEST) \ + check_int (extra1_name, EXTRA_VAR, EXTRA_EXPECTED, 0); \ + EXTRA_OUTPUT_TEST_CLEANUP (1); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_ffI_f1(FUNC_NAME, ARRAY, ROUNDING_MODE, \ EXTRA_VAR) \ @@ -1315,13 +1422,14 @@ struct test_fFF_11_data #define RUN_TEST_c_c(ARG_STR, FUNC_NAME, ARGR, ARGC, EXPR, EXPC, \ EXCEPTIONS) \ do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - check_complex (test_name, \ - FUNC (FUNC_NAME) (BUILD_COMPLEX (ARGR, ARGC)), \ - BUILD_COMPLEX (EXPR, EXPC), EXCEPTIONS); \ - COMMON_TEST_CLEANUP; \ - } \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + check_complex (test_name, \ + FUNC (FUNC_NAME) (BUILD_COMPLEX (ARGR, ARGC)), \ + BUILD_COMPLEX (EXPR, EXPC), EXCEPTIONS); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_c_c(FUNC_NAME, ARRAY, ROUNDING_MODE) \ IF_ROUND_INIT_ ## ROUNDING_MODE \ @@ -1333,14 +1441,15 @@ struct test_fFF_11_data #define RUN_TEST_cc_c(ARG_STR, FUNC_NAME, ARG1R, ARG1C, ARG2R, ARG2C, \ EXPR, EXPC, EXCEPTIONS) \ do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - check_complex (test_name, \ - FUNC (FUNC_NAME) (BUILD_COMPLEX (ARG1R, ARG1C), \ - BUILD_COMPLEX (ARG2R, ARG2C)), \ - BUILD_COMPLEX (EXPR, EXPC), EXCEPTIONS); \ - COMMON_TEST_CLEANUP; \ - } \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + check_complex (test_name, \ + FUNC (FUNC_NAME) (BUILD_COMPLEX (ARG1R, ARG1C), \ + BUILD_COMPLEX (ARG2R, ARG2C)), \ + BUILD_COMPLEX (EXPR, EXPC), EXCEPTIONS); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_cc_c(FUNC_NAME, ARRAY, ROUNDING_MODE) \ IF_ROUND_INIT_ ## ROUNDING_MODE \ @@ -1352,12 +1461,13 @@ struct test_fFF_11_data ROUND_RESTORE_ ## ROUNDING_MODE #define RUN_TEST_f_i(ARG_STR, FUNC_NAME, ARG, EXPECTED, EXCEPTIONS) \ do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - check_int (test_name, FUNC (FUNC_NAME) (ARG), EXPECTED, \ - EXCEPTIONS); \ - COMMON_TEST_CLEANUP; \ - } \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + check_int (test_name, FUNC (FUNC_NAME) (ARG), EXPECTED, \ + EXCEPTIONS); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_f_i(FUNC_NAME, ARRAY, ROUNDING_MODE) \ IF_ROUND_INIT_ ## ROUNDING_MODE \ @@ -1368,11 +1478,12 @@ struct test_fFF_11_data #define RUN_TEST_f_i_tg(ARG_STR, FUNC_NAME, ARG, EXPECTED, \ EXCEPTIONS) \ do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - check_int (test_name, FUNC_NAME (ARG), EXPECTED, EXCEPTIONS); \ - COMMON_TEST_CLEANUP; \ - } \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + check_int (test_name, FUNC_NAME (ARG), EXPECTED, EXCEPTIONS); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_f_i_tg(FUNC_NAME, ARRAY, ROUNDING_MODE) \ IF_ROUND_INIT_ ## ROUNDING_MODE \ @@ -1383,12 +1494,13 @@ struct test_fFF_11_data #define RUN_TEST_ff_i_tg(ARG_STR, FUNC_NAME, ARG1, ARG2, EXPECTED, \ EXCEPTIONS) \ do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - check_int (test_name, FUNC_NAME (ARG1, ARG2), EXPECTED, \ - EXCEPTIONS); \ - COMMON_TEST_CLEANUP; \ - } \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + check_int (test_name, FUNC_NAME (ARG1, ARG2), EXPECTED, \ + EXCEPTIONS); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_ff_i_tg(FUNC_NAME, ARRAY, ROUNDING_MODE) \ IF_ROUND_INIT_ ## ROUNDING_MODE \ @@ -1399,12 +1511,13 @@ struct test_fFF_11_data ROUND_RESTORE_ ## ROUNDING_MODE #define RUN_TEST_f_b(ARG_STR, FUNC_NAME, ARG, EXPECTED, EXCEPTIONS) \ do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - check_bool (test_name, FUNC (FUNC_NAME) (ARG), EXPECTED, \ - EXCEPTIONS); \ - COMMON_TEST_CLEANUP; \ - } \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + check_bool (test_name, FUNC (FUNC_NAME) (ARG), EXPECTED, \ + EXCEPTIONS); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_f_b(FUNC_NAME, ARRAY, ROUNDING_MODE) \ IF_ROUND_INIT_ ## ROUNDING_MODE \ @@ -1415,11 +1528,12 @@ struct test_fFF_11_data #define RUN_TEST_f_b_tg(ARG_STR, FUNC_NAME, ARG, EXPECTED, \ EXCEPTIONS) \ do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - check_bool (test_name, FUNC_NAME (ARG), EXPECTED, EXCEPTIONS); \ - COMMON_TEST_CLEANUP; \ - } \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + check_bool (test_name, FUNC_NAME (ARG), EXPECTED, EXCEPTIONS); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_f_b_tg(FUNC_NAME, ARRAY, ROUNDING_MODE) \ IF_ROUND_INIT_ ## ROUNDING_MODE \ @@ -1429,12 +1543,13 @@ struct test_fFF_11_data ROUND_RESTORE_ ## ROUNDING_MODE #define RUN_TEST_f_l(ARG_STR, FUNC_NAME, ARG, EXPECTED, EXCEPTIONS) \ do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - check_long (test_name, FUNC (FUNC_NAME) (ARG), EXPECTED, \ - EXCEPTIONS); \ - COMMON_TEST_CLEANUP; \ - } \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + check_long (test_name, FUNC (FUNC_NAME) (ARG), EXPECTED, \ + EXCEPTIONS); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_f_l(FUNC_NAME, ARRAY, ROUNDING_MODE) \ IF_ROUND_INIT_ ## ROUNDING_MODE \ @@ -1444,12 +1559,13 @@ struct test_fFF_11_data ROUND_RESTORE_ ## ROUNDING_MODE #define RUN_TEST_f_L(ARG_STR, FUNC_NAME, ARG, EXPECTED, EXCEPTIONS) \ do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - check_longlong (test_name, FUNC (FUNC_NAME) (ARG), EXPECTED, \ - EXCEPTIONS); \ - COMMON_TEST_CLEANUP; \ - } \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + check_longlong (test_name, FUNC (FUNC_NAME) (ARG), EXPECTED, \ + EXCEPTIONS); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_f_L(FUNC_NAME, ARRAY, ROUNDING_MODE) \ IF_ROUND_INIT_ ## ROUNDING_MODE \ @@ -1462,20 +1578,21 @@ struct test_fFF_11_data EXTRA1_EXPECTED, EXTRA2_VAR, \ EXTRA2_TEST, EXTRA2_EXPECTED) \ do \ - { \ - COMMON_TEST_SETUP (ARG_STR); \ - FUNC (FUNC_NAME) (ARG, &(EXTRA1_VAR), &(EXTRA2_VAR)); \ - EXTRA_OUTPUT_TEST_SETUP (ARG_STR, 1); \ - if (EXTRA1_TEST) \ - check_float (extra1_name, EXTRA1_VAR, EXTRA1_EXPECTED, \ - EXCEPTIONS); \ - EXTRA_OUTPUT_TEST_CLEANUP (1); \ - EXTRA_OUTPUT_TEST_SETUP (ARG_STR, 2); \ - if (EXTRA2_TEST) \ - check_float (extra2_name, EXTRA2_VAR, EXTRA2_EXPECTED, 0); \ - EXTRA_OUTPUT_TEST_CLEANUP (2); \ - COMMON_TEST_CLEANUP; \ - } \ + if (enable_test (EXCEPTIONS)) \ + { \ + COMMON_TEST_SETUP (ARG_STR); \ + FUNC (FUNC_NAME) (ARG, &(EXTRA1_VAR), &(EXTRA2_VAR)); \ + EXTRA_OUTPUT_TEST_SETUP (ARG_STR, 1); \ + if (EXTRA1_TEST) \ + check_float (extra1_name, EXTRA1_VAR, EXTRA1_EXPECTED, \ + EXCEPTIONS); \ + EXTRA_OUTPUT_TEST_CLEANUP (1); \ + EXTRA_OUTPUT_TEST_SETUP (ARG_STR, 2); \ + if (EXTRA2_TEST) \ + check_float (extra2_name, EXTRA2_VAR, EXTRA2_EXPECTED, 0); \ + EXTRA_OUTPUT_TEST_CLEANUP (2); \ + COMMON_TEST_CLEANUP; \ + } \ while (0) #define RUN_TEST_LOOP_fFF_11(FUNC_NAME, ARRAY, ROUNDING_MODE, \ EXTRA1_VAR, EXTRA2_VAR) \ @@ -1516,7 +1633,7 @@ static const struct test_f_f_data acos_test_data[] = { TEST_f_f (acos, plus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (acos, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_f_f (acos, qnan_value, qnan_value), + TEST_f_f (acos, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), /* |x| > 1: */ TEST_f_f (acos, 1.125L, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), @@ -1524,27 +1641,7 @@ static const struct test_f_f_data acos_test_data[] = TEST_f_f (acos, max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (acos, -max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_f_f (acos, 0, M_PI_2l), - TEST_f_f (acos, minus_zero, M_PI_2l), - TEST_f_f (acos, 1, 0), - TEST_f_f (acos, -1, M_PIl), - TEST_f_f (acos, 0.5, M_PI_6l*2.0), - TEST_f_f (acos, -0.5, M_PI_6l*4.0), - TEST_f_f (acos, 0.75L, 0.722734247813415611178377352641333362L), - TEST_f_f (acos, 2e-17L, 1.57079632679489659923132169163975144L), - TEST_f_f (acos, 0.0625L, 1.50825556499840522843072005474337068L), - TEST_f_f (acos, 0x0.ffffffp0L, 3.4526698471620358760324948263873649728491e-4L), - TEST_f_f (acos, -0x0.ffffffp0L, 3.1412473866050770348750401337968641476999L), -#ifndef TEST_FLOAT - TEST_f_f (acos, 0x0.ffffffff8p0L, 1.5258789062648029736620564947844627548516e-5L), - TEST_f_f (acos, -0x0.ffffffff8p0L, 3.1415773948007305904329067627145550395696L), - TEST_f_f (acos, 0x0.ffffffffffffp0L, 8.4293697021788088529885473244391795127130e-8L), - TEST_f_f (acos, -0x0.ffffffffffffp0L, 3.1415925692960962166745548533940296398054L), -#endif -#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64 - TEST_f_f (acos, 0x0.ffffffffffffffffp0L, 3.2927225399135962333718255320079907245059e-10L), - TEST_f_f (acos, -0x0.ffffffffffffffffp0L, 3.1415926532605209844712837599423203309964L), -#endif + AUTO_TESTS_f_f (acos, tonearest), }; static void @@ -1558,12 +1655,7 @@ acos_test (void) static const struct test_f_f_data acos_tonearest_test_data[] = { - TEST_f_f (acos, 0, M_PI_2l), - TEST_f_f (acos, minus_zero, M_PI_2l), - TEST_f_f (acos, 1, 0), - TEST_f_f (acos, -1, M_PIl), - TEST_f_f (acos, 0.5, M_PI_6l*2.0), - TEST_f_f (acos, -0.5, M_PI_6l*4.0), + AUTO_TESTS_f_f (acos, tonearest), }; static void @@ -1577,12 +1669,7 @@ acos_test_tonearest (void) static const struct test_f_f_data acos_towardzero_test_data[] = { - TEST_f_f (acos, 0, M_PI_2l), - TEST_f_f (acos, minus_zero, M_PI_2l), - TEST_f_f (acos, 1, 0), - TEST_f_f (acos, -1, M_PIl), - TEST_f_f (acos, 0.5, M_PI_6l*2.0), - TEST_f_f (acos, -0.5, M_PI_6l*4.0), + AUTO_TESTS_f_f (acos, towardzero), }; static void @@ -1596,12 +1683,7 @@ acos_test_towardzero (void) static const struct test_f_f_data acos_downward_test_data[] = { - TEST_f_f (acos, 0, M_PI_2l), - TEST_f_f (acos, minus_zero, M_PI_2l), - TEST_f_f (acos, 1, 0), - TEST_f_f (acos, -1, M_PIl), - TEST_f_f (acos, 0.5, M_PI_6l*2.0), - TEST_f_f (acos, -0.5, M_PI_6l*4.0), + AUTO_TESTS_f_f (acos, downward), }; static void @@ -1615,12 +1697,7 @@ acos_test_downward (void) static const struct test_f_f_data acos_upward_test_data[] = { - TEST_f_f (acos, 0, M_PI_2l), - TEST_f_f (acos, minus_zero, M_PI_2l), - TEST_f_f (acos, 1, 0), - TEST_f_f (acos, -1, M_PIl), - TEST_f_f (acos, 0.5, M_PI_6l*2.0), - TEST_f_f (acos, -0.5, M_PI_6l*4.0), + AUTO_TESTS_f_f (acos, upward), }; static void @@ -1635,14 +1712,13 @@ static const struct test_f_f_data acosh_test_data[] = { TEST_f_f (acosh, plus_infty, plus_infty), TEST_f_f (acosh, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_f_f (acosh, qnan_value, qnan_value), + TEST_f_f (acosh, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), /* x < 1: */ TEST_f_f (acosh, -1.125L, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (acosh, -max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_f_f (acosh, 1, 0), - TEST_f_f (acosh, 7, 2.63391579384963341725009269461593689L), + AUTO_TESTS_f_f (acosh, tonearest), }; static void @@ -1657,7 +1733,7 @@ static const struct test_f_f_data asin_test_data[] = { TEST_f_f (asin, plus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (asin, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_f_f (asin, qnan_value, qnan_value), + TEST_f_f (asin, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), /* asin x == qNaN plus invalid exception for |x| > 1. */ TEST_f_f (asin, 1.125L, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), @@ -1665,25 +1741,7 @@ static const struct test_f_f_data asin_test_data[] = TEST_f_f (asin, max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (asin, -max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_f_f (asin, 0, 0), - TEST_f_f (asin, minus_zero, minus_zero), - TEST_f_f (asin, 0.5, M_PI_6l), - TEST_f_f (asin, -0.5, -M_PI_6l), - TEST_f_f (asin, 1.0, M_PI_2l), - TEST_f_f (asin, -1.0, -M_PI_2l), - TEST_f_f (asin, 0.75L, 0.848062078981481008052944338998418080L), - TEST_f_f (asin, 0x0.ffffffp0L, 1.5704510598101804156437184421571127056013L), - TEST_f_f (asin, -0x0.ffffffp0L, -1.5704510598101804156437184421571127056013L), -#ifndef TEST_FLOAT - TEST_f_f (asin, 0x0.ffffffff8p0L, 1.5707810680058339712015850710748035974710L), - TEST_f_f (asin, -0x0.ffffffff8p0L, -1.5707810680058339712015850710748035974710L), - TEST_f_f (asin, 0x0.ffffffffffffp0L, 1.5707962425011995974432331617542781977068L), - TEST_f_f (asin, -0x0.ffffffffffffp0L, -1.5707962425011995974432331617542781977068L), -#endif -#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64 - TEST_f_f (asin, 0x0.ffffffffffffffffp0L, 1.5707963264656243652399620683025688888978L), - TEST_f_f (asin, -0x0.ffffffffffffffffp0L, -1.5707963264656243652399620683025688888978L), -#endif + AUTO_TESTS_f_f (asin, tonearest), }; static void @@ -1697,12 +1755,7 @@ asin_test (void) static const struct test_f_f_data asin_tonearest_test_data[] = { - TEST_f_f (asin, 0, 0), - TEST_f_f (asin, minus_zero, minus_zero), - TEST_f_f (asin, 0.5, M_PI_6l), - TEST_f_f (asin, -0.5, -M_PI_6l), - TEST_f_f (asin, 1.0, M_PI_2l), - TEST_f_f (asin, -1.0, -M_PI_2l), + AUTO_TESTS_f_f (asin, tonearest), }; static void @@ -1716,12 +1769,7 @@ asin_test_tonearest (void) static const struct test_f_f_data asin_towardzero_test_data[] = { - TEST_f_f (asin, 0, 0), - TEST_f_f (asin, minus_zero, minus_zero), - TEST_f_f (asin, 0.5, M_PI_6l), - TEST_f_f (asin, -0.5, -M_PI_6l), - TEST_f_f (asin, 1.0, M_PI_2l), - TEST_f_f (asin, -1.0, -M_PI_2l), + AUTO_TESTS_f_f (asin, towardzero), }; static void @@ -1735,12 +1783,7 @@ asin_test_towardzero (void) static const struct test_f_f_data asin_downward_test_data[] = { - TEST_f_f (asin, 0, 0), - TEST_f_f (asin, minus_zero, minus_zero), - TEST_f_f (asin, 0.5, M_PI_6l), - TEST_f_f (asin, -0.5, -M_PI_6l), - TEST_f_f (asin, 1.0, M_PI_2l), - TEST_f_f (asin, -1.0, -M_PI_2l), + AUTO_TESTS_f_f (asin, downward), }; static void @@ -1754,12 +1797,7 @@ asin_test_downward (void) static const struct test_f_f_data asin_upward_test_data[] = { - TEST_f_f (asin, 0, 0), - TEST_f_f (asin, minus_zero, minus_zero), - TEST_f_f (asin, 0.5, M_PI_6l), - TEST_f_f (asin, -0.5, -M_PI_6l), - TEST_f_f (asin, 1.0, M_PI_2l), - TEST_f_f (asin, -1.0, -M_PI_2l), + AUTO_TESTS_f_f (asin, upward), }; static void @@ -1772,14 +1810,10 @@ asin_test_upward (void) static const struct test_f_f_data asinh_test_data[] = { - TEST_f_f (asinh, 0, 0), - TEST_f_f (asinh, minus_zero, minus_zero), -#ifndef TEST_INLINE - TEST_f_f (asinh, plus_infty, plus_infty), - TEST_f_f (asinh, minus_infty, minus_infty), -#endif - TEST_f_f (asinh, qnan_value, qnan_value), - TEST_f_f (asinh, 0.75L, 0.693147180559945309417232121458176568L), + TEST_f_f (asinh, plus_infty, plus_infty, NO_TEST_INLINE), + TEST_f_f (asinh, minus_infty, minus_infty, NO_TEST_INLINE), + TEST_f_f (asinh, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + AUTO_TESTS_f_f (asinh, tonearest), }; static void @@ -1792,27 +1826,11 @@ asinh_test (void) static const struct test_f_f_data atan_test_data[] = { - TEST_f_f (atan, 0, 0), - TEST_f_f (atan, minus_zero, minus_zero), - TEST_f_f (atan, plus_infty, M_PI_2l), TEST_f_f (atan, minus_infty, -M_PI_2l), - TEST_f_f (atan, qnan_value, qnan_value), - TEST_f_f (atan, max_value, M_PI_2l), - TEST_f_f (atan, -max_value, -M_PI_2l), - - TEST_f_f (atan, 1, M_PI_4l), - TEST_f_f (atan, -1, -M_PI_4l), + TEST_f_f (atan, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), - TEST_f_f (atan, 0.75L, 0.643501108793284386802809228717322638L), - - TEST_f_f (atan, 0x1p-100L, 0x1p-100L), -#ifndef TEST_FLOAT - TEST_f_f (atan, 0x1p-600L, 0x1p-600L), -#endif -#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381 - TEST_f_f (atan, 0x1p-10000L, 0x1p-10000L), -#endif + AUTO_TESTS_f_f (atan, tonearest), }; static void @@ -1827,12 +1845,9 @@ atan_test (void) static const struct test_f_f_data atanh_test_data[] = { - TEST_f_f (atanh, 0, 0), - TEST_f_f (atanh, minus_zero, minus_zero), - TEST_f_f (atanh, 1, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), TEST_f_f (atanh, -1, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (atanh, qnan_value, qnan_value), + TEST_f_f (atanh, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), /* atanh (x) == qNaN plus invalid exception if |x| > 1. */ TEST_f_f (atanh, 1.125L, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), @@ -1840,7 +1855,7 @@ static const struct test_f_f_data atanh_test_data[] = TEST_f_f (atanh, max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (atanh, -max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_f_f (atanh, 0.75L, 0.972955074527656652552676371721589865L), + AUTO_TESTS_f_f (atanh, tonearest), }; static void @@ -1853,36 +1868,6 @@ atanh_test (void) static const struct test_ff_f_data atan2_test_data[] = { - /* atan2 (0,x) == 0 for x > 0. */ - TEST_ff_f (atan2, 0, 1, 0), - - /* atan2 (-0,x) == -0 for x > 0. */ - TEST_ff_f (atan2, minus_zero, 1, minus_zero), - - TEST_ff_f (atan2, 0, 0, 0), - TEST_ff_f (atan2, minus_zero, 0, minus_zero), - - /* atan2 (+0,x) == +pi for x < 0. */ - TEST_ff_f (atan2, 0, -1, M_PIl), - - /* atan2 (-0,x) == -pi for x < 0. */ - TEST_ff_f (atan2, minus_zero, -1, -M_PIl), - - TEST_ff_f (atan2, 0, minus_zero, M_PIl), - TEST_ff_f (atan2, minus_zero, minus_zero, -M_PIl), - - /* atan2 (y,+0) == pi/2 for y > 0. */ - TEST_ff_f (atan2, 1, 0, M_PI_2l), - - /* atan2 (y,-0) == pi/2 for y > 0. */ - TEST_ff_f (atan2, 1, minus_zero, M_PI_2l), - - /* atan2 (y,+0) == -pi/2 for y < 0. */ - TEST_ff_f (atan2, -1, 0, -M_PI_2l), - - /* atan2 (y,-0) == -pi/2 for y < 0. */ - TEST_ff_f (atan2, -1, minus_zero, -M_PI_2l), - /* atan2 (y,inf) == +0 for finite y > 0. */ TEST_ff_f (atan2, 1, plus_infty, 0), @@ -1905,24 +1890,9 @@ static const struct test_ff_f_data atan2_test_data[] = TEST_ff_f (atan2, minus_infty, plus_infty, -M_PI_4l), TEST_ff_f (atan2, plus_infty, minus_infty, M_PI_34l), TEST_ff_f (atan2, minus_infty, minus_infty, -M_PI_34l), - TEST_ff_f (atan2, qnan_value, qnan_value, qnan_value), - - TEST_ff_f (atan2, max_value, max_value, M_PI_4l), - - TEST_ff_f (atan2, max_value, min_value, M_PI_2l), - TEST_ff_f (atan2, -max_value, -min_value, -M_PI_2l), - - TEST_ff_f (atan2, 0.75L, 1, 0.643501108793284386802809228717322638L), - TEST_ff_f (atan2, -0.75L, 1.0L, -0.643501108793284386802809228717322638L), - TEST_ff_f (atan2, 0.75L, -1.0L, 2.49809154479650885165983415456218025L), - TEST_ff_f (atan2, -0.75L, -1.0L, -2.49809154479650885165983415456218025L), - TEST_ff_f (atan2, 0.390625L, .00029L, 1.57005392693128974780151246612928941L), - TEST_ff_f (atan2, 1.390625L, 0.9296875L, 0.981498387184244311516296577615519772L), + TEST_ff_f (atan2, qnan_value, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), - TEST_ff_f (atan2, -0.00756827042671106339L, -.001792735857538728036L, -1.80338464113663849327153994379639112L), -#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64 - TEST_ff_f (atan2, 0x1.00000000000001p0L, 0x1.00000000000001p0L, M_PI_4l), -#endif + AUTO_TESTS_ff_f (atan2, tonearest), }; static void @@ -1947,25 +1917,7 @@ static const struct test_c_f_data cabs_test_data[] = TEST_c_f (cabs, qnan_value, qnan_value, qnan_value), - /* cabs (x,y) == cabs (y,x). */ - TEST_c_f (cabs, 0.75L, 12.390625L, 12.4133028598606664302388810868156657L), - /* cabs (x,y) == cabs (-x,y). */ - TEST_c_f (cabs, -12.390625L, 0.75L, 12.4133028598606664302388810868156657L), - /* cabs (x,y) == cabs (-y,x). */ - TEST_c_f (cabs, -0.75L, 12.390625L, 12.4133028598606664302388810868156657L), - /* cabs (x,y) == cabs (-x,-y). */ - TEST_c_f (cabs, -12.390625L, -0.75L, 12.4133028598606664302388810868156657L), - /* cabs (x,y) == cabs (-y,-x). */ - TEST_c_f (cabs, -0.75L, -12.390625L, 12.4133028598606664302388810868156657L), - /* cabs (x,0) == fabs (x). */ - TEST_c_f (cabs, -0.75L, 0, 0.75L), - TEST_c_f (cabs, 0.75L, 0, 0.75L), - TEST_c_f (cabs, -1.0L, 0, 1.0L), - TEST_c_f (cabs, 1.0L, 0, 1.0L), - TEST_c_f (cabs, -5.7e7L, 0, 5.7e7L), - TEST_c_f (cabs, 5.7e7L, 0, 5.7e7L), - - TEST_c_f (cabs, 0.75L, 1.25L, 1.45773797371132511771853821938639577L), + AUTO_TESTS_c_f (cabs, tonearest), }; static void @@ -3356,35 +3308,6 @@ static const struct test_c_f_data carg_test_data[] = { /* carg (x + iy) is specified as atan2 (y, x) */ - /* carg (x + i 0) == 0 for x > 0. */ - TEST_c_f (carg, 2.0, 0, 0), - /* carg (x - i 0) == -0 for x > 0. */ - TEST_c_f (carg, 2.0, minus_zero, minus_zero), - - TEST_c_f (carg, 0, 0, 0), - TEST_c_f (carg, 0, minus_zero, minus_zero), - - /* carg (x + i 0) == +pi for x < 0. */ - TEST_c_f (carg, -2.0, 0, M_PIl), - - /* carg (x - i 0) == -pi for x < 0. */ - TEST_c_f (carg, -2.0, minus_zero, -M_PIl), - - TEST_c_f (carg, minus_zero, 0, M_PIl), - TEST_c_f (carg, minus_zero, minus_zero, -M_PIl), - - /* carg (+0 + i y) == pi/2 for y > 0. */ - TEST_c_f (carg, 0, 2.0, M_PI_2l), - - /* carg (-0 + i y) == pi/2 for y > 0. */ - TEST_c_f (carg, minus_zero, 2.0, M_PI_2l), - - /* carg (+0 + i y) == -pi/2 for y < 0. */ - TEST_c_f (carg, 0, -2.0, -M_PI_2l), - - /* carg (-0 + i y) == -pi/2 for y < 0. */ - TEST_c_f (carg, minus_zero, -2.0, -M_PI_2l), - /* carg (inf + i y) == +0 for finite y > 0. */ TEST_c_f (carg, plus_infty, 2.0, 0), @@ -3412,6 +3335,8 @@ static const struct test_c_f_data carg_test_data[] = TEST_c_f (carg, minus_infty, minus_infty, -M_PI_34l), TEST_c_f (carg, qnan_value, qnan_value, qnan_value), + + AUTO_TESTS_c_f (carg, tonearest), }; static void @@ -5833,23 +5758,11 @@ catanh_test (void) static const struct test_f_f_data cbrt_test_data[] = { - TEST_f_f (cbrt, 0.0, 0.0), - TEST_f_f (cbrt, minus_zero, minus_zero), - TEST_f_f (cbrt, plus_infty, plus_infty), TEST_f_f (cbrt, minus_infty, minus_infty), - TEST_f_f (cbrt, qnan_value, qnan_value), - - TEST_f_f (cbrt, -0.001L, -0.1L), - TEST_f_f (cbrt, 8, 2), - TEST_f_f (cbrt, -27.0, -3.0), - TEST_f_f (cbrt, 0.9921875L, 0.997389022060725270579075195353955217L), - TEST_f_f (cbrt, 0.75L, 0.908560296416069829445605878163630251L), + TEST_f_f (cbrt, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), -#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384 - TEST_f_f (cbrt, 0x1p16383L, 0x1p5461L), - TEST_f_f (cbrt, 0x1p-16383L, 0x1p-5461L), -#endif + AUTO_TESTS_f_f (cbrt, tonearest), }; static void @@ -6758,11 +6671,15 @@ static const struct test_ff_f_data copysign_test_data[] = TEST_ff_f (copysign, minus_zero, plus_infty, 0, NO_INEXACT_EXCEPTION), TEST_ff_f (copysign, minus_zero, minus_zero, minus_zero, NO_INEXACT_EXCEPTION), - /* XXX More correctly we would have to check the sign of the NaN. */ - TEST_ff_f (copysign, qnan_value, 0, qnan_value, NO_INEXACT_EXCEPTION), - TEST_ff_f (copysign, qnan_value, minus_zero, qnan_value, NO_INEXACT_EXCEPTION), - TEST_ff_f (copysign, -qnan_value, 0, qnan_value, NO_INEXACT_EXCEPTION), - TEST_ff_f (copysign, -qnan_value, minus_zero, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (copysign, 0, qnan_value, 0, NO_INEXACT_EXCEPTION), + TEST_ff_f (copysign, 0, -qnan_value, minus_zero, NO_INEXACT_EXCEPTION), + TEST_ff_f (copysign, minus_zero, qnan_value, 0, NO_INEXACT_EXCEPTION), + TEST_ff_f (copysign, minus_zero, -qnan_value, minus_zero, NO_INEXACT_EXCEPTION), + + TEST_ff_f (copysign, qnan_value, 0, qnan_value, NO_INEXACT_EXCEPTION|TEST_NAN_SIGN), + TEST_ff_f (copysign, qnan_value, minus_zero, -qnan_value, NO_INEXACT_EXCEPTION|TEST_NAN_SIGN), + TEST_ff_f (copysign, -qnan_value, 0, qnan_value, NO_INEXACT_EXCEPTION|TEST_NAN_SIGN), + TEST_ff_f (copysign, -qnan_value, minus_zero, -qnan_value, NO_INEXACT_EXCEPTION|TEST_NAN_SIGN), }; static void @@ -6776,66 +6693,11 @@ copysign_test (void) static const struct test_f_f_data cos_test_data[] = { - TEST_f_f (cos, 0, 1), - TEST_f_f (cos, minus_zero, 1), TEST_f_f (cos, plus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (cos, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_f_f (cos, qnan_value, qnan_value, ERRNO_UNCHANGED), + TEST_f_f (cos, qnan_value, qnan_value, NO_INEXACT_EXCEPTION|ERRNO_UNCHANGED), - TEST_f_f (cos, M_PI_6l * 2.0, 0.5), - TEST_f_f (cos, M_PI_6l * 4.0, -0.5), - - /* The value of M_PI_2l is never exactly PI/2, and therefore the - answer is never exactly zero. The answer is equal to the error - in rounding PI/2 for the type used. Thus the answer is unique - to each type. */ -#ifdef TEST_FLOAT - /* 32-bit float. */ - TEST_f_f (cos, M_PI_2l, -0x1.777a5cp-25L), -#endif -#if defined TEST_DOUBLE || (defined TEST_LDOUBLE && LDBL_MANT_DIG == 53) - /* 64-bit double or 64-bit long double. */ - TEST_f_f (cos, M_PI_2l, 0x1.1a62633145c07p-54L), -#endif -#if defined TEST_LDOUBLE && LDBL_MANT_DIG == 64 - /* 96-bit long double. */ - TEST_f_f (cos, M_PI_2l, -0xe.ce675d1fc8f8cbbp-69L), -#endif -#if defined TEST_LDOUBLE && LDBL_MANT_DIG == 106 - /* 128-bit IBM long double. */ - TEST_f_f (cos, M_PI_2l, 0x1.c1cd129024e088a67cc74020bcp-107L), -#endif -#if defined TEST_LDOUBLE && LDBL_MANT_DIG == 113 - /* 128-bit long double. */ - TEST_f_f (cos, M_PI_2l, 0x1.cd129024e088a67cc74020bbea64p-115L), -#endif - - TEST_f_f (cos, 0.75L, 0.731688868873820886311838753000084544L), - - TEST_f_f (cos, 0x1p65, 0.99888622066058013610642172179340364209972L), - TEST_f_f (cos, -0x1p65, 0.99888622066058013610642172179340364209972L), - -#ifdef TEST_DOUBLE - TEST_f_f (cos, 0.80190127184058835, 0.69534156199418473), -#endif - - TEST_f_f (cos, 0x1.442f74p+15, 2.4407839902314016628485779006274989801517e-06L), - -#ifndef TEST_FLOAT - TEST_f_f (cos, 1e22, 0.5232147853951389454975944733847094921409L), - TEST_f_f (cos, 0x1p1023, -0.826369834614147994500785680811743734805L), -#endif - -#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384 - TEST_f_f (cos, 0x1p16383L, 0.9210843909921906206874509522505756251609L), -#endif - - TEST_f_f (cos, 0x1p+120, -9.25879022854837867303861764107414946730833e-01L), - TEST_f_f (cos, 0x1p+127, 7.81914638714960072263910298466369236613162e-01L), - TEST_f_f (cos, 0x1.fffff8p+127, 9.98819362551949040703862043664101081064641e-01L), - TEST_f_f (cos, 0x1.fffffep+127, 8.53021039830304158051791467692161107353094e-01L), - TEST_f_f (cos, 0x1p+50, 8.68095904660550604334592502063501320395739e-01L), - TEST_f_f (cos, 0x1p+28, -1.65568979490578758865468278195361551113358e-01L), + AUTO_TESTS_f_f (cos, tonearest), }; static void @@ -6849,16 +6711,7 @@ cos_test (void) static const struct test_f_f_data cos_tonearest_test_data[] = { - TEST_f_f (cos, 1, 0.5403023058681397174009366074429766037323L), - TEST_f_f (cos, 2, -0.4161468365471423869975682295007621897660L), - TEST_f_f (cos, 3, -0.9899924966004454572715727947312613023937L), - TEST_f_f (cos, 4, -0.6536436208636119146391681830977503814241L), - TEST_f_f (cos, 5, 0.2836621854632262644666391715135573083344L), - TEST_f_f (cos, 6, 0.9601702866503660205456522979229244054519L), - TEST_f_f (cos, 7, 0.7539022543433046381411975217191820122183L), - TEST_f_f (cos, 8, -0.1455000338086135258688413818311946826093L), - TEST_f_f (cos, 9, -0.9111302618846769883682947111811653112463L), - TEST_f_f (cos, 10, -0.8390715290764524522588639478240648345199L), + AUTO_TESTS_f_f (cos, tonearest), }; static void @@ -6872,16 +6725,7 @@ cos_test_tonearest (void) static const struct test_f_f_data cos_towardzero_test_data[] = { - TEST_f_f (cos, 1, 0.5403023058681397174009366074429766037323L), - TEST_f_f (cos, 2, -0.4161468365471423869975682295007621897660L), - TEST_f_f (cos, 3, -0.9899924966004454572715727947312613023937L), - TEST_f_f (cos, 4, -0.6536436208636119146391681830977503814241L), - TEST_f_f (cos, 5, 0.2836621854632262644666391715135573083344L), - TEST_f_f (cos, 6, 0.9601702866503660205456522979229244054519L), - TEST_f_f (cos, 7, 0.7539022543433046381411975217191820122183L), - TEST_f_f (cos, 8, -0.1455000338086135258688413818311946826093L), - TEST_f_f (cos, 9, -0.9111302618846769883682947111811653112463L), - TEST_f_f (cos, 10, -0.8390715290764524522588639478240648345199L), + AUTO_TESTS_f_f (cos, towardzero), }; static void @@ -6895,16 +6739,7 @@ cos_test_towardzero (void) static const struct test_f_f_data cos_downward_test_data[] = { - TEST_f_f (cos, 1, 0.5403023058681397174009366074429766037323L), - TEST_f_f (cos, 2, -0.4161468365471423869975682295007621897660L), - TEST_f_f (cos, 3, -0.9899924966004454572715727947312613023937L), - TEST_f_f (cos, 4, -0.6536436208636119146391681830977503814241L), - TEST_f_f (cos, 5, 0.2836621854632262644666391715135573083344L), - TEST_f_f (cos, 6, 0.9601702866503660205456522979229244054519L), - TEST_f_f (cos, 7, 0.7539022543433046381411975217191820122183L), - TEST_f_f (cos, 8, -0.1455000338086135258688413818311946826093L), - TEST_f_f (cos, 9, -0.9111302618846769883682947111811653112463L), - TEST_f_f (cos, 10, -0.8390715290764524522588639478240648345199L), + AUTO_TESTS_f_f (cos, downward), }; static void @@ -6918,16 +6753,7 @@ cos_test_downward (void) static const struct test_f_f_data cos_upward_test_data[] = { - TEST_f_f (cos, 1, 0.5403023058681397174009366074429766037323L), - TEST_f_f (cos, 2, -0.4161468365471423869975682295007621897660L), - TEST_f_f (cos, 3, -0.9899924966004454572715727947312613023937L), - TEST_f_f (cos, 4, -0.6536436208636119146391681830977503814241L), - TEST_f_f (cos, 5, 0.2836621854632262644666391715135573083344L), - TEST_f_f (cos, 6, 0.9601702866503660205456522979229244054519L), - TEST_f_f (cos, 7, 0.7539022543433046381411975217191820122183L), - TEST_f_f (cos, 8, -0.1455000338086135258688413818311946826093L), - TEST_f_f (cos, 9, -0.9111302618846769883682947111811653112463L), - TEST_f_f (cos, 10, -0.8390715290764524522588639478240648345199L), + AUTO_TESTS_f_f (cos, upward), }; static void @@ -6941,21 +6767,11 @@ cos_test_upward (void) static const struct test_f_f_data cosh_test_data[] = { - TEST_f_f (cosh, 0, 1), - TEST_f_f (cosh, minus_zero, 1), + TEST_f_f (cosh, plus_infty, plus_infty, NO_TEST_INLINE), + TEST_f_f (cosh, minus_infty, plus_infty, NO_TEST_INLINE), + TEST_f_f (cosh, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), -#ifndef TEST_INLINE - TEST_f_f (cosh, plus_infty, plus_infty), - TEST_f_f (cosh, minus_infty, plus_infty), -#endif - TEST_f_f (cosh, qnan_value, qnan_value), - - TEST_f_f (cosh, 0.75L, 1.29468328467684468784170818539018176L), - -#ifndef TEST_FLOAT - TEST_f_f (cosh, 709.8893558127259666434838436543941497802734375L, 9.9999998999995070652573675944761818416035e+307L), - TEST_f_f (cosh, -709.8893558127259666434838436543941497802734375L, 9.9999998999995070652573675944761818416035e+307L), -#endif + AUTO_TESTS_f_f (cosh, tonearest), }; static void @@ -6969,9 +6785,7 @@ cosh_test (void) static const struct test_f_f_data cosh_tonearest_test_data[] = { - TEST_f_f (cosh, 22, 1792456423.065795780980053377632656584997L), - TEST_f_f (cosh, 23, 4872401723.124451300068625740569997090344L), - TEST_f_f (cosh, 24, 13244561064.92173614708845674912733665919L), + AUTO_TESTS_f_f (cosh, tonearest), }; static void @@ -6985,9 +6799,7 @@ cosh_test_tonearest (void) static const struct test_f_f_data cosh_towardzero_test_data[] = { - TEST_f_f (cosh, 22, 1792456423.065795780980053377632656584997L), - TEST_f_f (cosh, 23, 4872401723.124451300068625740569997090344L), - TEST_f_f (cosh, 24, 13244561064.92173614708845674912733665919L), + AUTO_TESTS_f_f (cosh, towardzero), }; static void @@ -7001,9 +6813,7 @@ cosh_test_towardzero (void) static const struct test_f_f_data cosh_downward_test_data[] = { - TEST_f_f (cosh, 22, 1792456423.065795780980053377632656584997L), - TEST_f_f (cosh, 23, 4872401723.124451300068625740569997090344L), - TEST_f_f (cosh, 24, 13244561064.92173614708845674912733665919L), + AUTO_TESTS_f_f (cosh, downward), }; static void @@ -7017,9 +6827,7 @@ cosh_test_downward (void) static const struct test_f_f_data cosh_upward_test_data[] = { - TEST_f_f (cosh, 22, 1792456423.065795780980053377632656584997L), - TEST_f_f (cosh, 23, 4872401723.124451300068625740569997090344L), - TEST_f_f (cosh, 24, 13244561064.92173614708845674912733665919L), + AUTO_TESTS_f_f (cosh, upward), }; static void @@ -7809,18 +7617,11 @@ ctanh_test_upward (void) static const struct test_f_f_data erf_test_data[] = { - TEST_f_f (erf, 0, 0), - TEST_f_f (erf, minus_zero, minus_zero), TEST_f_f (erf, plus_infty, 1), TEST_f_f (erf, minus_infty, -1), - TEST_f_f (erf, qnan_value, qnan_value), + TEST_f_f (erf, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), - TEST_f_f (erf, 0.125L, 0.140316204801333817393029446521623398L), - TEST_f_f (erf, 0.75L, 0.711155633653515131598937834591410777L), - TEST_f_f (erf, 1.25L, 0.922900128256458230136523481197281140L), - TEST_f_f (erf, 2.0L, 0.995322265018952734162069256367252929L), - TEST_f_f (erf, 4.125L, 0.999999994576599200434933994687765914L), - TEST_f_f (erf, 27.0L, 1.0L), + AUTO_TESTS_f_f (erf, tonearest), }; static void @@ -7836,27 +7637,9 @@ static const struct test_f_f_data erfc_test_data[] = { TEST_f_f (erfc, plus_infty, 0.0), TEST_f_f (erfc, minus_infty, 2.0), - TEST_f_f (erfc, 0.0, 1.0), - TEST_f_f (erfc, minus_zero, 1.0), - TEST_f_f (erfc, qnan_value, qnan_value), - - TEST_f_f (erfc, 0.125L, 0.859683795198666182606970553478376602L), - TEST_f_f (erfc, 0.75L, 0.288844366346484868401062165408589223L), - TEST_f_f (erfc, 1.25L, 0.0770998717435417698634765188027188596L), - TEST_f_f (erfc, 2.0L, 0.00467773498104726583793074363274707139L), - TEST_f_f (erfc, 0x1.f7303cp+1L, 2.705500297238986897105236321218861842255e-8L), - TEST_f_f (erfc, 4.125L, 0.542340079956506600531223408575531062e-8L), - TEST_f_f (erfc, 0x1.ffa002p+2L, 1.233585992097580296336099501489175967033e-29L), - TEST_f_f (erfc, 0x1.ffffc8p+2L, 1.122671365033056305522366683719541099329e-29L), -#ifdef TEST_LDOUBLE - /* The result can only be represented in long double. */ -# if LDBL_MIN_10_EXP < -319 - TEST_f_f (erfc, 27.0L, 0.523704892378925568501606768284954709e-318L), -# endif -# if LDBL_MANT_DIG >= 106 - TEST_f_f (erfc, 0x1.ffff56789abcdef0123456789a8p+2L, 1.123161416304655390092138725253789378459e-29L), -# endif -#endif + TEST_f_f (erfc, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + + AUTO_TESTS_f_f (erfc, tonearest), }; static void @@ -7870,36 +7653,11 @@ erfc_test (void) static const struct test_f_f_data exp_test_data[] = { - TEST_f_f (exp, 0, 1), - TEST_f_f (exp, minus_zero, 1), - -#ifndef TEST_INLINE - TEST_f_f (exp, plus_infty, plus_infty), - TEST_f_f (exp, minus_infty, 0), -#endif - TEST_f_f (exp, qnan_value, qnan_value), - TEST_f_f (exp, 1, M_El), + TEST_f_f (exp, plus_infty, plus_infty, NO_TEST_INLINE), + TEST_f_f (exp, minus_infty, 0, NO_TEST_INLINE), + TEST_f_f (exp, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), - TEST_f_f (exp, 2, M_E2l), - TEST_f_f (exp, 3, M_E3l), - TEST_f_f (exp, 0.75L, 2.11700001661267466854536981983709561L), - TEST_f_f (exp, 50.0L, 5184705528587072464087.45332293348538L), - TEST_f_f (exp, 88.72269439697265625L, 3.40233126623160774937554134772290447915e38L), -#ifndef TEST_FLOAT - TEST_f_f (exp, 709.75L, 1.739836873264160557698252711673830393864768e+308L), -#endif -#if defined TEST_LDOUBLE && __LDBL_MAX_EXP__ > 1024 - /* The result can only be represented in sane long double. */ - TEST_f_f (exp, 1000.0L, 0.197007111401704699388887935224332313e435L), -#endif - -#if !(defined TEST_LDOUBLE && LDBL_MAX_EXP > 1024) - TEST_f_f (exp, 710, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (exp, -1234, plus_zero, UNDERFLOW_EXCEPTION), -#endif - TEST_f_f (exp, 1e5, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (exp, max_value, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (exp, -max_value, 0, UNDERFLOW_EXCEPTION), + AUTO_TESTS_f_f (exp, tonearest), }; static void @@ -7913,9 +7671,7 @@ exp_test (void) static const struct test_f_f_data exp_tonearest_test_data[] = { - TEST_f_f (exp, 1, M_El), - TEST_f_f (exp, 2, M_E2l), - TEST_f_f (exp, 3, M_E3l), + AUTO_TESTS_f_f (exp, tonearest), }; static void @@ -7929,9 +7685,7 @@ exp_test_tonearest (void) static const struct test_f_f_data exp_towardzero_test_data[] = { - TEST_f_f (exp, 1, M_El), - TEST_f_f (exp, 2, M_E2l), - TEST_f_f (exp, 3, M_E3l), + AUTO_TESTS_f_f (exp, towardzero), }; static void @@ -7945,9 +7699,7 @@ exp_test_towardzero (void) static const struct test_f_f_data exp_downward_test_data[] = { - TEST_f_f (exp, 1, M_El), - TEST_f_f (exp, 2, M_E2l), - TEST_f_f (exp, 3, M_E3l), + AUTO_TESTS_f_f (exp, downward), }; static void @@ -7961,9 +7713,7 @@ exp_test_downward (void) static const struct test_f_f_data exp_upward_test_data[] = { - TEST_f_f (exp, 1, M_El), - TEST_f_f (exp, 2, M_E2l), - TEST_f_f (exp, 3, M_E3l), + AUTO_TESTS_f_f (exp, upward), }; static void @@ -7977,29 +7727,11 @@ exp_test_upward (void) static const struct test_f_f_data exp10_test_data[] = { - TEST_f_f (exp10, 0, 1), - TEST_f_f (exp10, minus_zero, 1), - TEST_f_f (exp10, plus_infty, plus_infty), TEST_f_f (exp10, minus_infty, 0), - TEST_f_f (exp10, qnan_value, qnan_value), - TEST_f_f (exp10, 3, 1000), - TEST_f_f (exp10, -1, 0.1L), - TEST_f_f (exp10, 36, 1.0e36L), - TEST_f_f (exp10, -36, 1.0e-36L), -#ifndef TEST_FLOAT - TEST_f_f (exp10, 305, 1.0e305L), - TEST_f_f (exp10, -305, 1.0e-305L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM), -#endif -#if defined TEST_LDOUBLE && LDBL_MAX_10_EXP >= 4932 - TEST_f_f (exp10, 4932, 1.0e4932L), - TEST_f_f (exp10, -4932, 1.0e-4932L, UNDERFLOW_EXCEPTION), -#endif - TEST_f_f (exp10, 1e6, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (exp10, -1e6, 0, UNDERFLOW_EXCEPTION), - TEST_f_f (exp10, max_value, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (exp10, -max_value, 0, UNDERFLOW_EXCEPTION), - TEST_f_f (exp10, 0.75L, 5.62341325190349080394951039776481231L), + TEST_f_f (exp10, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + + AUTO_TESTS_f_f (exp10, tonearest), }; static void @@ -8022,34 +7754,11 @@ pow10_test (void) static const struct test_f_f_data exp2_test_data[] = { - TEST_f_f (exp2, 0, 1), - TEST_f_f (exp2, minus_zero, 1), TEST_f_f (exp2, plus_infty, plus_infty), TEST_f_f (exp2, minus_infty, 0), - TEST_f_f (exp2, qnan_value, qnan_value), - - TEST_f_f (exp2, 10, 1024), - TEST_f_f (exp2, -1, 0.5), - TEST_f_f (exp2, 1e6, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (exp2, -1e6, 0, UNDERFLOW_EXCEPTION), - TEST_f_f (exp2, max_value, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (exp2, -max_value, 0, UNDERFLOW_EXCEPTION), - TEST_f_f (exp2, 0.75L, 1.68179283050742908606225095246642979L), - - TEST_f_f (exp2, 100.5, 1.792728671193156477399422023278661496394e+30L), - TEST_f_f (exp2, 127, 0x1p127), - TEST_f_f (exp2, -149, 0x1p-149), + TEST_f_f (exp2, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), -#ifndef TEST_FLOAT - TEST_f_f (exp2, 1000.25, 1.274245659452564874772384918171765416737e+301L), - TEST_f_f (exp2, 1023, 0x1p1023), - TEST_f_f (exp2, -1074, 0x1p-1074), -#endif - -#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384 - TEST_f_f (exp2, 16383, 0x1p16383L), - TEST_f_f (exp2, -16400, 0x1p-16400L), -#endif + AUTO_TESTS_f_f (exp2, tonearest), }; static void @@ -8063,60 +7772,74 @@ exp2_test (void) static const struct test_f_f_data expm1_test_data[] = { - TEST_f_f (expm1, 0, 0), - TEST_f_f (expm1, minus_zero, minus_zero), + TEST_f_f (expm1, plus_infty, plus_infty, NO_TEST_INLINE), + TEST_f_f (expm1, minus_infty, -1, NO_TEST_INLINE), + TEST_f_f (expm1, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), -#ifndef TEST_INLINE - TEST_f_f (expm1, plus_infty, plus_infty), - TEST_f_f (expm1, minus_infty, -1), -#endif - TEST_f_f (expm1, qnan_value, qnan_value), + AUTO_TESTS_f_f (expm1, tonearest), + }; - TEST_f_f (expm1, 1, M_El - 1.0), - TEST_f_f (expm1, 0.75L, 1.11700001661267466854536981983709561L), +static void +expm1_test (void) +{ + START (expm1); + RUN_TEST_LOOP_f_f (expm1, expm1_test_data, ); + END; +} - TEST_f_f (expm1, 50.0L, 5.1847055285870724640864533229334853848275e+21L), -#ifndef TEST_FLOAT - TEST_f_f (expm1, 127.0L, 1.4302079958348104463583671072905261080748e+55L), - TEST_f_f (expm1, 500.0L, 1.4035922178528374107397703328409120821806e+217L), -#endif +static const struct test_f_f_data expm1_tonearest_test_data[] = + { + AUTO_TESTS_f_f (expm1, tonearest), + }; -#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384 - TEST_f_f (expm1, 11356.25L, 9.05128237311923300051376115753226014206e+4931L), -#endif - - TEST_f_f (expm1, -10.0, -0.9999546000702375151484644084844394493898L), - TEST_f_f (expm1, -16.0, -0.9999998874648252807408854862248209398728L), - TEST_f_f (expm1, -17.0, -0.9999999586006228121483334034897228104472L), - TEST_f_f (expm1, -18.0, -0.9999999847700202552873715638633707664826L), - TEST_f_f (expm1, -36.0, -0.9999999999999997680477169756430611687736L), - TEST_f_f (expm1, -37.0, -0.9999999999999999146695237425593420572195L), - TEST_f_f (expm1, -38.0, -0.9999999999999999686086720795197037129104L), - TEST_f_f (expm1, -44.0, -0.9999999999999999999221886775886620348429L), - TEST_f_f (expm1, -45.0, -0.9999999999999999999713748141945060635553L), - TEST_f_f (expm1, -46.0, -0.9999999999999999999894693826424461876212L), - TEST_f_f (expm1, -73.0, -0.9999999999999999999999999999999802074012L), - TEST_f_f (expm1, -74.0, -0.9999999999999999999999999999999927187098L), - TEST_f_f (expm1, -75.0, -0.9999999999999999999999999999999973213630L), - TEST_f_f (expm1, -78.0, -0.9999999999999999999999999999999998666385L), - TEST_f_f (expm1, -79.0, -0.9999999999999999999999999999999999509391L), - TEST_f_f (expm1, -80.0, -0.9999999999999999999999999999999999819515L), - TEST_f_f (expm1, -100.0, -1.0), - TEST_f_f (expm1, -1000.0, -1.0), - TEST_f_f (expm1, -10000.0, -1.0), - TEST_f_f (expm1, -100000.0, -1.0), - - TEST_f_f (expm1, 100000.0, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (expm1, max_value, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (expm1, -max_value, -1), +static void +expm1_test_tonearest (void) +{ + START (expm1_tonearest); + RUN_TEST_LOOP_f_f (expm1, expm1_tonearest_test_data, FE_TONEAREST); + END; +} + + +static const struct test_f_f_data expm1_towardzero_test_data[] = + { + AUTO_TESTS_f_f (expm1, towardzero), }; static void -expm1_test (void) +expm1_test_towardzero (void) { - START (expm1); - RUN_TEST_LOOP_f_f (expm1, expm1_test_data, ); + START (expm1_towardzero); + RUN_TEST_LOOP_f_f (expm1, expm1_towardzero_test_data, FE_TOWARDZERO); + END; +} + + +static const struct test_f_f_data expm1_downward_test_data[] = + { + AUTO_TESTS_f_f (expm1, downward), + }; + +static void +expm1_test_downward (void) +{ + START (expm1_downward); + RUN_TEST_LOOP_f_f (expm1, expm1_downward_test_data, FE_DOWNWARD); + END; +} + + +static const struct test_f_f_data expm1_upward_test_data[] = + { + AUTO_TESTS_f_f (expm1, upward), + }; + +static void +expm1_test_upward (void) +{ + START (expm1_upward); + RUN_TEST_LOOP_f_f (expm1, expm1_upward_test_data, FE_UPWARD); END; } @@ -8128,7 +7851,8 @@ static const struct test_f_f_data fabs_test_data[] = TEST_f_f (fabs, plus_infty, plus_infty, NO_INEXACT_EXCEPTION), TEST_f_f (fabs, minus_infty, plus_infty, NO_INEXACT_EXCEPTION), - TEST_f_f (fabs, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + TEST_f_f (fabs, qnan_value, qnan_value, NO_INEXACT_EXCEPTION|TEST_NAN_SIGN), + TEST_f_f (fabs, -qnan_value, qnan_value, NO_INEXACT_EXCEPTION|TEST_NAN_SIGN), TEST_f_f (fabs, 38.0, 38.0, NO_INEXACT_EXCEPTION), TEST_f_f (fabs, -M_El, M_El, NO_INEXACT_EXCEPTION), @@ -9347,6 +9071,13 @@ static const struct test_ff_f_data fmod_test_data[] = #if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381 TEST_ff_f (fmod, 0x0.fffffffffffffffep-16382L, 0x1p-16445L, plus_zero, NO_INEXACT_EXCEPTION), #endif +#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 56 + TEST_ff_f (fmod, -0x1.00000000000004p+0L, 0x1.fffffffffffff8p-1L, -0x1p-53L, NO_INEXACT_EXCEPTION), + TEST_ff_f (fmod, 0x1.fffffffffffffap-1L, 0x1.fffffffffffff8p-1L, 0x1p-56L, NO_INEXACT_EXCEPTION), + TEST_ff_f (fmod, -0x1.fffffffffffffap-1L, 0x1.fffffffffffff8p-1L, -0x1p-56L, NO_INEXACT_EXCEPTION), + TEST_ff_f (fmod, 0x1.fffffffffffffap-1L, -0x1.fffffffffffff8p-1L, 0x1p-56L, NO_INEXACT_EXCEPTION), + TEST_ff_f (fmod, -0x1.fffffffffffffap-1L, -0x1.fffffffffffff8p-1L, -0x1p-56L, NO_INEXACT_EXCEPTION), +#endif }; static void @@ -9406,64 +9137,14 @@ static const struct test_ff_f_data hypot_test_data[] = TEST_ff_f (hypot, plus_infty, 1, plus_infty), TEST_ff_f (hypot, minus_infty, 1, plus_infty), -#ifndef TEST_INLINE - TEST_ff_f (hypot, plus_infty, qnan_value, plus_infty), - TEST_ff_f (hypot, minus_infty, qnan_value, plus_infty), - TEST_ff_f (hypot, qnan_value, plus_infty, plus_infty), - TEST_ff_f (hypot, qnan_value, minus_infty, plus_infty), -#endif - - TEST_ff_f (hypot, qnan_value, qnan_value, qnan_value), - - /* hypot (x,y) == hypot (+-x, +-y) */ - TEST_ff_f (hypot, 0.7L, 12.4L, 12.419742348374220601176836866763271L), - TEST_ff_f (hypot, -0.7L, 12.4L, 12.419742348374220601176836866763271L), - TEST_ff_f (hypot, 0.7L, -12.4L, 12.419742348374220601176836866763271L), - TEST_ff_f (hypot, -0.7L, -12.4L, 12.419742348374220601176836866763271L), - TEST_ff_f (hypot, 12.4L, 0.7L, 12.419742348374220601176836866763271L), - TEST_ff_f (hypot, -12.4L, 0.7L, 12.419742348374220601176836866763271L), - TEST_ff_f (hypot, 12.4L, -0.7L, 12.419742348374220601176836866763271L), - TEST_ff_f (hypot, -12.4L, -0.7L, 12.419742348374220601176836866763271L), - - /* hypot (x,0) == fabs (x) */ - TEST_ff_f (hypot, 0.75L, 0, 0.75L), - TEST_ff_f (hypot, -0.75L, 0, 0.75L), - TEST_ff_f (hypot, -5.7e7, 0, 5.7e7L), - - TEST_ff_f (hypot, 0.75L, 1.25L, 1.45773797371132511771853821938639577L), + TEST_ff_f (hypot, plus_infty, qnan_value, plus_infty, NO_TEST_INLINE), + TEST_ff_f (hypot, minus_infty, qnan_value, plus_infty, NO_TEST_INLINE), + TEST_ff_f (hypot, qnan_value, plus_infty, plus_infty, NO_TEST_INLINE), + TEST_ff_f (hypot, qnan_value, minus_infty, plus_infty, NO_TEST_INLINE), - TEST_ff_f (hypot, 1.0L, 0x1p-61L, 1.0L), - TEST_ff_f (hypot, 0x1p+0L, 0x1.fp-129L, 0x1p+0L), -#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106 - TEST_ff_f (hypot, 0x1.23456789abcdef0123456789ab8p-500L, 0x1.23456789abcdef0123456789ab8p-500L, 4.9155782399407039128612180934736799735113e-151L), -#endif - -#if !(defined TEST_FLOAT && defined TEST_INLINE) - TEST_ff_f (hypot, 0x3p125L, 0x4p125L, 0x5p125L), - TEST_ff_f (hypot, 0x1.234566p-126L, 0x1.234566p-126L, 1.891441686191081936598531534017449451173e-38L), -#endif - -#if !defined TEST_FLOAT && !(defined TEST_DOUBLE && defined TEST_INLINE) - TEST_ff_f (hypot, 0x3p1021L, 0x4p1021L, 0x5p1021L), - TEST_ff_f (hypot, 0x1p+0L, 0x0.3ep-1022L, 0x1p+0L), -#endif - -#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384 && !defined TEST_INLINE - TEST_ff_f (hypot, 0x3p16381L, 0x4p16381L, 0x5p16381L), -#endif + TEST_ff_f (hypot, qnan_value, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), - TEST_ff_f (hypot, 0x1p-149L, 0x1p-149L, 1.9817352931807469938024533350782879785095e-45L, UNDERFLOW_EXCEPTION_FLOAT), - -#ifndef TEST_FLOAT - TEST_ff_f (hypot, 0x1p-1074L, 0x1p-1074L, 6.9871433705131320800651344656990806305791e-324L, UNDERFLOW_EXCEPTION_DOUBLE), -#endif - -#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381 && !defined TEST_INLINE - TEST_ff_f (hypot, 0x1p-16445L, 0x1p-16445L, 5.1550906155442528702558159159596215039925e-4951L, UNDERFLOW_EXCEPTION), -# if LDBL_MANT_DIG >= 113 - TEST_ff_f (hypot, 0x1p-16494L, 0x1p-16494L, 9.1572804726500807075521065242888978445857e-4966L, UNDERFLOW_EXCEPTION), -# endif -#endif + AUTO_TESTS_ff_f (hypot, tonearest), }; static void @@ -9775,31 +9456,10 @@ isunordered_test (void) static const struct test_f_f_data j0_test_data[] = { /* j0 is the Bessel function of the first kind of order 0 */ - TEST_f_f (j0, qnan_value, qnan_value), + TEST_f_f (j0, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), TEST_f_f (j0, plus_infty, 0), - TEST_f_f (j0, -1.0, 0.765197686557966551449717526102663221L), - TEST_f_f (j0, 0.0, 1.0), - TEST_f_f (j0, 0.125L, 0.996097563041985204620768999453174712L), - TEST_f_f (j0, 0.75L, 0.864242275166648623555731103820923211L), - TEST_f_f (j0, 1.0, 0.765197686557966551449717526102663221L), - TEST_f_f (j0, 1.5, 0.511827671735918128749051744283411720L), - TEST_f_f (j0, 2.0, 0.223890779141235668051827454649948626L), - TEST_f_f (j0, 8.0, 0.171650807137553906090869407851972001L), - TEST_f_f (j0, 10.0, -0.245935764451348335197760862485328754L), - TEST_f_f (j0, 4.0, -3.9714980986384737228659076845169804197562E-1L), - TEST_f_f (j0, -4.0, -3.9714980986384737228659076845169804197562E-1L), - - TEST_f_f (j0, 0x1.d7ce3ap+107L, 2.775523647291230802651040996274861694514e-17L), -#ifndef TEST_FLOAT - TEST_f_f (j0, -0x1.001000001p+593L, -3.927269966354206207832593635798954916263e-90L), - TEST_f_f (j0, 0x1p1023L, -1.5665258060609012834424478437196679802783e-155L), -#endif - -#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384 - TEST_f_f (j0, 0x1p16382L, -1.2193782500509000574176799046642541129387e-2466L), - TEST_f_f (j0, 0x1p16383L, 9.5859502826270374691362975419147645151233e-2467L), -#endif + AUTO_TESTS_f_f (j0, tonearest), }; static void @@ -9814,30 +9474,10 @@ j0_test (void) static const struct test_f_f_data j1_test_data[] = { /* j1 is the Bessel function of the first kind of order 1 */ - TEST_f_f (j1, qnan_value, qnan_value), + TEST_f_f (j1, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), TEST_f_f (j1, plus_infty, 0), - TEST_f_f (j1, -1.0, -0.440050585744933515959682203718914913L), - TEST_f_f (j1, 0.0, 0.0), - TEST_f_f (j1, 0.125L, 0.0623780091344946810942311355879361177L), - TEST_f_f (j1, 0.75L, 0.349243602174862192523281016426251335L), - TEST_f_f (j1, 1.0, 0.440050585744933515959682203718914913L), - TEST_f_f (j1, 1.5, 0.557936507910099641990121213156089400L), - TEST_f_f (j1, 2.0, 0.576724807756873387202448242269137087L), - TEST_f_f (j1, 8.0, 0.234636346853914624381276651590454612L), - TEST_f_f (j1, 10.0, 0.0434727461688614366697487680258592883L), - - TEST_f_f (j1, 0x1.3ffp+74L, 1.818984347516051243459364437186082741567e-12L), - -#ifndef TEST_FLOAT - TEST_f_f (j1, 0x1.ff00000000002p+840L, 1.846591691699331493194965158699937660696e-127L), - TEST_f_f (j1, 0x1p1023L, 8.2687542933709649327986678723012001545638e-155L), -#endif - -#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384 - TEST_f_f (j1, 0x1p16382L, 8.0839224448726336195866026476176740513439e-2467L), - TEST_f_f (j1, 0x1p16383L, -3.8895531955766020648617743624167352352217e-2467L), -#endif + AUTO_TESTS_f_f (j1, tonearest), }; static void @@ -9852,69 +9492,22 @@ static const struct test_if_f_data jn_test_data[] = { /* jn is the Bessel function of the first kind of order n. */ /* jn (0, x) == j0 (x) */ - TEST_if_f (jn, 0, qnan_value, qnan_value), + TEST_if_f (jn, 0, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), TEST_if_f (jn, 0, plus_infty, 0), - TEST_if_f (jn, 0, -1.0, 0.765197686557966551449717526102663221L), - TEST_if_f (jn, 0, 0.0, 1.0), - TEST_if_f (jn, 0, 0.125L, 0.996097563041985204620768999453174712L), - TEST_if_f (jn, 0, 0.75L, 0.864242275166648623555731103820923211L), - TEST_if_f (jn, 0, 1.0, 0.765197686557966551449717526102663221L), - TEST_if_f (jn, 0, 1.5, 0.511827671735918128749051744283411720L), - TEST_if_f (jn, 0, 2.0, 0.223890779141235668051827454649948626L), - TEST_if_f (jn, 0, 8.0, 0.171650807137553906090869407851972001L), - TEST_if_f (jn, 0, 10.0, -0.245935764451348335197760862485328754L), - TEST_if_f (jn, 0, 4.0, -3.9714980986384737228659076845169804197562E-1L), - TEST_if_f (jn, 0, -4.0, -3.9714980986384737228659076845169804197562E-1L), /* jn (1, x) == j1 (x) */ - TEST_if_f (jn, 1, qnan_value, qnan_value), + TEST_if_f (jn, 1, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), TEST_if_f (jn, 1, plus_infty, 0), - TEST_if_f (jn, 1, -1.0, -0.440050585744933515959682203718914913L), - TEST_if_f (jn, 1, 0.0, 0.0), - TEST_if_f (jn, 1, 0.125L, 0.0623780091344946810942311355879361177L), - TEST_if_f (jn, 1, 0.75L, 0.349243602174862192523281016426251335L), - TEST_if_f (jn, 1, 1.0, 0.440050585744933515959682203718914913L), - TEST_if_f (jn, 1, 1.5, 0.557936507910099641990121213156089400L), - TEST_if_f (jn, 1, 2.0, 0.576724807756873387202448242269137087L), - TEST_if_f (jn, 1, 8.0, 0.234636346853914624381276651590454612L), - TEST_if_f (jn, 1, 10.0, 0.0434727461688614366697487680258592883L), /* jn (3, x) */ - TEST_if_f (jn, 3, qnan_value, qnan_value), + TEST_if_f (jn, 3, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), TEST_if_f (jn, 3, plus_infty, 0), - TEST_if_f (jn, 3, -1.0, -0.0195633539826684059189053216217515083L), - TEST_if_f (jn, 3, 0.0, 0.0), - TEST_if_f (jn, 3, 0.125L, 0.406503832554912875023029337653442868e-4L), - TEST_if_f (jn, 3, 0.75L, 0.848438342327410884392755236884386804e-2L), - TEST_if_f (jn, 3, 1.0, 0.0195633539826684059189053216217515083L), - TEST_if_f (jn, 3, 2.0, 0.128943249474402051098793332969239835L), - TEST_if_f (jn, 3, 10.0, 0.0583793793051868123429354784103409563L), - /* jn (10, x) */ - TEST_if_f (jn, 10, qnan_value, qnan_value), + TEST_if_f (jn, 10, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), TEST_if_f (jn, 10, plus_infty, 0), - TEST_if_f (jn, 10, -1.0, 0.263061512368745320699785368779050294e-9L), - TEST_if_f (jn, 10, 0.0, 0.0), - TEST_if_f (jn, 10, 0.125L, 0.250543369809369890173993791865771547e-18L), - TEST_if_f (jn, 10, 0.75L, 0.149621713117596814698712483621682835e-10L), - TEST_if_f (jn, 10, 1.0, 0.263061512368745320699785368779050294e-9L), - TEST_if_f (jn, 10, 2.0, 0.251538628271673670963516093751820639e-6L), - TEST_if_f (jn, 10, 10.0, 0.207486106633358857697278723518753428L), - - /* BZ #11589 .*/ - TEST_if_f (jn, 2, 2.4048255576957729L, 0.43175480701968038399746111312430703L), - TEST_if_f (jn, 3, 2.4048255576957729L, 0.19899990535769083404042146764530813L), - TEST_if_f (jn, 4, 2.4048255576957729L, 0.647466661641779720084932282551219891E-1L), - TEST_if_f (jn, 5, 2.4048255576957729L, 0.163892432048058525099230549946147698E-1L), - TEST_if_f (jn, 6, 2.4048255576957729L, 0.34048184720278336646673682895929161E-2L), - TEST_if_f (jn, 7, 2.4048255576957729L, 0.60068836573295394221291569249883076E-3L), - TEST_if_f (jn, 8, 2.4048255576957729L, 0.92165786705344923232879022467054148E-4L), - TEST_if_f (jn, 9, 2.4048255576957729L, 0.12517270977961513005428966643852564E-4L), - - /* Bug 14155: spurious exception may occur. */ - TEST_if_f (jn, 2, 0x1.ffff62p+99L, -4.43860668048170034334926693188979974489e-16L, UNDERFLOW_EXCEPTION_OK), + AUTO_TESTS_if_f (jn, tonearest), }; static void @@ -9956,22 +9549,14 @@ static const struct test_f_f1_data lgamma_test_data[] = TEST_f_f1 (lgamma, plus_infty, plus_infty, 1), TEST_f_f1 (lgamma, 0, plus_infty, 1, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), TEST_f_f1 (lgamma, minus_zero, plus_infty, -1, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), - TEST_f_f1 (lgamma, qnan_value, qnan_value, IGNORE), + TEST_f_f1 (lgamma, qnan_value, qnan_value, IGNORE, NO_INEXACT_EXCEPTION), /* lgamma (x) == +inf plus divide by zero exception for integer x <= 0. */ TEST_f_f1 (lgamma, -3, plus_infty, IGNORE, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), TEST_f_f1 (lgamma, minus_infty, plus_infty, IGNORE), TEST_f_f1 (lgamma, -max_value, plus_infty, IGNORE, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), - TEST_f_f1 (lgamma, max_value, plus_infty, 1, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - - TEST_f_f1 (lgamma, 1, 0, 1), - TEST_f_f1 (lgamma, 3, M_LN2l, 1), - - TEST_f_f1 (lgamma, 0.5, M_LOG_SQRT_PIl, 1), - TEST_f_f1 (lgamma, -0.5, M_LOG_2_SQRT_PIl, -1), - TEST_f_f1 (lgamma, 0.7L, 0.260867246531666514385732417016759578L, 1), - TEST_f_f1 (lgamma, 1.2L, -0.853740900033158497197028392998854470e-1L, 1), + AUTO_TESTS_f_f1 (lgamma, tonearest), }; static void @@ -9997,7 +9582,9 @@ static const struct test_f_l_data lrint_test_data[] = /* XXX this test is incomplete. We need to have a way to specifiy the rounding method and test the critical cases. So far, only unproblematic numbers are tested. */ - /* TODO: missing +/-Inf as well as qNaN tests. */ + TEST_f_l (lrint, plus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_l (lrint, minus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_l (lrint, qnan_value, IGNORE, INVALID_EXCEPTION), TEST_f_l (lrint, 0.0, 0, NO_INEXACT_EXCEPTION), TEST_f_l (lrint, minus_zero, 0, NO_INEXACT_EXCEPTION), TEST_f_l (lrint, 0.2L, 0, INEXACT_EXCEPTION), @@ -10029,6 +9616,9 @@ lrint_test (void) static const struct test_f_l_data lrint_tonearest_test_data[] = { + TEST_f_l (lrint, plus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_l (lrint, minus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_l (lrint, qnan_value, IGNORE, INVALID_EXCEPTION), TEST_f_l (lrint, 0.0, 0, NO_INEXACT_EXCEPTION), TEST_f_l (lrint, minus_zero, 0, NO_INEXACT_EXCEPTION), TEST_f_l (lrint, 0.2L, 0, INEXACT_EXCEPTION), @@ -10064,6 +9654,9 @@ lrint_test_tonearest (void) static const struct test_f_l_data lrint_towardzero_test_data[] = { + TEST_f_l (lrint, plus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_l (lrint, minus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_l (lrint, qnan_value, IGNORE, INVALID_EXCEPTION), TEST_f_l (lrint, 0.0, 0, NO_INEXACT_EXCEPTION), TEST_f_l (lrint, minus_zero, 0, NO_INEXACT_EXCEPTION), TEST_f_l (lrint, 0.2L, 0, INEXACT_EXCEPTION), @@ -10099,6 +9692,9 @@ lrint_test_towardzero (void) static const struct test_f_l_data lrint_downward_test_data[] = { + TEST_f_l (lrint, plus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_l (lrint, minus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_l (lrint, qnan_value, IGNORE, INVALID_EXCEPTION), TEST_f_l (lrint, 0.0, 0, NO_INEXACT_EXCEPTION), TEST_f_l (lrint, minus_zero, 0, NO_INEXACT_EXCEPTION), TEST_f_l (lrint, 0.2L, 0, INEXACT_EXCEPTION), @@ -10134,6 +9730,9 @@ lrint_test_downward (void) static const struct test_f_l_data lrint_upward_test_data[] = { + TEST_f_l (lrint, plus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_l (lrint, minus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_l (lrint, qnan_value, IGNORE, INVALID_EXCEPTION), TEST_f_l (lrint, 0.0, 0, NO_INEXACT_EXCEPTION), TEST_f_l (lrint, minus_zero, 0, NO_INEXACT_EXCEPTION), TEST_f_l (lrint, 0.2L, 1, INEXACT_EXCEPTION), @@ -10172,7 +9771,9 @@ static const struct test_f_L_data llrint_test_data[] = /* XXX this test is incomplete. We need to have a way to specifiy the rounding method and test the critical cases. So far, only unproblematic numbers are tested. */ - /* TODO: missing +/-Inf as well as qNaN tests. */ + TEST_f_L (llrint, plus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_L (llrint, minus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_L (llrint, qnan_value, IGNORE, INVALID_EXCEPTION), TEST_f_L (llrint, 0.0, 0, NO_INEXACT_EXCEPTION), TEST_f_L (llrint, minus_zero, 0, NO_INEXACT_EXCEPTION), TEST_f_L (llrint, 0.2L, 0, INEXACT_EXCEPTION), @@ -10308,6 +9909,9 @@ llrint_test (void) static const struct test_f_L_data llrint_tonearest_test_data[] = { + TEST_f_L (llrint, plus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_L (llrint, minus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_L (llrint, qnan_value, IGNORE, INVALID_EXCEPTION), TEST_f_L (llrint, 0.0, 0, NO_INEXACT_EXCEPTION), TEST_f_L (llrint, minus_zero, 0, NO_INEXACT_EXCEPTION), TEST_f_L (llrint, 0.2L, 0, INEXACT_EXCEPTION), @@ -10443,6 +10047,9 @@ llrint_test_tonearest (void) static const struct test_f_L_data llrint_towardzero_test_data[] = { + TEST_f_L (llrint, plus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_L (llrint, minus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_L (llrint, qnan_value, IGNORE, INVALID_EXCEPTION), TEST_f_L (llrint, 0.0, 0, NO_INEXACT_EXCEPTION), TEST_f_L (llrint, minus_zero, 0, NO_INEXACT_EXCEPTION), TEST_f_L (llrint, 0.2L, 0, INEXACT_EXCEPTION), @@ -10578,6 +10185,9 @@ llrint_test_towardzero (void) static const struct test_f_L_data llrint_downward_test_data[] = { + TEST_f_L (llrint, plus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_L (llrint, minus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_L (llrint, qnan_value, IGNORE, INVALID_EXCEPTION), TEST_f_L (llrint, 0.0, 0, NO_INEXACT_EXCEPTION), TEST_f_L (llrint, minus_zero, 0, NO_INEXACT_EXCEPTION), TEST_f_L (llrint, 0.2L, 0, INEXACT_EXCEPTION), @@ -10709,6 +10319,9 @@ llrint_test_downward (void) static const struct test_f_L_data llrint_upward_test_data[] = { + TEST_f_L (llrint, plus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_L (llrint, minus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_L (llrint, qnan_value, IGNORE, INVALID_EXCEPTION), TEST_f_L (llrint, 0.0, 0, NO_INEXACT_EXCEPTION), TEST_f_L (llrint, minus_zero, 0, NO_INEXACT_EXCEPTION), TEST_f_L (llrint, 0.2L, 1, INEXACT_EXCEPTION), @@ -10842,19 +10455,13 @@ static const struct test_f_f_data log_test_data[] = TEST_f_f (log, 0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), TEST_f_f (log, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (log, 1, 0), - TEST_f_f (log, -1, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (log, -max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (log, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (log, plus_infty, plus_infty), - TEST_f_f (log, qnan_value, qnan_value), + TEST_f_f (log, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), - TEST_f_f (log, M_El, 1), - TEST_f_f (log, M_1_DIV_El, -1), - TEST_f_f (log, 2, M_LN2l), - TEST_f_f (log, 10, M_LN10l), - TEST_f_f (log, 0.75L, -0.287682072451780927439219005993827432L), + AUTO_TESTS_f_f (log, tonearest), }; static void @@ -10871,22 +10478,15 @@ static const struct test_f_f_data log10_test_data[] = TEST_f_f (log10, 0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), TEST_f_f (log10, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (log10, 1, 0), - /* log10 (x) == qNaN plus invalid exception if x < 0. */ TEST_f_f (log10, -1, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (log10, -max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (log10, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (log10, plus_infty, plus_infty), - TEST_f_f (log10, qnan_value, qnan_value), + TEST_f_f (log10, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), - TEST_f_f (log10, 0.1L, -1), - TEST_f_f (log10, 10.0, 1), - TEST_f_f (log10, 100.0, 2), - TEST_f_f (log10, 10000.0, 4), - TEST_f_f (log10, M_El, M_LOG10El), - TEST_f_f (log10, 0.75L, -0.124938736608299953132449886193870744L), + AUTO_TESTS_f_f (log10, tonearest), }; static void @@ -10900,21 +10500,15 @@ log10_test (void) static const struct test_f_f_data log1p_test_data[] = { - TEST_f_f (log1p, 0, 0), - TEST_f_f (log1p, minus_zero, minus_zero), - TEST_f_f (log1p, -1, minus_infty, DIVIDE_BY_ZERO_EXCEPTION), TEST_f_f (log1p, -2, qnan_value, INVALID_EXCEPTION), TEST_f_f (log1p, -max_value, qnan_value, INVALID_EXCEPTION), TEST_f_f (log1p, minus_infty, qnan_value, INVALID_EXCEPTION), TEST_f_f (log1p, plus_infty, plus_infty), - TEST_f_f (log1p, qnan_value, qnan_value), + TEST_f_f (log1p, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), - TEST_f_f (log1p, M_El - 1.0, 1), - - TEST_f_f (log1p, -0.25L, -0.287682072451780927439219005993827432L), - TEST_f_f (log1p, -0.875, -2.07944154167983592825169636437452970L), + AUTO_TESTS_f_f (log1p, tonearest), }; static void @@ -10931,20 +10525,14 @@ static const struct test_f_f_data log2_test_data[] = TEST_f_f (log2, 0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), TEST_f_f (log2, minus_zero, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (log2, 1, 0), - TEST_f_f (log2, -1, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (log2, -max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (log2, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (log2, plus_infty, plus_infty), - TEST_f_f (log2, qnan_value, qnan_value), + TEST_f_f (log2, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), - TEST_f_f (log2, M_El, M_LOG2El), - TEST_f_f (log2, 2.0, 1), - TEST_f_f (log2, 16.0, 4), - TEST_f_f (log2, 256.0, 8), - TEST_f_f (log2, 0.75L, -.415037499278843818546261056052183492L), + AUTO_TESTS_f_f (log2, tonearest), }; static void @@ -11020,7 +10608,9 @@ logb_test_downward (void) static const struct test_f_l_data lround_test_data[] = { - /* TODO: missing +/-Inf as well as qNaN tests. */ + TEST_f_l (lround, plus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_l (lround, minus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_l (lround, qnan_value, IGNORE, INVALID_EXCEPTION), TEST_f_l (lround, 0, 0), TEST_f_l (lround, minus_zero, 0), TEST_f_l (lround, 0.2L, 0.0), @@ -11067,7 +10657,9 @@ lround_test (void) static const struct test_f_L_data llround_test_data[] = { - /* TODO: missing +/-Inf as well as qNaN tests. */ + TEST_f_L (llround, plus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_L (llround, minus_infty, IGNORE, INVALID_EXCEPTION), + TEST_f_L (llround, qnan_value, IGNORE, INVALID_EXCEPTION), TEST_f_L (llround, 0, 0), TEST_f_L (llround, minus_zero, 0), TEST_f_L (llround, 0.2L, 0.0), @@ -11453,128 +11045,98 @@ nexttoward_test (void) static const struct test_ff_f_data pow_test_data[] = { - TEST_ff_f (pow, 0, 0, 1), - TEST_ff_f (pow, 0, minus_zero, 1), - TEST_ff_f (pow, minus_zero, 0, 1), - TEST_ff_f (pow, minus_zero, minus_zero, 1), - - TEST_ff_f (pow, 10, 0, 1), - TEST_ff_f (pow, 10, minus_zero, 1), - TEST_ff_f (pow, -10, 0, 1), - TEST_ff_f (pow, -10, minus_zero, 1), - TEST_ff_f (pow, qnan_value, 0, 1), TEST_ff_f (pow, qnan_value, minus_zero, 1), -#ifndef TEST_INLINE - TEST_ff_f (pow, 1.1L, plus_infty, plus_infty), - TEST_ff_f (pow, plus_infty, plus_infty, plus_infty), - TEST_ff_f (pow, -1.1L, plus_infty, plus_infty), - TEST_ff_f (pow, minus_infty, plus_infty, plus_infty), - - TEST_ff_f (pow, 0.9L, plus_infty, 0), - TEST_ff_f (pow, 1e-7L, plus_infty, 0), - TEST_ff_f (pow, -0.9L, plus_infty, 0), - TEST_ff_f (pow, -1e-7L, plus_infty, 0), - - TEST_ff_f (pow, 1.1L, minus_infty, 0), - TEST_ff_f (pow, plus_infty, minus_infty, 0), - TEST_ff_f (pow, -1.1L, minus_infty, 0), - TEST_ff_f (pow, minus_infty, minus_infty, 0), - - TEST_ff_f (pow, 0.9L, minus_infty, plus_infty), - TEST_ff_f (pow, 1e-7L, minus_infty, plus_infty), - TEST_ff_f (pow, -0.9L, minus_infty, plus_infty), - TEST_ff_f (pow, -1e-7L, minus_infty, plus_infty), - - TEST_ff_f (pow, plus_infty, 1e-7L, plus_infty), - TEST_ff_f (pow, plus_infty, 1, plus_infty), - TEST_ff_f (pow, plus_infty, 1e7L, plus_infty), - TEST_ff_f (pow, plus_infty, min_subnorm_value, plus_infty), - - TEST_ff_f (pow, plus_infty, -1e-7L, 0), - TEST_ff_f (pow, plus_infty, -1, 0), - TEST_ff_f (pow, plus_infty, -1e7L, 0), - TEST_ff_f (pow, plus_infty, -min_subnorm_value, 0), - - TEST_ff_f (pow, minus_infty, 1, minus_infty), - TEST_ff_f (pow, minus_infty, 11, minus_infty), - TEST_ff_f (pow, minus_infty, 1001, minus_infty), - - TEST_ff_f (pow, minus_infty, 2, plus_infty), - TEST_ff_f (pow, minus_infty, 12, plus_infty), - TEST_ff_f (pow, minus_infty, 1002, plus_infty), - TEST_ff_f (pow, minus_infty, 0.1L, plus_infty), - TEST_ff_f (pow, minus_infty, 1.1L, plus_infty), - TEST_ff_f (pow, minus_infty, 11.1L, plus_infty), - TEST_ff_f (pow, minus_infty, 1001.1L, plus_infty), - TEST_ff_f (pow, minus_infty, min_subnorm_value, plus_infty), - - TEST_ff_f (pow, minus_infty, -1, minus_zero), - TEST_ff_f (pow, minus_infty, -11, minus_zero), - TEST_ff_f (pow, minus_infty, -1001, minus_zero), - - TEST_ff_f (pow, minus_infty, -2, 0), - TEST_ff_f (pow, minus_infty, -12, 0), - TEST_ff_f (pow, minus_infty, -1002, 0), - TEST_ff_f (pow, minus_infty, -0.1L, 0), - TEST_ff_f (pow, minus_infty, -1.1L, 0), - TEST_ff_f (pow, minus_infty, -11.1L, 0), - TEST_ff_f (pow, minus_infty, -1001.1L, 0), - TEST_ff_f (pow, minus_infty, -min_subnorm_value, 0), -#endif - - TEST_ff_f (pow, qnan_value, qnan_value, qnan_value), - TEST_ff_f (pow, 0, qnan_value, qnan_value), - TEST_ff_f (pow, 1, qnan_value, 1), - TEST_ff_f (pow, -1, qnan_value, qnan_value), - TEST_ff_f (pow, qnan_value, 1, qnan_value), - TEST_ff_f (pow, qnan_value, -1, qnan_value), + TEST_ff_f (pow, 1.1L, plus_infty, plus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, plus_infty, plus_infty, plus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, -1.1L, plus_infty, plus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, plus_infty, plus_infty, NO_TEST_INLINE), + + TEST_ff_f (pow, 0.9L, plus_infty, 0, NO_TEST_INLINE), + TEST_ff_f (pow, 1e-7L, plus_infty, 0, NO_TEST_INLINE), + TEST_ff_f (pow, -0.9L, plus_infty, 0, NO_TEST_INLINE), + TEST_ff_f (pow, -1e-7L, plus_infty, 0, NO_TEST_INLINE), + + TEST_ff_f (pow, 1.1L, minus_infty, 0, NO_TEST_INLINE), + TEST_ff_f (pow, plus_infty, minus_infty, 0, NO_TEST_INLINE), + TEST_ff_f (pow, -1.1L, minus_infty, 0, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, minus_infty, 0, NO_TEST_INLINE), + + TEST_ff_f (pow, 0.9L, minus_infty, plus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, 1e-7L, minus_infty, plus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, -0.9L, minus_infty, plus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, -1e-7L, minus_infty, plus_infty, NO_TEST_INLINE), + + TEST_ff_f (pow, plus_infty, 1e-7L, plus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, plus_infty, 1, plus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, plus_infty, 1e7L, plus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, plus_infty, min_subnorm_value, plus_infty, NO_TEST_INLINE), + + TEST_ff_f (pow, plus_infty, -1e-7L, 0, NO_TEST_INLINE), + TEST_ff_f (pow, plus_infty, -1, 0, NO_TEST_INLINE), + TEST_ff_f (pow, plus_infty, -1e7L, 0, NO_TEST_INLINE), + TEST_ff_f (pow, plus_infty, -min_subnorm_value, 0, NO_TEST_INLINE), + + TEST_ff_f (pow, minus_infty, 1, minus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, 11, minus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, 1001, minus_infty, NO_TEST_INLINE), + + TEST_ff_f (pow, minus_infty, 2, plus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, 12, plus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, 1002, plus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, 0.1L, plus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, 1.1L, plus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, 11.1L, plus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, 1001.1L, plus_infty, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, min_subnorm_value, plus_infty, NO_TEST_INLINE), + + TEST_ff_f (pow, minus_infty, -1, minus_zero, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, -11, minus_zero, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, -1001, minus_zero, NO_TEST_INLINE), + + TEST_ff_f (pow, minus_infty, -2, 0, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, -12, 0, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, -1002, 0, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, -0.1L, 0, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, -1.1L, 0, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, -11.1L, 0, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, -1001.1L, 0, NO_TEST_INLINE), + TEST_ff_f (pow, minus_infty, -min_subnorm_value, 0, NO_TEST_INLINE), + + TEST_ff_f (pow, qnan_value, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (pow, 0, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (pow, 1, qnan_value, 1, NO_INEXACT_EXCEPTION), + TEST_ff_f (pow, -1, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (pow, qnan_value, 1, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (pow, qnan_value, -1, qnan_value, NO_INEXACT_EXCEPTION), /* pow (x, qNaN) == qNaN. */ - TEST_ff_f (pow, 3.0, qnan_value, qnan_value), - TEST_ff_f (pow, minus_zero, qnan_value, qnan_value), - TEST_ff_f (pow, plus_infty, qnan_value, qnan_value), - TEST_ff_f (pow, -3.0, qnan_value, qnan_value), - TEST_ff_f (pow, minus_infty, qnan_value, qnan_value), - - TEST_ff_f (pow, qnan_value, 3.0, qnan_value), - TEST_ff_f (pow, qnan_value, -3.0, qnan_value), - TEST_ff_f (pow, qnan_value, plus_infty, qnan_value), - TEST_ff_f (pow, qnan_value, minus_infty, qnan_value), - TEST_ff_f (pow, qnan_value, 2.5, qnan_value), - TEST_ff_f (pow, qnan_value, -2.5, qnan_value), - TEST_ff_f (pow, qnan_value, min_subnorm_value, qnan_value), - TEST_ff_f (pow, qnan_value, -min_subnorm_value, qnan_value), + TEST_ff_f (pow, 3.0, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (pow, minus_zero, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (pow, plus_infty, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (pow, -3.0, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (pow, minus_infty, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + + TEST_ff_f (pow, qnan_value, 3.0, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (pow, qnan_value, -3.0, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (pow, qnan_value, plus_infty, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (pow, qnan_value, minus_infty, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (pow, qnan_value, 2.5, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (pow, qnan_value, -2.5, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (pow, qnan_value, min_subnorm_value, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (pow, qnan_value, -min_subnorm_value, qnan_value, NO_INEXACT_EXCEPTION), TEST_ff_f (pow, 1, plus_infty, 1), TEST_ff_f (pow, -1, plus_infty, 1), TEST_ff_f (pow, 1, minus_infty, 1), TEST_ff_f (pow, -1, minus_infty, 1), - TEST_ff_f (pow, 1, 1, 1), - TEST_ff_f (pow, 1, -1, 1), - TEST_ff_f (pow, 1, 1.25, 1), - TEST_ff_f (pow, 1, -1.25, 1), - TEST_ff_f (pow, 1, 0x1p62L, 1), - TEST_ff_f (pow, 1, 0x1p63L, 1), - TEST_ff_f (pow, 1, 0x1p64L, 1), - TEST_ff_f (pow, 1, 0x1p72L, 1), - TEST_ff_f (pow, 1, min_subnorm_value, 1), - TEST_ff_f (pow, 1, -min_subnorm_value, 1), /* pow (x, +-0) == 1. */ TEST_ff_f (pow, plus_infty, 0, 1), TEST_ff_f (pow, plus_infty, minus_zero, 1), TEST_ff_f (pow, minus_infty, 0, 1), TEST_ff_f (pow, minus_infty, minus_zero, 1), - TEST_ff_f (pow, 32.75L, 0, 1), - TEST_ff_f (pow, 32.75L, minus_zero, 1), - TEST_ff_f (pow, -32.75L, 0, 1), - TEST_ff_f (pow, -32.75L, minus_zero, 1), - TEST_ff_f (pow, 0x1p72L, 0, 1), - TEST_ff_f (pow, 0x1p72L, minus_zero, 1), - TEST_ff_f (pow, 0x1p-72L, 0, 1), - TEST_ff_f (pow, 0x1p-72L, minus_zero, 1), TEST_ff_f (pow, -0.1L, 1.1L, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_ff_f (pow, -0.1L, -1.1L, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), @@ -11638,40 +11200,22 @@ static const struct test_ff_f_data pow_test_data[] = TEST_ff_f (pow, minus_zero, -0x1p127, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), TEST_ff_f (pow, minus_zero, -max_value, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, 0x1p72L, 0x1p72L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, 10, -0x1p72L, 0, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, max_value, max_value, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, 10, -max_value, 0, UNDERFLOW_EXCEPTION), - - TEST_ff_f (pow, 0, 1, 0), - TEST_ff_f (pow, 0, 11, 0), - - TEST_ff_f (pow, minus_zero, 1, minus_zero), - TEST_ff_f (pow, minus_zero, 11, minus_zero), - - TEST_ff_f (pow, 0, 2, 0), - TEST_ff_f (pow, 0, 11.1L, 0), - - TEST_ff_f (pow, minus_zero, 2, 0), - TEST_ff_f (pow, minus_zero, 11.1L, 0), TEST_ff_f (pow, 0, plus_infty, 0), TEST_ff_f (pow, minus_zero, plus_infty, 0), TEST_ff_f (pow, 0, minus_infty, plus_infty, DIVIDE_BY_ZERO_EXCEPTION_OK), TEST_ff_f (pow, minus_zero, minus_infty, plus_infty, DIVIDE_BY_ZERO_EXCEPTION_OK), -#ifndef TEST_INLINE /* pow (x, +inf) == +inf for |x| > 1. */ - TEST_ff_f (pow, 1.5, plus_infty, plus_infty), + TEST_ff_f (pow, 1.5, plus_infty, plus_infty, NO_TEST_INLINE), /* pow (x, +inf) == +0 for |x| < 1. */ - TEST_ff_f (pow, 0.5, plus_infty, 0.0), + TEST_ff_f (pow, 0.5, plus_infty, 0.0, NO_TEST_INLINE), /* pow (x, -inf) == +0 for |x| > 1. */ - TEST_ff_f (pow, 1.5, minus_infty, 0.0), + TEST_ff_f (pow, 1.5, minus_infty, 0.0, NO_TEST_INLINE), /* pow (x, -inf) == +inf for |x| < 1. */ - TEST_ff_f (pow, 0.5, minus_infty, plus_infty), -#endif + TEST_ff_f (pow, 0.5, minus_infty, plus_infty, NO_TEST_INLINE), /* pow (+inf, y) == +inf for y > 0. */ TEST_ff_f (pow, plus_infty, 2, plus_infty), @@ -11772,384 +11316,14 @@ static const struct test_ff_f_data pow_test_data[] = TEST_ff_f (pow, minus_infty, -0x1p127, 0.0), TEST_ff_f (pow, minus_infty, -max_value, 0.0), - /* pow (+0, y) == +0 for y an odd integer > 0. */ - TEST_ff_f (pow, 0.0, 27, 0.0), - TEST_ff_f (pow, 0.0, 0xffffff, 0.0), -#ifndef TEST_FLOAT - TEST_ff_f (pow, 0.0, 0x1.fffffffffffffp+52L, 0.0), -#endif -#ifdef TEST_LDOUBLE -# if LDBL_MANT_DIG >= 64 - TEST_ff_f (pow, 0.0, 0x1.fffffffffffffffep+63L, 0.0), -# endif -# if LDBL_MANT_DIG >= 106 - TEST_ff_f (pow, 0.0, 0x1.ffffffffffffffffffffffffff8p+105L, 0.0), -# endif -# if LDBL_MANT_DIG >= 113 - TEST_ff_f (pow, 0.0, 0x1.ffffffffffffffffffffffffffffp+112L, 0.0), -# endif -#endif - - /* pow (-0, y) == -0 for y an odd integer > 0. */ - TEST_ff_f (pow, minus_zero, 27, minus_zero), - TEST_ff_f (pow, minus_zero, 0xffffff, minus_zero), - TEST_ff_f (pow, minus_zero, 0x1fffffe, plus_zero), -#ifndef TEST_FLOAT - TEST_ff_f (pow, minus_zero, 0x1.fffffffffffffp+52L, minus_zero), - TEST_ff_f (pow, minus_zero, 0x1.fffffffffffffp+53L, plus_zero), -#endif -#ifdef TEST_LDOUBLE -# if LDBL_MANT_DIG >= 64 - TEST_ff_f (pow, minus_zero, 0x1.fffffffffffffffep+63L, minus_zero), - TEST_ff_f (pow, minus_zero, 0x1.fffffffffffffffep+64L, plus_zero), -# endif -# if LDBL_MANT_DIG >= 106 - TEST_ff_f (pow, minus_zero, 0x1.ffffffffffffffffffffffffff8p+105L, minus_zero), - TEST_ff_f (pow, minus_zero, 0x1.ffffffffffffffffffffffffff8p+106L, plus_zero), -# endif -# if LDBL_MANT_DIG >= 113 - TEST_ff_f (pow, minus_zero, 0x1.ffffffffffffffffffffffffffffp+112L, minus_zero), - TEST_ff_f (pow, minus_zero, 0x1.ffffffffffffffffffffffffffffp+113L, plus_zero), -# endif -#endif - - /* pow (+0, y) == +0 for y > 0 and not an odd integer. */ - TEST_ff_f (pow, 0.0, 4, 0.0), - TEST_ff_f (pow, 0.0, 0x1p24, 0.0), - TEST_ff_f (pow, 0.0, 0x1p127, 0.0), - TEST_ff_f (pow, 0.0, max_value, 0.0), - TEST_ff_f (pow, 0.0, min_subnorm_value, 0.0), - - /* pow (-0, y) == +0 for y > 0 and not an odd integer. */ - TEST_ff_f (pow, minus_zero, 4, 0.0), - TEST_ff_f (pow, minus_zero, 0x1p24, 0.0), - TEST_ff_f (pow, minus_zero, 0x1p127, 0.0), - TEST_ff_f (pow, minus_zero, max_value, 0.0), - TEST_ff_f (pow, minus_zero, min_subnorm_value, 0.0), - - TEST_ff_f (pow, 16, 0.25L, 2), - TEST_ff_f (pow, 0x1p64L, 0.125L, 256), - TEST_ff_f (pow, 2, 4, 16), - TEST_ff_f (pow, 256, 8, 0x1p64L), - - TEST_ff_f (pow, 0.75L, 1.25L, 0.697953644326574699205914060237425566L), - -#if defined TEST_DOUBLE || defined TEST_LDOUBLE - TEST_ff_f (pow, -7.49321e+133, -9.80818e+16, 0, UNDERFLOW_EXCEPTION), -#endif - - TEST_ff_f (pow, -1.0, -0xffffff, -1.0), - TEST_ff_f (pow, -1.0, -0x1fffffe, 1.0), -#ifndef TEST_FLOAT - TEST_ff_f (pow, -1.0, -0x1.fffffffffffffp+52L, -1.0), - TEST_ff_f (pow, -1.0, -0x1.fffffffffffffp+53L, 1.0), -#endif -#ifdef TEST_LDOUBLE -# if LDBL_MANT_DIG >= 64 - TEST_ff_f (pow, -1.0, -0x1.fffffffffffffffep+63L, -1.0), - TEST_ff_f (pow, -1.0, -0x1.fffffffffffffffep+64L, 1.0), -# endif -# if LDBL_MANT_DIG >= 106 - TEST_ff_f (pow, -1.0, -0x1.ffffffffffffffffffffffffff8p+105L, -1.0), - TEST_ff_f (pow, -1.0, -0x1.ffffffffffffffffffffffffff8p+106L, 1.0), -# endif -# if LDBL_MANT_DIG >= 113 - TEST_ff_f (pow, -1.0, -0x1.ffffffffffffffffffffffffffffp+112L, -1.0), - TEST_ff_f (pow, -1.0, -0x1.ffffffffffffffffffffffffffffp+113L, 1.0), -# endif -#endif - TEST_ff_f (pow, -1.0, -max_value, 1.0), - - TEST_ff_f (pow, -1.0, 0xffffff, -1.0), - TEST_ff_f (pow, -1.0, 0x1fffffe, 1.0), -#ifndef TEST_FLOAT - TEST_ff_f (pow, -1.0, 0x1.fffffffffffffp+52L, -1.0), - TEST_ff_f (pow, -1.0, 0x1.fffffffffffffp+53L, 1.0), -#endif -#ifdef TEST_LDOUBLE -# if LDBL_MANT_DIG >= 64 - TEST_ff_f (pow, -1.0, 0x1.fffffffffffffffep+63L, -1.0), - TEST_ff_f (pow, -1.0, 0x1.fffffffffffffffep+64L, 1.0), -# endif -# if LDBL_MANT_DIG >= 106 - TEST_ff_f (pow, -1.0, 0x1.ffffffffffffffffffffffffff8p+105L, -1.0), - TEST_ff_f (pow, -1.0, 0x1.ffffffffffffffffffffffffff8p+106L, 1.0), -# endif -# if LDBL_MANT_DIG >= 113 - TEST_ff_f (pow, -1.0, 0x1.ffffffffffffffffffffffffffffp+112L, -1.0), - TEST_ff_f (pow, -1.0, 0x1.ffffffffffffffffffffffffffffp+113L, 1.0), -# endif -#endif - TEST_ff_f (pow, -1.0, max_value, 1.0), - - TEST_ff_f (pow, -2.0, 126, 0x1p126), - TEST_ff_f (pow, -2.0, 127, -0x1p127), - /* Allow inexact results for float to be considered to underflow. */ - TEST_ff_f (pow, -2.0, -126, 0x1p-126, UNDERFLOW_EXCEPTION_OK_FLOAT), - TEST_ff_f (pow, -2.0, -127, -0x1p-127, UNDERFLOW_EXCEPTION_OK_FLOAT), - - TEST_ff_f (pow, -2.0, -0xffffff, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -2.0, -0x1fffffe, plus_zero, UNDERFLOW_EXCEPTION), -#ifndef TEST_FLOAT - TEST_ff_f (pow, -2.0, -0x1.fffffffffffffp+52L, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -2.0, -0x1.fffffffffffffp+53L, plus_zero, UNDERFLOW_EXCEPTION), -#endif -#ifdef TEST_LDOUBLE -# if LDBL_MANT_DIG >= 64 - TEST_ff_f (pow, -2.0, -0x1.fffffffffffffffep+63L, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -2.0, -0x1.fffffffffffffffep+64L, plus_zero, UNDERFLOW_EXCEPTION), -# endif -# if LDBL_MANT_DIG >= 106 - TEST_ff_f (pow, -2.0, -0x1.ffffffffffffffffffffffffff8p+105L, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -2.0, -0x1.ffffffffffffffffffffffffff8p+106L, plus_zero, UNDERFLOW_EXCEPTION), -# endif -# if LDBL_MANT_DIG >= 113 - TEST_ff_f (pow, -2.0, -0x1.ffffffffffffffffffffffffffffp+112L, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -2.0, -0x1.ffffffffffffffffffffffffffffp+113L, plus_zero, UNDERFLOW_EXCEPTION), -# endif -#endif - TEST_ff_f (pow, -2.0, -max_value, plus_zero, UNDERFLOW_EXCEPTION), - - TEST_ff_f (pow, -2.0, 0xffffff, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -2.0, 0x1fffffe, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -#ifndef TEST_FLOAT - TEST_ff_f (pow, -2.0, 0x1.fffffffffffffp+52L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -2.0, 0x1.fffffffffffffp+53L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -#endif -#ifdef TEST_LDOUBLE -# if LDBL_MANT_DIG >= 64 - TEST_ff_f (pow, -2.0, 0x1.fffffffffffffffep+63L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -2.0, 0x1.fffffffffffffffep+64L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# endif -# if LDBL_MANT_DIG >= 106 - TEST_ff_f (pow, -2.0, 0x1.ffffffffffffffffffffffffff8p+105L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -2.0, 0x1.ffffffffffffffffffffffffff8p+106L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# endif -# if LDBL_MANT_DIG >= 113 - TEST_ff_f (pow, -2.0, 0x1.ffffffffffffffffffffffffffffp+112L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -2.0, 0x1.ffffffffffffffffffffffffffffp+113L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# endif -#endif - TEST_ff_f (pow, -2.0, max_value, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -max_value, 0.5, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_ff_f (pow, -max_value, 1.5, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_ff_f (pow, -max_value, 1000.5, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_ff_f (pow, -max_value, -2, plus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -max_value, -3, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -max_value, 2, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -max_value, 3, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - - TEST_ff_f (pow, -max_value, -0xffffff, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -max_value, -0x1fffffe, plus_zero, UNDERFLOW_EXCEPTION), -#ifndef TEST_FLOAT - TEST_ff_f (pow, -max_value, -0x1.fffffffffffffp+52L, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -max_value, -0x1.fffffffffffffp+53L, plus_zero, UNDERFLOW_EXCEPTION), -#endif -#ifdef TEST_LDOUBLE -# if LDBL_MANT_DIG >= 64 - TEST_ff_f (pow, -max_value, -0x1.fffffffffffffffep+63L, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -max_value, -0x1.fffffffffffffffep+64L, plus_zero, UNDERFLOW_EXCEPTION), -# endif -# if LDBL_MANT_DIG >= 106 - TEST_ff_f (pow, -max_value, -0x1.ffffffffffffffffffffffffff8p+105L, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -max_value, -0x1.ffffffffffffffffffffffffff8p+106L, plus_zero, UNDERFLOW_EXCEPTION), -# endif -# if LDBL_MANT_DIG >= 113 - TEST_ff_f (pow, -max_value, -0x1.ffffffffffffffffffffffffffffp+112L, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -max_value, -0x1.ffffffffffffffffffffffffffffp+113L, plus_zero, UNDERFLOW_EXCEPTION), -# endif -#endif - TEST_ff_f (pow, -max_value, -max_value, plus_zero, UNDERFLOW_EXCEPTION), - - TEST_ff_f (pow, -max_value, 0xffffff, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -max_value, 0x1fffffe, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -#ifndef TEST_FLOAT - TEST_ff_f (pow, -max_value, 0x1.fffffffffffffp+52L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -max_value, 0x1.fffffffffffffp+53L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -#endif -#ifdef TEST_LDOUBLE -# if LDBL_MANT_DIG >= 64 - TEST_ff_f (pow, -max_value, 0x1.fffffffffffffffep+63L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -max_value, 0x1.fffffffffffffffep+64L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# endif -# if LDBL_MANT_DIG >= 106 - TEST_ff_f (pow, -max_value, 0x1.ffffffffffffffffffffffffff8p+105L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -max_value, 0x1.ffffffffffffffffffffffffff8p+106L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# endif -# if LDBL_MANT_DIG >= 113 - TEST_ff_f (pow, -max_value, 0x1.ffffffffffffffffffffffffffffp+112L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -max_value, 0x1.ffffffffffffffffffffffffffffp+113L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# endif -#endif - TEST_ff_f (pow, -max_value, max_value, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - - TEST_ff_f (pow, -0.5, 126, 0x1p-126), - TEST_ff_f (pow, -0.5, 127, -0x1p-127), - TEST_ff_f (pow, -0.5, -126, 0x1p126), - TEST_ff_f (pow, -0.5, -127, -0x1p127), - - TEST_ff_f (pow, -0.5, -0xffffff, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -0.5, -0x1fffffe, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -#ifndef TEST_FLOAT - TEST_ff_f (pow, -0.5, -0x1.fffffffffffffp+52L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -0.5, -0x1.fffffffffffffp+53L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -#endif -#ifdef TEST_LDOUBLE -# if LDBL_MANT_DIG >= 64 - TEST_ff_f (pow, -0.5, -0x1.fffffffffffffffep+63L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -0.5, -0x1.fffffffffffffffep+64L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# endif -# if LDBL_MANT_DIG >= 106 - TEST_ff_f (pow, -0.5, -0x1.ffffffffffffffffffffffffff8p+105L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -0.5, -0x1.ffffffffffffffffffffffffff8p+106L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# endif -# if LDBL_MANT_DIG >= 113 - TEST_ff_f (pow, -0.5, -0x1.ffffffffffffffffffffffffffffp+112L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -0.5, -0x1.ffffffffffffffffffffffffffffp+113L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# endif -#endif - TEST_ff_f (pow, -0.5, -max_value, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - - TEST_ff_f (pow, -0.5, 0xffffff, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -0.5, 0x1fffffe, plus_zero, UNDERFLOW_EXCEPTION), -#ifndef TEST_FLOAT - TEST_ff_f (pow, -0.5, 0x1.fffffffffffffp+52L, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -0.5, 0x1.fffffffffffffp+53L, plus_zero, UNDERFLOW_EXCEPTION), -#endif -#ifdef TEST_LDOUBLE -# if LDBL_MANT_DIG >= 64 - TEST_ff_f (pow, -0.5, 0x1.fffffffffffffffep+63L, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -0.5, 0x1.fffffffffffffffep+64L, plus_zero, UNDERFLOW_EXCEPTION), -# endif -# if LDBL_MANT_DIG >= 106 - TEST_ff_f (pow, -0.5, 0x1.ffffffffffffffffffffffffff8p+105L, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -0.5, 0x1.ffffffffffffffffffffffffff8p+106L, plus_zero, UNDERFLOW_EXCEPTION), -# endif -# if LDBL_MANT_DIG >= 113 - TEST_ff_f (pow, -0.5, 0x1.ffffffffffffffffffffffffffffp+112L, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -0.5, 0x1.ffffffffffffffffffffffffffffp+113L, plus_zero, UNDERFLOW_EXCEPTION), -# endif -#endif - TEST_ff_f (pow, -0.5, max_value, plus_zero, UNDERFLOW_EXCEPTION), TEST_ff_f (pow, -min_value, 0.5, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_ff_f (pow, -min_value, 1.5, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_ff_f (pow, -min_value, 1000.5, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_ff_f (pow, -min_value, -2, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -min_value, -3, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - /* Allow inexact results to be considered to underflow. */ - TEST_ff_f (pow, -min_value, 1, -min_value, UNDERFLOW_EXCEPTION_OK), - TEST_ff_f (pow, -min_value, 2, plus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -min_value, 3, minus_zero, UNDERFLOW_EXCEPTION), - - TEST_ff_f (pow, -min_value, -0xffffff, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -min_value, -0x1fffffe, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -#ifndef TEST_FLOAT - TEST_ff_f (pow, -min_value, -0x1.fffffffffffffp+52L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -min_value, -0x1.fffffffffffffp+53L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -#endif -#ifdef TEST_LDOUBLE -# if LDBL_MANT_DIG >= 64 - TEST_ff_f (pow, -min_value, -0x1.fffffffffffffffep+63L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -min_value, -0x1.fffffffffffffffep+64L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# endif -# if LDBL_MANT_DIG >= 106 - TEST_ff_f (pow, -min_value, -0x1.ffffffffffffffffffffffffff8p+105L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -min_value, -0x1.ffffffffffffffffffffffffff8p+106L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# endif -# if LDBL_MANT_DIG >= 113 - TEST_ff_f (pow, -min_value, -0x1.ffffffffffffffffffffffffffffp+112L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_ff_f (pow, -min_value, -0x1.ffffffffffffffffffffffffffffp+113L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# endif -#endif - TEST_ff_f (pow, -min_value, -max_value, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - - TEST_ff_f (pow, -min_value, 0xffffff, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -min_value, 0x1fffffe, plus_zero, UNDERFLOW_EXCEPTION), -#ifndef TEST_FLOAT - TEST_ff_f (pow, -min_value, 0x1.fffffffffffffp+52L, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -min_value, 0x1.fffffffffffffp+53L, plus_zero, UNDERFLOW_EXCEPTION), -#endif -#ifdef TEST_LDOUBLE -# if LDBL_MANT_DIG >= 64 - TEST_ff_f (pow, -min_value, 0x1.fffffffffffffffep+63L, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -min_value, 0x1.fffffffffffffffep+64L, plus_zero, UNDERFLOW_EXCEPTION), -# endif -# if LDBL_MANT_DIG >= 106 - TEST_ff_f (pow, -min_value, 0x1.ffffffffffffffffffffffffff8p+105L, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -min_value, 0x1.ffffffffffffffffffffffffff8p+106L, plus_zero, UNDERFLOW_EXCEPTION), -# endif -# if LDBL_MANT_DIG >= 113 - TEST_ff_f (pow, -min_value, 0x1.ffffffffffffffffffffffffffffp+112L, minus_zero, UNDERFLOW_EXCEPTION), - TEST_ff_f (pow, -min_value, 0x1.ffffffffffffffffffffffffffffp+113L, plus_zero, UNDERFLOW_EXCEPTION), -# endif -#endif - TEST_ff_f (pow, -min_value, max_value, plus_zero, UNDERFLOW_EXCEPTION), - - TEST_ff_f (pow, 0x0.ffffffp0, 10, 0.999999403953712118183885036774764444747L), - TEST_ff_f (pow, 0x0.ffffffp0, 100, 0.999994039553108359406305079606228341585L), - TEST_ff_f (pow, 0x0.ffffffp0, 1000, 0.9999403971297699052276650144650733772182L), - TEST_ff_f (pow, 0x0.ffffffp0, 0x1p24, 0.3678794302077803437135155590023422899744L), - TEST_ff_f (pow, 0x0.ffffffp0, 0x1p30, 1.603807831524924233828134753069728224044e-28L), - TEST_ff_f (pow, 0x0.ffffffp0, 0x1.234566p30, 2.374884712135295099971443365381007297732e-32L), - TEST_ff_f (pow, 0x0.ffffffp0, -10, 1.000000596046643153205170848674671339688L), - TEST_ff_f (pow, 0x0.ffffffp0, -100, 1.000005960482418779499387594989252621451L), - TEST_ff_f (pow, 0x0.ffffffp0, -1000, 1.000059606422943986382898964231519867906L), - TEST_ff_f (pow, 0x0.ffffffp0, -0x1p24, 2.7182819094701610539628664526874952929416L), - TEST_ff_f (pow, 0x0.ffffffp0, -0x1p30, 6.2351609734265057988914412331288163636075e+27L), - TEST_ff_f (pow, 0x0.ffffffp0, -0x1.234566p30, 4.2107307141696353498921307077142537353515e+31L), - TEST_ff_f (pow, 0x1.000002p0, 0x1p24, 7.3890552180866447284268641248075832310141L), - TEST_ff_f (pow, 0x1.000002p0, 0x1.234566p29, 4.2107033006507495188536371520637025716256e+31L), - TEST_ff_f (pow, 0x1.000002p0, -0x1.234566p29, 2.3749001736727769098946062325205705312166e-32L), - -#if !defined TEST_FLOAT - TEST_ff_f (pow, 0x0.fffffffffffff8p0L, 0x1.23456789abcdfp62L, 1.0118762747827252817436395051178295138220e-253L), - TEST_ff_f (pow, 0x0.fffffffffffff8p0L, -0x1.23456789abcdfp62L, 9.8826311568054561811190162420900667121992e+252L), - TEST_ff_f (pow, 0x1.0000000000001p0L, 0x1.23456789abcdfp61L, 9.8826311568044974397135026217687399395481e+252L), - TEST_ff_f (pow, 0x1.0000000000001p0L, -0x1.23456789abcdfp61L, 1.0118762747828234466621210689458255908670e-253L), -#endif - -#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 64 && LDBL_MAX_EXP >= 16384 - TEST_ff_f (pow, 0x0.ffffffffffffffffp0L, 0x1.23456789abcdef0ep77L, 1.2079212226420368189981778807634890018840e-4048L), - TEST_ff_f (pow, 0x0.ffffffffffffffffp0L, -0x1.23456789abcdef0ep77L, 8.2786855736563746280496724205839522148001e+4047L), - TEST_ff_f (pow, 0x1.0000000000000002p0L, 0x1.23456789abcdef0ep76L, 8.2786855736563683535324500168799315131570e+4047L), - TEST_ff_f (pow, 0x1.0000000000000002p0L, -0x1.23456789abcdef0ep76L, 1.2079212226420377344964713407722652880280e-4048L), -#endif - -#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 113 - TEST_ff_f (pow, 0x0.ffffffffffffffffffffffffffff8p0L, 0x1.23456789abcdef0123456789abcdp126L, 1.2079212226420440237790185999151440179953e-4048L), - TEST_ff_f (pow, 0x0.ffffffffffffffffffffffffffff8p0L, -0x1.23456789abcdef0123456789abcdp126L, 8.2786855736563252489063231915535105363602e+4047L), - TEST_ff_f (pow, 0x1.0000000000000000000000000001p0L, 0x1.23456789abcdef0123456789abcdp125L, 8.2786855736563252489063231915423647547782e+4047L), - TEST_ff_f (pow, 0x1.0000000000000000000000000001p0L, -0x1.23456789abcdef0123456789abcdp125L, 1.2079212226420440237790185999167702696503e-4048L), -#endif - -#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384 - TEST_ff_f (pow, 1e4932L, 0.75L, 1e3699L), - TEST_ff_f (pow, 1e4928L, 0.75L, 1e3696L), - TEST_ff_f (pow, 1e4924L, 0.75L, 1e3693L), - TEST_ff_f (pow, 1e4920L, 0.75L, 1e3690L), - TEST_ff_f (pow, 10.0L, 4932.0L, 1e4932L), - TEST_ff_f (pow, 10.0L, 4931.0L, 1e4931L), - TEST_ff_f (pow, 10.0L, 4930.0L, 1e4930L), - TEST_ff_f (pow, 10.0L, 4929.0L, 1e4929L), - TEST_ff_f (pow, 10.0L, -4931.0L, 1e-4931L), - TEST_ff_f (pow, 10.0L, -4930.0L, 1e-4930L), - TEST_ff_f (pow, 10.0L, -4929.0L, 1e-4929L), - TEST_ff_f (pow, 1e27L, 182.0L, 1e4914L), - TEST_ff_f (pow, 1e27L, -182.0L, 1e-4914L), -#endif - - TEST_ff_f (pow, min_subnorm_value, min_subnorm_value, 1.0L), - TEST_ff_f (pow, min_subnorm_value, -min_subnorm_value, 1.0L), - TEST_ff_f (pow, max_value, min_subnorm_value, 1.0L), - TEST_ff_f (pow, max_value, -min_subnorm_value, 1.0L), - TEST_ff_f (pow, 0.99L, min_subnorm_value, 1.0L), - TEST_ff_f (pow, 0.99L, -min_subnorm_value, 1.0L), - TEST_ff_f (pow, 1.01L, min_subnorm_value, 1.0L), - TEST_ff_f (pow, 1.01L, -min_subnorm_value, 1.0L), - - TEST_ff_f (pow, 2.0L, -100000.0L, plus_zero, UNDERFLOW_EXCEPTION), + AUTO_TESTS_ff_f (pow, tonearest), }; static void @@ -12164,8 +11338,7 @@ pow_test (void) static const struct test_ff_f_data pow_tonearest_test_data[] = { - TEST_ff_f (pow, 1.0625L, 1.125L, 1.070582293028761362162622578677070098674L), - TEST_ff_f (pow, 1.5L, 1.03125L, 1.519127098714743184071644334163037684948L), + AUTO_TESTS_ff_f (pow, tonearest), }; static void @@ -12247,6 +11420,9 @@ static const struct test_ff_f_data remainder_test_data[] = TEST_ff_f (remainder, -1.625, -1.0, 0.375, NO_INEXACT_EXCEPTION), TEST_ff_f (remainder, 5.0, 2.0, 1.0, NO_INEXACT_EXCEPTION), TEST_ff_f (remainder, 3.0, 2.0, -1.0, NO_INEXACT_EXCEPTION), +#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 56 + TEST_ff_f (remainder, -0x1.80000000000002p1L, 2.0, 0x1.fffffffffffff8p-1L, NO_INEXACT_EXCEPTION), +#endif }; static void @@ -13036,8 +12212,8 @@ static const struct test_ff_f_data scalb_test_data[] = TEST_ff_f (scalb, 2.0, 0.5, qnan_value, INVALID_EXCEPTION), TEST_ff_f (scalb, 3.0, -2.5, qnan_value, INVALID_EXCEPTION), - TEST_ff_f (scalb, 0, qnan_value, qnan_value), - TEST_ff_f (scalb, 1, qnan_value, qnan_value), + TEST_ff_f (scalb, 0, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (scalb, 1, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), TEST_ff_f (scalb, 1, 0, 1), TEST_ff_f (scalb, -1, 0, -1), @@ -13072,13 +12248,13 @@ static const struct test_ff_f_data scalb_test_data[] = TEST_ff_f (scalb, plus_infty, minus_infty, qnan_value, INVALID_EXCEPTION), TEST_ff_f (scalb, minus_infty, minus_infty, qnan_value, INVALID_EXCEPTION), - TEST_ff_f (scalb, qnan_value, 1, qnan_value), - TEST_ff_f (scalb, 1, qnan_value, qnan_value), - TEST_ff_f (scalb, qnan_value, 0, qnan_value), - TEST_ff_f (scalb, 0, qnan_value, qnan_value), - TEST_ff_f (scalb, qnan_value, plus_infty, qnan_value), - TEST_ff_f (scalb, plus_infty, qnan_value, qnan_value), - TEST_ff_f (scalb, qnan_value, qnan_value, qnan_value), + TEST_ff_f (scalb, qnan_value, 1, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (scalb, 1, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (scalb, qnan_value, 0, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (scalb, 0, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (scalb, qnan_value, plus_infty, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (scalb, plus_infty, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + TEST_ff_f (scalb, qnan_value, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), TEST_ff_f (scalb, 0.8L, 4, 12.8L), TEST_ff_f (scalb, -0.854375L, 5, -27.34L), @@ -13184,11 +12360,12 @@ scalbln_test (void) static const struct test_f_i_data signbit_test_data[] = { - /* TODO: missing qNaN tests. */ TEST_f_b (signbit, 0, 0, NO_INEXACT_EXCEPTION), TEST_f_b (signbit, minus_zero, 1, NO_INEXACT_EXCEPTION), TEST_f_b (signbit, plus_infty, 0, NO_INEXACT_EXCEPTION), TEST_f_b (signbit, minus_infty, 1, NO_INEXACT_EXCEPTION), + TEST_f_b (signbit, qnan_value, 0, NO_INEXACT_EXCEPTION), + TEST_f_b (signbit, -qnan_value, 1, NO_INEXACT_EXCEPTION), /* signbit (x) != 0 for x < 0. */ TEST_f_b (signbit, -1, 1, NO_INEXACT_EXCEPTION), @@ -13207,43 +12384,11 @@ signbit_test (void) static const struct test_f_f_data sin_test_data[] = { - TEST_f_f (sin, 0, 0), - TEST_f_f (sin, minus_zero, minus_zero), TEST_f_f (sin, plus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (sin, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_f_f (sin, qnan_value, qnan_value, ERRNO_UNCHANGED), - - TEST_f_f (sin, M_PI_6l, 0.5), - TEST_f_f (sin, -M_PI_6l, -0.5), - TEST_f_f (sin, M_PI_2l, 1), - TEST_f_f (sin, -M_PI_2l, -1), - TEST_f_f (sin, 0.75L, 0.681638760023334166733241952779893935L), + TEST_f_f (sin, qnan_value, qnan_value, NO_INEXACT_EXCEPTION|ERRNO_UNCHANGED), - TEST_f_f (sin, 0x1p65, -0.047183876212354673805106149805700013943218L), - TEST_f_f (sin, -0x1p65, 0.047183876212354673805106149805700013943218L), - - TEST_f_f (sin, 0x1.7f4134p+103, -6.6703229329788657073304190650534846045235e-08L), - -#ifdef TEST_DOUBLE - TEST_f_f (sin, 0.80190127184058835, 0.71867942238767868), - TEST_f_f (sin, 2.522464e-1, 2.4957989804940911e-1), -#endif - -#ifndef TEST_FLOAT - TEST_f_f (sin, 1e22, -0.8522008497671888017727058937530293682618L), - TEST_f_f (sin, 0x1p1023, 0.5631277798508840134529434079444683477104L), -#endif - -#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384 - TEST_f_f (sin, 0x1p16383L, 0.3893629985894208126948115852610595405563L), -#endif - - TEST_f_f (sin, 0x1p+120, 3.77820109360752022655548470056922991960587e-01L), - TEST_f_f (sin, 0x1p+127, 6.23385512955870240370428801097126489001833e-01L), - TEST_f_f (sin, 0x1.fffff8p+127, 4.85786063130487339701113680434728152037092e-02L), - TEST_f_f (sin, 0x1.fffffep+127, -5.21876523333658540551505357019806722935726e-01L), - TEST_f_f (sin, 0x1p+50, 4.96396515208940840876821859865411368093356e-01L), - TEST_f_f (sin, 0x1p+28, -9.86198211836975655703110310527108292055548e-01L), + AUTO_TESTS_f_f (sin, tonearest), }; static void @@ -13257,16 +12402,7 @@ sin_test (void) static const struct test_f_f_data sin_tonearest_test_data[] = { - TEST_f_f (sin, 1, 0.8414709848078965066525023216302989996226L), - TEST_f_f (sin, 2, 0.9092974268256816953960198659117448427023L), - TEST_f_f (sin, 3, 0.1411200080598672221007448028081102798469L), - TEST_f_f (sin, 4, -0.7568024953079282513726390945118290941359L), - TEST_f_f (sin, 5, -0.9589242746631384688931544061559939733525L), - TEST_f_f (sin, 6, -0.2794154981989258728115554466118947596280L), - TEST_f_f (sin, 7, 0.6569865987187890903969990915936351779369L), - TEST_f_f (sin, 8, 0.9893582466233817778081235982452886721164L), - TEST_f_f (sin, 9, 0.4121184852417565697562725663524351793439L), - TEST_f_f (sin, 10, -0.5440211108893698134047476618513772816836L), + AUTO_TESTS_f_f (sin, tonearest), }; static void @@ -13280,16 +12416,7 @@ sin_test_tonearest (void) static const struct test_f_f_data sin_towardzero_test_data[] = { - TEST_f_f (sin, 1, 0.8414709848078965066525023216302989996226L), - TEST_f_f (sin, 2, 0.9092974268256816953960198659117448427023L), - TEST_f_f (sin, 3, 0.1411200080598672221007448028081102798469L), - TEST_f_f (sin, 4, -0.7568024953079282513726390945118290941359L), - TEST_f_f (sin, 5, -0.9589242746631384688931544061559939733525L), - TEST_f_f (sin, 6, -0.2794154981989258728115554466118947596280L), - TEST_f_f (sin, 7, 0.6569865987187890903969990915936351779369L), - TEST_f_f (sin, 8, 0.9893582466233817778081235982452886721164L), - TEST_f_f (sin, 9, 0.4121184852417565697562725663524351793439L), - TEST_f_f (sin, 10, -0.5440211108893698134047476618513772816836L), + AUTO_TESTS_f_f (sin, towardzero), }; static void @@ -13303,16 +12430,7 @@ sin_test_towardzero (void) static const struct test_f_f_data sin_downward_test_data[] = { - TEST_f_f (sin, 1, 0.8414709848078965066525023216302989996226L), - TEST_f_f (sin, 2, 0.9092974268256816953960198659117448427023L), - TEST_f_f (sin, 3, 0.1411200080598672221007448028081102798469L), - TEST_f_f (sin, 4, -0.7568024953079282513726390945118290941359L), - TEST_f_f (sin, 5, -0.9589242746631384688931544061559939733525L), - TEST_f_f (sin, 6, -0.2794154981989258728115554466118947596280L), - TEST_f_f (sin, 7, 0.6569865987187890903969990915936351779369L), - TEST_f_f (sin, 8, 0.9893582466233817778081235982452886721164L), - TEST_f_f (sin, 9, 0.4121184852417565697562725663524351793439L), - TEST_f_f (sin, 10, -0.5440211108893698134047476618513772816836L), + AUTO_TESTS_f_f (sin, downward), }; static void @@ -13326,16 +12444,7 @@ sin_test_downward (void) static const struct test_f_f_data sin_upward_test_data[] = { - TEST_f_f (sin, 1, 0.8414709848078965066525023216302989996226L), - TEST_f_f (sin, 2, 0.9092974268256816953960198659117448427023L), - TEST_f_f (sin, 3, 0.1411200080598672221007448028081102798469L), - TEST_f_f (sin, 4, -0.7568024953079282513726390945118290941359L), - TEST_f_f (sin, 5, -0.9589242746631384688931544061559939733525L), - TEST_f_f (sin, 6, -0.2794154981989258728115554466118947596280L), - TEST_f_f (sin, 7, 0.6569865987187890903969990915936351779369L), - TEST_f_f (sin, 8, 0.9893582466233817778081235982452886721164L), - TEST_f_f (sin, 9, 0.4121184852417565697562725663524351793439L), - TEST_f_f (sin, 10, -0.5440211108893698134047476618513772816836L), + AUTO_TESTS_f_f (sin, upward), }; static void @@ -13349,64 +12458,11 @@ sin_test_upward (void) static const struct test_fFF_11_data sincos_test_data[] = { - TEST_fFF_11 (sincos, 0, 0, 1), - - TEST_fFF_11 (sincos, minus_zero, minus_zero, 1), TEST_fFF_11 (sincos, plus_infty, qnan_value, qnan_value, INVALID_EXCEPTION), TEST_fFF_11 (sincos, minus_infty, qnan_value, qnan_value, INVALID_EXCEPTION), - TEST_fFF_11 (sincos, qnan_value, qnan_value, qnan_value), - - /* The value of M_PI_2l is never exactly PI/2, and therefore the - answer is never exactly zero. The answer is equal to the error - in rounding PI/2 for the type used. Thus the answer is unique - to each type. */ -#ifdef TEST_FLOAT - /* 32-bit float. */ - TEST_fFF_11 (sincos, M_PI_2l, 1, -0x1.777a5cp-25L), -#endif -#if defined TEST_DOUBLE || (defined TEST_LDOUBLE && LDBL_MANT_DIG == 53) - /* 64-bit double or 64-bit long double. */ - TEST_fFF_11 (sincos, M_PI_2l, 1, 0x1.1a62633145c07p-54L), -#endif -#if defined TEST_LDOUBLE && LDBL_MANT_DIG == 64 - /* 96-bit long double. */ - TEST_fFF_11 (sincos, M_PI_2l, 1, -0xe.ce675d1fc8f8cbbp-69L), -#endif -#if defined TEST_LDOUBLE && LDBL_MANT_DIG == 106 - /* 128-bit IBM long double. */ - TEST_fFF_11 (sincos, M_PI_2l, 1, 0x1.c1cd129024e088a67cc74020bcp-107L), -#endif -#if defined TEST_LDOUBLE && LDBL_MANT_DIG == 113 - /* 128-bit long double. */ - TEST_fFF_11 (sincos, M_PI_2l, 1, 0x1.cd129024e088a67cc74020bbea64p-115L), -#endif + TEST_fFF_11 (sincos, qnan_value, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), - TEST_fFF_11 (sincos, M_PI_6l, 0.5, 0.86602540378443864676372317075293616L), - TEST_fFF_11 (sincos, M_PI_6l*2.0, 0.86602540378443864676372317075293616L, 0.5), - TEST_fFF_11 (sincos, 0.75L, 0.681638760023334166733241952779893935L, 0.731688868873820886311838753000084544L), - - TEST_fFF_11 (sincos, 0x1p65, -0.047183876212354673805106149805700013943218L, 0.99888622066058013610642172179340364209972L), - TEST_fFF_11 (sincos, -0x1p65, 0.047183876212354673805106149805700013943218L, 0.99888622066058013610642172179340364209972L), - -#ifdef TEST_DOUBLE - TEST_fFF_11 (sincos, 0.80190127184058835, 0.71867942238767868, 0.69534156199418473), -#endif - -#ifndef TEST_FLOAT - TEST_fFF_11 (sincos, 1e22, -0.8522008497671888017727058937530293682618L, 0.5232147853951389454975944733847094921409L), - TEST_fFF_11 (sincos, 0x1p1023, 0.5631277798508840134529434079444683477104L, -0.826369834614147994500785680811743734805L), -#endif - -#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384 - TEST_fFF_11 (sincos, 0x1p16383L, 0.3893629985894208126948115852610595405563L, 0.9210843909921906206874509522505756251609L), -#endif - - TEST_fFF_11 (sincos, 0x1p+120, 3.77820109360752022655548470056922991960587e-01L, -9.25879022854837867303861764107414946730833e-01L), - TEST_fFF_11 (sincos, 0x1p+127, 6.23385512955870240370428801097126489001833e-01L, 7.81914638714960072263910298466369236613162e-01L), - TEST_fFF_11 (sincos, 0x1.fffff8p+127, 4.85786063130487339701113680434728152037092e-02L, 9.98819362551949040703862043664101081064641e-01L), - TEST_fFF_11 (sincos, 0x1.fffffep+127, -5.21876523333658540551505357019806722935726e-01L, 8.53021039830304158051791467692161107353094e-01L), - TEST_fFF_11 (sincos, 0x1p+50, 4.96396515208940840876821859865411368093356e-01L, 8.68095904660550604334592502063501320395739e-01L), - TEST_fFF_11 (sincos, 0x1p+28, -9.86198211836975655703110310527108292055548e-01L, -1.65568979490578758865468278195361551113358e-01L), + AUTO_TESTS_fFF_11 (sincos, tonearest), }; static void @@ -13421,17 +12477,11 @@ sincos_test (void) static const struct test_f_f_data sinh_test_data[] = { - TEST_f_f (sinh, 0, 0), - TEST_f_f (sinh, minus_zero, minus_zero), + TEST_f_f (sinh, plus_infty, plus_infty, NO_TEST_INLINE), + TEST_f_f (sinh, minus_infty, minus_infty, NO_TEST_INLINE), + TEST_f_f (sinh, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), -#ifndef TEST_INLINE - TEST_f_f (sinh, plus_infty, plus_infty), - TEST_f_f (sinh, minus_infty, minus_infty), -#endif - TEST_f_f (sinh, qnan_value, qnan_value), - - TEST_f_f (sinh, 0.75L, 0.822316731935829980703661634446913849L), - TEST_f_f (sinh, 0x8p-32L, 1.86264514923095703232705808926175479e-9L), + AUTO_TESTS_f_f (sinh, tonearest), }; static void @@ -13445,9 +12495,7 @@ sinh_test (void) static const struct test_f_f_data sinh_tonearest_test_data[] = { - TEST_f_f (sinh, 22, 1792456423.065795780701106568345764104225L), - TEST_f_f (sinh, 23, 4872401723.124451299966006944252978187305L), - TEST_f_f (sinh, 24, 13244561064.92173614705070540368454568168L), + AUTO_TESTS_f_f (sinh, tonearest), }; static void @@ -13461,9 +12509,7 @@ sinh_test_tonearest (void) static const struct test_f_f_data sinh_towardzero_test_data[] = { - TEST_f_f (sinh, 22, 1792456423.065795780701106568345764104225L), - TEST_f_f (sinh, 23, 4872401723.124451299966006944252978187305L), - TEST_f_f (sinh, 24, 13244561064.92173614705070540368454568168L), + AUTO_TESTS_f_f (sinh, towardzero), }; static void @@ -13477,9 +12523,7 @@ sinh_test_towardzero (void) static const struct test_f_f_data sinh_downward_test_data[] = { - TEST_f_f (sinh, 22, 1792456423.065795780701106568345764104225L), - TEST_f_f (sinh, 23, 4872401723.124451299966006944252978187305L), - TEST_f_f (sinh, 24, 13244561064.92173614705070540368454568168L), + AUTO_TESTS_f_f (sinh, downward), }; static void @@ -13493,9 +12537,7 @@ sinh_test_downward (void) static const struct test_f_f_data sinh_upward_test_data[] = { - TEST_f_f (sinh, 22, 1792456423.065795780701106568345764104225L), - TEST_f_f (sinh, 23, 4872401723.124451299966006944252978187305L), - TEST_f_f (sinh, 24, 13244561064.92173614705070540368454568168L), + AUTO_TESTS_f_f (sinh, upward), }; static void @@ -13509,24 +12551,15 @@ sinh_test_upward (void) static const struct test_f_f_data sqrt_test_data[] = { - TEST_f_f (sqrt, 0, 0, NO_INEXACT_EXCEPTION), TEST_f_f (sqrt, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), TEST_f_f (sqrt, plus_infty, plus_infty, NO_INEXACT_EXCEPTION), - TEST_f_f (sqrt, minus_zero, minus_zero, NO_INEXACT_EXCEPTION), - /* sqrt (x) == qNaN plus invalid exception for x < 0. */ TEST_f_f (sqrt, -1, qnan_value, NO_INEXACT_EXCEPTION|INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (sqrt, -max_value, qnan_value, NO_INEXACT_EXCEPTION|INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (sqrt, minus_infty, qnan_value, NO_INEXACT_EXCEPTION|INVALID_EXCEPTION|ERRNO_EDOM), - TEST_f_f (sqrt, 2209, 47, NO_INEXACT_EXCEPTION), - TEST_f_f (sqrt, 4, 2, NO_INEXACT_EXCEPTION), - TEST_f_f (sqrt, 2, M_SQRT2l, INEXACT_EXCEPTION), - TEST_f_f (sqrt, 0.25, 0.5, NO_INEXACT_EXCEPTION), - TEST_f_f (sqrt, 6642.25, 81.5, NO_INEXACT_EXCEPTION), - TEST_f_f (sqrt, 15190.5625L, 123.25L, NO_INEXACT_EXCEPTION), - TEST_f_f (sqrt, 0.75L, 0.866025403784438646763723170752936183L, INEXACT_EXCEPTION), + AUTO_TESTS_f_f (sqrt, tonearest), }; static void @@ -13537,67 +12570,98 @@ sqrt_test (void) END; } +static const struct test_f_f_data sqrt_tonearest_test_data[] = + { + TEST_f_f (sqrt, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + TEST_f_f (sqrt, plus_infty, plus_infty, NO_INEXACT_EXCEPTION), + + /* sqrt (x) == qNaN plus invalid exception for x < 0. */ + TEST_f_f (sqrt, -1, qnan_value, NO_INEXACT_EXCEPTION|INVALID_EXCEPTION|ERRNO_EDOM), + TEST_f_f (sqrt, -max_value, qnan_value, NO_INEXACT_EXCEPTION|INVALID_EXCEPTION|ERRNO_EDOM), + TEST_f_f (sqrt, minus_infty, qnan_value, NO_INEXACT_EXCEPTION|INVALID_EXCEPTION|ERRNO_EDOM), + + AUTO_TESTS_f_f (sqrt, tonearest), + }; + +static void +sqrt_test_tonearest (void) +{ + START (sqrt_tonearest); + RUN_TEST_LOOP_f_f (sqrt, sqrt_tonearest_test_data, FE_TONEAREST); + END; +} + +static const struct test_f_f_data sqrt_towardzero_test_data[] = + { + TEST_f_f (sqrt, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + TEST_f_f (sqrt, plus_infty, plus_infty, NO_INEXACT_EXCEPTION), + + /* sqrt (x) == qNaN plus invalid exception for x < 0. */ + TEST_f_f (sqrt, -1, qnan_value, NO_INEXACT_EXCEPTION|INVALID_EXCEPTION|ERRNO_EDOM), + TEST_f_f (sqrt, -max_value, qnan_value, NO_INEXACT_EXCEPTION|INVALID_EXCEPTION|ERRNO_EDOM), + TEST_f_f (sqrt, minus_infty, qnan_value, NO_INEXACT_EXCEPTION|INVALID_EXCEPTION|ERRNO_EDOM), + + AUTO_TESTS_f_f (sqrt, towardzero), + }; + +static void +sqrt_test_towardzero (void) +{ + START (sqrt_towardzero); + RUN_TEST_LOOP_f_f (sqrt, sqrt_towardzero_test_data, FE_TOWARDZERO); + END; +} + +static const struct test_f_f_data sqrt_downward_test_data[] = + { + TEST_f_f (sqrt, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + TEST_f_f (sqrt, plus_infty, plus_infty, NO_INEXACT_EXCEPTION), + + /* sqrt (x) == qNaN plus invalid exception for x < 0. */ + TEST_f_f (sqrt, -1, qnan_value, NO_INEXACT_EXCEPTION|INVALID_EXCEPTION|ERRNO_EDOM), + TEST_f_f (sqrt, -max_value, qnan_value, NO_INEXACT_EXCEPTION|INVALID_EXCEPTION|ERRNO_EDOM), + TEST_f_f (sqrt, minus_infty, qnan_value, NO_INEXACT_EXCEPTION|INVALID_EXCEPTION|ERRNO_EDOM), + + AUTO_TESTS_f_f (sqrt, downward), + }; + +static void +sqrt_test_downward (void) +{ + START (sqrt_downward); + RUN_TEST_LOOP_f_f (sqrt, sqrt_downward_test_data, FE_DOWNWARD); + END; +} + +static const struct test_f_f_data sqrt_upward_test_data[] = + { + TEST_f_f (sqrt, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + TEST_f_f (sqrt, plus_infty, plus_infty, NO_INEXACT_EXCEPTION), + + /* sqrt (x) == qNaN plus invalid exception for x < 0. */ + TEST_f_f (sqrt, -1, qnan_value, NO_INEXACT_EXCEPTION|INVALID_EXCEPTION|ERRNO_EDOM), + TEST_f_f (sqrt, -max_value, qnan_value, NO_INEXACT_EXCEPTION|INVALID_EXCEPTION|ERRNO_EDOM), + TEST_f_f (sqrt, minus_infty, qnan_value, NO_INEXACT_EXCEPTION|INVALID_EXCEPTION|ERRNO_EDOM), + + AUTO_TESTS_f_f (sqrt, upward), + }; + +static void +sqrt_test_upward (void) +{ + START (sqrt_upward); + RUN_TEST_LOOP_f_f (sqrt, sqrt_upward_test_data, FE_UPWARD); + END; +} + static const struct test_f_f_data tan_test_data[] = { - TEST_f_f (tan, 0, 0), - TEST_f_f (tan, minus_zero, minus_zero), TEST_f_f (tan, plus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (tan, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_f_f (tan, qnan_value, qnan_value, ERRNO_UNCHANGED), - - TEST_f_f (tan, M_PI_4l, 1), - TEST_f_f (tan, 0.75L, 0.931596459944072461165202756573936428L), - - TEST_f_f (tan, 0x1p65, -0.0472364872359047946798414219288370688827L), - TEST_f_f (tan, -0x1p65, 0.0472364872359047946798414219288370688827L), - - TEST_f_f (tan, 0xc.9p-4, 0.9995162902115457818029468900654150261381L), - TEST_f_f (tan, 0xc.908p-4, 0.9997603425502441410973077452249560802034L), - TEST_f_f (tan, 0xc.90cp-4, 0.9998823910588060302788513970802357770031L), - TEST_f_f (tan, 0xc.90ep-4, 0.9999434208994808753305784795924711152508L), - TEST_f_f (tan, 0xc.90fp-4, 0.9999739372166156702433266059635165160515L), - TEST_f_f (tan, 0xc.90f8p-4, 0.9999891957244072765118898375645469865764L), - TEST_f_f (tan, 0xc.90fcp-4, 0.9999968250656122402859679132395522927393L), - TEST_f_f (tan, 0xc.90fdp-4, 0.9999987324100083358016192309006353329444L), - TEST_f_f (tan, 0xc.90fd8p-4, 0.9999996860835706212861509874451585282616L), - TEST_f_f (tan, 0xc.90fdap-4, 0.9999999245021033010474530133665235922808L), - TEST_f_f (tan, 0xc.ap-4, 1.0073556597407272165371804539701396631519L), - TEST_f_f (tan, 0xc.98p-4, 1.0034282930863044654045449407466962736255L), - TEST_f_f (tan, 0xc.94p-4, 1.0014703786820082237342656561856877993328L), - TEST_f_f (tan, 0xc.92p-4, 1.0004928571392300571266638743539017593717L), - TEST_f_f (tan, 0xc.91p-4, 1.0000044544650244953647966900221905361131L), - TEST_f_f (tan, 0xc.90fep-4, 1.0000006397580424009014454926842136804016L), - TEST_f_f (tan, 0xc.90fdcp-4, 1.0000001629206928242190327320047489394217L), - TEST_f_f (tan, 0xc.90fdbp-4, 1.0000000437113909572052640953950483705005L), - - TEST_f_f (tan, -0xc.9p-4, -0.9995162902115457818029468900654150261381L), - TEST_f_f (tan, -0xc.908p-4, -0.9997603425502441410973077452249560802034L), - TEST_f_f (tan, -0xc.90cp-4, -0.9998823910588060302788513970802357770031L), - TEST_f_f (tan, -0xc.90ep-4, -0.9999434208994808753305784795924711152508L), - TEST_f_f (tan, -0xc.90fp-4, -0.9999739372166156702433266059635165160515L), - TEST_f_f (tan, -0xc.90f8p-4, -0.9999891957244072765118898375645469865764L), - TEST_f_f (tan, -0xc.90fcp-4, -0.9999968250656122402859679132395522927393L), - TEST_f_f (tan, -0xc.90fdp-4, -0.9999987324100083358016192309006353329444L), - TEST_f_f (tan, -0xc.90fd8p-4, -0.9999996860835706212861509874451585282616L), - TEST_f_f (tan, -0xc.90fdap-4, -0.9999999245021033010474530133665235922808L), - TEST_f_f (tan, -0xc.ap-4, -1.0073556597407272165371804539701396631519L), - TEST_f_f (tan, -0xc.98p-4, -1.0034282930863044654045449407466962736255L), - TEST_f_f (tan, -0xc.94p-4, -1.0014703786820082237342656561856877993328L), - TEST_f_f (tan, -0xc.92p-4, -1.0004928571392300571266638743539017593717L), - TEST_f_f (tan, -0xc.91p-4, -1.0000044544650244953647966900221905361131L), - TEST_f_f (tan, -0xc.90fep-4, -1.0000006397580424009014454926842136804016L), - TEST_f_f (tan, -0xc.90fdcp-4, -1.0000001629206928242190327320047489394217L), - TEST_f_f (tan, -0xc.90fdbp-4, -1.0000000437113909572052640953950483705005L), + TEST_f_f (tan, qnan_value, qnan_value, NO_INEXACT_EXCEPTION|ERRNO_UNCHANGED), -#ifndef TEST_FLOAT - TEST_f_f (tan, 1e22, -1.628778225606898878549375936939548513545L), - TEST_f_f (tan, 0x1p1023, -0.6814476476066215012854144040167365190368L), -#endif - -#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384 - TEST_f_f (tan, 0x1p16383L, 0.422722393732022337800504160054440141575L), -#endif + AUTO_TESTS_f_f (tan, tonearest), }; static void @@ -13611,16 +12675,7 @@ tan_test (void) static const struct test_f_f_data tan_tonearest_test_data[] = { - TEST_f_f (tan, 1, 1.5574077246549022305069748074583601730873L), - TEST_f_f (tan, 2, -2.1850398632615189916433061023136825434320L), - TEST_f_f (tan, 3, -0.1425465430742778052956354105339134932261L), - TEST_f_f (tan, 4, 1.1578212823495775831373424182673239231198L), - TEST_f_f (tan, 5, -3.3805150062465856369827058794473439087096L), - TEST_f_f (tan, 6, -0.2910061913847491570536995888681755428312L), - TEST_f_f (tan, 7, 0.8714479827243187364564508896003135663222L), - TEST_f_f (tan, 8, -6.7997114552203786999252627596086333648814L), - TEST_f_f (tan, 9, -0.4523156594418098405903708757987855343087L), - TEST_f_f (tan, 10, 0.6483608274590866712591249330098086768169L), + AUTO_TESTS_f_f (tan, tonearest), }; static void @@ -13634,16 +12689,7 @@ tan_test_tonearest (void) static const struct test_f_f_data tan_towardzero_test_data[] = { - TEST_f_f (tan, 1, 1.5574077246549022305069748074583601730873L), - TEST_f_f (tan, 2, -2.1850398632615189916433061023136825434320L), - TEST_f_f (tan, 3, -0.1425465430742778052956354105339134932261L), - TEST_f_f (tan, 4, 1.1578212823495775831373424182673239231198L), - TEST_f_f (tan, 5, -3.3805150062465856369827058794473439087096L), - TEST_f_f (tan, 6, -0.2910061913847491570536995888681755428312L), - TEST_f_f (tan, 7, 0.8714479827243187364564508896003135663222L), - TEST_f_f (tan, 8, -6.7997114552203786999252627596086333648814L), - TEST_f_f (tan, 9, -0.4523156594418098405903708757987855343087L), - TEST_f_f (tan, 10, 0.6483608274590866712591249330098086768169L), + AUTO_TESTS_f_f (tan, towardzero), }; static void @@ -13657,16 +12703,7 @@ tan_test_towardzero (void) static const struct test_f_f_data tan_downward_test_data[] = { - TEST_f_f (tan, 1, 1.5574077246549022305069748074583601730873L), - TEST_f_f (tan, 2, -2.1850398632615189916433061023136825434320L), - TEST_f_f (tan, 3, -0.1425465430742778052956354105339134932261L), - TEST_f_f (tan, 4, 1.1578212823495775831373424182673239231198L), - TEST_f_f (tan, 5, -3.3805150062465856369827058794473439087096L), - TEST_f_f (tan, 6, -0.2910061913847491570536995888681755428312L), - TEST_f_f (tan, 7, 0.8714479827243187364564508896003135663222L), - TEST_f_f (tan, 8, -6.7997114552203786999252627596086333648814L), - TEST_f_f (tan, 9, -0.4523156594418098405903708757987855343087L), - TEST_f_f (tan, 10, 0.6483608274590866712591249330098086768169L), + AUTO_TESTS_f_f (tan, downward), }; static void @@ -13680,16 +12717,7 @@ tan_test_downward (void) static const struct test_f_f_data tan_upward_test_data[] = { - TEST_f_f (tan, 1, 1.5574077246549022305069748074583601730873L), - TEST_f_f (tan, 2, -2.1850398632615189916433061023136825434320L), - TEST_f_f (tan, 3, -0.1425465430742778052956354105339134932261L), - TEST_f_f (tan, 4, 1.1578212823495775831373424182673239231198L), - TEST_f_f (tan, 5, -3.3805150062465856369827058794473439087096L), - TEST_f_f (tan, 6, -0.2910061913847491570536995888681755428312L), - TEST_f_f (tan, 7, 0.8714479827243187364564508896003135663222L), - TEST_f_f (tan, 8, -6.7997114552203786999252627596086333648814L), - TEST_f_f (tan, 9, -0.4523156594418098405903708757987855343087L), - TEST_f_f (tan, 10, 0.6483608274590866712591249330098086768169L), + AUTO_TESTS_f_f (tan, upward), }; static void @@ -13703,23 +12731,11 @@ tan_test_upward (void) static const struct test_f_f_data tanh_test_data[] = { - TEST_f_f (tanh, 0, 0), - TEST_f_f (tanh, minus_zero, minus_zero), + TEST_f_f (tanh, plus_infty, 1, NO_TEST_INLINE), + TEST_f_f (tanh, minus_infty, -1, NO_TEST_INLINE), + TEST_f_f (tanh, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), -#ifndef TEST_INLINE - TEST_f_f (tanh, plus_infty, 1), - TEST_f_f (tanh, minus_infty, -1), -#endif - TEST_f_f (tanh, qnan_value, qnan_value), - - TEST_f_f (tanh, 0.75L, 0.635148952387287319214434357312496495L), - TEST_f_f (tanh, -0.75L, -0.635148952387287319214434357312496495L), - - TEST_f_f (tanh, 1.0L, 0.7615941559557648881194582826047935904L), - TEST_f_f (tanh, -1.0L, -0.7615941559557648881194582826047935904L), - - /* 2^-57 */ - TEST_f_f (tanh, 0x1p-57L, 6.938893903907228377647697925567626953125e-18L), + AUTO_TESTS_f_f (tanh, tonearest), }; static void @@ -13740,516 +12756,9 @@ static const struct test_f_f_data tgamma_test_data[] = TEST_f_f (tgamma, -2, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (tgamma, -max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), TEST_f_f (tgamma, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_f_f (tgamma, qnan_value, qnan_value), - - TEST_f_f (tgamma, 0.5, M_SQRT_PIl), - TEST_f_f (tgamma, -0.5, -M_2_SQRT_PIl), - - TEST_f_f (tgamma, 1, 1), - TEST_f_f (tgamma, 2, 1), - TEST_f_f (tgamma, 3, 2), - TEST_f_f (tgamma, 4, 6), - TEST_f_f (tgamma, 5, 24), - TEST_f_f (tgamma, 6, 120), - TEST_f_f (tgamma, 7, 720), - TEST_f_f (tgamma, 8, 5040), - TEST_f_f (tgamma, 9, 40320), - TEST_f_f (tgamma, 10, 362880), - - TEST_f_f (tgamma, 0.7L, 1.29805533264755778568117117915281162L), - TEST_f_f (tgamma, 1.2L, 0.918168742399760610640951655185830401L), - - TEST_f_f (tgamma, 1.5L, 8.8622692545275801364908374167057259139877e-01L), - TEST_f_f (tgamma, 2.5L, 1.3293403881791370204736256125058588870982e+00L), - TEST_f_f (tgamma, 3.5L, 3.3233509704478425511840640312646472177454e+00L), - TEST_f_f (tgamma, 4.5L, 1.1631728396567448929144224109426265262109e+01L), - TEST_f_f (tgamma, 5.5L, 5.2342777784553520181149008492418193679490e+01L), - TEST_f_f (tgamma, 6.5L, 2.8788527781504436099631954670830006523720e+02L), - TEST_f_f (tgamma, 7.5L, 1.8712543057977883464760770536039504240418e+03L), - TEST_f_f (tgamma, 8.5L, 1.4034407293483412598570577902029628180313e+04L), - TEST_f_f (tgamma, 9.5L, 1.1929246199460900708784991216725183953266e+05L), - TEST_f_f (tgamma, -1.5L, 2.3632718012073547030642233111215269103967e+00L), - TEST_f_f (tgamma, -2.5L, -9.4530872048294188122568932444861076415869e-01L), - TEST_f_f (tgamma, -3.5L, 2.7008820585226910892162552127103164690248e-01L), - TEST_f_f (tgamma, -4.5L, -6.0019601300504246427027893615784810422774e-02L), - TEST_f_f (tgamma, -5.5L, 1.0912654781909862986732344293779056440504e-02L), - TEST_f_f (tgamma, -6.5L, -1.6788699664476712287280529682737009908468e-03L), - TEST_f_f (tgamma, -7.5L, 2.2384932885968949716374039576982679877958e-04L), - TEST_f_f (tgamma, -8.5L, -2.6335215159963470254557693619979623385833e-05L), - TEST_f_f (tgamma, -9.5L, 2.7721279115751021320587045915768024616666e-06L), - TEST_f_f (tgamma, 0x1p-24L, 1.6777215422784394050795179874582764575261e+07L), - TEST_f_f (tgamma, -0x1p-24L, -1.6777216577215723853867349114260580375249e+07L), - TEST_f_f (tgamma, 0x1p-53L, 9.0071992547409914227843350984672492007618e+15L), - TEST_f_f (tgamma, -0x1p-53L, -9.0071992547409925772156649015329704137860e+15L), - TEST_f_f (tgamma, 0x1p-64L, 1.8446744073709551615422784335098467139447e+19L), - TEST_f_f (tgamma, -0x1p-64L, -1.8446744073709551616577215664901532860660e+19L), - TEST_f_f (tgamma, 0x1p-106L, 8.1129638414606681695789005144063422784335e+31L), - TEST_f_f (tgamma, -0x1p-106L, -8.1129638414606681695789005144064577215665e+31L), - TEST_f_f (tgamma, 0x1p-113L, 1.0384593717069655257060992658440191422784e+34L), - TEST_f_f (tgamma, -0x1p-113L, -1.0384593717069655257060992658440192577216e+34L), - TEST_f_f (tgamma, 0x1p-127L, 1.7014118346046923173168730371588410572742e+38L), - TEST_f_f (tgamma, -0x1p-127L, -1.7014118346046923173168730371588410572858e+38L), -#ifdef TEST_FLOAT - TEST_f_f (tgamma, 0x1p-128L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (tgamma, -0x1p-128L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (tgamma, 0x1p-149L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (tgamma, -0x1p-149L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -#else - TEST_f_f (tgamma, 0x1p-128L, 3.4028236692093846346337460743176821145542e+38L), - TEST_f_f (tgamma, -0x1p-128L, -3.4028236692093846346337460743176821145658e+38L), - TEST_f_f (tgamma, 0x1p-149L, 7.1362384635297994052914298472474756819137e+44L), - TEST_f_f (tgamma, -0x1p-149L, -7.1362384635297994052914298472474756819137e+44L), -#endif -#ifndef TEST_FLOAT - TEST_f_f (tgamma, 0x1p-1023L, 8.9884656743115795386465259539451236680899e+307L), - TEST_f_f (tgamma, -0x1p-1023L, -8.9884656743115795386465259539451236680899e+307L), -# if !defined TEST_LDOUBLE || LDBL_MAX_EXP <= 1024 - TEST_f_f (tgamma, 0x1p-1024L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (tgamma, -0x1p-1024L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (tgamma, 0x1p-1074L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (tgamma, -0x1p-1074L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# else - TEST_f_f (tgamma, 0x1p-1024L, 1.7976931348623159077293051907890247336180e+308L), - TEST_f_f (tgamma, -0x1p-1024L, -1.7976931348623159077293051907890247336180e+308L), - TEST_f_f (tgamma, 0x1p-1074L, 2.0240225330731061835249534671891730704956e+323L), - TEST_f_f (tgamma, -0x1p-1074L, -2.0240225330731061835249534671891730704956e+323L), -# endif -#endif -#if defined TEST_LDOUBLE && LDBL_MIN_EXP <= -16381 - TEST_f_f (tgamma, 0x1p-16383L, 5.9486574767861588254287966331400356538172e+4931L), - TEST_f_f (tgamma, -0x1p-16383L, -5.9486574767861588254287966331400356538172e+4931L), - TEST_f_f (tgamma, 0x1p-16384L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (tgamma, -0x1p-16384L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (tgamma, 0x1p-16445L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (tgamma, -0x1p-16445L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# if LDBL_MANT_DIG >= 113 - TEST_f_f (tgamma, 0x1p-16494L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), - TEST_f_f (tgamma, -0x1p-16494L, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# endif -#endif - TEST_f_f (tgamma, 0x8.00001p0L, 5.0400096882277802019946778420223050233915e+03L), - TEST_f_f (tgamma, 0x7.fffff8p0L, 5.0399951558933225045148935487583089307135e+03L), - TEST_f_f (tgamma, 0x7.000008p0L, 7.2000064296977505705636258629805621178587e+02L), - TEST_f_f (tgamma, 0x6.fffff8p0L, 7.1999935703082425988147448928288557689866e+02L), - TEST_f_f (tgamma, 0x6.000008p0L, 1.2000009762487825358530770343720418162783e+02L), - TEST_f_f (tgamma, 0x5.fffff8p0L, 1.1999990237520611552119807476573441975106e+02L), - TEST_f_f (tgamma, 0x5.000008p0L, 2.4000017236155647574166073485628713443799e+01L), - TEST_f_f (tgamma, 0x4.fffff8p0L, 2.3999982763857938712639837029547357501709e+01L), - TEST_f_f (tgamma, 0x4.000008p0L, 6.0000035937827461765660468073471093546129e+00L), - TEST_f_f (tgamma, 0x3.fffffcp0L, 5.9999982031095793171233994481968816873643e+00L), - TEST_f_f (tgamma, 0x3.000004p0L, 2.0000004400179308360529417942462250547999e+00L), - TEST_f_f (tgamma, 0x2.fffffcp0L, 1.9999995599822108706107786027549565954046e+00L), - TEST_f_f (tgamma, 0x2.000004p0L, 1.0000001007996638509889062631687945799175e+00L), - TEST_f_f (tgamma, 0x1.fffffep0L, 9.9999994960018563231526611134590489120697e-01L), - TEST_f_f (tgamma, 0x1.000002p0L, 9.9999993119054472483596471908942669644327e-01L), - TEST_f_f (tgamma, 0x0.ffffffp0L, 1.0000000344047381790797322460568297132998e+00L), - TEST_f_f (tgamma, -0x0.ffffffp0L, -1.6777216422784419250710305882992376932423e+07L), - TEST_f_f (tgamma, -0x1.000002p0L, 8.3886075772158332060084424806449513922858e+06L), - TEST_f_f (tgamma, -0x1.fffffep0L, 4.1943044613922792026014320172298377770578e+06L), - TEST_f_f (tgamma, -0x2.000004p0L, -2.0971515386080557574407223895988378776747e+06L), - TEST_f_f (tgamma, -0x2.fffffcp0L, -6.9905087601970247876992248591045142913324e+05L), - TEST_f_f (tgamma, -0x3.000004p0L, 6.9905045731381300146131914617735687322025e+05L), - TEST_f_f (tgamma, -0x3.fffffcp0L, 1.7476272942159602684441970627092458855771e+05L), - TEST_f_f (tgamma, -0x4.000008p0L, -8.7381270578483499672965708923121931082305e+04L), - TEST_f_f (tgamma, -0x4.fffff8p0L, -1.7476280884325863043793087474680780379554e+04L), - TEST_f_f (tgamma, -0x5.000008p0L, 1.7476252449031389167286893378510439443844e+04L), - TEST_f_f (tgamma, -0x5.fffff8p0L, 2.9127137122026653716311560165769071985443e+03L), - TEST_f_f (tgamma, -0x6.000008p0L, -2.9127085100239567622341538102130981196910e+03L), - TEST_f_f (tgamma, -0x6.fffff8p0L, -4.1610198723079349791939054365613377035519e+02L), - TEST_f_f (tgamma, -0x7.000008p0L, 4.1610118737306415004517215226199741948733e+02L), - TEST_f_f (tgamma, -0x7.fffff8p0L, 5.2012751504050764429534086402871289946986e+01L), - TEST_f_f (tgamma, -0x8.00001p0L, -2.6006296115134418896533598545925084576702e+01L), - TEST_f_f (tgamma, -0x9.fffffp0L, 2.8896008370721717567612135720915723136310e-01L), - TEST_f_f (tgamma, -0xa.00001p0L, -2.8895878754728051776830454190076999107021e-01L), - TEST_f_f (tgamma, -0x13.ffffep0L, 2.1550026214525536756224040483579183652119e-13L), - TEST_f_f (tgamma, -0x14.00002p0L, -2.1549777908265594916405421768142757507179e-13L), - TEST_f_f (tgamma, -0x1d.ffffep0L, 1.9765721589464867957912772592816027583176e-27L), - TEST_f_f (tgamma, -0x1e.00002p0L, -1.9765463890341964384070157599286498212650e-27L), - TEST_f_f (tgamma, -0x27.ffffcp0L, 3.2129279441390812141195076945616975790225e-43L, UNDERFLOW_EXCEPTION_FLOAT), - TEST_f_f (tgamma, -0x28.00004p0L, -3.2128372159115252365699015758097981155793e-43L, UNDERFLOW_EXCEPTION_FLOAT), - TEST_f_f (tgamma, -0x28.ffffcp0L, -7.8364103489619817539676737414096652170685e-45L, UNDERFLOW_EXCEPTION_FLOAT), - TEST_f_f (tgamma, -0x29.00004p0L, 7.8361876024016854597745353972619195760515e-45L, UNDERFLOW_EXCEPTION_FLOAT), -#ifdef TEST_FLOAT - TEST_f_f (tgamma, -0x29.ffffcp0L, plus_zero, UNDERFLOW_EXCEPTION_FLOAT), - TEST_f_f (tgamma, -0x2a.00004p0L, minus_zero, UNDERFLOW_EXCEPTION_FLOAT), -#else - TEST_f_f (tgamma, -0x29.ffffcp0L, 1.8658121573125798145204120066590953505132e-46L), - TEST_f_f (tgamma, -0x2a.00004p0L, -1.8657587834931410688246126853566488626385e-46L), -#endif -#ifndef TEST_FLOAT - TEST_f_f (tgamma, 0x8.0000000000008p0L, 5.0400000000000180457125667322294144477136e+03L), - TEST_f_f (tgamma, 0x7.ffffffffffffcp0L, 5.0399999999999909771437166339103165198442e+03L), - TEST_f_f (tgamma, 0x7.0000000000004p0L, 7.2000000000000119762397445457359071259652e+02L), - TEST_f_f (tgamma, 0x6.ffffffffffffcp0L, 7.1999999999999880237602554542848858572672e+02L), - TEST_f_f (tgamma, 0x6.0000000000004p0L, 1.2000000000000018184042734842640022086408e+02L), - TEST_f_f (tgamma, 0x5.ffffffffffffcp0L, 1.1999999999999981815957265157389249327533e+02L), - TEST_f_f (tgamma, 0x5.0000000000004p0L, 2.4000000000000032104829055124673225982803e+01L), - TEST_f_f (tgamma, 0x4.ffffffffffffcp0L, 2.3999999999999967895170944875373910918544e+01L), - TEST_f_f (tgamma, 0x4.0000000000004p0L, 6.0000000000000066939396342309789716341613e+00L), - TEST_f_f (tgamma, 0x3.ffffffffffffep0L, 5.9999999999999966530301828845138185025345e+00L), - TEST_f_f (tgamma, 0x3.0000000000002p0L, 2.0000000000000008195971324717875960213536e+00L), - TEST_f_f (tgamma, 0x2.ffffffffffffep0L, 1.9999999999999991804028675282128956223990e+00L), - TEST_f_f (tgamma, 0x2.0000000000002p0L, 1.0000000000000001877539613108624482361963e+00L), - TEST_f_f (tgamma, 0x1.fffffffffffffp0L, 9.9999999999999990612301934456883679778984e-01L), - TEST_f_f (tgamma, 0x1.0000000000001p0L, 9.9999999999999987183237573039992418700531e-01L), - TEST_f_f (tgamma, 0x0.fffffffffffff8p0L, 1.0000000000000000640838121348000744796665e+00L), - TEST_f_f (tgamma, -0x0.fffffffffffff8p0L, -9.0071992547409924227843350984672961392521e+15L), - TEST_f_f (tgamma, -0x1.0000000000001p0L, 4.5035996273704955772156649015331740980405e+15L), - TEST_f_f (tgamma, -0x1.fffffffffffffp0L, 2.2517998136852484613921675492337776673289e+15L), - TEST_f_f (tgamma, -0x2.0000000000002p0L, -1.1258999068426235386078324507668462444260e+15L), - TEST_f_f (tgamma, -0x2.ffffffffffffep0L, -3.7529996894754154268627807196691509198813e+14L), - TEST_f_f (tgamma, -0x3.0000000000002p0L, 3.7529996894754112398038859470009084971438e+14L), - TEST_f_f (tgamma, -0x3.ffffffffffffep0L, 9.3824992236885396088236184658402406857503e+13L), - TEST_f_f (tgamma, -0x4.0000000000004p0L, -4.6912496118442603911763815341745722862351e+13L), - TEST_f_f (tgamma, -0x4.ffffffffffffcp0L, -9.3824992236885475509805702650262155809819e+12L), - TEST_f_f (tgamma, -0x5.0000000000004p0L, 9.3824992236885191156860964016850034672946e+12L), - TEST_f_f (tgamma, -0x5.ffffffffffffcp0L, 1.5637498706147581566449098589862357835505e+12L), - TEST_f_f (tgamma, -0x6.0000000000004p0L, -1.5637498706147529544662012521330708016396e+12L), - TEST_f_f (tgamma, -0x6.ffffffffffffcp0L, -2.2339283865925119357965832452642909859289e+11L), - TEST_f_f (tgamma, -0x7.0000000000004p0L, 2.2339283865925039372192897706214475877342e+11L), - TEST_f_f (tgamma, -0x7.ffffffffffffcp0L, 2.7924104832406402297655703264222230055898e+10L), - TEST_f_f (tgamma, -0x8.0000000000008p0L, -1.3962052416203121511868106259843527348026e+10L), - TEST_f_f (tgamma, -0x9.ffffffffffff8p0L, 1.5513391573559147700413058496716749249803e+08L), - TEST_f_f (tgamma, -0xa.0000000000008p0L, -1.5513391573559018084419393002828541166901e+08L), - TEST_f_f (tgamma, -0x13.ffffffffffffp0L, 1.1569515572952029402736625857313236848570e-04L), - TEST_f_f (tgamma, -0x14.000000000001p0L, -1.1569515572951781096476686854873801225397e-04L), - TEST_f_f (tgamma, -0x1d.ffffffffffffp0L, 1.0611571800204311628217068863959963842891e-18L), - TEST_f_f (tgamma, -0x1e.000000000001p0L, -1.0611571800204053929094168642022073530425e-18L), - TEST_f_f (tgamma, -0x27.fffffffffffep0L, 1.7249032006742266376460389310340465554361e-34L), - TEST_f_f (tgamma, -0x28.000000000002p0L, -1.7249032006741359094184881234822934593822e-34L), - TEST_f_f (tgamma, -0x28.fffffffffffep0L, -4.2070809772542120404320040128839297118648e-36L), - TEST_f_f (tgamma, -0x29.000000000002p0L, 4.2070809772539892938717205103652583609422e-36L), - TEST_f_f (tgamma, -0x29.fffffffffffep0L, 1.0016859469652887505173040814397197718981e-37L), - TEST_f_f (tgamma, -0x2a.000000000002p0L, -1.0016859469652353766978684241048308120274e-37L), - TEST_f_f (tgamma, -0x31.fffffffffffep0L, 4.6273774273632946947805289899230181990085e-51L), - TEST_f_f (tgamma, -0x32.000000000002p0L, -4.6273774273630367887073532197576655720178e-51L), - TEST_f_f (tgamma, -0x63.fffffffffffcp0L, 7.5400833348840965463348754984345825364294e-145L), - TEST_f_f (tgamma, -0x64.000000000004p0L, -7.5400833348831085791638490135462230991587e-145L), - TEST_f_f (tgamma, -0x95.fffffffffff8p0L, 6.1582369322723207086020016423767264008839e-250L), - TEST_f_f (tgamma, -0x96.000000000008p0L, -6.1582369322705655439003240743176243138734e-250L), - TEST_f_f (tgamma, -0xb4.fffffffffff8p0L, -9.6760879059917574597728750098636253931457e-319L, UNDERFLOW_EXCEPTION_DOUBLE), - TEST_f_f (tgamma, -0xb5.000000000008p0L, 9.6760879059888966544677044221698800670218e-319L, UNDERFLOW_EXCEPTION_DOUBLE), - TEST_f_f (tgamma, -0xb5.fffffffffff8p0L, 5.3165318164789884455066481673086605454904e-321L, UNDERFLOW_EXCEPTION_DOUBLE), - TEST_f_f (tgamma, -0xb6.000000000008p0L, -5.3165318164774149139661976747137185876909e-321L, UNDERFLOW_EXCEPTION_DOUBLE), - TEST_f_f (tgamma, -0xb6.fffffffffff8p0L, -2.9052086428846935908287469917922960610289e-323L, UNDERFLOW_EXCEPTION_DOUBLE), - TEST_f_f (tgamma, -0xb7.000000000008p0L, 2.9052086428838328351126988236541632950925e-323L, UNDERFLOW_EXCEPTION_DOUBLE), -# if !defined TEST_LDOUBLE || LDBL_MAX_EXP <= 1024 - TEST_f_f (tgamma, -0xb7.fffffffffff8p0L, plus_zero, UNDERFLOW_EXCEPTION_DOUBLE), - TEST_f_f (tgamma, -0xb8.000000000008p0L, minus_zero, UNDERFLOW_EXCEPTION_DOUBLE), -# else - TEST_f_f (tgamma, -0xb7.fffffffffff8p0L, 1.5789177406982032823826953250736039527543e-325L), - TEST_f_f (tgamma, -0xb8.000000000008p0L, -1.5789177406977349925854817486109369828857e-325L), -# endif -#endif -#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106 - TEST_f_f (tgamma, 0x8.00000000000000000000000004p0L, 5.0400000000000000000000000000020034765587e+03L), - TEST_f_f (tgamma, 0x7.fffffffffffffffffffffffffep0L, 5.0399999999999999999999999999989982617206e+03L), - TEST_f_f (tgamma, 0x7.00000000000000000000000002p0L, 7.2000000000000000000000000000013296297113e+02L), - TEST_f_f (tgamma, 0x6.fffffffffffffffffffffffffep0L, 7.1999999999999999999999999999986703702887e+02L), - TEST_f_f (tgamma, 0x6.00000000000000000000000002p0L, 1.2000000000000000000000000000002018834292e+02L), - TEST_f_f (tgamma, 0x5.fffffffffffffffffffffffffep0L, 1.1999999999999999999999999999997981165708e+02L), - TEST_f_f (tgamma, 0x5.00000000000000000000000002p0L, 2.4000000000000000000000000000003564352042e+01L), - TEST_f_f (tgamma, 0x4.fffffffffffffffffffffffffep0L, 2.3999999999999999999999999999996435647958e+01L), - TEST_f_f (tgamma, 0x4.00000000000000000000000002p0L, 6.0000000000000000000000000000007431765907e+00L), - TEST_f_f (tgamma, 0x3.ffffffffffffffffffffffffffp0L, 5.9999999999999999999999999999996284117046e+00L), - TEST_f_f (tgamma, 0x3.00000000000000000000000001p0L, 2.0000000000000000000000000000000909935607e+00L), - TEST_f_f (tgamma, 0x2.ffffffffffffffffffffffffffp0L, 1.9999999999999999999999999999999090064393e+00L), - TEST_f_f (tgamma, 0x2.00000000000000000000000001p0L, 1.0000000000000000000000000000000208448771e+00L), - TEST_f_f (tgamma, 0x1.ffffffffffffffffffffffffff8p0L, 9.9999999999999999999999999999998957756146e-01L), - TEST_f_f (tgamma, 0x1.000000000000000000000000008p0L, 9.9999999999999999999999999999998577053525e-01L), - TEST_f_f (tgamma, 0x0.ffffffffffffffffffffffffffcp0L, 1.0000000000000000000000000000000071147324e+00L), - TEST_f_f (tgamma, -0x0.ffffffffffffffffffffffffffcp0L, -8.1129638414606681695789005144064422784335e+31L), - TEST_f_f (tgamma, -0x1.000000000000000000000000008p0L, 4.0564819207303340847894502572031577215665e+31L), - TEST_f_f (tgamma, -0x1.ffffffffffffffffffffffffff8p0L, 2.0282409603651670423947251286016461392168e+31L), - TEST_f_f (tgamma, -0x2.00000000000000000000000001p0L, -1.0141204801825835211973625643007538607832e+31L), - TEST_f_f (tgamma, -0x2.ffffffffffffffffffffffffffp0L, -3.3804016006086117373245418810028760196114e+30L), - TEST_f_f (tgamma, -0x3.00000000000000000000000001p0L, 3.3804016006086117373245418810024573137219e+30L), - TEST_f_f (tgamma, -0x3.ffffffffffffffffffffffffffp0L, 8.4510040015215293433113547025072942156952e+29L), - TEST_f_f (tgamma, -0x4.00000000000000000000000002p0L, -4.2255020007607646716556773512527057843048e+29L), - TEST_f_f (tgamma, -0x4.fffffffffffffffffffffffffep0L, -8.4510040015215293433113547025080884313904e+28L), - TEST_f_f (tgamma, -0x5.00000000000000000000000002p0L, 8.4510040015215293433113547025052449019430e+28L), - TEST_f_f (tgamma, -0x5.fffffffffffffffffffffffffep0L, 1.4085006669202548905518924504180378867132e+28L), - TEST_f_f (tgamma, -0x6.00000000000000000000000002p0L, -1.4085006669202548905518924504175176688423e+28L), - TEST_f_f (tgamma, -0x6.fffffffffffffffffffffffffep0L, -2.0121438098860784150741320720257967542615e+27L), - TEST_f_f (tgamma, -0x7.00000000000000000000000002p0L, 2.0121438098860784150741320720249968965322e+27L), - TEST_f_f (tgamma, -0x7.fffffffffffffffffffffffffep0L, 2.5151797623575980188426650900322769448110e+26L), - TEST_f_f (tgamma, -0x8.00000000000000000000000004p0L, -1.2575898811787990094213325450153421028080e+26L), - TEST_f_f (tgamma, -0x9.fffffffffffffffffffffffffcp0L, 1.3973220901986655660237028277960625420495e+24L), - TEST_f_f (tgamma, -0xa.00000000000000000000000004p0L, -1.3973220901986655660237028277947663821128e+24L), - TEST_f_f (tgamma, -0x13.fffffffffffffffffffffffff8p0L, 1.0420893204640670202556853709074896123293e+12L), - TEST_f_f (tgamma, -0x14.00000000000000000000000008p0L, -1.0420893204640670202556853709050065497299e+12L), - TEST_f_f (tgamma, -0x1d.fffffffffffffffffffffffff8p0L, 9.5580541610429641982963434151488827190079e-03L), - TEST_f_f (tgamma, -0x1e.00000000000000000000000008p0L, -9.5580541610429641982963434151231128067179e-03L), - TEST_f_f (tgamma, -0x27.fffffffffffffffffffffffffp0L, 1.5536546823612837336494536911280147806523e-18L), - TEST_f_f (tgamma, -0x28.0000000000000000000000001p0L, -1.5536546823612837336494536911189419578973e-18L), - TEST_f_f (tgamma, -0x28.fffffffffffffffffffffffffp0L, -3.7894016642958139845108626612879138384405e-20L), - TEST_f_f (tgamma, -0x29.0000000000000000000000001p0L, 3.7894016642958139845108626612656391824122e-20L), - TEST_f_f (tgamma, -0x29.fffffffffffffffffffffffffp0L, 9.0223849149900332964544349078285357440663e-22L), - TEST_f_f (tgamma, -0x2a.0000000000000000000000001p0L, -9.0223849149900332964544349077751619246306e-22L), - TEST_f_f (tgamma, -0x31.fffffffffffffffffffffffffp0L, 4.1679710515150795310771069868348482819424e-35L), - TEST_f_f (tgamma, -0x32.0000000000000000000000001p0L, -4.1679710515150795310771069868090576746248e-35L), - TEST_f_f (tgamma, -0x63.ffffffffffffffffffffffffep0L, 6.7915032994648558610510614163560656864280e-129L), - TEST_f_f (tgamma, -0x64.0000000000000000000000002p0L, -6.7915032994648558610510614162572689693253e-129L), - TEST_f_f (tgamma, -0x95.ffffffffffffffffffffffffcp0L, 5.5468467106873795353190582463444660395353e-234L), - TEST_f_f (tgamma, -0x96.0000000000000000000000004p0L, -5.5468467106873795353190582461689495693675e-234L), - TEST_f_f (tgamma, -0xb4.ffffffffffffffffffffffffcp0L, -8.7154451775644399729745472278589884205029e-303L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM), - TEST_f_f (tgamma, -0xb5.0000000000000000000000004p0L, 8.7154451775644399729745472275729078899858e-303L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM), - TEST_f_f (tgamma, -0xb5.ffffffffffffffffffffffffcp0L, 4.7887061415189230620739270482742524864974e-305L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM), - TEST_f_f (tgamma, -0xb6.0000000000000000000000004p0L, -4.7887061415189230620739270481168993324524e-305L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM), - TEST_f_f (tgamma, -0xb6.ffffffffffffffffffffffffcp0L, -2.6167793123054224382917634143575601407067e-307L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM), - TEST_f_f (tgamma, -0xb7.0000000000000000000000004p0L, 2.6167793123054224382917634142714845691019e-307L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM), - TEST_f_f (tgamma, -0xb7.ffffffffffffffffffffffffcp0L, 1.4221626697312078468976975078030462044826e-309L, UNDERFLOW_EXCEPTION_DOUBLE), - TEST_f_f (tgamma, -0xb8.0000000000000000000000004p0L, -1.4221626697312078468976975077562172247612e-309L, UNDERFLOW_EXCEPTION_DOUBLE), - TEST_f_f (tgamma, -0xbb.ffffffffffffffffffffffffcp0L, 1.1756150745511026776007338998283058108448e-318L, UNDERFLOW_EXCEPTION_DOUBLE), - TEST_f_f (tgamma, -0xbc.0000000000000000000000004p0L, -1.1756150745511026776007338997894360215107e-318L, UNDERFLOW_EXCEPTION_DOUBLE), - TEST_f_f (tgamma, -0xbc.ffffffffffffffffffffffffcp0L, -6.2201855796354639026493857133773832713743e-321L, UNDERFLOW_EXCEPTION_DOUBLE), - TEST_f_f (tgamma, -0xbd.0000000000000000000000004p0L, 6.2201855796354639026493857131715153125175e-321L, UNDERFLOW_EXCEPTION_DOUBLE), - TEST_f_f (tgamma, -0xbd.ffffffffffffffffffffffffcp0L, 3.2737818840186652119207293228302560914295e-323L, UNDERFLOW_EXCEPTION_DOUBLE), - TEST_f_f (tgamma, -0xbe.0000000000000000000000004p0L, -3.2737818840186652119207293227217957948294e-323L, UNDERFLOW_EXCEPTION_DOUBLE), -# if LDBL_MAX_EXP <= 1024 - TEST_f_f (tgamma, -0xbe.ffffffffffffffffffffffffcp0L, minus_zero, UNDERFLOW_EXCEPTION_DOUBLE), - TEST_f_f (tgamma, -0xbf.0000000000000000000000004p0L, plus_zero, UNDERFLOW_EXCEPTION_DOUBLE), -# else - TEST_f_f (tgamma, -0xbe.ffffffffffffffffffffffffcp0L, -1.7140219288055838805867692789687487834686e-325L), - TEST_f_f (tgamma, -0xbf.0000000000000000000000004p0L, 1.7140219288055838805867692789119066543632e-325L), -# endif -#endif -#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384 - TEST_f_f (tgamma, 0x8.000000000000001p0L, 5.0400000000000000088113830892247051102283e+03L), - TEST_f_f (tgamma, 0x7.fffffffffffffff8p0L, 5.0399999999999999955943084553876474508520e+03L), - TEST_f_f (tgamma, 0x7.0000000000000008p0L, 7.2000000000000000058477733127664675369681e+02L), - TEST_f_f (tgamma, 0x6.fffffffffffffff8p0L, 7.1999999999999999941522266872335324679893e+02L), - TEST_f_f (tgamma, 0x6.0000000000000008p0L, 1.2000000000000000008878927116622375680433e+02L), - TEST_f_f (tgamma, 0x5.fffffffffffffff8p0L, 1.1999999999999999991121072883377624326546e+02L), - TEST_f_f (tgamma, 0x5.0000000000000008p0L, 2.4000000000000000015676186062072582846211e+01L), - TEST_f_f (tgamma, 0x4.fffffffffffffff8p0L, 2.3999999999999999984323813937927417165027e+01L), - TEST_f_f (tgamma, 0x4.0000000000000008p0L, 6.0000000000000000032685252120268430507939e+00L), - TEST_f_f (tgamma, 0x3.fffffffffffffffcp0L, 5.9999999999999999983657373939865784753909e+00L), - TEST_f_f (tgamma, 0x3.0000000000000004p0L, 2.0000000000000000004001939123397399171482e+00L), - TEST_f_f (tgamma, 0x2.fffffffffffffffcp0L, 1.9999999999999999995998060876602600829690e+00L), - TEST_f_f (tgamma, 0x2.0000000000000004p0L, 1.0000000000000000000916767389213195151634e+00L), - TEST_f_f (tgamma, 0x1.fffffffffffffffep0L, 9.9999999999999999995416163053934024243282e-01L), - TEST_f_f (tgamma, 0x1.0000000000000002p0L, 9.9999999999999999993741815221210931418291e-01L), - TEST_f_f (tgamma, 0x0.ffffffffffffffffp0L, 1.0000000000000000000312909238939453429173e+00L), - TEST_f_f (tgamma, -0x0.ffffffffffffffffp0L, -1.8446744073709551616422784335098467139470e+19L), - TEST_f_f (tgamma, -0x1.0000000000000002p0L, 9.2233720368547758075772156649015328607596e+18L), - TEST_f_f (tgamma, -0x1.fffffffffffffffep0L, 4.6116860184273879044613921675492335697983e+18L), - TEST_f_f (tgamma, -0x2.0000000000000004p0L, -2.3058430092136939515386078324507664305064e+18L), - TEST_f_f (tgamma, -0x2.fffffffffffffffcp0L, -7.6861433640456465087601961140530007887063e+17L), - TEST_f_f (tgamma, -0x3.0000000000000004p0L, 7.6861433640456465045731372192803325462836e+17L), - TEST_f_f (tgamma, -0x3.fffffffffffffffcp0L, 1.9215358410114116272942156951799168638773e+17L), - TEST_f_f (tgamma, -0x4.0000000000000008p0L, -9.6076792050570581270578430482008313684602e+16L), - TEST_f_f (tgamma, -0x4.fffffffffffffff8p0L, -1.9215358410114116280884313903598337283601e+16L), - TEST_f_f (tgamma, -0x5.0000000000000008p0L, 1.9215358410114116252449019429734996071487e+16L), - TEST_f_f (tgamma, -0x5.fffffffffffffff8p0L, 3.2025597350190193803788671320812043622696e+15L), - TEST_f_f (tgamma, -0x6.0000000000000008p0L, -3.2025597350190193751766884234743511972877e+15L), - TEST_f_f (tgamma, -0x6.fffffffffffffff8p0L, -4.5750853357414562579675426149912896787735e+14L), - TEST_f_f (tgamma, -0x7.0000000000000008p0L, 4.5750853357414562499689653215166468353753e+14L), - TEST_f_f (tgamma, -0x7.fffffffffffffff8p0L, 5.7188566696768203227694481100089533685959e+13L), - TEST_f_f (tgamma, -0x8.000000000000001p0L, -2.8594283348384101534210280804672371201060e+13L), - TEST_f_f (tgamma, -0x9.fffffffffffffffp0L, 3.1771425942649001828476427167843945971988e+11L), - TEST_f_f (tgamma, -0xa.000000000000001p0L, -3.1771425942649001698860433502350057763905e+11L), - TEST_f_f (tgamma, -0x13.ffffffffffffffep0L, 2.3694367893405502075347562184931828448654e-01L), - TEST_f_f (tgamma, -0x14.000000000000002p0L, -2.3694367893405501827041302245929389013031e-01L), - TEST_f_f (tgamma, -0x1d.ffffffffffffffep0L, 2.1732499046818166459536268654187775086902e-15L), - TEST_f_f (tgamma, -0x1e.000000000000002p0L, -2.1732499046818166201837145753965837196590e-15L), - TEST_f_f (tgamma, -0x27.ffffffffffffffcp0L, 3.5326017549807232935581894777156474496719e-31L), - TEST_f_f (tgamma, -0x28.000000000000004p0L, -3.5326017549807232028299619269080956965758e-31L), - TEST_f_f (tgamma, -0x28.ffffffffffffffcp0L, -8.6161018414163982777002940498289948893044e-33L), - TEST_f_f (tgamma, -0x29.000000000000004p0L, 8.6161018414163980549537337663264762179535e-33L), - TEST_f_f (tgamma, -0x29.ffffffffffffffcp0L, 2.0514528193848567329552463626090806737389e-34L), - TEST_f_f (tgamma, -0x2a.000000000000004p0L, -2.0514528193848566795814269269517457847791e-34L), - TEST_f_f (tgamma, -0x31.ffffffffffffffcp0L, 9.4768689712397635680446279661359728835046e-48L), - TEST_f_f (tgamma, -0x32.000000000000004p0L, -9.4768689712397633101385547903658075308777e-48L), - TEST_f_f (tgamma, -0x63.ffffffffffffff8p0L, 1.5442090669841618542494279375256856430049e-141L), - TEST_f_f (tgamma, -0x64.000000000000008p0L, -1.5442090669841617554527108348771968070612e-141L), - TEST_f_f (tgamma, -0x95.ffffffffffffffp0L, 1.2612069237291916400144732227892704713839e-246L), - TEST_f_f (tgamma, -0x96.00000000000001p0L, -1.2612069237291914644980030550324645611752e-246L), - TEST_f_f (tgamma, -0xb4.ffffffffffffffp0L, -1.9816628031468191243385005680879281767694e-315L), - TEST_f_f (tgamma, -0xb5.00000000000001p0L, 1.9816628031468188382579700510291588022368e-315L), - TEST_f_f (tgamma, -0xb5.ffffffffffffffp0L, 1.0888257160147357826865964233809723297472e-317L), - TEST_f_f (tgamma, -0xb6.00000000000001p0L, -1.0888257160147356253334423783317128355514e-317L), - TEST_f_f (tgamma, -0xb6.ffffffffffffffp0L, -5.9498673006269714905418984659220067091260e-320L), - TEST_f_f (tgamma, -0xb7.00000000000001p0L, 5.9498673006269706297861824177538685763601e-320L), - TEST_f_f (tgamma, -0xb7.ffffffffffffffp0L, 3.2336235329494410277123118903958061569834e-322L), - TEST_f_f (tgamma, -0xb8.00000000000001p0L, -3.2336235329494405594225146768193434900135e-322L), - TEST_f_f (tgamma, -0xbb.ffffffffffffffp0L, 2.6730392040715350119087465463119939092815e-331L), - TEST_f_f (tgamma, -0xbc.00000000000001p0L, -2.6730392040715346232108532050343031951651e-331L), - TEST_f_f (tgamma, -0xbc.ffffffffffffffp0L, -1.4143064571807063556111222197839950086445e-333L), - TEST_f_f (tgamma, -0xbd.00000000000001p0L, 1.4143064571807061497431633629389135273431e-333L), - TEST_f_f (tgamma, -0xbd.ffffffffffffffp0L, 7.4437181956879281879706555863416819210399e-336L), - TEST_f_f (tgamma, -0xbe.00000000000001p0L, -7.4437181956879271033676895858841525581153e-336L), - TEST_f_f (tgamma, -0xbe.ffffffffffffffp0L, -3.8972346574282346536709453101948570578636e-338L), - TEST_f_f (tgamma, -0xbf.00000000000001p0L, 3.8972346574282340852496542564155275274974e-338L), - TEST_f_f (tgamma, -0xf9.ffffffffffffffp0L, 2.2289142548411573883553287678043297937797e-476L), - TEST_f_f (tgamma, -0xfa.00000000000001p0L, -2.2289142548411570466476165308364665814265e-476L), - TEST_f_f (tgamma, -0x1f3.fffffffffffffep0L, 2.9528489142763141594943668922610562530068e-1118L), - TEST_f_f (tgamma, -0x1f4.00000000000002p0L, -2.9528489142763131406565394149878256133744e-1118L), - TEST_f_f (tgamma, -0x2ed.fffffffffffffcp0L, 6.9801511765871818502006905472380418430269e-1817L), - TEST_f_f (tgamma, -0x2ee.00000000000004p0L, -6.9801511765871767194421856376592926002995e-1817L), - TEST_f_f (tgamma, -0x3e7.fffffffffffffcp0L, 4.4768809295877296071892611539415773519036e-2552L), - TEST_f_f (tgamma, -0x3e8.00000000000004p0L, -4.4768809295877261735541135972060089530309e-2552L), - TEST_f_f (tgamma, -0x4e1.fffffffffffff8p0L, 5.4651488569236507565341414077911790252381e-3315L), - TEST_f_f (tgamma, -0x4e2.00000000000008p0L, -5.4651488569236421026544487194247355967789e-3315L), - TEST_f_f (tgamma, -0x5db.fffffffffffff8p0L, 1.8718211510339187689122114747834510481993e-4099L), - TEST_f_f (tgamma, -0x5dc.00000000000008p0L, -1.8718211510339157291960718369454861898499e-4099L), - TEST_f_f (tgamma, -0x6d5.fffffffffffff8p0L, 4.2925786447266492555651378780094011518063e-4902L), - TEST_f_f (tgamma, -0x6d6.00000000000008p0L, -4.2925786447266421378134368786479937285900e-4902L), - TEST_f_f (tgamma, -0x6e2.fffffffffffff8p0L, -2.8229173528168668283609231628661510187536e-4944L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6e3.00000000000008p0L, 2.8229173528168621428945467532322397890424e-4944L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6e3.fffffffffffff8p0L, 1.6002932839097884515524894602387278842659e-4947L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6e4.00000000000008p0L, -1.6002932839097857951909742110188634438017e-4947L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6e4.fffffffffffff8p0L, -9.0668174725767051085164382743343408095146e-4951L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6e5.00000000000008p0L, 9.0668174725766900571689083050287838090189e-4951L, UNDERFLOW_EXCEPTION), -# if LDBL_MANT_DIG <= 64 - TEST_f_f (tgamma, -0x6e5.fffffffffffff8p0L, plus_zero, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6e6.00000000000008p0L, minus_zero, UNDERFLOW_EXCEPTION), -# else - TEST_f_f (tgamma, -0x6e5.fffffffffffff8p0L, 5.1340982290921319983501912122292601780326e-4954L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6e6.00000000000008p0L, -5.1340982290921234748578193083614111497314e-4954L, UNDERFLOW_EXCEPTION), -# endif -# if LDBL_MANT_DIG >= 113 - TEST_f_f (tgamma, 0x8.0000000000000000000000000008p0L, 5.0400000000000000000000000000000156521606e+03L), - TEST_f_f (tgamma, 0x7.fffffffffffffffffffffffffffcp0L, 5.0399999999999999999999999999999921739197e+03L), - TEST_f_f (tgamma, 0x7.0000000000000000000000000004p0L, 7.2000000000000000000000000000000103877321e+02L), - TEST_f_f (tgamma, 0x6.fffffffffffffffffffffffffffcp0L, 7.1999999999999999999999999999999896122679e+02L), - TEST_f_f (tgamma, 0x6.0000000000000000000000000004p0L, 1.2000000000000000000000000000000015772143e+02L), - TEST_f_f (tgamma, 0x5.fffffffffffffffffffffffffffcp0L, 1.1999999999999999999999999999999984227857e+02L), - TEST_f_f (tgamma, 0x5.0000000000000000000000000004p0L, 2.4000000000000000000000000000000027846500e+01L), - TEST_f_f (tgamma, 0x4.fffffffffffffffffffffffffffcp0L, 2.3999999999999999999999999999999972153500e+01L), - TEST_f_f (tgamma, 0x4.0000000000000000000000000004p0L, 6.0000000000000000000000000000000058060671e+00L), - TEST_f_f (tgamma, 0x3.fffffffffffffffffffffffffffep0L, 5.9999999999999999999999999999999970969664e+00L), - TEST_f_f (tgamma, 0x3.0000000000000000000000000002p0L, 2.0000000000000000000000000000000007108872e+00L), - TEST_f_f (tgamma, 0x2.fffffffffffffffffffffffffffep0L, 1.9999999999999999999999999999999992891128e+00L), - TEST_f_f (tgamma, 0x2.0000000000000000000000000002p0L, 1.0000000000000000000000000000000001628506e+00L), - TEST_f_f (tgamma, 0x1.ffffffffffffffffffffffffffffp0L, 9.9999999999999999999999999999999991857470e-01L), - TEST_f_f (tgamma, 0x1.0000000000000000000000000001p0L, 9.9999999999999999999999999999999988883231e-01L), - TEST_f_f (tgamma, 0x0.ffffffffffffffffffffffffffff8p0L, 1.0000000000000000000000000000000000555838e+00L), - TEST_f_f (tgamma, -0x0.ffffffffffffffffffffffffffff8p0L, -1.0384593717069655257060992658440192422784e+34L), - TEST_f_f (tgamma, -0x1.0000000000000000000000000001p0L, 5.1922968585348276285304963292200955772157e+33L), - TEST_f_f (tgamma, -0x1.ffffffffffffffffffffffffffffp0L, 2.5961484292674138142652481646100484613922e+33L), - TEST_f_f (tgamma, -0x2.0000000000000000000000000002p0L, -1.2980742146337069071326240823050235386078e+33L), - TEST_f_f (tgamma, -0x2.fffffffffffffffffffffffffffep0L, -4.3269140487790230237754136076834154268628e+32L), - TEST_f_f (tgamma, -0x3.0000000000000000000000000002p0L, 4.3269140487790230237754136076834112398039e+32L), - TEST_f_f (tgamma, -0x3.fffffffffffffffffffffffffffep0L, 1.0817285121947557559438534019208539608824e+32L), - TEST_f_f (tgamma, -0x4.0000000000000000000000000004p0L, -5.4086425609737787797192670096042603911764e+31L), - TEST_f_f (tgamma, -0x4.fffffffffffffffffffffffffffcp0L, -1.0817285121947557559438534019208547550981e+31L), - TEST_f_f (tgamma, -0x5.0000000000000000000000000004p0L, 1.0817285121947557559438534019208519115686e+31L), - TEST_f_f (tgamma, -0x5.fffffffffffffffffffffffffffcp0L, 1.8028808536579262599064223365347581566449e+30L), - TEST_f_f (tgamma, -0x6.0000000000000000000000000004p0L, -1.8028808536579262599064223365347529544662e+30L), - TEST_f_f (tgamma, -0x6.fffffffffffffffffffffffffffcp0L, -2.5755440766541803712948890521925119357966e+29L), - TEST_f_f (tgamma, -0x7.0000000000000000000000000004p0L, 2.5755440766541803712948890521925039372193e+29L), - TEST_f_f (tgamma, -0x7.fffffffffffffffffffffffffffcp0L, 3.2194300958177254641186113152406402297656e+28L), - TEST_f_f (tgamma, -0x8.0000000000000000000000000008p0L, -1.6097150479088627320593056576203121511868e+28L), - TEST_f_f (tgamma, -0x9.fffffffffffffffffffffffffff8p0L, 1.7885722754542919245103396195781369922635e+26L), - TEST_f_f (tgamma, -0xa.0000000000000000000000000008p0L, -1.7885722754542919245103396195781240306642e+26L), - TEST_f_f (tgamma, -0x13.fffffffffffffffffffffffffffp0L, 1.3338743301940057859272772747600099590309e+14L), - TEST_f_f (tgamma, -0x14.000000000000000000000000001p0L, -1.3338743301940057859272772747599851284049e+14L), - TEST_f_f (tgamma, -0x1d.fffffffffffffffffffffffffffp0L, 1.2234309326134994173819319571374205986026e+00L), - TEST_f_f (tgamma, -0x1e.000000000000000000000000001p0L, -1.2234309326134994173819319571373948286903e+00L), - TEST_f_f (tgamma, -0x27.ffffffffffffffffffffffffffep0L, 1.9886779934224431790713007246380976767855e-16L), - TEST_f_f (tgamma, -0x28.000000000000000000000000002p0L, -1.9886779934224431790713007246380069485580e-16L), - TEST_f_f (tgamma, -0x28.ffffffffffffffffffffffffffep0L, -4.8504341302986419001739042064343853066259e-18L), - TEST_f_f (tgamma, -0x29.000000000000000000000000002p0L, 4.8504341302986419001739042064341625600656e-18L), - TEST_f_f (tgamma, -0x29.ffffffffffffffffffffffffffep0L, 1.1548652691187242619461676681986633377063e-19L), - TEST_f_f (tgamma, -0x2a.000000000000000000000000002p0L, -1.1548652691187242619461676681986099638869e-19L), - TEST_f_f (tgamma, -0x31.ffffffffffffffffffffffffffep0L, 5.3350029459393017997786969431322287652396e-33L), - TEST_f_f (tgamma, -0x32.000000000000000000000000002p0L, -5.3350029459393017997786969431319708591664e-33L), - TEST_f_f (tgamma, -0x63.ffffffffffffffffffffffffffcp0L, 8.6931242233150155021453586128730281632676e-127L), - TEST_f_f (tgamma, -0x64.000000000000000000000000004p0L, -8.6931242233150155021453586128720401960966e-127L), - TEST_f_f (tgamma, -0x95.ffffffffffffffffffffffffff8p0L, 7.0999637896798458052083945552094635720486e-232L), - TEST_f_f (tgamma, -0x96.000000000000000000000000008p0L, -7.0999637896798458052083945552077084073470e-232L), - TEST_f_f (tgamma, -0xb4.ffffffffffffffffffffffffff8p0L, -1.1155769827282483165407420451477844041365e-300L), - TEST_f_f (tgamma, -0xb5.000000000000000000000000008p0L, 1.1155769827282483165407420451474983236060e-300L), - TEST_f_f (tgamma, -0xb5.ffffffffffffffffffffffffff8p0L, 6.1295438611442215194546266216911239298981e-303L), - TEST_f_f (tgamma, -0xb6.000000000000000000000000008p0L, -6.1295438611442215194546266216895503983577e-303L), - TEST_f_f (tgamma, -0xb6.ffffffffffffffffffffffffff8p0L, -3.3494775197509407210134571703230189921356e-305L), - TEST_f_f (tgamma, -0xb7.000000000000000000000000008p0L, 3.3494775197509407210134571703221582364195e-305L), - TEST_f_f (tgamma, -0xb7.ffffffffffffffffffffffffff8p0L, 1.8203682172559460440290528099581627396147e-307L), - TEST_f_f (tgamma, -0xb8.000000000000000000000000008p0L, -1.8203682172559460440290528099576944498174e-307L), - TEST_f_f (tgamma, -0xbb.ffffffffffffffffffffffffff8p0L, 1.5047872954254114273289393917555491216542e-316L), - TEST_f_f (tgamma, -0xbc.000000000000000000000000008p0L, -1.5047872954254114273289393917551604237609e-316L), - TEST_f_f (tgamma, -0xbc.ffffffffffffffffffffffffff8p0L, -7.9618375419333937953912137129923244334851e-319L), - TEST_f_f (tgamma, -0xbd.000000000000000000000000008p0L, 7.9618375419333937953912137129902657538965e-319L), - TEST_f_f (tgamma, -0xbd.ffffffffffffffffffffffffff8p0L, 4.1904408115438914712585335331538555086887e-321L), - TEST_f_f (tgamma, -0xbe.000000000000000000000000008p0L, -4.1904408115438914712585335331527709057227e-321L), - TEST_f_f (tgamma, -0xbe.ffffffffffffffffffffffffff8p0L, -2.1939480688711473671510646770439036908579e-323L), - TEST_f_f (tgamma, -0xbf.000000000000000000000000008p0L, 2.1939480688711473671510646770433352695669e-323L), - TEST_f_f (tgamma, -0xf9.ffffffffffffffffffffffffff8p0L, 1.2547671759429278005937024349858508569625e-461L), - TEST_f_f (tgamma, -0xfa.000000000000000000000000008p0L, -1.2547671759429278005937024349855091492502e-461L), - TEST_f_f (tgamma, -0x1f3.ffffffffffffffffffffffffffp0L, 1.6623061587520224800948170558276526986560e-1103L), - TEST_f_f (tgamma, -0x1f4.00000000000000000000000001p0L, -1.6623061587520224800948170558266338608285e-1103L), - TEST_f_f (tgamma, -0x2ed.fffffffffffffffffffffffffep0L, 3.9294757797334687313030998663853566763041e-1802L), - TEST_f_f (tgamma, -0x2ee.00000000000000000000000002p0L, -3.9294757797334687313030998663802259177992e-1802L), - TEST_f_f (tgamma, -0x3e7.fffffffffffffffffffffffffep0L, 2.5202599107841713834679953735597552855978e-2537L), - TEST_f_f (tgamma, -0x3e8.00000000000000000000000002p0L, -2.5202599107841713834679953735563216504503e-2537L), - TEST_f_f (tgamma, -0x4e1.fffffffffffffffffffffffffcp0L, 3.0766052944457032773369415396747635242705e-3300L), - TEST_f_f (tgamma, -0x4e2.00000000000000000000000004p0L, -3.0766052944457032773369415396661096445778e-3300L), - TEST_f_f (tgamma, -0x5db.fffffffffffffffffffffffffcp0L, 1.0537416297875703295453200836588944487917e-4084L), - TEST_f_f (tgamma, -0x5dc.00000000000000000000000004p0L, -1.0537416297875703295453200836558547326520e-4084L), - TEST_f_f (tgamma, -0x6d5.fffffffffffffffffffffffffcp0L, 2.4165069481061837867659591369998698607387e-4887L), - TEST_f_f (tgamma, -0x6d6.00000000000000000000000004p0L, -2.4165069481061837867659591369927521090377e-4887L), - TEST_f_f (tgamma, -0x6e2.fffffffffffffffffffffffffcp0L, -1.5891611922804672355414813803008070609431e-4929L), - TEST_f_f (tgamma, -0x6e3.00000000000000000000000004p0L, 1.5891611922804672355414813802961215945667e-4929L), - TEST_f_f (tgamma, -0x6e3.fffffffffffffffffffffffffcp0L, 9.0088502963745308137272187091882496519917e-4933L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6e4.00000000000000000000000004p0L, -9.0088502963745308137272187091616860368392e-4933L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6e4.fffffffffffffffffffffffffcp0L, -5.1041644738665896961627301468488672286746e-4936L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6e5.00000000000000000000000004p0L, 5.1041644738665896961627301468338158811446e-4936L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6e5.fffffffffffffffffffffffffcp0L, 2.8902403589278537350864836618623260468143e-4939L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6e6.00000000000000000000000004p0L, -2.8902403589278537350864836618538025544424e-4939L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6eb.fffffffffffffffffffffffffcp0L, 9.4152481960798287090819640211017219042636e-4959L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6ec.00000000000000000000000004p0L, -9.4152481960798287090819640210739431797168e-4959L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6ec.fffffffffffffffffffffffffcp0L, -5.3103486723518492437010513373388172315540e-4962L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6ed.00000000000000000000000004p0L, 5.3103486723518492437010513373231484108489e-4962L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6ed.fffffffffffffffffffffffffcp0L, 2.9934321715624854812294539669328172615019e-4965L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6ee.00000000000000000000000004p0L, -2.9934321715624854812294539669239841152754e-4965L, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6ee.fffffffffffffffffffffffffcp0L, minus_zero, UNDERFLOW_EXCEPTION), - TEST_f_f (tgamma, -0x6ef.00000000000000000000000004p0L, plus_zero, UNDERFLOW_EXCEPTION), -# endif -#endif - TEST_f_f (tgamma, -0x1.0a32a2p+5L, 1.8125267978155035272941154746083439329912e-37L), -#ifndef TEST_FLOAT - TEST_f_f (tgamma, -0x1.5800000080001p+7L, -3.1439271448823567326093363350637118195240e-304L, UNDERFLOW_EXCEPTION_LDOUBLE_IBM), -#endif - TEST_f_f (tgamma, 18.5L, 1.4986120533153361177371791123515513270334e+15L), - TEST_f_f (tgamma, 19.5L, 2.7724322986333718178137813578503699550119e+16L), - TEST_f_f (tgamma, 23.5L, 5.3613035875444147334274983856108155717836e+21L), - TEST_f_f (tgamma, 29.5L, 1.6348125198274266444378807806868221866931e+30L), - TEST_f_f (tgamma, 30.5L, 4.8226969334909086010917483030261254507447e+31L), - TEST_f_f (tgamma, 31.5L, 1.4709225647147271233329832324229682624771e+33L), - TEST_f_f (tgamma, 32.5L, 4.6334060788513904384988971821323500268029e+34L), - TEST_f_f (tgamma, 33.5L, 1.5058569756267018925121415841930137587110e+36L), - TEST_f_f (tgamma, 34.5L, 5.0446208683494513399156743070465960916817e+37L), - TEST_f_f (tgamma, 0x2.30a43cp+4L, 3.4027979115654976101247558405326779640190e+38L), -#ifdef TEST_FLOAT - TEST_f_f (tgamma, 0x2.30a44p+4L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -#else - TEST_f_f (tgamma, 0x2.30a44p+4L, 3.4028438913396451054667218138127983367181e+38L), -#endif -#ifndef TEST_FLOAT - TEST_f_f (tgamma, 0xa.b9fd72b0fb238p+4L, 1.7976931348622298700886249281842651388250e+308L), -# if !defined TEST_LDOUBLE || LDBL_MAX_EXP <= 1024 - TEST_f_f (tgamma, 0xa.b9fd72b0fb24p+4L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# else - TEST_f_f (tgamma, 0xa.b9fd72b0fb24p+4L, 1.7976931348624926129589466917917870782484e+308L), -# endif -#endif -#if defined TEST_LDOUBLE && LDBL_MANT_DIG >= 106 - TEST_f_f (tgamma, 0xa.b9fd72b0fb23a9ddbf0d3804f4p+4L, 1.7976931348623158079372897140307719334857e+308L), -# if LDBL_MAX_EXP <= 1024 - TEST_f_f (tgamma, 0xa.b9fd72b0fb23a9ddbf0d3804f8p+4L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# else - TEST_f_f (tgamma, 0xa.b9fd72b0fb23a9ddbf0d3804f8p+4L, 1.7976931348623158079372897140599422519044e+308L), -# endif -#endif -#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384 - TEST_f_f (tgamma, 0x6.db8c603359a97108p+8L, 1.1897314953572317517071551278058233700012e+4932L), - TEST_f_f (tgamma, 0x6.db8c603359a9711p+8L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# if LDBL_MANT_DIG >= 113 - TEST_f_f (tgamma, 0x6.db8c603359a971081bc4a2e9dfdp+8L, 1.1897314953572317650857593266265995494998e+4932L), - TEST_f_f (tgamma, 0x6.db8c603359a971081bc4a2e9dfd4p+8L, plus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), -# endif -#endif + TEST_f_f (tgamma, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + + AUTO_TESTS_f_f (tgamma, tonearest), }; static void @@ -14377,43 +12886,15 @@ trunc_test (void) static const struct test_f_f_data y0_test_data[] = { /* y0 is the Bessel function of the second kind of order 0 */ - TEST_f_f (y0, -1.0, minus_infty, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_f_f (y0, -max_value, minus_infty, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_f_f (y0, 0.0, minus_infty), - TEST_f_f (y0, qnan_value, qnan_value), + TEST_f_f (y0, -1.0, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_f_f (y0, -max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_f_f (y0, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_f_f (y0, 0.0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), + TEST_f_f (y0, -0.0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), + TEST_f_f (y0, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), TEST_f_f (y0, plus_infty, 0), - TEST_f_f (y0, 0.125L, -1.38968062514384052915582277745018693L), - TEST_f_f (y0, 0.75L, -0.137172769385772397522814379396581855L), - TEST_f_f (y0, 1.0, 0.0882569642156769579829267660235151628L), - TEST_f_f (y0, 1.5, 0.382448923797758843955068554978089862L), - TEST_f_f (y0, 2.0, 0.510375672649745119596606592727157873L), - TEST_f_f (y0, 8.0, 0.223521489387566220527323400498620359L), - TEST_f_f (y0, 10.0, 0.0556711672835993914244598774101900481L), - - TEST_f_f (y0, 0x1.3ffp+74L, 1.818984347516051243459467456433028748678e-12L), - -#ifndef TEST_FLOAT - TEST_f_f (y0, 0x1.ff00000000002p+840L, 1.846591691699331493194965158699937660696e-127L), - TEST_f_f (y0, 0x1p1023L, 8.2687542933709649327986678723012001545638e-155L), -#endif - -#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384 - TEST_f_f (y0, 0x1p16382L, 8.0839224448726336195866026476176740513439e-2467L), - TEST_f_f (y0, 0x1p16383L, -3.8895531955766020648617743624167352352217e-2467L), -#endif - - TEST_f_f (y0, 0x1p-10L, -4.4865150767109739412411806297168793661098L), - TEST_f_f (y0, 0x1p-20L, -8.8992283012125827603076426611387876938160L), - TEST_f_f (y0, 0x1p-30L, -1.3311940304267782826037118027401817264906e+1L), - TEST_f_f (y0, 0x1p-40L, -1.7724652307320814696990854700366226762563e+1L), - TEST_f_f (y0, 0x1p-50L, -2.2137364310373846564919987139743760738155e+1L), - TEST_f_f (y0, 0x1p-60L, -2.6550076313426878432849115782108205929120e+1L), - TEST_f_f (y0, 0x1p-70L, -3.0962788316479910300778244424468159753887e+1L), - TEST_f_f (y0, 0x1p-80L, -3.5375500319532942168707373066828113573541e+1L), - TEST_f_f (y0, 0x1p-90L, -3.9788212322585974036636501709188067393195e+1L), - TEST_f_f (y0, 0x1p-100L, -4.420092432563900590456563035154802121284e+1L), - TEST_f_f (y0, 0x1p-110L, -4.861363632869203777249475899390797503250e+1L), + AUTO_TESTS_f_f (y0, tonearest), }; static void @@ -14428,43 +12909,15 @@ y0_test (void) static const struct test_f_f_data y1_test_data[] = { /* y1 is the Bessel function of the second kind of order 1 */ - TEST_f_f (y1, -1.0, minus_infty, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_f_f (y1, -max_value, minus_infty, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_f_f (y1, 0.0, minus_infty), + TEST_f_f (y1, -1.0, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_f_f (y1, -max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_f_f (y1, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_f_f (y1, 0.0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), + TEST_f_f (y1, -0.0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), TEST_f_f (y1, plus_infty, 0), - TEST_f_f (y1, qnan_value, qnan_value), - - TEST_f_f (y1, 0.125L, -5.19993611253477499595928744876579921L), - TEST_f_f (y1, 0.75L, -1.03759455076928541973767132140642198L), - TEST_f_f (y1, 1.0, -0.781212821300288716547150000047964821L), - TEST_f_f (y1, 1.5, -0.412308626973911295952829820633445323L), - TEST_f_f (y1, 2.0, -0.107032431540937546888370772277476637L), - TEST_f_f (y1, 8.0, -0.158060461731247494255555266187483550L), - TEST_f_f (y1, 10.0, 0.249015424206953883923283474663222803L), - - TEST_f_f (y1, 0x1.27e204p+99L, -8.881610148467797208469612080785210013461e-16L), - -#ifndef TEST_FLOAT - TEST_f_f (y1, 0x1.001000001p+593L, 3.927269966354206207832593635798954916263e-90L), - TEST_f_f (y1, 0x1p1023L, 1.5665258060609012834424478437196679802783e-155L), -#endif - -#if defined TEST_LDOUBLE && LDBL_MAX_EXP >= 16384 - TEST_f_f (y1, 0x1p16382L, 1.2193782500509000574176799046642541129387e-2466L), - TEST_f_f (y1, 0x1p16383L, -9.5859502826270374691362975419147645151233e-2467L), -#endif + TEST_f_f (y1, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), - TEST_f_f (y1, 0x1p-10L, -6.5190099301063115047395187618929589514382e+02L), - TEST_f_f (y1, 0x1p-20L, -6.6754421443450423911167962313100637952285e+05L), - TEST_f_f (y1, 0x1p-30L, -6.8356527557643159612937462812258975438856e+08L), - TEST_f_f (y1, 0x1p-40L, -6.9997084219026594793707805777425993547887e+11L), - TEST_f_f (y1, 0x1p-50L, -7.1677014240283233068755952926181262431559e+14L), - TEST_f_f (y1, 0x1p-60L, -7.3397262582050030662406095795388448059822e+17L), - TEST_f_f (y1, 0x1p-70L, -7.5158796884019231398303842094477769620063e+20L), - TEST_f_f (y1, 0x1p-80L, -7.6962608009235692951863134304745236090943e+23L), - TEST_f_f (y1, 0x1p-90L, -7.8809710601457349582707849528059121757126e+26L), - TEST_f_f (y1, 0x1p-100L, -8.0701143655892325972692837916732540679297e+29L), - TEST_f_f (y1, 0x1p-110L, -8.2637971103633741796037466026734121655600e+32L), + AUTO_TESTS_f_f (y1, tonearest), }; static void @@ -14480,57 +12933,64 @@ static const struct test_if_f_data yn_test_data[] = { /* yn is the Bessel function of the second kind of order n */ /* yn (0, x) == y0 (x) */ - TEST_if_f (yn, 0, -1.0, minus_infty, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_if_f (yn, 0, -max_value, minus_infty, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_if_f (yn, 0, 0.0, minus_infty), - TEST_if_f (yn, 0, qnan_value, qnan_value), + TEST_if_f (yn, 0, -1.0, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, 0, -max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, 0, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, 0, 0.0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), + TEST_if_f (yn, 0, -0.0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), + TEST_if_f (yn, 0, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), TEST_if_f (yn, 0, plus_infty, 0), - TEST_if_f (yn, 0, 0.125L, -1.38968062514384052915582277745018693L), - TEST_if_f (yn, 0, 0.75L, -0.137172769385772397522814379396581855L), - TEST_if_f (yn, 0, 1.0, 0.0882569642156769579829267660235151628L), - TEST_if_f (yn, 0, 1.5, 0.382448923797758843955068554978089862L), - TEST_if_f (yn, 0, 2.0, 0.510375672649745119596606592727157873L), - TEST_if_f (yn, 0, 8.0, 0.223521489387566220527323400498620359L), - TEST_if_f (yn, 0, 10.0, 0.0556711672835993914244598774101900481L), - /* yn (1, x) == y1 (x) */ - TEST_if_f (yn, 1, -1.0, minus_infty, INVALID_EXCEPTION|ERRNO_EDOM), - TEST_if_f (yn, 1, 0.0, minus_infty), + TEST_if_f (yn, 1, -1.0, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, 1, -max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, 1, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, 1, 0.0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), + TEST_if_f (yn, 1, -0.0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), TEST_if_f (yn, 1, plus_infty, 0), - TEST_if_f (yn, 1, qnan_value, qnan_value), - - TEST_if_f (yn, 1, 0.125L, -5.19993611253477499595928744876579921L), - TEST_if_f (yn, 1, 0.75L, -1.03759455076928541973767132140642198L), - TEST_if_f (yn, 1, 1.0, -0.781212821300288716547150000047964821L), - TEST_if_f (yn, 1, 1.5, -0.412308626973911295952829820633445323L), - TEST_if_f (yn, 1, 2.0, -0.107032431540937546888370772277476637L), - TEST_if_f (yn, 1, 8.0, -0.158060461731247494255555266187483550L), - TEST_if_f (yn, 1, 10.0, 0.249015424206953883923283474663222803L), + TEST_if_f (yn, 1, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + + /* yn (-1, x) == -y1 (x). */ + TEST_if_f (yn, -1, -1.0, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, -1, -max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, -1, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, -1, 0.0, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), + TEST_if_f (yn, -1, -0.0, plus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), + TEST_if_f (yn, -1, plus_infty, minus_zero), + TEST_if_f (yn, -1, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + + /* yn (2, x). */ + TEST_if_f (yn, 2, -1.0, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, 2, -max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, 2, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, 2, 0.0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), + TEST_if_f (yn, 2, -0.0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), + TEST_if_f (yn, 2, plus_infty, 0), + TEST_if_f (yn, 2, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), + + /* yn (-2, x) == yn (2, x). */ + TEST_if_f (yn, -2, -1.0, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, -2, -max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, -2, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, -2, 0.0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), + TEST_if_f (yn, -2, -0.0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), + TEST_if_f (yn, -2, plus_infty, 0), + TEST_if_f (yn, -2, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), /* yn (3, x) */ + TEST_if_f (yn, 3, -1.0, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, 3, -max_value, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, 3, minus_infty, qnan_value, INVALID_EXCEPTION|ERRNO_EDOM), + TEST_if_f (yn, 3, 0.0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), + TEST_if_f (yn, 3, -0.0, minus_infty, DIVIDE_BY_ZERO_EXCEPTION|ERRNO_ERANGE), TEST_if_f (yn, 3, plus_infty, 0), - TEST_if_f (yn, 3, qnan_value, qnan_value), - - TEST_if_f (yn, 3, 0.125L, -2612.69757350066712600220955744091741L), - TEST_if_f (yn, 3, 0.75L, -12.9877176234475433186319774484809207L), - TEST_if_f (yn, 3, 1.0, -5.82151760596472884776175706442981440L), - TEST_if_f (yn, 3, 2.0, -1.12778377684042778608158395773179238L), - TEST_if_f (yn, 3, 10.0, -0.251362657183837329779204747654240998L), + TEST_if_f (yn, 3, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), /* yn (10, x) */ TEST_if_f (yn, 10, plus_infty, 0), - TEST_if_f (yn, 10, qnan_value, qnan_value), - - TEST_if_f (yn, 10, 0.125L, -127057845771019398.252538486899753195L), - TEST_if_f (yn, 10, 0.75L, -2133501638.90573424452445412893839236L), - TEST_if_f (yn, 10, 1.0, -121618014.278689189288130426667971145L), - TEST_if_f (yn, 10, 2.0, -129184.542208039282635913145923304214L), - TEST_if_f (yn, 10, 10.0, -0.359814152183402722051986577343560609L), + TEST_if_f (yn, 10, qnan_value, qnan_value, NO_INEXACT_EXCEPTION), - /* Check whether yn returns correct value for LDBL_MIN, DBL_MIN, - and FLT_MIN. See Bug 14173. */ - TEST_if_f (yn, 10, min_value, minus_infty, OVERFLOW_EXCEPTION|ERRNO_ERANGE), + AUTO_TESTS_if_f (yn, tonearest), }; static void @@ -14823,6 +13283,10 @@ main (int argc, char **argv) exp10_test (); exp2_test (); expm1_test (); + expm1_test_tonearest (); + expm1_test_towardzero (); + expm1_test_downward (); + expm1_test_upward (); frexp_test (); ldexp_test (); log_test (); @@ -14849,6 +13313,10 @@ main (int argc, char **argv) pow_test_downward (); pow_test_upward (); sqrt_test (); + sqrt_test_tonearest (); + sqrt_test_towardzero (); + sqrt_test_downward (); + sqrt_test_upward (); /* Error and gamma functions: */ erf_test (); |