3 with Loop_Optimization16_Pkg; use Loop_Optimization16_Pkg;
5 procedure Loop_Optimization16 is
7 Counter : Natural := 0;
9 C : constant Natural := F;
11 subtype Index_T is Index_Base range 1 .. Index_Base (C);
15 for I in Index_T'First .. Index_T'Last loop
16 Counter := Counter + 1;
17 exit when Counter > 200;
24 end Loop_Optimization16;