From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001
From: upstream source tree <ports@midipix.org>
Date: Sun, 15 Mar 2015 20:14:05 -0400
Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified
 gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream
 tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.
---
 gcc/testsuite/gfortran.dg/graphite/interchange-1.f | 45 ++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/graphite/interchange-1.f

(limited to 'gcc/testsuite/gfortran.dg/graphite/interchange-1.f')

diff --git a/gcc/testsuite/gfortran.dg/graphite/interchange-1.f b/gcc/testsuite/gfortran.dg/graphite/interchange-1.f
new file mode 100644
index 000000000..334fbd824
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/graphite/interchange-1.f
@@ -0,0 +1,45 @@
+      subroutine foo(f1,f2,f3,f4,f5,f6,f7,f8,f9,f0,g1,g2,g3)
+      implicit none
+      integer f4,f3,f2,f1
+      integer g4,g5,g6,g7,g8,g9
+      integer i1,i2,i3,i4,i5
+
+      real*8 g1(5,f3,f2,f1),g2(5,5,f3,f2,f1),g3(5,f3,f2,f1)
+      real*8 f0(5,5,f3,f2,f1),f9(5,5,f3,f2,f1),f8(5,5,f3,f2,f1)
+      real*8 f7(5,5,f3,f2,f1),f6(5,5,f3,f2,f1),f5(5,5,f3,f2,f1)
+
+      do i3=1,f1
+         g8=mod(i3+f1-2,f1)+1
+         g9=mod(i3,f1)+1
+         do i4=1,f2
+            g6=mod(i4+f2-2,f2)+1
+            g7=mod(i4,f2)+1
+            do i5=1,f3
+               g4=mod(i5+f3-2,f3)+1
+               g5=mod(i5,f3)+1
+               do i1=1,5
+                  g3(i1,i5,i4,i3)=0.0d0
+                  do i2=1,5
+                     g3(i1,i5,i4,i3)=g3(i1,i5,i4,i3)+
+     1                    g2(i1,i2,i5,i4,i3)*g1(i2,i5,i4,i3)+
+     2                    f0(i1,i2,i5,i4,i3)*g1(i2,g5,i4,i3)+
+     3                    f9(i1,i2,i5,i4,i3)*g1(i2,i5,g7,i3)+
+     4                    f8(i1,i2,i5,i4,i3)*g1(i2,i5,i4,g9)+
+     5                    f7(i1,i2,i5,i4,i3)*g1(i2,g4,i4,i3)+
+     6                    f6(i1,i2,i5,i4,i3)*g1(i2,i5,g6,i3)+
+     7                    f5(i1,i2,i5,i4,i3)*g1(i2,i5,i4,g8)
+                  enddo
+               enddo
+            enddo
+         enddo
+      enddo
+      return
+      end
+
+
+! We should be able to interchange this as the number of iterations is
+! known to be 4 in the inner two loops.  See interchange-2.f for the
+! kernel from bwaves.
+
+! { dg-final { scan-tree-dump-times "will be interchanged" 1 "graphite" { xfail *-*-* } } }
+! { dg-final { cleanup-tree-dump "graphite" } }
-- 
cgit v1.2.3