gcc-4.9/gcc/testsuite/gnat.dg/vect9.ads


1
2
3
4
5
6
7
8
9
10
11
12
13
14

with Vect9_Pkg; use Vect9_Pkg;

package Vect9 is

   type Rec is record
      Data : Vector_Access;
   end record;

   procedure Proc
     (This : in Rec;
      CV   : in Unit_Vector;
      Data : in out Unit_Vector);

end Vect9;