URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 149 |
Rev 154 |
/* { dg-do link } */
|
/* { dg-do link } */
|
/* { dg-options "-O2 -ffast-math" } */
|
/* { dg-options "-O2 -ffast-math" } */
|
|
|
double cabs(__complex__ double);
|
double cabs(__complex__ double);
|
float cabsf(__complex__ float);
|
float cabsf(__complex__ float);
|
long double cabsl(__complex__ long double);
|
long double cabsl(__complex__ long double);
|
|
|
void link_error (void);
|
void link_error (void);
|
|
|
void test(__complex__ double x)
|
void test(__complex__ double x)
|
{
|
{
|
if (cabs(x) != cabs(-x))
|
if (cabs(x) != cabs(-x))
|
link_error();
|
link_error();
|
|
|
if (cabs(x) != cabs(~x))
|
if (cabs(x) != cabs(~x))
|
link_error();
|
link_error();
|
}
|
}
|
|
|
void testf(__complex__ float x)
|
void testf(__complex__ float x)
|
{
|
{
|
if (cabsf(x) != cabsf(-x))
|
if (cabsf(x) != cabsf(-x))
|
link_error();
|
link_error();
|
|
|
if (cabsf(x) != cabsf(~x))
|
if (cabsf(x) != cabsf(~x))
|
link_error();
|
link_error();
|
}
|
}
|
|
|
void testl(__complex__ long double x)
|
void testl(__complex__ long double x)
|
{
|
{
|
if (cabsl(x) != cabsl(-x))
|
if (cabsl(x) != cabsl(-x))
|
link_error();
|
link_error();
|
|
|
if (cabsl(x) != cabsl(~x))
|
if (cabsl(x) != cabsl(~x))
|
link_error();
|
link_error();
|
}
|
}
|
|
|
int main()
|
int main()
|
{
|
{
|
test(0.0);
|
test(0.0);
|
testf(0.0);
|
testf(0.0);
|
testl(0.0);
|
testl(0.0);
|
return 0;
|
return 0;
|
}
|
}
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.