summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/graphite/id-pr46995.f90
blob: 06cbfd364e89e18ba9cd0c9338b4c197f249b794 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
! { dg-options "-O -ffast-math -fgraphite-identity -fno-tree-dce" }

subroutine foo (m, l, zw)
  integer :: m, i, j, k
  real, dimension(1:9) :: zw
  real :: l, s
  s = 0
  do i = 1, 9
    do j = 1, 2*m
      do k = 1, 2*m
        s = s + 1
      end do
    end do
    l = l + zw(i)*s
  end do
end subroutine foo