Subversion Repositories openrisc

/* { dg-do run } */

/* { dg-options "-O -fno-inline" } */

extern void abort (void);

/* Return 0 and clobber the static chain.  */

int

zero (int n)

{

  int

  nested (int m)

  {

    return m - n;

  }

  return nested (n);

}

/* Return the triple of ARG in a convoluted manner.  */

int

triple (int arg)

{

  int

  read_arg (void)

  {

    return arg;

  }

  int

  parent (int nested_arg)

  {

    int

    child1 (void)

    {

      return parent (zero (5));

    }

    int

    child2 (void)

    {

      return nested_arg + read_arg ();

    }

    return (nested_arg == 0 ? 0 : child1 ()) + child2 ();

  }

  return parent (arg);

}

int main(void)

{

  if (triple (13) != 3 * 13)

    abort ();

  return 0;

}