! { dg-do run } | |
! | |
program foo | |
implicit none | |
integer :: i | |
integer :: temp = 0 | |
integer :: temp2 = 0 | |
!$acc parallel | |
!$acc loop gang private(temp) | |
do i=1, 10000 | |
temp = 0 | |
enddo | |
!$acc end parallel | |
!$acc parallel reduction(+:temp2) | |
!$acc loop gang reduction(+:temp2) | |
do i=1, 10000 | |
temp2 = 0 | |
enddo | |
!$acc end parallel | |
end program foo |