19 lines
424 B
C
19 lines
424 B
C
/* { 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 */
|
|
}
|
|
}
|