5 integer, parameter :: n
= 100
6 integer :: i
, h1
, h2
, s1
, s2
, a1
, a2
17 !$acc parallel loop reduction(+:s1, s2)
22 !$acc end parallel loop
26 !$acc parallel loop reduction(+:a1, a2) async(1)
31 !$acc end parallel loop
33 if (h1
.ne
. s1
) STOP 1
34 if (h2
.ne
. s2
) STOP 2
38 if (h1
.ne
. a1
) STOP 3
39 if (h2
.ne
. a2
) STOP 4