(root)/
gcc-13.2.0/
libgomp/
testsuite/
libgomp.c-c++-common/
pr66199-4.c
       1  /* PR middle-end/66199 */
       2  /* { dg-do run } */
       3  /* { dg-options "-O2" { target c } } */
       4  
       5  #pragma omp declare target
       6  int u[1024], v[1024], w[1024];
       7  #pragma omp end declare target
       8  
       9  __attribute__((noinline, noclone)) void
      10  f1 (long a, long b)
      11  {
      12    long d;
      13    #pragma omp target teams distribute parallel for default(none) firstprivate (a, b) shared(u, v, w)
      14    for (d = a; d < b; d++)
      15      u[d] = v[d] + w[d];
      16  }
      17  
      18  __attribute__((noinline, noclone)) void
      19  f2 (long a, long b, long c)
      20  {
      21    long d, e;
      22    #pragma omp target teams distribute parallel for default(none) firstprivate (a, b, c) shared(u, v, w) lastprivate(d, e)
      23    for (d = a; d < b; d++)
      24      {
      25        u[d] = v[d] + w[d];
      26        e = c + d * 5;
      27      }
      28  }
      29  
      30  __attribute__((noinline, noclone)) void
      31  f3 (long a1, long b1, long a2, long b2)
      32  {
      33    long d1, d2;
      34    #pragma omp target teams distribute parallel for default(none) firstprivate (a1, b1, a2, b2) shared(u, v, w) lastprivate(d1, d2) collapse(2)
      35    for (d1 = a1; d1 < b1; d1++)
      36      for (d2 = a2; d2 < b2; d2++)
      37        u[d1 * 32 + d2] = v[d1 * 32 + d2] + w[d1 * 32 + d2];
      38  }
      39  
      40  __attribute__((noinline, noclone)) void
      41  f4 (long a1, long b1, long a2, long b2)
      42  {
      43    long d1, d2;
      44    #pragma omp target teams distribute parallel for default(none) firstprivate (a1, b1, a2, b2) shared(u, v, w) collapse(2)
      45    for (d1 = a1; d1 < b1; d1++)
      46      for (d2 = a2; d2 < b2; d2++)
      47        u[d1 * 32 + d2] = v[d1 * 32 + d2] + w[d1 * 32 + d2];
      48  }
      49  
      50  int
      51  main ()
      52  {
      53    f1 (0, 1024);
      54    f2 (0, 1024, 17);
      55    f3 (0, 32, 0, 32);
      56    f4 (0, 32, 0, 32);
      57    return 0;
      58  }