From 1d5a644a55c60ad1f1903e851255ec9b2f45879b Mon Sep 17 00:00:00 2001 From: Ulrich Drepper Date: Sun, 8 Jan 2012 16:02:45 -0500 Subject: Add test for CMPLX macros --- math/tst-CMPLX.c | 56 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 56 insertions(+) create mode 100644 math/tst-CMPLX.c (limited to 'math/tst-CMPLX.c') diff --git a/math/tst-CMPLX.c b/math/tst-CMPLX.c new file mode 100644 index 0000000000..2c32438729 --- /dev/null +++ b/math/tst-CMPLX.c @@ -0,0 +1,56 @@ +#include + + +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" -- cgit v1.2.3