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

Subversion Repositories openrisc

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

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


/* PR middle-end/44085 */
/* { dg-do compile } */
/* { dg-require-effective-target tls_native } */
/* { dg-options "-fopenmp" } */
 
int thr1, thr2;
#pragma omp threadprivate (thr1, thr2)
 
void
foo (void)
{
#pragma omp task untied /* { dg-error "enclosing task" } */
  {
    thr1++;             /* { dg-error "used in untied task" } */
    thr2 |= 4;          /* { dg-error "used in untied task" } */
  }
}
 
void
bar (void)
{
#pragma omp task
  {
    thr1++;
    thr2 |= 4;
  }
}

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* PR middle-end/44085 */`
2			`/* { dg-do compile } */`
3			`/* { dg-require-effective-target tls_native } */`
4			`/* { dg-options "-fopenmp" } */`
5
6			`int thr1, thr2;`
7			`#pragma omp threadprivate (thr1, thr2)`
8
9			`void`
10			`foo (void)`
11			`{`
12			`#pragma omp task untied /* { dg-error "enclosing task" } */`
13			`{`
14			`thr1++; /* { dg-error "used in untied task" } */`
15			`thr2 \|= 4; /* { dg-error "used in untied task" } */`
16			`}`
17			`}`
18
19			`void`
20			`bar (void)`
21			`{`
22			`#pragma omp task`
23			`{`
24			`thr1++;`
25			`thr2 \|= 4;`
26			`}`
27			`}`

Browse

Tools

Subversion Repositories openrisc

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