Hi,
this patch reverts aanother independent clause in oacc kernels region
related test-case.
Committed to gomp-4_0-branch.
Thanks,
- Tom
Revert "Add kernels-loop-nest-independent.f95"
2015-07-15 Tom de Vries <t...@codesourcery.com>
* gfortran.dg/goacc/kernels-loop-nest-independent.f95: New test.
* testsuite/libgomp.oacc-fortran/kernels-loop-nest-independent.f95: New
test.
---
.../goacc/kernels-loop-nest-independent.f95 | 41 ----------------------
.../kernels-loop-nest-independent.f95 | 28 ---------------
2 files changed, 69 deletions(-)
delete mode 100644 gcc/testsuite/gfortran.dg/goacc/kernels-loop-nest-independent.f95
delete mode 100644 libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-nest-independent.f95
diff --git a/gcc/testsuite/gfortran.dg/goacc/kernels-loop-nest-independent.f95 b/gcc/testsuite/gfortran.dg/goacc/kernels-loop-nest-independent.f95
deleted file mode 100644
index af151ca..0000000
--- a/gcc/testsuite/gfortran.dg/goacc/kernels-loop-nest-independent.f95
+++ /dev/null
@@ -1,41 +0,0 @@
-! { dg-do compile }
-! { dg-additional-options "-O2" }
-! { dg-additional-options "-ftree-parallelize-loops=32" }
-! { dg-additional-options "-fdump-tree-parloops_oacc_kernels-all" }
-! { dg-additional-options "-fdump-tree-optimized" }
-
-! Based on autopar/outer-1.c.
-
-program main
- implicit none
- integer, parameter :: n = 500
- integer, dimension (0:n-1, 0:n-1) :: x
- integer :: i, j, ii, jj
-
-
- !$acc kernels copyout (x)
- !$acc loop independent
- do ii = 0, n - 1
- do jj = 0, n - 1
- x(jj, ii) = ii + jj + 3
- end do
- end do
- !$acc end kernels
-
- do i = 0, n - 1
- do j = 0, n - 1
- if (x(i, j) .ne. i + j + 3) call abort
- end do
- end do
-
-end program main
-
-! Check that only one loop is analyzed, and that it can be parallelized.
-! { dg-final { scan-tree-dump-times "SUCCESS: may be parallelized, marked independent" 1 "parloops_oacc_kernels" } }
-! { dg-final { scan-tree-dump-not "FAILED:" "parloops_oacc_kernels" } }
-! { dg-final { scan-tree-dump-times "parallelizing outer loop" 1 "parloops_oacc_kernels" } }
-
-! Check that the loop has been split off into a function.
-! { dg-final { scan-tree-dump-times "(?n);; Function MAIN__._omp_fn.0 " 1 "optimized" } }
-
-! { dg-final { scan-tree-dump-times "(?n)oacc function \\(32," 1 "parloops_oacc_kernels" } }
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-nest-independent.f95 b/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-nest-independent.f95
deleted file mode 100644
index 87a3d23..0000000
--- a/libgomp/testsuite/libgomp.oacc-fortran/kernels-loop-nest-independent.f95
+++ /dev/null
@@ -1,28 +0,0 @@
-! { dg-do run }
-! { dg-options "-ftree-parallelize-loops=32" }
-
-! Based on autopar/outer-1.c.
-
-program main
- implicit none
- integer, parameter :: n = 500
- integer, dimension (0:n-1, 0:n-1) :: x
- integer :: i, j, ii, jj
-
-
- !$acc kernels copyout (x)
- !$acc loop independent
- do ii = 0, n - 1
- do jj = 0, n - 1
- x(jj, ii) = ii + jj + 3
- end do
- end do
- !$acc end kernels
-
- do i = 0, n - 1
- do j = 0, n - 1
- if (x(i, j) .ne. i + j + 3) call abort
- end do
- end do
-
-end program main
--
1.9.1