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
;