(root)/
gcc-13.2.0/
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  }