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
|
