1  /* { dg-do compile } */
       2  
       3  static int *** foo (int);
       4  
       5  void
       6  bar ()
       7  {
       8    int ***p = foo (2);
       9  }
      10  
      11  extern int *nd;
      12  extern int ***tc;
      13  extern int *ap;
      14  extern int *as;
      15  extern float ss;
      16  
      17  static int ***
      18  foo (int Fc)
      19  {
      20    int i, j, s, p, n, t;
      21  
      22    n = 0;
      23    for (s = 0; s < 4; s++)
      24      n += nd[s];
      25  
      26    for (i = 0; i < n; i++)
      27      {
      28        p = ap[i];
      29        s = as[i];
      30        for (j = 0; j < Fc; j++)
      31  	tc[p][s][j] = i * ss + j;
      32      }
      33  
      34    return (tc);
      35  }
      36