gcc/testsuite/gfortran.dg/graphite/pr42334-1.f

   1 ! { dg-options "-O2 -floop-interchange" }
   2
   3       subroutine linel(icmdl,stre,anisox)
   4       real*8 stre(6),tkl(3,3),ekl(3,3),anisox(3,3,3,3)
   5             do m1=1,3
   6                do m2=1,m1
   7                   do m3=1,3
   8                      do m4=1,3
   9                         tkl(m1,m2)=tkl(m1,m2)+
  10      &                       anisox(m1,m2,m3,m4)*ekl(m3,m4)
  11                      enddo
  12                   enddo
  13                enddo
  14             enddo
  15             stre(1)=tkl(1,1)
  16       end