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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [pr50017.c] - Blame information for rev 750

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* PR debug/50017 */`
2			`/* { dg-do compile } */`
3			`/* { dg-options "-O3 -fcompare-debug" } */`
4
5			`struct S { int r, i; };`
6
7			`void`
8			`foo (struct S *x, int y)`
9			`{`
10			`int i;`
11			`for (i = 1; i < y; i++)`
12			`{`
13			`struct S a, b, c;`
14			`a = x[0];`
15			`b = x[i];`
16			`c.r = a.r * b.r - a.i * b.i;`
17			`c.i = a.r * b.i + a.i * b.r;`
18			`x[i] = c;`
19			`}`
20			`}`