gcc/testsuite/gcc.dg/gomp/sharing-2.c

   1 /* { dg-do compile } */
   2
   3 void
   4 foo (void)
   5 {
   6   int i;
   7   int a[10];
   8   #pragma omp parallel private (i) shared (a)
   9   {
  10     i = 1;
  11     #pragma omp parallel shared (a, i)
  12     {
  13       #pragma omp master
  14         i = 2;
  15       #pragma omp parallel private (i) shared (a)
  16       {
  17         for (i = 0; i < 10; i++)
  18           a[i] = i + 1;
  19       }
  20       #pragma omp master
  21         i = 3;
  22     }
  23     i = 4;
  24   }
  25 }