{ Old file: tbs0289.pp }
{ no hint/note for unused types : implemented with -vnh OK 0.99.13 (PM) }


procedure p;
type
  k1 = word;
begin
end;

type
  k2 = word;
begin
end.