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
26