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.1.c] - Blame information for rev 749

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


/* { dg-do compile } */
 
void
a20_wrong ()
{
  int a = 1;
#pragma omp parallel
  {
    if (a != 0)
#pragma omp flush(a)    /* { dg-error "'#pragma omp flush' may only" } */
/* incorrect as flush cannot be immediate substatement
    of if statement */
      if (a != 0)
#pragma omp barrier     /* { dg-error "'#pragma omp barrier' may only" } */
/* incorrect as barrier cannot be immediate substatement
    of if statement */
  }
}

Line No.	Rev	Author	Line
1	689	jeremybenn	`/* { dg-do compile } */`
2
3			`void`
4			`a20_wrong ()`
5			`{`
6			`int a = 1;`
7			`#pragma omp parallel`
8			`{`
9			`if (a != 0)`
10			`#pragma omp flush(a) /* { dg-error "'#pragma omp flush' may only" } */`
11			`/* incorrect as flush cannot be immediate substatement`
12			`of if statement */`
13			`if (a != 0)`
14			`#pragma omp barrier /* { dg-error "'#pragma omp barrier' may only" } */`
15			`/* incorrect as barrier cannot be immediate substatement`
16			`of if statement */`
17			`}`
18			`}`

Browse

Tools

Subversion Repositories openrisc

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