2 -- { dg-options "-O3" }
4 package body Loop_Optimization1 is
6 procedure Create (A : in out D; Val : Integer) is
8 M : constant Group_Chain_List := Group_Chains(Val);
9 G : constant Group_List := Groups(Val);
11 function Is_Visible (Group : Number) return Boolean is
14 if Group = M(I).Groups(M(I).Length) then
22 for I in A.L'Range loop
23 A.L(I) := new R(Is_Visible(G(I)));
27 end Loop_Optimization1;