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