libgomp/testsuite/libgomp.oacc-c-c++-common/vector-length-128-10.c

   1 /* { dg-do run } */
   2
   3 #include <stdlib.h>
   4
   5 #define N 1024
   6
   7 unsigned int a[N];
   8 unsigned int b[N];
   9 unsigned int c[N];
  10 unsigned int n = N;
  11
  12 int
  13 main (void)
  14 {
  15   for (unsigned int i = 0; i < n; ++i)
  16     {
  17       a[i] = i % 3;
  18       b[i] = i % 5;
  19     }
  20
  21   unsigned int res = 1;
  22   unsigned long long res2 = 1;
  23 #pragma acc parallel vector_length (128) copyin (a,b) reduction (+:res, res2) copy (res, res2)
  24   {
  25 #pragma acc loop vector reduction (+:res, res2)
  26     for (unsigned int i = 0; i < n; i++)
  27       {
  28         res += ((a[i] + b[i]) % 2);
  29         res2 += ((a[i] + b[i]) % 2);
  30       }
  31   }
  32
  33   if (res != 478)
  34     abort ();
  35   if (res2 != 478)
  36     abort ();
  37
  38   return 0;
  39 }