1! { dg-do compile }
2
3! test for private variables in a reduction clause
4
5program test
6  implicit none
7  integer, parameter :: n = 100
8  integer :: i, k
9
10!  FIXME: This causes an ICE in the gimplifier.
11!  !$acc parallel private (k) reduction (+:k)
12!  do i = 1, n
13!     k = k + 1
14!  end do
15!  !$acc end parallel
16
17  !$acc parallel private (k)
18  !$acc loop reduction (+:k)
19  do i = 1, n
20     k = k + 1
21  end do
22  !$acc end parallel
23end program test
24