1  // { dg-do run }
       2  
       3  extern void abort(void);
       4  #define N 1000
       5  
       6  int foo()
       7  {
       8    int i = 0, j;
       9  
      10    #pragma omp parallel for num_threads(2) shared (i)
      11    for (j = 0; j < N; ++j)
      12      {
      13        #pragma omp parallel num_threads(1) shared (i)
      14        {
      15  	#pragma omp atomic
      16  	i++;
      17        }
      18      }
      19  
      20    return i;
      21  }
      22  
      23  int main()
      24  {
      25    if (foo() != N)
      26      abort ();
      27    return 0;
      28  }