Subversion Repositories openrisc

/* { dg-do run } */

/* { dg-options "-fno-omit-frame-pointer" } */

#define alloca __builtin_alloca

extern void abort (void);

__attribute__ ((noinline)) static double

bar (double a, double b, double c, double d, char *h)

{

  *h = 0;

  return a * b + b + c;

}

__attribute__ ((noinline)) static int

boo (double a, double b, double c, double d)

{

  return c * b + a + b;

}

__attribute__ ((noinline)) static double

foo (double a, double b, double c, double d)

{

 int aa = boo (b, c, d, a);

 return bar (a, b, c, d, (char *) alloca (aa))

        + bar (d, c, b, a, (char *) alloca (aa));

}

int main ()

{

  double a = 2.0, b = 3.0, c = 4.0, d = 5.0;

  double r1, r2;

  int aa;

  aa = boo (b, c, d, a);

  r1 = bar (a, b, c, d, (char *) alloca (aa))

       + bar (d, c, b, a, (char *) alloca (aa));

  r2 = foo (a, b, c, d);

  if (r1 != r2)

    abort ();

  return 0;

}