(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.dg/
gomp/
pr35818.c
       1  /* PR middle-end/35818 */
       2  /* { dg-do compile } */
       3  /* { dg-options "-fopenmp" } */
       4  
       5  extern int a[];
       6  
       7  void
       8  foo (void)
       9  {
      10  #pragma omp parallel
      11  #pragma omp master
      12    a[3] = 1;
      13  #pragma omp parallel shared(a)
      14  #pragma omp master
      15    a[3] = 1;
      16  }