diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/goacc/reduction-2.f95')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/reduction-2.f95 | 21 |
1 files changed, 0 insertions, 21 deletions
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 |