1  /* { dg-do compile } */
       2  /* { dg-options "-fopenacc -fdump-tree-gimple" } */
       3  
       4  #include <assert.h>
       5  
       6  int
       7  main ()
       8  {
       9    int i, v1 = 0, n = 100;
      10  
      11  #pragma acc parallel loop reduction(+:v1)
      12    for (i = 0; i < n; i++)
      13      v1++;
      14  
      15    assert (v1 == n);
      16  
      17  #pragma acc kernels loop reduction(+:v1)
      18    for (i = 0; i < n; i++)
      19      v1++;
      20  
      21    assert (v1 == n);
      22  
      23    return 0;
      24  }
      25  
      26  /* { dg-final { scan-tree-dump-times "omp target oacc_parallel reduction.+:v1. map.tofrom:v1" 1 "gimple" } } */
      27  /* { dg-final { scan-tree-dump-times "acc loop reduction.+:v1. private.i." 1 "gimple" } } */
      28  /* { dg-final { scan-tree-dump-times "omp target oacc_kernels map.force_tofrom:n .len: 4.. map.force_tofrom:v1 .len: 4.." 1 "gimple" } } */
      29  /* { dg-final { scan-tree-dump-times "acc loop reduction.+:v1. private.i." 1 "gimple" } } */