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