static void
acos_test (void)
{
- errno = 0;
- FUNC(acos) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (acos);
RUN_TEST_LOOP_f_f (acos, acos_test_data, );
END (acos);
static void
acos_test_tonearest (void)
{
- errno = 0;
- FUNC(acos) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (acos_tonearest);
RUN_TEST_LOOP_f_f (acos, acos_tonearest_test_data, FE_TONEAREST);
END (acos_tonearest);
static void
acos_test_towardzero (void)
{
- errno = 0;
- FUNC(acos) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (acos_towardzero);
RUN_TEST_LOOP_f_f (acos, acos_towardzero_test_data, FE_TOWARDZERO);
END (acos_towardzero);
static void
acos_test_downward (void)
{
- errno = 0;
- FUNC(acos) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (acos_downward);
RUN_TEST_LOOP_f_f (acos, acos_downward_test_data, FE_DOWNWARD);
END (acos_downward);
static void
acos_test_upward (void)
{
- errno = 0;
- FUNC(acos) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (acos_upward);
RUN_TEST_LOOP_f_f (acos, acos_upward_test_data, FE_UPWARD);
END (acos_upward);
static void
acosh_test (void)
{
- errno = 0;
- FUNC(acosh) (7);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (acosh);
RUN_TEST_LOOP_f_f (acosh, acosh_test_data, );
END (acosh);
static void
asin_test (void)
{
- errno = 0;
- FUNC(asin) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (asin);
RUN_TEST_LOOP_f_f (asin, asin_test_data, );
END (asin);
static void
asin_test_tonearest (void)
{
- errno = 0;
- FUNC(asin) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (asin_tonearest);
RUN_TEST_LOOP_f_f (asin, asin_tonearest_test_data, FE_TONEAREST);
END (asin_tonearest);
static void
asin_test_towardzero (void)
{
- errno = 0;
- FUNC(asin) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (asin_towardzero);
RUN_TEST_LOOP_f_f (asin, asin_towardzero_test_data, FE_TOWARDZERO);
END (asin_towardzero);
static void
asin_test_downward (void)
{
- errno = 0;
- FUNC(asin) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (asin_downward);
RUN_TEST_LOOP_f_f (asin, asin_downward_test_data, FE_DOWNWARD);
END (asin_downward);
static void
asin_test_upward (void)
{
- errno = 0;
- FUNC(asin) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (asin_upward);
RUN_TEST_LOOP_f_f (asin, asin_upward_test_data, FE_UPWARD);
END (asin_upward);
static void
asinh_test (void)
{
- errno = 0;
- FUNC(asinh) (0.7L);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (asinh);
RUN_TEST_LOOP_f_f (asinh, asinh_test_data, );
END (asinh);
static void
atan_test (void)
{
- errno = 0;
- FUNC(atan) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (atan);
RUN_TEST_LOOP_f_f (atan, atan_test_data, );
END (atan);
static void
atanh_test (void)
{
- errno = 0;
- FUNC(atanh) (0.7L);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (atanh);
RUN_TEST_LOOP_f_f (atanh, atanh_test_data, );
END (atanh);
static void
atan2_test (void)
{
- errno = 0;
- FUNC(atan2) (-0, 1);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (atan2);
RUN_TEST_LOOP_ff_f (atan2, atan2_test_data, );
END (atan2);
static void
cabs_test (void)
{
- errno = 0;
- FUNC(cabs) (BUILD_COMPLEX (0.7L, 12.4L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (cabs);
RUN_TEST_LOOP_c_f (cabs, cabs_test_data, );
END (cabs);
static void
cacos_test (void)
{
- errno = 0;
- FUNC(cacos) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (cacos);
RUN_TEST_LOOP_c_c (cacos, cacos_test_data, );
END (cacos, complex);
static void
cacosh_test (void)
{
- errno = 0;
- FUNC(cacosh) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (cacosh);
RUN_TEST_LOOP_c_c (cacosh, cacosh_test_data, );
END (cacosh, complex);
static void
casin_test (void)
{
- errno = 0;
- FUNC(casin) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (casin);
RUN_TEST_LOOP_c_c (casin, casin_test_data, );
END (casin, complex);
static void
casinh_test (void)
{
- errno = 0;
- FUNC(casinh) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (casinh);
RUN_TEST_LOOP_c_c (casinh, casinh_test_data, );
END (casinh, complex);
static void
catan_test (void)
{
- errno = 0;
- FUNC(catan) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (catan);
RUN_TEST_LOOP_c_c (catan, catan_test_data, );
END (catan, complex);
static void
catanh_test (void)
{
- errno = 0;
- FUNC(catanh) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (catanh);
RUN_TEST_LOOP_c_c (catanh, catanh_test_data, );
END (catanh, complex);
static void
cbrt_test (void)
{
- errno = 0;
- FUNC(cbrt) (8);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (cbrt);
RUN_TEST_LOOP_f_f (cbrt, cbrt_test_data, );
END (cbrt);
static void
ccos_test (void)
{
- errno = 0;
- FUNC(ccos) (BUILD_COMPLEX (0, 0));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (ccos);
RUN_TEST_LOOP_c_c (ccos, ccos_test_data, );
END (ccos, complex);
static void
ccosh_test (void)
{
- errno = 0;
- FUNC(ccosh) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (ccosh);
RUN_TEST_LOOP_c_c (ccosh, ccosh_test_data, );
END (ccosh, complex);
static void
cexp_test (void)
{
- errno = 0;
- FUNC(cexp) (BUILD_COMPLEX (0, 0));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (cexp);
RUN_TEST_LOOP_c_c (cexp, cexp_test_data, );
END (cexp, complex);
static void
clog_test (void)
{
- errno = 0;
- FUNC(clog) (BUILD_COMPLEX (-2, -3));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (clog);
RUN_TEST_LOOP_c_c (clog, clog_test_data, );
END (clog, complex);
static void
clog10_test (void)
{
- errno = 0;
- FUNC(clog10) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (clog10);
RUN_TEST_LOOP_c_c (clog10, clog10_test_data, );
END (clog10, complex);
static void
cos_test (void)
{
- errno = 0;
- FUNC(cos) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (cos);
RUN_TEST_LOOP_f_f (cos, cos_test_data, );
END (cos);
static void
cos_test_tonearest (void)
{
- errno = 0;
- FUNC(cos) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (cos_tonearest);
RUN_TEST_LOOP_f_f (cos, cos_tonearest_test_data, FE_TONEAREST);
END (cos_tonearest);
static void
cos_test_towardzero (void)
{
- errno = 0;
- FUNC(cos) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (cos_towardzero);
RUN_TEST_LOOP_f_f (cos, cos_towardzero_test_data, FE_TOWARDZERO);
END (cos_towardzero);
static void
cos_test_downward (void)
{
- errno = 0;
- FUNC(cos) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (cos_downward);
RUN_TEST_LOOP_f_f (cos, cos_downward_test_data, FE_DOWNWARD);
END (cos_downward);
static void
cos_test_upward (void)
{
- errno = 0;
- FUNC(cos) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (cos_upward);
RUN_TEST_LOOP_f_f (cos, cos_upward_test_data, FE_UPWARD);
END (cos_upward);
static void
cosh_test (void)
{
- errno = 0;
- FUNC(cosh) (0.7L);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (cosh);
RUN_TEST_LOOP_f_f (cosh, cosh_test_data, );
END (cosh);
static void
cosh_test_tonearest (void)
{
- errno = 0;
- FUNC(cosh) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (cosh_tonearest);
RUN_TEST_LOOP_f_f (cosh, cosh_tonearest_test_data, FE_TONEAREST);
END (cosh_tonearest);
static void
cosh_test_towardzero (void)
{
- errno = 0;
- FUNC(cosh) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (cosh_towardzero);
RUN_TEST_LOOP_f_f (cosh, cosh_towardzero_test_data, FE_TOWARDZERO);
END (cosh_towardzero);
static void
cosh_test_downward (void)
{
- errno = 0;
- FUNC(cosh) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (cosh_downward);
RUN_TEST_LOOP_f_f (cosh, cosh_downward_test_data, FE_DOWNWARD);
END (cosh_downward);
static void
cosh_test_upward (void)
{
- errno = 0;
- FUNC(cosh) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (cosh_upward);
RUN_TEST_LOOP_f_f (cosh, cosh_upward_test_data, FE_UPWARD);
END (cosh_upward);
static void
cpow_test (void)
{
- errno = 0;
- FUNC(cpow) (BUILD_COMPLEX (1, 0), BUILD_COMPLEX (0, 0));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (cpow);
RUN_TEST_LOOP_cc_c (cpow, cpow_test_data, );
END (cpow, complex);
static void
csin_test (void)
{
- errno = 0;
- FUNC(csin) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (csin);
RUN_TEST_LOOP_c_c (csin, csin_test_data, );
END (csin, complex);
static void
csinh_test (void)
{
- errno = 0;
- FUNC(csinh) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (csinh);
RUN_TEST_LOOP_c_c (csinh, csinh_test_data, );
END (csinh, complex);
static void
csqrt_test (void)
{
- errno = 0;
- FUNC(csqrt) (BUILD_COMPLEX (-1, 0));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (csqrt);
RUN_TEST_LOOP_c_c (csqrt, csqrt_test_data, );
END (csqrt, complex);
static void
ctan_test (void)
{
- errno = 0;
- FUNC(ctan) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (ctan);
RUN_TEST_LOOP_c_c (ctan, ctan_test_data, );
END (ctan, complex);
static void
ctan_test_tonearest (void)
{
- errno = 0;
- FUNC(ctan) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (ctan_tonearest);
RUN_TEST_LOOP_c_c (ctan, ctan_tonearest_test_data, FE_TONEAREST);
END (ctan_tonearest, complex);
static void
ctan_test_towardzero (void)
{
- errno = 0;
- FUNC(ctan) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (ctan_towardzero);
RUN_TEST_LOOP_c_c (ctan, ctan_towardzero_test_data, FE_TOWARDZERO);
END (ctan_towardzero, complex);
static void
ctan_test_downward (void)
{
- errno = 0;
- FUNC(ctan) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (ctan_downward);
RUN_TEST_LOOP_c_c (ctan, ctan_downward_test_data, FE_DOWNWARD);
END (ctan_downward, complex);
static void
ctan_test_upward (void)
{
- errno = 0;
- FUNC(ctan) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (ctan_upward);
RUN_TEST_LOOP_c_c (ctan, ctan_upward_test_data, FE_UPWARD);
END (ctan_upward, complex);
static void
ctanh_test (void)
{
- errno = 0;
- FUNC(ctanh) (BUILD_COMPLEX (0, 0));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (ctanh);
RUN_TEST_LOOP_c_c (ctanh, ctanh_test_data, );
END (ctanh, complex);
static void
ctanh_test_tonearest (void)
{
- errno = 0;
- FUNC(ctanh) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (ctanh_tonearest);
RUN_TEST_LOOP_c_c (ctanh, ctanh_tonearest_test_data, FE_TONEAREST);
END (ctanh_tonearest, complex);
static void
ctanh_test_towardzero (void)
{
- errno = 0;
- FUNC(ctanh) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (ctanh_towardzero);
RUN_TEST_LOOP_c_c (ctanh, ctanh_towardzero_test_data, FE_TOWARDZERO);
END (ctanh_towardzero, complex);
static void
ctanh_test_downward (void)
{
- errno = 0;
- FUNC(ctanh) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (ctanh_downward);
RUN_TEST_LOOP_c_c (ctanh, ctanh_downward_test_data, FE_DOWNWARD);
END (ctanh_downward, complex);
static void
ctanh_test_upward (void)
{
- errno = 0;
- FUNC(ctanh) (BUILD_COMPLEX (0.7L, 1.2L));
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (ctanh_upward);
RUN_TEST_LOOP_c_c (ctanh, ctanh_upward_test_data, FE_UPWARD);
END (ctanh_upward, complex);
static void
erf_test (void)
{
- errno = 0;
- FUNC(erf) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (erf);
RUN_TEST_LOOP_f_f (erf, erf_test_data, );
END (erf);
static void
erfc_test (void)
{
- errno = 0;
- FUNC(erfc) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (erfc);
RUN_TEST_LOOP_f_f (erfc, erfc_test_data, );
END (erfc);
static void
exp_test (void)
{
- errno = 0;
- FUNC(exp) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (exp);
RUN_TEST_LOOP_f_f (exp, exp_test_data, );
END (exp);
static void
exp_test_tonearest (void)
{
- errno = 0;
- FUNC(exp) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (exp_tonearest);
RUN_TEST_LOOP_f_f (exp, exp_tonearest_test_data, FE_TONEAREST);
END (exp_tonearest);
static void
exp_test_towardzero (void)
{
- errno = 0;
- FUNC(exp) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (exp_towardzero);
RUN_TEST_LOOP_f_f (exp, exp_towardzero_test_data, FE_TOWARDZERO);
END (exp_towardzero);
static void
exp_test_downward (void)
{
- errno = 0;
- FUNC(exp) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (exp_downward);
RUN_TEST_LOOP_f_f (exp, exp_downward_test_data, FE_DOWNWARD);
END (exp_downward);
static void
exp_test_upward (void)
{
- errno = 0;
- FUNC(exp) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (exp_upward);
RUN_TEST_LOOP_f_f (exp, exp_upward_test_data, FE_UPWARD);
END (exp_upward);
static void
exp10_test (void)
{
- errno = 0;
- FUNC(exp10) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (exp10);
RUN_TEST_LOOP_f_f (exp10, exp10_test_data, );
END (exp10);
static void
exp2_test (void)
{
- errno = 0;
- FUNC(exp2) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (exp2);
RUN_TEST_LOOP_f_f (exp2, exp2_test_data, );
END (exp2);
static void
expm1_test (void)
{
- errno = 0;
- FUNC(expm1) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (expm1);
RUN_TEST_LOOP_f_f (expm1, expm1_test_data, );
END (expm1);
static void
fmod_test (void)
{
- errno = 0;
- FUNC(fmod) (6.5, 2.3L);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (fmod);
RUN_TEST_LOOP_ff_f (fmod, fmod_test_data, );
END (fmod);
static void
gamma_test (void)
{
- errno = 0;
- FUNC(gamma) (1);
-
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (gamma);
RUN_TEST_LOOP_f_f1 (gamma, gamma_test_data, , signgam);
END (gamma);
static void
hypot_test (void)
{
- errno = 0;
- FUNC(hypot) (0.7L, 12.4L);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (hypot);
RUN_TEST_LOOP_ff_f (hypot, hypot_test_data, );
END (hypot);
static void
j0_test (void)
{
- FLOAT s, c;
- errno = 0;
- FUNC (sincos) (0, &s, &c);
- if (errno == ENOSYS)
- /* Required function not implemented. */
- return;
- FUNC(j0) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (j0);
RUN_TEST_LOOP_f_f (j0, j0_test_data, );
END (j0);
static void
j1_test (void)
{
- FLOAT s, c;
- errno = 0;
- FUNC (sincos) (0, &s, &c);
- if (errno == ENOSYS)
- /* Required function not implemented. */
- return;
- FUNC(j1) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (j1);
RUN_TEST_LOOP_f_f (j1, j1_test_data, );
END (j1);
static void
jn_test (void)
{
- FLOAT s, c;
- errno = 0;
- FUNC (sincos) (0, &s, &c);
- if (errno == ENOSYS)
- /* Required function not implemented. */
- return;
- FUNC(jn) (1, 1);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (jn);
RUN_TEST_LOOP_if_f (jn, jn_test_data, );
END (jn);
static void
lgamma_test (void)
{
- errno = 0;
- FUNC(lgamma) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (lgamma);
RUN_TEST_LOOP_f_f1 (lgamma, lgamma_test_data, , signgam);
END (lgamma);
static void
log_test (void)
{
- errno = 0;
- FUNC(log) (1);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
START (log);
RUN_TEST_LOOP_f_f (log, log_test_data, );
END (log);
static void
log10_test (void)
{
- errno = 0;
- FUNC(log10) (1);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (log10);
RUN_TEST_LOOP_f_f (log10, log10_test_data, );
END (log10);
static void
log1p_test (void)
{
- errno = 0;
- FUNC(log1p) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (log1p);
RUN_TEST_LOOP_f_f (log1p, log1p_test_data, );
END (log1p);
static void
log2_test (void)
{
- errno = 0;
- FUNC(log2) (1);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (log2);
RUN_TEST_LOOP_f_f (log2, log2_test_data, );
END (log2);
static void
logb_test_downward (void)
{
- errno = 0;
-
- FUNC(logb) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (logb_downward);
RUN_TEST_LOOP_f_f (logb, logb_downward_test_data, FE_DOWNWARD);
END (logb_downward);
pow_test (void)
{
- errno = 0;
- FUNC(pow) (0, 0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (pow);
RUN_TEST_LOOP_ff_f (pow, pow_test_data, );
END (pow);
static void
pow_test_tonearest (void)
{
- errno = 0;
- FUNC(pow) (0, 0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (pow_tonearest);
RUN_TEST_LOOP_ff_f (pow, pow_tonearest_test_data, FE_TONEAREST);
END (pow_tonearest);
static void
pow_test_towardzero (void)
{
- errno = 0;
- FUNC(pow) (0, 0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (pow_towardzero);
RUN_TEST_LOOP_ff_f (pow, pow_towardzero_test_data, FE_TOWARDZERO);
END (pow_towardzero);
static void
pow_test_downward (void)
{
- errno = 0;
- FUNC(pow) (0, 0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (pow_downward);
RUN_TEST_LOOP_ff_f (pow, pow_downward_test_data, FE_DOWNWARD);
END (pow_downward);
static void
pow_test_upward (void)
{
- errno = 0;
- FUNC(pow) (0, 0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (pow_upward);
RUN_TEST_LOOP_ff_f (pow, pow_upward_test_data, FE_UPWARD);
END (pow_upward);
static void
remainder_test (void)
{
- errno = 0;
- FUNC(remainder) (1.625, 1.0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (remainder);
RUN_TEST_LOOP_ff_f (remainder, remainder_test_data, );
END (remainder);
/* x is needed. */
int x;
- errno = 0;
- FUNC(remquo) (1.625, 1.0, &x);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (remquo);
RUN_TEST_LOOP_ffI_f1 (remquo, remquo_test_data, , x);
END (remquo);
static void
sin_test (void)
{
- errno = 0;
- FUNC(sin) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (sin);
RUN_TEST_LOOP_f_f (sin, sin_test_data, );
END (sin);
static void
sin_test_tonearest (void)
{
- errno = 0;
- FUNC(sin) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (sin_tonearest);
RUN_TEST_LOOP_f_f (sin, sin_tonearest_test_data, FE_TONEAREST);
END (sin_tonearest);
static void
sin_test_towardzero (void)
{
- errno = 0;
- FUNC(sin) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (sin_towardzero);
RUN_TEST_LOOP_f_f (sin, sin_towardzero_test_data, FE_TOWARDZERO);
END (sin_towardzero);
static void
sin_test_downward (void)
{
- errno = 0;
- FUNC(sin) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (sin_downward);
RUN_TEST_LOOP_f_f (sin, sin_downward_test_data, FE_DOWNWARD);
END (sin_downward);
static void
sin_test_upward (void)
{
- errno = 0;
- FUNC(sin) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (sin_upward);
RUN_TEST_LOOP_f_f (sin, sin_upward_test_data, FE_UPWARD);
END (sin_upward);
{
FLOAT sin_res, cos_res;
- errno = 0;
- FUNC(sincos) (0, &sin_res, &cos_res);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (sincos);
RUN_TEST_LOOP_sincos (sincos_test_data, , sin_res, cos_res);
END (sincos);
static void
sinh_test (void)
{
- errno = 0;
- FUNC(sinh) (0.7L);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (sinh);
RUN_TEST_LOOP_f_f (sinh, sinh_test_data, );
END (sinh);
static void
sinh_test_tonearest (void)
{
- errno = 0;
- FUNC(sinh) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (sinh_tonearest);
RUN_TEST_LOOP_f_f (sinh, sinh_tonearest_test_data, FE_TONEAREST);
END (sinh_tonearest);
static void
sinh_test_towardzero (void)
{
- errno = 0;
- FUNC(sinh) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (sinh_towardzero);
RUN_TEST_LOOP_f_f (sinh, sinh_towardzero_test_data, FE_TOWARDZERO);
END (sinh_towardzero);
static void
sinh_test_downward (void)
{
- errno = 0;
- FUNC(sinh) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (sinh_downward);
RUN_TEST_LOOP_f_f (sinh, sinh_downward_test_data, FE_DOWNWARD);
END (sinh_downward);
static void
sinh_test_upward (void)
{
- errno = 0;
- FUNC(sinh) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (sinh_upward);
RUN_TEST_LOOP_f_f (sinh, sinh_upward_test_data, FE_UPWARD);
END (sinh_upward);
static void
sqrt_test (void)
{
- errno = 0;
- FUNC(sqrt) (1);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (sqrt);
RUN_TEST_LOOP_f_f (sqrt, sqrt_test_data, );
END (sqrt);
static void
tan_test (void)
{
- errno = 0;
- FUNC(tan) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (tan);
RUN_TEST_LOOP_f_f (tan, tan_test_data, );
END (tan);
static void
tan_test_tonearest (void)
{
- errno = 0;
- FUNC(tan) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (tan_tonearest);
RUN_TEST_LOOP_f_f (tan, tan_tonearest_test_data, FE_TONEAREST);
END (tan_tonearest);
static void
tan_test_towardzero (void)
{
- errno = 0;
- FUNC(tan) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (tan_towardzero);
RUN_TEST_LOOP_f_f (tan, tan_towardzero_test_data, FE_TOWARDZERO);
END (tan_towardzero);
static void
tan_test_downward (void)
{
- errno = 0;
- FUNC(tan) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (tan_downward);
RUN_TEST_LOOP_f_f (tan, tan_downward_test_data, FE_DOWNWARD);
END (tan_downward);
static void
tan_test_upward (void)
{
- errno = 0;
- FUNC(tan) (0);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (tan_upward);
RUN_TEST_LOOP_f_f (tan, tan_upward_test_data, FE_UPWARD);
END (tan_upward);
static void
tanh_test (void)
{
- errno = 0;
- FUNC(tanh) (0.7L);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (tanh);
RUN_TEST_LOOP_f_f (tanh, tanh_test_data, );
END (tanh);
static void
tgamma_test (void)
{
- errno = 0;
- FUNC(tgamma) (1);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (tgamma);
RUN_TEST_LOOP_f_f (tgamma, tgamma_test_data, );
END (tgamma);
static void
y0_test (void)
{
- FLOAT s, c;
- errno = 0;
- FUNC (sincos) (0, &s, &c);
- if (errno == ENOSYS)
- /* Required function not implemented. */
- return;
- FUNC(y0) (1);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (y0);
RUN_TEST_LOOP_f_f (y0, y0_test_data, );
END (y0);
static void
y1_test (void)
{
- FLOAT s, c;
- errno = 0;
- FUNC (sincos) (0, &s, &c);
- if (errno == ENOSYS)
- /* Required function not implemented. */
- return;
- FUNC(y1) (1);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (y1);
RUN_TEST_LOOP_f_f (y1, y1_test_data, );
END (y1);
static void
yn_test (void)
{
- FLOAT s, c;
- errno = 0;
- FUNC (sincos) (0, &s, &c);
- if (errno == ENOSYS)
- /* Required function not implemented. */
- return;
- FUNC(yn) (1, 1);
- if (errno == ENOSYS)
- /* Function not implemented. */
- return;
-
START (yn);
RUN_TEST_LOOP_if_f (yn, yn_test_data, );
END (yn);