2012-01-08 Ulrich Drepper <drepper@gmail.com>
+ * math/Makefile (tests): Add tst-CMPLX.
+ * math/test-CMPLX.c: New file.
+
* math/complex.h (CMPLXL): Fix typo.
* debug/Makefile (routines): Add poll_chk and ppoll_chk.
tests = test-matherr test-fenv atest-exp atest-sincos atest-exp2 basic-test \
test-misc test-fpucw tst-definitions test-tgmath test-tgmath-ret \
bug-nextafter bug-nexttoward bug-tgmath1 test-tgmath-int \
- test-tgmath2 test-powl
+ test-tgmath2 test-powl tst-CMPLX
# We do the `long double' tests only if this data type is available and
# distinct from `double'.
test-longdouble-yes = test-ldouble test-ildoubl
--- /dev/null
+#include <complex.h>
+
+
+static int
+do_test (void)
+{
+ int result = 0;
+
+#ifdef CMPLX
+ size_t s;
+
+#define T(f, r, i, t) \
+ do { \
+ s = sizeof (f (r, i)); \
+ if (s != sizeof (complex t)) \
+ { \
+ printf ("\
+CMPLX (" #r ", " #i ") does not produce complex " #t ": %zu\n", s); \
+ result = 1; \
+ } \
+ } while (0)
+
+#define C(f, t) \
+ do { \
+ T (f, 0.0f, 0.0f, t); \
+ T (f, 0.0f, 0.0, t); \
+ T (f, 0.0f, 0.0L, t); \
+ T (f, 0.0f, 0.0f, t); \
+ T (f, 0.0, 0.0f, t); \
+ T (f, 0.0L, 0.0f, t); \
+ T (f, 0.0, 0.0f, t); \
+ T (f, 0.0, 0.0, t); \
+ T (f, 0.0, 0.0L, t); \
+ T (f, 0.0f, 0.0, t); \
+ T (f, 0.0, 0.0, t); \
+ T (f, 0.0L, 0.0, t); \
+ T (f, 0.0L, 0.0f, t); \
+ T (f, 0.0L, 0.0, t); \
+ T (f, 0.0L, 0.0L, t); \
+ T (f, 0.0f, 0.0L, t); \
+ T (f, 0.0, 0.0L, t); \
+ T (f, 0.0L, 0.0L, t); \
+ } while (0)
+
+ C (CMPLXF, float);
+ C (CMPLX, double);
+# ifndef NO_LONG_DOUBLE
+ C (CMPLXL, long double);
+# endif
+#endif
+
+ return result;
+}
+
+#define TEST_FUNCTION do_test ()
+#include "../test-skeleton.c"