/* Test compilation of tgmath macros.
- Copyright (C) 2007-2015 Free Software Foundation, Inc.
+ Copyright (C) 2007-2018 Free Software Foundation, Inc.
This file is part of the GNU C Library.
Contributed by Jakub Jelinek <jakub@redhat.com>, 2007.
#ifndef HAVE_MAIN
#undef __NO_MATH_INLINES
#define __NO_MATH_INLINES 1
+#include <float.h>
#include <math.h>
#include <complex.h>
#include <stdio.h>
typedef complex float cfloat;
typedef complex double cdouble;
-#ifndef NO_LONG_DOUBLE
+#if LDBL_MANT_DIG > DBL_MANT_DIG
typedef long double ldouble;
typedef complex long double cldouble;
#else
Tcfloat,
Tdouble,
Tcdouble,
-#ifndef NO_LONG_DOUBLE
+#if LDBL_MANT_DIG > DBL_MANT_DIG
Tldouble,
Tcldouble,
#else
int count;
int counts[Tlast][C_last];
-int
-test (const int Vint4, const long long int Vllong4)
-{
- int result = 0;
- int quo = 0;
-
#define FAIL(str) \
do \
{ \
while (0)
#define TEST(expr, type, fn) TEST2(expr, type, type, fn)
+int
+test_cos (const int Vint4, const long long int Vllong4)
+{
+ int result = 0;
+
TEST (cos (vfloat1), float, cos);
TEST (cos (vdouble1), double, cos);
TEST (cos (vldouble1), ldouble, cos);
TEST (cos (Vcdouble1), cdouble, cos);
TEST (cos (Vcldouble1), cldouble, cos);
+ return result;
+}
+
+int
+test_fabs (const int Vint4, const long long int Vllong4)
+{
+ int result = 0;
+
TEST (fabs (vfloat1), float, fabs);
TEST (fabs (vdouble1), double, fabs);
TEST (fabs (vldouble1), ldouble, fabs);
TEST (fabs (Vcdouble1), double, cabs);
TEST (fabs (Vcldouble1), ldouble, cabs);
+ return result;
+}
+
+int
+test_conj (const int Vint4, const long long int Vllong4)
+{
+ int result = 0;
TEST (conj (vfloat1), cfloat, conj);
TEST (conj (vdouble1), cdouble, conj);
TEST (conj (vldouble1), cldouble, conj);
TEST (conj (Vcdouble1), cdouble, conj);
TEST (conj (Vcldouble1), cldouble, conj);
+ return result;
+}
+
+int
+test_expm1 (const int Vint4, const long long int Vllong4)
+{
+ int result = 0;
+
TEST (expm1 (vfloat1), float, expm1);
TEST (expm1 (vdouble1), double, expm1);
TEST (expm1 (vldouble1), ldouble, expm1);
TEST (expm1 (Vint1), double, expm1);
TEST (expm1 (Vllong1), double, expm1);
+ return result;
+}
+
+int
+test_lrint (const int Vint4, const long long int Vllong4)
+{
+ int result = 0;
TEST2 (lrint (vfloat1), float, long int, lrint);
TEST2 (lrint (vdouble1), double, long int, lrint);
TEST2 (lrint (vldouble1), ldouble, long int, lrint);
TEST2 (lrint (Vint1), double, long int, lrint);
TEST2 (lrint (Vllong1), double, long int, lrint);
+ return result;
+}
+
+int
+test_ldexp (const int Vint4, const long long int Vllong4)
+{
+ int result = 0;
+
TEST (ldexp (vfloat1, 6), float, ldexp);
TEST (ldexp (vdouble1, 6), double, ldexp);
TEST (ldexp (vldouble1, 6), ldouble, ldexp);
TEST (ldexp (Vint1, 6), double, ldexp);
TEST (ldexp (Vllong1, 6), double, ldexp);
+ return result;
+}
+
#define FIRST(x, y) (y, x)
#define SECOND(x, y) (x, y)
#define NON_LDBL_TEST(fn, argm, arg, type, fnt) \
NON_LDBL_CTEST (fn, FIRST, Vcdouble2, cdouble, fnt); \
NON_LDBL_CTEST (fn, SECOND, Vcdouble2, cdouble, fnt);
+int
+test_atan2 (const int Vint4, const long long int Vllong4)
+{
+ int result = 0;
+
BINARY_TEST (atan2, atan2);
+ return result;
+}
+
+int
+test_remquo (const int Vint4, const long long int Vllong4)
+{
+ int result = 0;
+ int quo = 0;
+
#define my_remquo(x, y) remquo (x, y, &quo)
BINARY_TEST (my_remquo, remquo);
#undef my_remquo
+ return result;
+}
+
+int
+test_pow (const int Vint4, const long long int Vllong4)
+{
+ int result = 0;
+
BINARY_CTEST (pow, pow);
- /* Testing all arguments of fma would be just too expensive,
- so test just some. */
+ return result;
+}
+
+/* Testing all arguments of fma would be just too expensive,
+ so test just some. */
+
+int
+test_fma_1 (const int Vint4, const long long int Vllong4)
+{
+ int result = 0;
+
#define my_fma(x, y) fma (x, y, vfloat3)
BINARY_TEST (my_fma, fma);
#undef my_fma
+
+ return result;
+}
+
+int
+test_fma_2 (const int Vint4, const long long int Vllong4)
+{
+ int result = 0;
+
#define my_fma(x, y) fma (x, vfloat3, y)
BINARY_TEST (my_fma, fma);
#undef my_fma
+
+ return result;
+}
+
+int
+test_fma_3 (const int Vint4, const long long int Vllong4)
+{
+ int result = 0;
+
#define my_fma(x, y) fma (Vfloat3, x, y)
BINARY_TEST (my_fma, fma);
#undef my_fma
+
+ return result;
+}
+
+int
+test_fma_4 (const int Vint4, const long long int Vllong4)
+{
+ int result = 0;
TEST (fma (vdouble1, Vdouble2, vllong3), double, fma);
TEST (fma (vint1, Vint2, vint3), double, fma);
TEST (fma (Vldouble1, vldouble2, Vldouble3), ldouble, fma);
static int
do_test (void)
{
- return test (vint1, vllong1);
+ int result;
+
+ result = test_cos (vint1, vllong1);
+ result |= test_fabs (vint1, vllong1);
+ result |= test_conj (vint1, vllong1);
+ result |= test_expm1 (vint1, vllong1);
+ result |= test_lrint (vint1, vllong1);
+ result |= test_ldexp (vint1, vllong1);
+ result |= test_atan2 (vint1, vllong1);
+ result |= test_remquo (vint1, vllong1);
+ result |= test_pow (vint1, vllong1);
+ result |= test_fma_1 (vint1, vllong1);
+ result |= test_fma_2 (vint1, vllong1);
+ result |= test_fma_3 (vint1, vllong1);
+ result |= test_fma_4 (vint1, vllong1);
+
+ return result;
}
/* Now generate the three functions. */
#define C Tcfloat
#include "test-tgmath2.c"
-#ifndef NO_LONG_DOUBLE
+#if LDBL_MANT_DIG > DBL_MANT_DIG
#define F(name) name##l
#define TYPE ldouble
#define CTYPE cldouble