diff options
| author | Sebastian Pop <sebastian.pop@amd.com> | 2011-01-25 21:24:44 +0000 |
|---|---|---|
| committer | Sebastian Pop <spop@gcc.gnu.org> | 2011-01-25 21:24:44 +0000 |
| commit | 254b78598000c699d6fd7a962b407feeb6776e8e (patch) | |
| tree | 7a42e3d250edc37db74ea21ffefb176b9761246a /gcc | |
| parent | eaf52b4125210dfed2582f391321f8f6357b85bf (diff) | |
| download | gcc-254b78598000c699d6fd7a962b407feeb6776e8e.zip gcc-254b78598000c699d6fd7a962b407feeb6776e8e.tar.gz gcc-254b78598000c699d6fd7a962b407feeb6776e8e.tar.bz2 | |
Add testcase for PR29832.
2011-01-25 Sebastian Pop <sebastian.pop@amd.com>
PR tree-optimization/29832
* gfortran.dg/graphite/pr29832.f90: New.
From-SVN: r169253
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/graphite/pr29832.f90 | 26 |
2 files changed, 31 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index f530287..3ba48df 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2011-01-25 Sebastian Pop <sebastian.pop@amd.com> + PR tree-optimization/29832 + * gfortran.dg/graphite/pr29832.f90: New. + +2011-01-25 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 + |