libgomp/testsuite/libgomp.oacc-c-c++-common/pr83589.c

   1 /* { dg-do run } */
   2 /* { dg-set-target-env-var GOMP_NVPTX_JIT "-O0" } */
   3
   4 #define n 32
   5
   6 int
   7 main (void)
   8 {
   9   int arr_a[n];
  10
  11 #pragma acc parallel copyout(arr_a) num_gangs(1) num_workers(1) vector_length(32)
  12   {
  13     #pragma acc loop vector
  14     for (int m = 0; m < 32; m++)
  15       ;
  16
  17     #pragma acc loop vector
  18     for (int m = 0; m < 32; m++)
  19       arr_a[m] = 0;
  20   }
  21 }