2 -- { dg-options "-O -gnatn" }
4 with Loop_Optimization8_Pkg1;
6 procedure Loop_Optimization8 is
8 Data : Loop_Optimization8_Pkg1.T;
10 procedure Check_1 (N : in Natural) is
13 for I in 1 .. Data.Last loop
15 F : constant Natural := Data.Elements (I);
25 procedure Check is new Loop_Optimization8_Pkg1.Iter (Check_1);
28 Data := Loop_Optimization8_Pkg1.Empty;