diff options
author | upstream source tree <ports@midipix.org> | 2015-03-15 20:14:05 -0400 |
---|---|---|
committer | upstream source tree <ports@midipix.org> | 2015-03-15 20:14:05 -0400 |
commit | 554fd8c5195424bdbcabf5de30fdc183aba391bd (patch) | |
tree | 976dc5ab7fddf506dadce60ae936f43f58787092 /gcc/testsuite/gcc.dg/builtins-10.c | |
download | cbb-gcc-4.6.4-upstream.tar.bz2 cbb-gcc-4.6.4-upstream.tar.xz |
obtained gcc-4.6.4.tar.bz2 from upstream website;upstream
verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.
downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.
if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.
Diffstat (limited to 'gcc/testsuite/gcc.dg/builtins-10.c')
-rw-r--r-- | gcc/testsuite/gcc.dg/builtins-10.c | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.dg/builtins-10.c b/gcc/testsuite/gcc.dg/builtins-10.c new file mode 100644 index 000000000..1b141fda2 --- /dev/null +++ b/gcc/testsuite/gcc.dg/builtins-10.c @@ -0,0 +1,55 @@ +/* Copyright (C) 2003 Free Software Foundation. + + Check that constant folding of built-in math functions doesn't + break anything and produces the expected results. + + Written by Roger Sayle, 2nd April 2003. */ + +/* { dg-do link } */ +/* { dg-options "-O2 -ffast-math" } */ + +extern void link_error(void); + +extern double exp(double); +extern double log(double); +extern double sqrt(double); +extern double pow(double,double); +extern double fabs(double); + +void test(double x) +{ + if (sqrt(pow(x,4.0)) != x*x) + link_error (); + + if (pow(sqrt(x),4.0) != x*x) + link_error (); + + if (pow(pow(x,4.0),0.25) != x) + /* XFAIL. PR41098. */; +} + +void test2(double x, double y, double z) +{ + if (sqrt(pow(x,y)) != pow(fabs(x),y*0.5)) + link_error (); + + if (log(pow(x,y)) != y*log(x)) + link_error (); + + if (pow(exp(x),y) != exp(x*y)) + link_error (); + + if (pow(sqrt(x),y) != pow(x,y*0.5)) + link_error (); + + if (pow(pow(fabs(x),y),z) != pow(fabs(x),y*z)) + link_error (); +} + +int main() +{ + test (2.0); + test2 (2.0, 3.0, 4.0); + return 0; +} + |