view gcc/testsuite/gnat.dg/vect9.ads @ 138:fc828634a951

merge
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 08 Nov 2018 14:17:14 +0900
parents 04ced10e8804
children
line wrap: on
line source

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;