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

   1 /* { dg-do compile } */
   2
   3 void
   4 wrong4 (int n)
   5 {
   6 #pragma omp parallel default(shared)
   7   {
   8     int i;
   9 #pragma omp for
  10     for (i = 0; i < n; i++)
  11       {
  12         work (i, 0);
  13         /* incorrect nesting of barrier region in a loop region */
  14 #pragma omp barrier     /* { dg-warning "may not be closely nested" } */
  15         work (i, 1);
  16       }
  17   }
  18 }