1  // { dg-do run }
       2  // Test several constructs within a parallel.  At one point in development,
       3  // the critical directive clobbered the shared clause of the parallel.
       4  
       5  #include <omp.h>
       6  #include <stdlib.h>
       7  
       8  #define N       2000
       9  
      10  int main()
      11  {
      12    int A[N];
      13    int nthreads;
      14    int i;
      15  
      16  #pragma omp parallel shared (A, nthreads)
      17    {
      18      #pragma omp master
      19        nthreads = omp_get_num_threads ();
      20  
      21      #pragma omp for
      22        for (i = 0; i < N; i++)
      23          A[i] = 0;
      24  
      25      #pragma omp critical
      26        for (i = 0; i < N; i++)
      27          A[i] += 1;
      28    }
      29  
      30    for (i = 0; i < N; i++)
      31      if (A[i] != nthreads)
      32        abort ();
      33  
      34    return 0;
      35  }