gcc-4.9/gcc/testsuite/gnat.dg/loop_optimization15.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

-- { dg-do compile }
-- { dg-options "-O3" }

package body Loop_Optimization15 is

  type Integer_Array_T is array (B16_T range <>) of Integer;

  Len : constant B16_T := 10;

  Src : constant Integer_Array_T (1 .. Len) := (others => 0);
  Dst : Integer_Array_T (1 .. Len);

  procedure Proc (L : B16_T) is
  begin
      for I in  1 .. B16_T'Min (L, Len) loop
          Dst (I) := Src (I);
      end loop;
  end;

end Loop_Optimization15;