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

From-SVN: r229769
This commit is contained in:
Nathan Sidwell 2015-11-04 17:00:27 +00:00 committed by Nathan Sidwell
parent f355215826
commit 4d49f9642a
2 changed files with 4 additions and 21 deletions

View file

@ -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

View file

@ -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