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)6xr (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