freepascal.compiler/tests/tbs/ub0119.pp

{ Old file: tbs0139a.pp }
{  }

 unit ub0119;

{$mode objfpc}

 interface

 type
    SomeClass=class(TObject)
    protected
    procedure doSomething; virtual;
    end ;

 implementation


 procedure SomeClass.doSomething;
 begin
   Writeln ('Hello from SomeClass.DoSomething');
 end ;

end.