/* { dg-do compile } */ | |
/* { dg-require-effective-target fopenacc } */ | |
/* { dg-options "-O2 -fexceptions -fnon-call-exceptions -fopenacc" } */ | |
void | |
xr (int *k7) | |
{ | |
int qa; | |
#pragma acc parallel | |
#pragma acc loop vector | |
for (qa = 0; qa < 3; ++qa) | |
if (qa % 2 != 0) | |
k7[qa] = 0; | |
else | |
k7[qa] = 1; | |
} |