libgomp/testsuite/libgomp.oacc-c-c++-common/vector-loop.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 #pragma acc parallel vector_length (32) copyin (a,b) copyout (c)
  22   {
  23 #pragma acc loop vector
  24     for (unsigned int i = 0; i < n; i++)
  25       c[i] = a[i] + b[i];
  26   }
  27
  28   for (unsigned int i = 0; i < n; ++i)
  29     if (c[i] != (i % 3) + (i % 5))
  30       abort ();
  31
  32   return 0;
  33 }