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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [graphite/] [run-id-pr42644.c] - Blame information for rev 801

Line No.	Rev	Author	Line
1	689	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			`extern void abort ();`
22
23			`int`
24			`main ()`
25			`{`
26			`int i, j;`
27
28			`ds[0] = 1.0;`
29			`ds[1] = 1.0;`
30
31			`foo(Ke, 0, ds, -1);`
32
33			`if ((int) Ke[0] != 124)`
34			`abort ();`
35
36			`return 0;`
37			`}`