libgomp/testsuite/libgomp.oacc-c-c++-common/declare-vla.c

   1 /* Verify that acc declare accept VLA variables.  */
   2
   3 #include <assert.h>
   4
   5 int
   6 main ()
   7 {
   8   int N = 1000;
   9   int i, A[N];
  10 #pragma acc declare copy(A)
  11
  12   for (i = 0; i < N; i++)
  13     A[i] = -i;
  14
  15 #pragma acc kernels
  16   for (i = 0; i < N; i++)
  17     A[i] = i;
  18
  19 #pragma acc update host(A)
  20
  21   for (i = 0; i < N; i++)
  22     assert (A[i] == i);
  23
  24   return 0;
  25 }