blob: ffcec70c7ac2961dc7db6a9dd939c8d65ebdba11 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
! { dg-do compile }
program reduction
integer, parameter :: n = 40, c = 10
integer :: i, sum
call redsub (sum, n, c)
end program reduction
subroutine redsub(sum, n, c)
integer :: sum, n, c
sum = 0
!$acc parallel vector_length(n) copyin (n, c)
!$acc loop reduction(+:sum)
do i = 1, n
sum = sum + c
end do
!$acc end parallel
end subroutine redsub
|