URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 298 |
Rev 338 |
/* { dg-do compile } */
|
/* { dg-do compile } */
|
/* { dg-options "-O1 -fschedule-insns2 -fsched2-use-superblocks" } */
|
/* { dg-options "-O1 -fschedule-insns2 -fsched2-use-superblocks" } */
|
/* { dg-skip-if "No scheduling" { mmix-*-* cris-*-* crisv32-*-* fido-*-* m68k-*-* m32c-*-* avr-*-* moxie-*-* } { "*" } { "" } } */
|
/* { dg-skip-if "No scheduling" { mmix-*-* cris-*-* crisv32-*-* fido-*-* m68k-*-* m32c-*-* avr-*-* moxie-*-* } { "*" } { "" } } */
|
|
|
extern double f (double x);
|
extern double f (double x);
|
|
|
double g (int a)
|
double g (int a)
|
{
|
{
|
int b, c, d, e = 0;
|
int b, c, d, e = 0;
|
double h;
|
double h;
|
|
|
for (d = 0; d < a; d++)
|
for (d = 0; d < a; d++)
|
for (c = 0; c < a; c++)
|
for (c = 0; c < a; c++)
|
b = 1;
|
b = 1;
|
|
|
h = (double) e / (double) a;
|
h = (double) e / (double) a;
|
|
|
if (h)
|
if (h)
|
{
|
{
|
h = 1.0 / h;
|
h = 1.0 / h;
|
h = f (h);
|
h = f (h);
|
}
|
}
|
else
|
else
|
h = 1.0;
|
h = 1.0;
|
|
|
return h;
|
return h;
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.