* gfortran.dg/goacc/reduction-2.f95: Delete.
From-SVN: r229769
This commit is contained in:
parent
f355215826
commit
4d49f9642a
2 changed files with 4 additions and 21 deletions
|
@ -1,3 +1,7 @@
|
|||
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
|
||||
|
|
|
@ -1,21 +0,0 @@
|
|||
! { 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
|
Loading…
Add table
Reference in a new issue