2 -- { dg-options "-O3" }
4 with Loop_Optimization1_Pkg
;
6 package Loop_Optimization1
is
8 type Kind_Type
is (One
, Two
, Three
, Four
);
9 type Array_Type
is array (Kind_Type
) of Boolean;
10 pragma Pack
(Array_Type
);
12 package Q
is new Loop_Optimization1_Pkg
(Boolean, Kind_Type
, Array_Type
);
14 end Loop_Optimization1
;