URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 154 |
Rev 816 |
/* Copyright (C) 2003 Free Software Foundation.
|
/* Copyright (C) 2003 Free Software Foundation.
|
|
|
Verify that all the __builtin_cabs? functions are recognized
|
Verify that all the __builtin_cabs? functions are recognized
|
by the compiler. Complex numbers are not supported with the
|
by the compiler. Complex numbers are not supported with the
|
gcc.dg default "-pedantic-errors" option, so the dg-options
|
gcc.dg default "-pedantic-errors" option, so the dg-options
|
overrides this.
|
overrides this.
|
|
|
Written by Roger Sayle, 1st June 2003. */
|
Written by Roger Sayle, 1st June 2003. */
|
|
|
/* { dg-do compile } */
|
/* { dg-do compile } */
|
/* { dg-options "-O -ansi" } */
|
/* { dg-options "-O -ansi" } */
|
/* { dg-final { scan-assembler-not "__builtin_" } } */
|
/* { dg-final { scan-assembler-not "__builtin_" } } */
|
|
|
double test(__complex__ double x)
|
double test(__complex__ double x)
|
{
|
{
|
return __builtin_cabs (x);
|
return __builtin_cabs (x);
|
}
|
}
|
|
|
float testf(__complex__ float x)
|
float testf(__complex__ float x)
|
{
|
{
|
return __builtin_cabsf (x);
|
return __builtin_cabsf (x);
|
}
|
}
|
|
|
long double testl(__complex__ long double x)
|
long double testl(__complex__ long double x)
|
{
|
{
|
return __builtin_cabsl (x);
|
return __builtin_cabsl (x);
|
}
|
}
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.