libgomp/testsuite/libgomp.oacc-c-c++-common/pointer-align-1.c

   1 /* { dg-do run } */
   2
   3 /* PR middle-end/63247 */
   4
   5 #include <stdlib.h>
   6
   7 int
   8 main(int argc, char **argv)
   9 {
  10 #define N 4
  11     short a[N];
  12
  13     a[0] = 10;
  14     a[1] = 10;
  15     a[2] = 10;
  16     a[3] = 10;
  17
  18 #pragma acc parallel copy(a[1:N-1])
  19     {
  20       a[1] = 51;
  21       a[2] = 52;
  22       a[3] = 53;
  23     }
  24
  25     if (a[0] != 10)
  26       abort ();
  27     if (a[1] != 51)
  28       abort ();
  29     if (a[2] != 52)
  30       abort ();
  31     if (a[3] != 53)
  32       abort ();
  33
  34     return 0;
  35 }