gcc/testsuite/gnat.dg/vect9.ads

   1 with Vect9_Pkg; use Vect9_Pkg;
   2
   3 package Vect9 is
   4
   5    type Rec is record
   6       Data : Vector_Access;
   7    end record;
   8
   9    procedure Proc
  10      (This : in Rec;
  11       CV   : in Unit_Vector;
  12       Data : in out Unit_Vector);
  13
  14 end Vect9;