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