(root)/
gcc-13.2.0/
libgomp/
testsuite/
libgomp.oacc-c-c++-common/
kernels-loop-and-seq.c
       1  #include <stdlib.h>
       2  
       3  #define N 32
       4  
       5  unsigned int
       6  foo (int n, unsigned int *a)
       7  {
       8  
       9  #pragma acc kernels copy (a[0:N])
      10    {
      11      for (int i = 0; i < n; i++)
      12        a[i] = 1;
      13  
      14      a[0] = a[0] + 1;
      15    }
      16  
      17    return a[0];
      18  }
      19  
      20  int
      21  main (void)
      22  {
      23    unsigned int a[N];
      24    unsigned res, i;
      25  
      26    for (i = 0; i < N; ++i)
      27      a[i] = i % 4;
      28  
      29    res = foo (N, a);
      30    if (res != 2)
      31      abort ();
      32  
      33    return 0;
      34  }