2 -- { dg-options "-O3" }
\r
4 package body Loop_Optimization15 is
\r
6 type Integer_Array_T is array (B16_T range <>) of Integer;
\r
8 Len : constant B16_T := 10;
\r
10 Src : constant Integer_Array_T (1 .. Len) := (others => 0);
\r
11 Dst : Integer_Array_T (1 .. Len);
\r
13 procedure Proc (L : B16_T) is
\r
15 for I in 1 .. B16_T'Min (L, Len) loop
\r
20 end Loop_Optimization15;
\r