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
) call abort ()
34 if (h2
.ne
. s2
) call abort ()
38 if (h1
.ne
. a1
) call abort ()
39 if (h2
.ne
. a2
) call abort ()