1 /* { dg-do compile } */
2 /* { dg-require-effective-target fopenacc } */
3 /* { dg-options "-O2 -fexceptions -fnon-call-exceptions -fopenacc" } */
4 
5 void
xr(int * k7)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 }
18