Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.dg/builtins-19.c @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* Copyright (C) 2003 Free Software Foundation. Check that cabs of a non-complex argument is converted into fabs. Written by Roger Sayle, 1st June 2003. */ /* { dg-do link } */ /* { dg-options "-O2 -ffast-math" } */ double cabs (__complex__ double); float cabsf (__complex__ float); long double cabsl (__complex__ long double); double fabs (double); float fabsf (float); long double fabsl (long double); void link_error (void); void test (double x) { if (cabs (x) != fabs (x)) link_error (); } void testf (float x) { if (cabsf (x) != fabsf (x)) link_error (); } void testl (long double x) { if (cabsl (x) != fabsl (x)) link_error (); } int main () { test (1.0); testf (1.0f); testl (1.0l); return 0; }