From: Nathan Sidwell Date: Wed, 4 Nov 2015 17:00:27 +0000 (+0000) Subject: * gfortran.dg/goacc/reduction-2.f95: Delete. X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4d49f9642af94874e1d62da0a5c877dfb894e914;p=gcc.git * gfortran.dg/goacc/reduction-2.f95: Delete. From-SVN: r229769 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d99f0fc2844..40a5dd2ef8a 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2015-11-04 Nathan Sidwell + + * gfortran.dg/goacc/reduction-2.f95: Delete. + 2015-11-04 Tom de Vries PR tree-optimization/67742 diff --git a/gcc/testsuite/gfortran.dg/goacc/reduction-2.f95 b/gcc/testsuite/gfortran.dg/goacc/reduction-2.f95 deleted file mode 100644 index ffcec70c7ac..00000000000 --- a/gcc/testsuite/gfortran.dg/goacc/reduction-2.f95 +++ /dev/null @@ -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