1! Test a combined acc parallel loop reduction.
2
3! { dg-do run }
4
5program test
6  implicit none
7  integer i, n, var
8
9  n = 100
10  var = 0
11
12  !$acc parallel loop reduction(+:var)
13  do i = 1, 100
14     var = var + 1
15  end do
16  !$acc end parallel loop
17
18  if (var .ne. n) STOP 1
19end program test
20