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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gcc.dg/] [graphite/] [run-id-pr42644.c] - Blame information for rev 338

Line No.	Rev	Author	Line
1	298	jeremybenn	`/* Testcase extracted from test 183.equake in SPEC CPU2000. */`
2			`double Ke[2], ds[2];`
3
4			`void foo(double Ke[2], int i, double ds[], int column)`
5			`{`
6			`double tt, ts;`
7			`int j;`
8
9			`for (j = 0; j < 2; j++)`
10			`{`
11			`++column;`
12			`ts = ds[i];`
13			`if (i == j)`
14			`tt = 123;`
15			`else`
16			`tt = 0;`
17			`Ke[column] = Ke[column] + ts + tt;`
18			`}`
19			`}`
20
21			`int`
22			`main ()`
23			`{`
24			`int i, j;`
25
26			`ds[0] = 1.0;`
27			`ds[1] = 1.0;`
28
29			`foo(Ke, 0, ds, -1);`
30
31			`return (int) Ke[0] != 124;`
32			`}`