4 ! { dg-options "-fdump-tree-original -finit-local-zero -fautomatic -fmax-stack-var-size=8" }
6 ! Make sure that variables larger than max-stack-var-size which become
7 ! static are not given automatic initializers on function entry.
10 function set(idx
, val
)
12 integer, intent(in
) :: idx
, val
21 ! There should be no automatic initializer for arr
22 ! { dg-final { scan-tree-dump-times "arr = " 0 "original" } }