(root)/
gcc-13.2.0/
libgomp/
testsuite/
libgomp.c/
pr80853.c
       1  /* PR middle-end/80853 */
       2  /* { dg-do run } */
       3  
       4  __attribute__((noinline, noclone)) void
       5  foo (int *p)
       6  {
       7    #pragma omp for reduction(+:p[:4])
       8    for (int i = 0; i < 64; i++)
       9      {
      10        p[0] += i;
      11        p[1] += i / 2;
      12        p[2] += 2 * i;
      13        p[3] += 3 * i;
      14      }
      15  }
      16  
      17  int
      18  main ()
      19  {
      20    int p[4] = { 0, 0, 0, 0 };
      21    #pragma omp parallel
      22    foo (p);
      23    if (p[0] != 63 * 64 / 2
      24        || p[1] != 31 * 32
      25        || p[2] != 63 * 64
      26        || p[3] != 3 * 63 * 64 / 2)
      27      __builtin_abort ();
      28    return 0;
      29  }