libgomp/testsuite/libgomp.oacc-c-c++-common/kernels-private-vars-loop-gang-1.c

   1 /* { dg-additional-options "-fopt-info-note-omp" }
   2    { dg-additional-options "--param=openacc-privatization=noisy" }
   3    { dg-additional-options "-foffload=-fopt-info-note-omp" }
   4    { dg-additional-options "-foffload=--param=openacc-privatization=noisy" }
   5    for testing/documenting aspects of that functionality.  */
   6
   7 #include <assert.h>
   8
   9 /* Test of gang-private variables declared on loop directive.  */
  10
  11 int
  12 main (int argc, char* argv[])
  13 {
  14   int x = 5, i, arr[32];
  15
  16   for (i = 0; i < 32; i++)
  17     arr[i] = i;
  18
  19   #pragma acc kernels copy(arr)
  20   {
  21     #pragma acc loop gang(num:32) private(x)
  22     /* { dg-note {variable 'x' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} "" { target *-*-* } .-1 } */
  23     /* { dg-note {variable 'i' in 'private' clause isn't candidate for adjusting OpenACC privatization level: not addressable} "" { target *-*-* } .-2 } */
  24     for (i = 0; i < 32; i++)
  25       {
  26         x = i * 2;
  27         arr[i] += x;
  28       }
  29   }
  30
  31   for (i = 0; i < 32; i++)
  32     assert (arr[i] == i * 3);
  33
  34   return 0;
  35 }