uses bug0284b;
{$HINTS ON}
type
  o2=object(o1)
    p : longint;
  end;

begin
end.