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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	688	jeremybenn	`double q(double);`
2
3			`f (int *x, int r, int *s, int a, int b, int c, int d)`
4			`{`
5			`int i, j, k, m, e, f, g, z[1024], y[2];`
6
7			`e = g = 0;`
8			`for (i = 0; i < a; i++)`
9			`for (j = 0; j < b; j++)`
10			`if (x[i][j])`
11			`for (k = 0; k < c; k++)`
12			`{`
13			`f = q(1.5) + q(2.5);`
14			`if (g < y[f])`
15			`g = e;`
16			`}`
17			`for (m = 0; m < 1; m++)`
18			`z[0] = m2d/3.0 - d;`
19			`}`