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

implementation
end.