gcc/testsuite/gcc.dg/tree-ssa/pr92163.c

   1 /* { dg-do "compile" } */
   2 /* { dg-require-effective-target fopenacc } */
   3 /* { dg-options "-O2 -fexceptions -fnon-call-exceptions -fopenacc" } */
   4
   5 void
   6 xr (int *k7)
   7 {
   8   int qa;
   9
  10 #pragma acc parallel
  11 #pragma acc loop vector
  12   for (qa = 0; qa < 3; ++qa)
  13     if (qa % 2 != 0)
  14       k7[qa] = 0;
  15     else
  16       k7[qa] = 1;
  17 }