1! { dg-do compile }
2
3! test for implicit private clauses in do loops
4
5program test
6  implicit none
7  integer :: i, j, k, a(10)
8
9  !$acc parallel
10  !$acc loop
11  do i = 1, 100
12  end do
13  !$acc end parallel
14
15  !$acc parallel
16  !$acc loop
17  do i = 1, 100
18     do j = 1, 100
19     end do
20  end do
21  !$acc end parallel
22
23  !$acc data copy(a)
24
25  if(mod(1,10) .eq. 0) write(*,'(i5)') i
26
27  do i = 1, 100
28    !$acc parallel
29    !$acc loop
30     do j = 1, 100
31        do k = 1, 100
32        end do
33     end do
34    !$acc end parallel
35  end do
36
37  !$acc end data
38
39end program test
40