blob: 63254318954c3b46bc43f5bf65b75b28dfba9c35 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
! { dg-do run }
program reduction
implicit none
integer, parameter :: n = 100
integer :: i, s1, s2, vs1, vs2
s1 = 0
s2 = 0
vs1 = 0
vs2 = 0
!$acc parallel vector_length (1000)
!$acc loop reduction(+:s1, s2)
do i = 1, n
s1 = s1 + 1
s2 = s2 + 2
end do
!$acc end parallel
! Verify the results
do i = 1, n
vs1 = vs1 + 1
vs2 = vs2 + 2
end do
if (s1.ne.vs1) call abort ()
if (s2.ne.vs2) call abort ()
end program reduction
|
