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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [g++.dg/] [torture/] [pr49644.C] - Blame information for rev 774

Line No.	Rev	Author	Line
1	693	jeremybenn	`// PR c/49644`
2			`// { dg-do run }`
3
4			`extern "C" void abort ();`
5
6			`int`
7			`main ()`
8			`{`
9			`_Complex double a[12], *c = a, s = 3.0 + 1.0i;`
10			`double b[12] = { 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 }, *d = b;`
11			`int i;`
12			`for (i = 0; i < 6; i++)`
13			`c++ = d++ * s;`
14			`if (c != a + 6 \|\| d != b + 6)`
15			`abort ();`
16			`return 0;`
17			`}`