unit bug0139a;
 
 interface
 
 uses
    objpas;
 
 type
    SomeClass=class(TObject)
    protected
    procedure doSomething; virtual;
    end ;
 
 implementation
 
 
 procedure SomeClass.doSomething;
 begin
   Writeln ('Hello from SomeClass.DoSomething');
 end ;

end.