1! { dg-do compile } 2! { dg-options "-O2 -fdump-tree-original" } 3 integer a(100) 4 forall (i=1:100,.true.) 5 a(i) = 0 6 end forall 7 end 8! { dg-final { scan-tree-dump-times "temp" 0 "original" } } 9