1  /* PR c/65467 */
       2  /* { dg-do compile } */
       3  /* { dg-additional-options "-std=c11" } */
       4  
       5  _Atomic int t;
       6  #pragma omp threadprivate (t)
       7  
       8  void
       9  foo (void)
      10  {
      11    _Atomic int a = 4, b = 0, c, d = 3, e;
      12    a++;
      13    #pragma omp parallel sections num_threads (a) shared (b) private (c) firstprivate (d) lastprivate (e)
      14    {
      15    #pragma omp section
      16      {
      17        a++;
      18        b++;
      19        c = 5;
      20        c++;
      21        d++;
      22        e = 9;
      23        e++;
      24      }
      25    #pragma omp section
      26      {
      27        a++;
      28        b++;
      29        c = 5;
      30        c++;
      31        d++;
      32        e = 3;
      33        e++;
      34      }
      35    }
      36    e++;
      37    t++;
      38    #pragma omp parallel copyin (t) private (e)
      39    {
      40      t++;
      41      e = t;
      42      #pragma omp single copyprivate (e)
      43      {
      44        e++;
      45      }
      46      e++;
      47    }
      48  }
      49  
      50  void
      51  bar (void)
      52  {
      53    int a[4];
      54    _Atomic int b = 1, c = 2, f = 8, g = 8, h = 0;
      55    _Atomic int d, e[3];
      56    int *_Atomic p;
      57    _Atomic int *_Atomic q;
      58    int i, j;
      59    p = a;
      60    q = e;
      61    #pragma omp target teams map (tofrom: a[b:c]) num_teams (b) thread_limit (c)
      62    a[1]++;
      63    #pragma omp target device(h)
      64    ;
      65    #pragma omp task depend (inout: a[b:c])
      66    ;
      67    #pragma omp task depend (out: d, e[b:c]) priority (b)
      68    ;
      69    #pragma omp task depend (out: p[b:c])
      70    ;
      71    #pragma omp task depend (out: q[b:c])
      72    ;
      73    #pragma omp taskloop num_tasks (c)
      74    for (i = 0; i < 16; i++)
      75      ;
      76    #pragma omp taskloop grainsize (c)
      77    for (i = 0; i < 16; i++)
      78      ;
      79    #pragma omp parallel for schedule (dynamic, b)
      80    for (i = 0; i < 16; i++)
      81      ;
      82    j = 0;
      83    #pragma omp simd linear(j:b)
      84    for (i = 0; i < 16; i++)
      85      j += b;
      86    j = 4;
      87    #pragma omp atomic read
      88    b = j;
      89    #pragma omp atomic write
      90    j = c;
      91    #pragma omp atomic
      92    j += c;
      93    #pragma omp atomic capture
      94    b = j += c;
      95    #pragma omp atomic capture
      96    b = ++j;
      97    #pragma omp atomic capture
      98    { b = j; j = c; }
      99    #pragma omp atomic capture
     100    { b = j; j++; }
     101    #pragma omp atomic capture
     102    { j *= c; b = j; }
     103  }