| /* { 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" } } */ |