freepascal.compiler/bugs/bug0133.pp

type
  t=object
     f : longint;
     procedure p;
     g : longint;  { Not allowed in BP7 }
  end;

  procedure t.p;
  begin
  end;

  begin
  end.