blob: 7a79e96c8a26f1ca097b3cd74e198f6652abdd88 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
/* { 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" } } */
|
