/* Test compilation of tgmath macros. Copyright (C) 2003 Free Software Foundation, Inc. This file is part of the GNU C Library. Contributed by Andreas Jaeger <aj@suse.de>, 2003. The GNU C Library is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version. The GNU C Library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. You should have received a copy of the GNU Lesser General Public License along with the GNU C Library; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. */ #include <math.h> #include <complex.h> #include <tgmath.h> #include <stdio.h> static float fx; static double dx; static long double lx; static int errors = 0; static void our_error (const char *c) { puts (c); ++errors; } /* First function where the return type is constant. */ #define CHECK_RET_CONST_TYPE(func, rettype, arg, name) \ if (sizeof (func (arg)) != sizeof (rettype)) \ our_error ("Return size of " #func " is wrong with " #name " argument"); #define CHECK_RET_CONST_FLOAT(func, rettype) \ CHECK_RET_CONST_TYPE (func, rettype, fx, float) #define CHECK_RET_CONST_DOUBLE(func, rettype) \ CHECK_RET_CONST_TYPE (func, rettype, dx, double) #ifdef NO_LONG_DOUBLE # define CHECK_RET_CONST_LDOUBLE(func, rettype) #else # define CHECK_RET_CONST_LDOUBLE(func, rettype) \ CHECK_RET_CONST_TYPE (func, rettype, lx, long double) #endif #define CHECK_RET_CONST(func, rettype) \ static void \ check_return_ ##func (void) \ { \ CHECK_RET_CONST_FLOAT (func, rettype) \ CHECK_RET_CONST_DOUBLE (func, rettype) \ CHECK_RET_CONST_LDOUBLE (func, rettype) \ } CHECK_RET_CONST(ilogb, int) CHECK_RET_CONST(lrint, long) CHECK_RET_CONST(lround, long) CHECK_RET_CONST(llrint, long long) CHECK_RET_CONST(llround, long long) static int do_test (void) { check_return_ilogb (); check_return_lrint (); check_return_lround (); check_return_llrint (); check_return_llround (); printf ("%Zd\n", sizeof(carg (lx))); return errors != 0; } #define TEST_FUNCTION do_test () #include "../test-skeleton.c"