freepascal.compiler/bugs/bug0284b.pp

unit bug0284b;
interface
type
  o1=object
    p : longint;
  end;

implementation
end.