gnu/dist/gcc4/gcc/testsuite/gcc.dg/vect/pr24300.c

   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
  37 /* { dg-final { cleanup-tree-dump "vect" } } */