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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [930628-1.c] - Blame information for rev 801

Line No.	Rev	Author	Line
1	688	jeremybenn	`f (double x[2], double y[2])`
2			`{`
3			`if (x == y)`
4			`abort ();`
5			`}`
6
7			`main ()`
8			`{`
9			`struct { int f[3]; double x[1][2]; } tp[4][2];`
10			`int i, j, ki, kj, mi, mj;`
11			`float bdm[4][2][4][2];`
12
13			`for (i = 0; i < 4; i++)`
14			`for (j = i; j < 4; j++)`
15			`for (ki = 0; ki < 2; ki++)`
16			`for (kj = 0; kj < 2; kj++)`
17			`if ((j == i) && (ki == kj))`
18			`bdm[i][ki][j][kj] = 1000.0;`
19			`else`
20			`{`
21			`for (mi = 0; mi < 1; mi++)`
22			`for (mj = 0; mj < 1; mj++)`
23			`f (tp[i][ki].x[mi], tp[j][kj].x[mj]);`
24			`bdm[i][ki][j][kj] = 1000.0;`
25			`}`
26			`exit (0);`
27			`}`