1with Loop_Optimization8_Pkg2; 2 3package body Loop_Optimization8_Pkg1 is 4 5 Data : Loop_Optimization8_Pkg2.T 6 := new Loop_Optimization8_Pkg2.Obj_T'(Length =>1, Elements => (1 => 1)); 7 8 procedure Iter is 9 begin 10 for I in 1 .. Loop_Optimization8_Pkg2.Length (Data) loop 11 Action (Loop_Optimization8_Pkg2.Index (Data, I)); 12 end loop; 13 end; 14 15end Loop_Optimization8_Pkg1; 16