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

Subversion Repositories openrisc

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

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


/* { dg-do compile } */
 
void
a20 ()
{
  int a = 1;
#pragma omp parallel
  {
    if (a != 0)
      {
#pragma omp flush(a)
      }
    if (a != 0)
      {
#pragma omp barrier
      }
  }
}

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* { dg-do compile } */`
2
3			`void`
4			`a20 ()`
5			`{`
6			`int a = 1;`
7			`#pragma omp parallel`
8			`{`
9			`if (a != 0)`
10			`{`
11			`#pragma omp flush(a)`
12			`}`
13			`if (a != 0)`
14			`{`
15			`#pragma omp barrier`
16			`}`
17			`}`
18			`}`

Browse

Tools

Subversion Repositories openrisc

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