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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [pr27416.c] - Blame information for rev 749

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


/* PR middle-end/27416 */
/* { dg-do compile } */
 
void
foo (void)
{
  int i = 0, j = 0;
#pragma omp for firstprivate (j) /* { dg-error "is private in outer context" } */
  for (i = 0; i < 10; i++)
    j++;
}
 
int
bar (void)
{
  int i, j;
#pragma omp for lastprivate (j) /* { dg-error "is private in outer context" } */
  for (i = 0; i < 10; i++)
    j = i;
  return j;
}
 
int
baz (void)
{
  int i, j = 0;
#pragma omp for reduction (+:j) /* { dg-error "is private in outer context" } */
  for (i = 0; i < 10; i++)
    j++;
  return j;
}

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* PR middle-end/27416 */`
2			`/* { dg-do compile } */`
3
4			`void`
5			`foo (void)`
6			`{`
7			`int i = 0, j = 0;`
8			`#pragma omp for firstprivate (j) /* { dg-error "is private in outer context" } */`
9			`for (i = 0; i < 10; i++)`
10			`j++;`
11			`}`
12
13			`int`
14			`bar (void)`
15			`{`
16			`int i, j;`
17			`#pragma omp for lastprivate (j) /* { dg-error "is private in outer context" } */`
18			`for (i = 0; i < 10; i++)`
19			`j = i;`
20			`return j;`
21			`}`
22
23			`int`
24			`baz (void)`
25			`{`
26			`int i, j = 0;`
27			`#pragma omp for reduction (+:j) /* { dg-error "is private in outer context" } */`
28			`for (i = 0; i < 10; i++)`
29			`j++;`
30			`return j;`
31			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [gomp/] [pr27416.c] - Blame information for rev 749