freepascal.compiler/bugs/bug0284a.pp

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

begin
end.