1! { dg-do compile } 2 3! test for private variables in a reduction clause 4 5program test 6 implicit none 7 integer, parameter :: n = 100 8 integer :: i, k 9 10! FIXME: This causes an ICE in the gimplifier. 11! !$acc parallel private (k) reduction (+:k) 12! do i = 1, n 13! k = k + 1 14! end do 15! !$acc end parallel 16 17 !$acc parallel private (k) 18 !$acc loop reduction (+:k) 19 do i = 1, n 20 k = k + 1 21 end do 22 !$acc end parallel 23end program test 24