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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [20011219-1.c] - Blame information for rev 774

Line No.	Rev	Author	Line
1	688	jeremybenn	`/* This testcase failed on IA-64 at -O2 during scheduling. */`
2
3			`void * baz (unsigned long);`
4			`static inline double **`
5			`bar (long w, long x, long y, long z)`
6			`{`
7			`long i, a = x - w + 1, b = z - y + 1;`
8			`double m = (double ) baz (sizeof (double ) (a + 1));`
9
10			`m += 1;`
11			`m -= w;`
12			`m[w] = (double ) baz (sizeof (double) (a * b + 1));`
13			`m[w] += 1;`
14			`m[w] -= y;`
15			`for (i = w + 1; i <= x; i++)`
16			`m[i] = m[i - 1] + b;`
17			`return m;`
18			`}`
19
20			`void`
21			`foo (double w[], int x, double y[], double z[])`
22			`{`
23			`int i;`
24			`double **a;`
25
26			`a = bar (1, 50, 1, 50);`
27			`for (i = 1; i <= x; i++)`
28			`a[1][i] = - w[x - i] / w[x];`
29			`}`