URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 297 |
Rev 338 |
/* { dg-options "-ffast-math" } */
|
/* { dg-options "-ffast-math" } */
|
|
|
/* Fast maths allows tail recursion to be turned into iteration. */
|
/* Fast maths allows tail recursion to be turned into iteration. */
|
|
|
double
|
double
|
foo (int n, double f)
|
foo (int n, double f)
|
{
|
{
|
if (n == 0)
|
if (n == 0)
|
return f;
|
return f;
|
else
|
else
|
return f + foo (n - 1, f);
|
return f + foo (n - 1, f);
|
}
|
}
|
|
|
double
|
double
|
bar (int n, double f)
|
bar (int n, double f)
|
{
|
{
|
if (n == 0)
|
if (n == 0)
|
return f;
|
return f;
|
else
|
else
|
return f * bar (n - 1, f);
|
return f * bar (n - 1, f);
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.