-- { dg-excess-errors "cannot generate code" }
package Pack10_Pkg is
   generic
      type Vector_Type (<>) is private;
   procedure Proc;
end Pack10_Pkg;
-- { dg-excess-errors "cannot generate code" }
package Pack10_Pkg is
   generic
      type Vector_Type (<>) is private;
   procedure Proc;
end Pack10_Pkg;