2018-03-15 Steven G. Kargl <kargl@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gnat.dg / loop_optimization8_pkg1.adb
blob3c3368dd4796b6440af37a4c7a5a1e58f6d1ee1b
1 with Loop_Optimization8_Pkg2;
3 package body Loop_Optimization8_Pkg1 is
5 Data : Loop_Optimization8_Pkg2.T
6 := new Loop_Optimization8_Pkg2.Obj_T'(Length =>1, Elements => (1 => 1));
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;
15 end Loop_Optimization8_Pkg1;