Subversion Repositories openrisc

/* { dg-do run } */

/* { dg-options "-fipa-pta" } */

typedef unsigned long ulong;

int __attribute__((noinline, noclone))

f4 (int a, int b, int c, int d, int e)

{

  return a + b + c + d + e;

}

void __attribute__((noinline, noclone))

f3 (int *p)

{

  *p = f4(1, 2, 3, 4, 5);

}

void __attribute__((noinline, noclone))

f2 ()

{

  int unused;

  f3 (&unused);

}

void __attribute__((noinline, noclone))

f1 (ulong e, ulong f)

{

  if (e > 5 || f > 5) __builtin_abort();

  f2 ();

}

int main()

{

 ulong e, f;

 for (e = 5; e > 0; e--)

   for (f = 5; f > 0; f--)

     f1(e, f);

 return 0;

}