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

   1 /* { dg-do compile } */
   2
   3 void work (int, int);
   4
   5 void
   6 wrong3 (int n)
   7 {
   8 #pragma omp parallel default(shared)
   9   {
  10     int i;
  11 #pragma omp for
  12     for (i = 0; i < n; i++)
  13       {
  14 /* incorrect nesting of regions */
  15 #pragma omp single
  16         work (i, 0);
  17       }
  18   }
  19 }