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

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