1! Test a combined acc parallel loop reduction. 2 3! { dg-do run } 4 5program test 6 implicit none 7 integer i, n, var 8 9 n = 100 10 var = 0 11 12 !$acc parallel loop reduction(+:var) 13 do i = 1, 100 14 var = var + 1 15 end do 16 !$acc end parallel loop 17 18 if (var .ne. n) STOP 1 19end program test 20