Subversion Repositories openrisc

/* { dg-do compile } */
 
static int *** foo (int);
 
void
bar ()
{
  int ***p = foo (2);
}
 
extern int *nd;
extern int ***tc;
extern int *ap;
extern int *as;
extern float ss;
 
static int ***
foo (int Fc)
{
  int i, j, s, p, n, t;
 
  n = 0;
  for (s = 0; s < 4; s++)
    n += nd[s];
 
  for (i = 0; i < n; i++)
    {
      p = ap[i];
      s = as[i];
      for (j = 0; j < Fc; j++)
	tc[p][s][j] = i * ss + j;
    }
 
  return (tc);
}
 
/* { dg-final { cleanup-tree-dump "vect" } } */