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

   1 /* Verify OpenACC 'declare' with VLAs.  */
   2
   3 #include <assert.h>
   4
   5
   6 void
   7 f (void)
   8 {
   9   int N = 1000;
  10   int i, A[N];
  11 #pragma acc declare copy(A)
  12
  13   for (i = 0; i < N; i++)
  14     A[i] = -i;
  15
  16 #pragma acc kernels
  17   for (i = 0; i < N; i++)
  18     A[i] = i;
  19
  20 #pragma acc update host(A)
  21
  22   for (i = 0; i < N; i++)
  23     assert (A[i] == i);
  24 }
  25
  26
  27 /* The same as 'f' but everything contained in an OpenACC 'data' construct.  */
  28
  29 void
  30 f_data (void)
  31 {
  32 #pragma acc data
  33   {
  34     int N = 1000;
  35     int i, A[N];
  36 # pragma acc declare copy(A)
  37
  38     for (i = 0; i < N; i++)
  39       A[i] = -i;
  40
  41 # pragma acc kernels
  42     for (i = 0; i < N; i++)
  43       A[i] = i;
  44
  45 # pragma acc update host(A)
  46
  47     for (i = 0; i < N; i++)
  48       assert (A[i] == i);
  49   }
  50 }
  51
  52
  53 int
  54 main ()
  55 {
  56   f ();
  57
  58   f_data ();
  59
  60   return 0;
  61 }
  62
  63
  64 /* { dg-xfail-run-if "TODO PR90861" { *-*-* } { "-DACC_MEM_SHARED=0" } }
  65    This might XPASS if the compiler happens to put the two 'A' VLAs at the same
  66    address.  */