! PR rtl-optimization/108193 | |
! { dg-do compile { target pthread } } | |
! { dg-options "-O2 -fsplit-loops -ftree-parallelize-loops=2 -fno-tree-dominator-opts" } | |
subroutine foo (n, r) | |
implicit none | |
integer :: i, j, n | |
real :: s, r(*) | |
s = 0.0 | |
do j = 1, 2 | |
do i = j, n | |
s = r(i) | |
end do | |
end do | |
do i = 1, n | |
do j = i, n | |
s = s + 1 | |
end do | |
r(i) = s | |
end do | |
end subroutine foo |