freepascal.compiler/tests/tbs0140a.pp

unit tbs0140a;

interface

uses tbs0140;

procedure Message(var O:TObject);

implementation

procedure Message(var O:TObject);
 begin writeln('Message') end;
end.