1-- { dg-excess-errors "cannot generate code" }
2
3package Pack10_Pkg is
4
5   generic
6      type Vector_Type (<>) is private;
7   procedure Proc;
8
9end Pack10_Pkg;
10