2 -- { dg-options "-O2 -gnatp -fdump-tree-optimized" }
4 package body Loop_Optimization6 is
7 for I in 1 .. 1_000_000 loop
14 for J in 1 .. 1_000 loop
23 end Loop_Optimization6;
25 -- { dg-final { scan-tree-dump-not "goto" "optimized"} }
26 -- { dg-final { cleanup-tree-dump "optimized" } }