1! { dg-do run }
2!
3program foo
4  implicit none
5  integer :: i
6  integer :: temp = 0
7  integer :: temp2 = 0
8
9  !$acc parallel
10  !$acc loop gang private(temp)
11  do i=1, 10000
12     temp = 0
13  enddo
14  !$acc end parallel
15
16  !$acc parallel reduction(+:temp2)
17  !$acc loop gang reduction(+:temp2)
18  do i=1, 10000
19     temp2 = 0
20  enddo
21  !$acc end parallel
22end program foo
23