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-18.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-18.c')
-rw-r--r-- | gcc/testsuite/gcc.dg/builtins-18.c | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.dg/builtins-18.c b/gcc/testsuite/gcc.dg/builtins-18.c new file mode 100644 index 000000000..9afaca23a --- /dev/null +++ b/gcc/testsuite/gcc.dg/builtins-18.c @@ -0,0 +1,65 @@ +/* Copyright (C) 2003 Free Software Foundation. + + Check that built-in cabs, cabsf and cabsl functions don't + break anything and produces the expected results. + + Written by Roger Sayle, 1st June 2003. */ + +/* { dg-do link } */ +/* { dg-options "-O2 -ffast-math" } */ +/* { dg-add-options c99_runtime } */ + +#include "builtins-config.h" + +extern void link_error(void); + +extern float cabsf (float _Complex); +extern double cabs (double _Complex); +extern long double cabsl (long double _Complex); + +int +main (void) +{ + /* For each type, test both runtime and compile time (constant folding) + optimization. */ + float _Complex fc = 3.0F + 4.0iF; + double _Complex dc = 3.0 + 4.0i; + long double _Complex ldc = 3.0L + 4.0iL; + +#ifdef HAVE_C99_RUNTIME + /* Test floats. */ + if (cabsf (fc) != 5.0F) + link_error (); + if (__builtin_cabsf (fc) != 5.0F) + link_error (); + if (cabsf (3.0F + 4.0iF) != 5.0F) + link_error (); + if (__builtin_cabsf (3.0F + 4.0iF) != 5.0F) + link_error (); +#endif + + /* Test doubles. */ + if (cabs (dc) != 5.0) + link_error (); + if (__builtin_cabs (dc) != 5.0) + link_error (); + if (cabs (3.0 + 4.0i) != 5.0) + link_error (); + if (__builtin_cabs (3.0 + 4.0i) != 5.0) + link_error (); + +#ifdef HAVE_C99_RUNTIME + /* Test long doubles. */ + if (cabsl (ldc) != 5.0L) + link_error (); + if (__builtin_cabsl (ldc) != 5.0L) + link_error (); + if (cabsl (3.0L + 4.0iL) != 5.0L) + link_error (); + if (__builtin_cabsl (3.0L + 4.0iL) != 5.0L) + link_error (); +#endif + + return 0; +} + |