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 }