view gcc/testsuite/c-c++-common/gomp/loop-5.c @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 1830386684a0
children
line wrap: on
line source

__attribute__((noipa)) int
foo (int *a, int *r3)
{
  int r = 0, r2[2] = { 0, 0 }, i;
  #pragma omp parallel loop default (none) reduction (+:r, r2[:2], r3[:2]) shared (a) lastprivate (i)
  for (i = 0; i < 1024; i++)
    {
      r += a[i];
      r2[0] += a[i];
      r3[1] += a[i];
    };
  return r + r2[0] + r3[1] + i;
}

__attribute__((noipa)) int
bar (int *a, int *r3)
{
  int r = 0, r2[2] = { 0, 0 }, i;
  #pragma omp target parallel loop default (none) reduction (+:r, r2[0:2], r3[0:2]) shared (a) lastprivate (i)
  for (i = 0; i < 1024; i++)
    {
      r += a[i];
      r2[1] += a[i];
      r3[0] += a[i];
    }
  return r + r2[1] + r3[0] + i;
}

__attribute__((noipa)) int
baz (int *a, int *r3)
{
  int r = 0, r2[2] = { 0, 0 }, i;
  #pragma omp teams loop default (none) reduction (+:r, r2[0:2], r3[1:1]) shared (a) lastprivate (i)
  for (i = 0; i < 1024; i++)
    {
      r += a[i];
      r2[0] += a[i];
      r3[1] += a[i];
    }
  return r + r2[0] + r3[1] + i;
}

__attribute__((noipa)) int
qux (int *a, int *r3)
{
  int r = 0, r2[2] = { 0, 0 }, i;
  #pragma omp target teams loop default (none) reduction (+:r, r2[1:1], r3[0:2]) shared (a) lastprivate (i)
  for (i = 0; i < 1024; i++)
    {
      r += a[i];
      r2[1] += a[i];
      r3[0] += a[i] - 1;
      r3[1] += a[i];
    }
  return r + r2[1] + r3[0] + r3[1] + i;
}