Commit 4d49f964 by Nathan Sidwell Committed by Nathan Sidwell

* gfortran.dg/goacc/reduction-2.f95: Delete.

From-SVN: r229769
parent f3552158
2015-11-04 Nathan Sidwell <nathan@codesourcery.com>
* gfortran.dg/goacc/reduction-2.f95: Delete.
2015-11-04 Tom de Vries <tom@codesourcery.com>
PR tree-optimization/67742
......
! { dg-do compile }
program reduction
integer, parameter :: n = 40, c = 10
integer :: i, sum
call redsub (sum, n, c)
end program reduction
subroutine redsub(sum, n, c)
integer :: sum, n, c
sum = 0
!$acc parallel vector_length(n) copyin (n, c)
!$acc loop reduction(+:sum)
do i = 1, n
sum = sum + c
end do
!$acc end parallel
end subroutine redsub
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment