1! PR tree-optimization/52835 2! { dg-do compile } 3! { dg-options "-O3 -fdump-tree-optimized" } 4 5subroutine foo (x, y, z, n) 6 integer :: n, i 7 real :: x(n), y(n), z(n) 8 do i = 1, n 9 z(i) = 0.0 10 y(i) = 0.0 11 call bar (y(i), z(i), x(i)) 12 end do 13end subroutine 14 15! { dg-final { scan-tree-dump "bar\[ _\]" "optimized" } } 16