This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[PATCH 2/6] Add testcase for PR29832.
- From: Sebastian Pop <sebpop at gmail dot com>
- To: gcc-patches at gcc dot gnu dot org
- Cc: rguenther at suse dot de, gcc-graphite at googlegroups dot com, Sebastian Pop <sebpop at gmail dot com>
- Date: Tue, 18 Jan 2011 14:51:32 -0600
- Subject: [PATCH 2/6] Add testcase for PR29832.
- References: <1295383896-27122-1-git-send-email-sebpop@gmail.com>
2011-01-18 Sebastian Pop <sebastian.pop@amd.com>
PR tree-optimization/29832
* gfortran.dg/graphite/pr29832.f90: New.
---
gcc/ChangeLog.graphite | 5 ++++
gcc/testsuite/gfortran.dg/graphite/pr29832.f90 | 26 ++++++++++++++++++++++++
2 files changed, 31 insertions(+), 0 deletions(-)
create mode 100644 gcc/testsuite/gfortran.dg/graphite/pr29832.f90
diff --git a/gcc/ChangeLog.graphite b/gcc/ChangeLog.graphite
index 8440b84..ee16496 100644
--- a/gcc/ChangeLog.graphite
+++ b/gcc/ChangeLog.graphite
@@ -1,5 +1,10 @@
2011-01-18 Sebastian Pop <sebastian.pop@amd.com>
+ PR tree-optimization/29832
+ * gfortran.dg/graphite/pr29832.f90: New.
+
+2011-01-18 Sebastian Pop <sebastian.pop@amd.com>
+
PR tree-optimization/43567
* gcc.dg/graphite/pr43567.c: New.
diff --git a/gcc/testsuite/gfortran.dg/graphite/pr29832.f90 b/gcc/testsuite/gfortran.dg/graphite/pr29832.f90
new file mode 100644
index 0000000..ab222ab
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/graphite/pr29832.f90
@@ -0,0 +1,26 @@
+! { dg-do run }
+! { dg-options "-O2 -ftree-loop-linear" }
+
+! Program to test the scalarizer
+program testarray
+ implicit none
+ integer, dimension (6, 5) :: a, b
+ integer n
+
+ a = 0
+ do n = 1, 5
+ a(4, n) = n
+ end do
+
+ b(:, 5:1:-1) = a
+ a(1:5, 2) = a(4, :) + 1
+
+ ! The following expression should cause loop reordering
+ a(:, 2:4) = a(:, 1:3)
+
+ do n = 1, 5
+ if (a(n, 3) .ne. (n + 1)) call abort
+ if (b(4, n) .ne. (6 - n)) call abort
+ end do
+end program
+
--
1.7.1