gcc/testsuite/gfortran.dg/graphite/pr43097.f

   1 ! { dg-options "-O2 -fgraphite-identity" }
   2
   3       subroutine foo (ldmx,ldmy,nx,ny,v)
   4       implicit real*8 (a-h, o-z)
   5       dimension v(5,ldmx,ldmy,*)
   6       dimension tmat(5,5)
   7
   8       k = 2
   9       do j = 2, ny-1
  10          do i = 2, nx-1
  11             do ip = 1, 4
  12                do m = ip+1, 5
  13                   v(m,i,j,k) = v(m,i,j,k) * m
  14                end do
  15             end do
  16             do m = 5, 1, -1
  17                do l = m+1, 5
  18                   v(m,i,j,k) = v(l,i,j,k)
  19                end do
  20                v(m,i,j,k) = m
  21            end do
  22          end do
  23       end do
  24       return
  25       end