From 167388cef487939be4884ee3b99fe12f1b1c2e49 Mon Sep 17 00:00:00 2001 From: Nathan Sidwell Date: Wed, 4 Nov 2015 17:00:27 +0000 Subject: * gfortran.dg/goacc/reduction-2.f95: Delete. git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@229769 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.dg/goacc/reduction-2.f95 | 21 --------------------- 2 files changed, 4 insertions(+), 21 deletions(-) delete mode 100644 gcc/testsuite/gfortran.dg/goacc/reduction-2.f95 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 -- cgit v1.2.3