gcc/testsuite/gnat.dg/array7.ads

   1 package Array7 is
   2
   3    type Arr is array (Positive range <>) of Integer;
   4    type Arr_Acc is access Arr;
   5
   6    subtype My_Range is Integer range 1 .. 25;
   7
   8    function Get_Arr (Nbr : My_Range) return Arr_Acc;
   9
  10 end Array7;