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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

-- { dg-do compile }

procedure loop_bound is
   package P is
      type Base is new Integer;
      Limit : constant Base := 10;
      type Index is private;
      generic package Gen is end;
   private 
      type Index is new Base range 0 .. Limit;
   end P;  
   package body P is
      package body Gen is
         type Table is array (Index) of Integer;
         procedure Init (X : in out Table) is
         begin   
            for I in 1..Index'last -1 loop 
               X (I) := -1;
            end loop;
         end Init;
      end Gen;
   end P;  
   package Inst is new P.Gen;
begin   
   null;   
end;