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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [appendix-a/] [a.1.1.c] - Blame information for rev 298

Line No.	Rev	Author	Line
1	298	jeremybenn	`/* { dg-do compile } */`
2
3			`void`
4			`a1 (int n, float a, float b)`
5			`{`
6			`int i;`
7			`#pragma omp parallel for`
8			`for (i = 1; i < n; i++) /* i is private by default */`
9			`b[i] = (a[i] + a[i - 1]) / 2.0;`
10			`}`