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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [pr26412.c] - Blame information for rev 853

Go to most recent revision | Details | Compare with Previous | View Log


/* PR middle-end/26412 */
/* { dg-do compile } */
 
extern double a[];
extern int b;
 
double
test (void)
{
  int i;
  double c = 0;
 
#pragma omp parallel for private(i) reduction(+:c)
  for (i = 0; i < 10000; i++)
    c += a[b];
 
  return c;
}

Line No.	Rev	Author	Line
1	149	jeremybenn	`/* PR middle-end/26412 */`
2			`/* { dg-do compile } */`
3
4			`extern double a[];`
5			`extern int b;`
6
7			`double`
8			`test (void)`
9			`{`
10			`int i;`
11			`double c = 0;`
12
13			`#pragma omp parallel for private(i) reduction(+:c)`
14			`for (i = 0; i < 10000; i++)`
15			`c += a[b];`
16
17			`return c;`
18			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [pr26412.c] - Blame information for rev 853