1  void
       2  foo (int x, int *y, int n, int v)
       3  {
       4    int z[3] = { 45, 46, 47 };
       5    int u[n], w[n], i;
       6    for (i = 0; i < n; i++)
       7      w[i] = u[i] = n + i;
       8    #pragma omp taskgroup task_reduction (+: x, y[:2], z[1:2], u, w[1:v])
       9    {
      10      #pragma omp task in_reduction (+: x, y[:2], z[1:2], u, w[1:v])
      11      {
      12        x++;
      13        y[0] += 2;
      14        y[1] += 3;
      15        z[1] += 4;
      16        u[0] += 5;
      17        w[1] += 6;
      18      }
      19      #pragma omp target in_reduction (+: x, y[:2], z[1:2], u, w[1:v])
      20      {
      21        x += 4;
      22        y[0] += 5;
      23        y[1] += 6;
      24        z[2] += 7;
      25        u[1] += 8;
      26        w[2] += 7;
      27      }
      28      #pragma omp target in_reduction (+: x, y[:v], z[1:v], u, w[1:2])
      29      {
      30        x += 9;
      31        y[0] += 10;
      32        y[1] += 11;
      33        z[1] += 12;
      34        u[2] += 13;
      35        w[1] += 14;
      36      }
      37    }
      38    if (x != 56 || y[0] != 60 || y[1] != 64)
      39      __builtin_abort ();
      40    if (z[0] != 45 || z[1] != 62 || z[2] != 54)
      41      __builtin_abort ();
      42    if (u[0] != 8 || u[1] != 12 || u[2] != 18)
      43      __builtin_abort ();
      44    if (w[0] != 3 || w[1] != 24 || w[2] != 12)
      45      __builtin_abort ();
      46  }
      47  
      48  void
      49  bar (int x, int *y, int n, int v)
      50  {
      51    int z[3] = { 45, 46, 47 };
      52    int u[n], w[n], i;
      53    for (i = 0; i < n; i++)
      54      w[i] = u[i] = n + i;
      55    #pragma omp parallel master
      56    #pragma omp taskgroup task_reduction (+: x, y[:2], z[1:2], u, w[1:v])
      57    {
      58      #pragma omp task in_reduction (+: x, y[:2], z[1:2], u, w[1:v])
      59      {
      60        x++;
      61        y[0] += 2;
      62        y[1] += 3;
      63        z[1] += 4;
      64        u[0] += 5;
      65        w[1] += 6;
      66      }
      67      #pragma omp target in_reduction (+: x, y[:2], z[1:2], u, w[1:v])
      68      {
      69        x += 4;
      70        y[0] += 5;
      71        y[1] += 6;
      72        z[2] += 7;
      73        u[1] += 8;
      74        w[2] += 7;
      75      }
      76      #pragma omp target in_reduction (+: x, y[:v], z[1:v], u, w[1:2])
      77      {
      78        x += 9;
      79        y[0] += 10;
      80        y[1] += 11;
      81        z[1] += 12;
      82        u[2] += 13;
      83        w[1] += 14;
      84      }
      85    }
      86    if (x != 56 || y[0] != 77 || y[1] != 84)
      87      __builtin_abort ();
      88    if (z[0] != 45 || z[1] != 62 || z[2] != 54)
      89      __builtin_abort ();
      90    if (u[0] != 8 || u[1] != 12 || u[2] != 18)
      91      __builtin_abort ();
      92    if (w[0] != 3 || w[1] != 24 || w[2] != 12)
      93      __builtin_abort ();
      94  }
      95  
      96  int
      97  main ()
      98  {
      99    int y[2] = { 43, 44 };
     100    #pragma omp parallel master
     101    foo (42, y, 3, 2);
     102    bar (42, y, 3, 2);
     103    return 0;
     104  }