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