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  }