1  extern void abort (void);
       2  
       3  int a = 18;
       4  
       5  void
       6  f1 (int i, int j, int k)
       7  {
       8    int l = 6, m = 7, n = 8;
       9  #pragma omp parallel private(j, m) shared(k, n) firstprivate(i, l) \
      10  	    num_threads(1)
      11    {
      12      j = 6;
      13      m = 5;
      14      if (++a != 19 || ++i != 9 || j != 6 || ++l != 7 || m != 5 || ++n != 9)
      15        #pragma omp atomic
      16  	k++;
      17    }
      18    if (a != 19 || i != 8 || j != 26 || k != 0 || l != 6 || m != 7 || n != 9)
      19      abort ();
      20  }
      21  
      22  int v1 = 1, v2 = 2, v5 = 5;
      23  int e;
      24  
      25  void
      26  f2 (void)
      27  {
      28    int v3 = 3;
      29  #pragma omp sections private (v1) firstprivate (v2)
      30    {
      31    #pragma omp section
      32      {
      33        int v4 = 4;
      34        v1 = 7;
      35        #pragma omp parallel num_threads(1) firstprivate(v1, v2, v3, v4)
      36  	{
      37  	  if (++v1 != 8 || ++v2 != 3 || ++v3 != 4 || ++v4 != 5 || ++v5 != 6)
      38  	    e = 1;
      39  	}
      40        if (v1 != 7 || v2 != 2 || v3 != 3 || v4 != 4 || v5 != 6)
      41  	abort ();
      42        if (e)
      43  	abort ();
      44      }
      45    }
      46  }
      47  
      48  int
      49  main (void)
      50  {
      51    f1 (8, 26, 0);
      52    f2 ();
      53    return 0;
      54  }