aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gcc.dg/tree-ssa/pr92163.c
blob: 4dfc7357e0e662d7131c9f794eb527b583ebfb73 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
/* { 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;
}