URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [vect/] [pr24300.c] - Blame information for rev 689

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* { 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" } } */`