URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 298 |
Rev 384 |
/* { dg-do compile } */
|
/* { dg-do compile } */
|
/* { dg-options "-O2 -fdump-tree-alias" } */
|
/* { dg-options "-O2 -fdump-tree-alias" } */
|
extern double cos (double);
|
extern double cos (double);
|
extern double sin (double);
|
extern double sin (double);
|
double f(double a)
|
double f(double a)
|
{
|
{
|
double b;
|
double b;
|
double c,d;
|
double c,d;
|
double (*fp) (double);
|
double (*fp) (double);
|
if (a < 2.0)
|
if (a < 2.0)
|
{
|
{
|
fp = sin;
|
fp = sin;
|
c = fp (a);
|
c = fp (a);
|
}
|
}
|
else
|
else
|
{
|
{
|
c = 1.0;
|
c = 1.0;
|
fp = cos;
|
fp = cos;
|
}
|
}
|
d = fp (a);
|
d = fp (a);
|
return d + c;
|
return d + c;
|
}
|
}
|
/* The points-to set of the final function pointer should be "sin cos" */
|
/* The points-to set of the final function pointer should be "sin cos" */
|
|
|
/* { dg-final { scan-tree-dump-times "{ sin cos }" 1 "alias"} } */
|
/* { dg-final { scan-tree-dump-times "{ sin cos }" 1 "alias"} } */
|
/* { dg-final { cleanup-tree-dump "alias" } } */
|
/* { dg-final { cleanup-tree-dump "alias" } } */
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.