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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [libgomp/] [testsuite/] [libgomp.c++/] [pr49043.C] - Blame information for rev 801

Line No.	Rev	Author	Line
1	735	jeremybenn	`// PR c++/49043`
2			`// { dg-options "-std=c++0x" }`
3			`// { dg-do run }`
4
5			`extern "C" void abort ();`
6
7			`int`
8			`main ()`
9			`{`
10			`int r = 0;`
11			`#pragma omp parallel for reduction (+:r)`
12			`for (int a = 0; a < 10; ++a)`
13			`{`
14			`auto func = [=] () { return a; };`
15			`r += func ();`
16			`}`
17			`if (r != 45)`
18			`abort ();`
19			`}`