This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Revert "Add kernels-loop-nest-independent.f95"


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


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]