freepascal.compiler/bugs/bug0289.pp

procedure p;
type
  k1 = word;
begin
end;

type
  k2 = word;
begin
end.