URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gcc.dg/] [torture/] [builtin-symmetric-1.c] - Rev 839
Go to most recent revision | Compare with Previous | Blame | View Log
/* Copyright (C) 2006 Free Software Foundation. Verify that built-in math function folding of symmetric even and odd functions is correctly performed by the compiler. Origin: Kaveh R. Ghazi, November 09, 2006. */ /* { dg-do link } */ /* { dg-options "-ffast-math" } */ /* All references to link_error should go away at compile-time. */ extern void link_error(int); /* Test that FUNC(-ARG) == FUNC(ARG). */ #define TESTIT_EVEN(FUNC) do { \ if (__builtin_##FUNC##f(-xf) != __builtin_##FUNC##f(xf)) \ link_error(__LINE__); \ if (__builtin_##FUNC(-x) != __builtin_##FUNC(x)) \ link_error(__LINE__); \ if (__builtin_##FUNC##l(-xl) != __builtin_##FUNC##l(xl)) \ link_error(__LINE__); \ } while (0) /* Test that FUNC(-ARG) == FUNC(ARG), where ARG has a complex type. */ #define TESTIT_EVEN_C(FUNC) do { \ if (__builtin_##FUNC##f(-cxf) != __builtin_##FUNC##f(cxf)) \ link_error(__LINE__); \ if (__builtin_##FUNC(-cx) != __builtin_##FUNC(cx)) \ link_error(__LINE__); \ if (__builtin_##FUNC##l(-cxl) != __builtin_##FUNC##l(cxl)) \ link_error(__LINE__); \ } while (0) /* Test that FUNC(-VAR) == FUNC(VAR), where VAR has an int type. */ #define TESTIT_EVEN_I(FUNC,VAR) do { \ if (__builtin_##FUNC(-VAR) != __builtin_##FUNC(VAR)) \ link_error(__LINE__); \ } while (0) /* Test that -FUNC(ARG) == FUNC(-ARG). */ #define TESTIT_ODD(FUNC) do { \ if (-__builtin_##FUNC##f(-xf) != __builtin_##FUNC##f(xf)) \ link_error(__LINE__); \ if (-__builtin_##FUNC(-x) != __builtin_##FUNC(x)) \ link_error(__LINE__); \ if (-__builtin_##FUNC##l(-xl) != __builtin_##FUNC##l(xl)) \ link_error(__LINE__); \ } while (0) /* Test that -FUNC(ARG) == FUNC(-ARG), where ARG has a complex type. */ #define TESTIT_ODD_C(FUNC) do { \ if (-__builtin_##FUNC##f(-cxf) != __builtin_##FUNC##f(cxf)) \ link_error(__LINE__); \ if (-__builtin_##FUNC(-cx) != __builtin_##FUNC(cx)) \ link_error(__LINE__); \ if (-__builtin_##FUNC##l(-cxl) != __builtin_##FUNC##l(cxl)) \ link_error(__LINE__); \ } while (0) void foo (float xf, double x, long double xl, __complex__ float cxf, __complex__ double cx, __complex__ long double cxl, int i, long l, long long ll, __INTMAX_TYPE__ im) { TESTIT_EVEN(cos); TESTIT_EVEN(cosh); TESTIT_EVEN(fabs); TESTIT_EVEN_C(ccos); TESTIT_EVEN_C(ccosh); TESTIT_EVEN_C(cabs); TESTIT_EVEN_I(abs, i); TESTIT_EVEN_I(imaxabs, im); TESTIT_EVEN_I(labs, l); TESTIT_EVEN_I(llabs, ll); TESTIT_ODD(asin); TESTIT_ODD(asinh); TESTIT_ODD(atan); TESTIT_ODD(atanh); TESTIT_ODD(cbrt); TESTIT_ODD(erf); TESTIT_ODD(llrint); TESTIT_ODD(llround); TESTIT_ODD(lrint); TESTIT_ODD(lround); TESTIT_ODD(nearbyint); TESTIT_ODD(rint); TESTIT_ODD(round); TESTIT_ODD(sin); TESTIT_ODD(sinh); TESTIT_ODD(tan); TESTIT_ODD(tanh); TESTIT_ODD(trunc); TESTIT_ODD_C(casin); TESTIT_ODD_C(casinh); TESTIT_ODD_C(catan); TESTIT_ODD_C(catanh); TESTIT_ODD_C(cproj); TESTIT_ODD_C(csin); TESTIT_ODD_C(csinh); TESTIT_ODD_C(ctan); TESTIT_ODD_C(ctanh); } int main() { foo (1,1,1,1,1,1,1,1,1,1); return 0; }
Go to most recent revision | Compare with Previous | Blame | View Log