Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.oacc-fortran/reference-reductions.f90 @ 138:fc828634a951
merge
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 08 Nov 2018 14:17:14 +0900 |
parents | 84e7813d76e9 |
children | 1830386684a0 |
line wrap: on
line source
! Test reductions on dummy arguments inside modules. ! { dg-do run } module prm implicit none contains subroutine param_reduction(var) implicit none integer(kind=8) :: var integer :: j,k !$acc parallel copy(var) !$acc loop reduction(+ : var) gang do k=1,10 !$acc loop vector reduction(+ : var) do j=1,100 var = var + 1.0 enddo enddo !$acc end parallel end subroutine param_reduction end module prm program test use prm implicit none integer(8) :: r r=10.0 call param_reduction (r) if (r .ne. 1010) call abort () end program test