Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-fortran/reduction-8.f90 @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } program reduction implicit none integer, parameter :: n = 100 integer :: i, h1, h2, s1, s2, a1, a2 h1 = 0 h2 = 0 do i = 1, n h1 = h1 + 1 h2 = h2 + 2 end do s1 = 0 s2 = 0 !$acc parallel loop reduction(+:s1, s2) do i = 1, n s1 = s1 + 1 s2 = s2 + 2 end do !$acc end parallel loop a1 = 0 a2 = 0 !$acc parallel loop reduction(+:a1, a2) async(1) do i = 1, n a1 = a1 + 1 a2 = a2 + 2 end do !$acc end parallel loop if (h1 .ne. s1) call abort () if (h2 .ne. s2) call abort () !$acc wait(1) if (h1 .ne. a1) call abort () if (h2 .ne. a2) call abort () end program reduction