2 ! { dg-options "-O -fdump-tree-fre1" }
5 integer, parameter :: r
=10
6 integer :: data(r
, r
), block(r
, r
, r
)
8 recursive subroutine foo(arg
)
9 integer, intent(in
) :: arg
10 integer :: loop
, x(r
), y(r
)
12 where(data(arg
, :) /= 0)
21 if(block(arg
, 1, loop
) <= 0) cycle
22 block(arg
, 1:4, loop
) = block(arg
, 1:4, i1
) + 1
24 block(arg
, 1:4, loop
) = block(arg
, 1:4, i1
) + 10
28 end module test_module
31 ! { dg-final { scan-tree-dump-times "= \\*arg_\[0-9\]+\\(D\\);" 1 "fre1" } }