freepascal.compiler/tests/tbs/tb0114.pp

{ Old file: tbs0133.pp }
{ object type declaration not 100% compatibile with TP7 }

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

  procedure t.p;
  begin
  end;

  begin
  end.