gcc/testsuite/gcc.dg/gomp/appendix-a/a.20.1.c

   1 /* { 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 }