| /* Test compilation of tgmath macros. |
| Copyright (C) 2003-2018 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, see |
| <http://www.gnu.org/licenses/>. */ |
| |
| #include <math.h> |
| #include <complex.h> |
| #include <tgmath.h> |
| #include <stdint.h> |
| #include <stdio.h> |
| |
| static float fx; |
| static double dx; |
| static long double lx; |
| static int rm = FP_INT_UPWARD; |
| static unsigned int width = 64; |
| 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, ## __VA_ARGS__)) != 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, ## __VA_ARGS__) |
| #define CHECK_RET_CONST_DOUBLE(func, rettype, ...) \ |
| CHECK_RET_CONST_TYPE (func, rettype, dx, double, ## __VA_ARGS__) |
| #define CHECK_RET_CONST_LDOUBLE(func, rettype, ...) \ |
| CHECK_RET_CONST_TYPE (func, rettype, lx, long double, ## __VA_ARGS__) |
| |
| #define CHECK_RET_CONST(func, rettype, ...) \ |
| static void \ |
| check_return_ ##func (void) \ |
| { \ |
| CHECK_RET_CONST_FLOAT (func, rettype, ## __VA_ARGS__) \ |
| CHECK_RET_CONST_DOUBLE (func, rettype, ## __VA_ARGS__) \ |
| CHECK_RET_CONST_LDOUBLE (func, rettype, ## __VA_ARGS__) \ |
| } |
| |
| CHECK_RET_CONST(ilogb, int) |
| CHECK_RET_CONST(llogb, long) |
| CHECK_RET_CONST(lrint, long) |
| CHECK_RET_CONST(lround, long) |
| CHECK_RET_CONST(llrint, long long) |
| CHECK_RET_CONST(llround, long long) |
| CHECK_RET_CONST(fromfp, intmax_t, rm, width) |
| CHECK_RET_CONST(ufromfp, uintmax_t, rm, width) |
| CHECK_RET_CONST(fromfpx, intmax_t, rm, width) |
| CHECK_RET_CONST(ufromfpx, uintmax_t, rm, width) |
| |
| static int |
| do_test (void) |
| { |
| check_return_ilogb (); |
| check_return_llogb (); |
| check_return_lrint (); |
| check_return_lround (); |
| check_return_llrint (); |
| check_return_llround (); |
| check_return_fromfp (); |
| check_return_ufromfp (); |
| check_return_fromfpx (); |
| check_return_ufromfpx (); |
| |
| printf ("%Zd\n", sizeof(carg (lx))); |
| |
| return errors != 0; |
| } |
| |
| #define TEST_FUNCTION do_test () |
| #include "../test-skeleton.c" |