freepascal.compiler/bugs/bug0140a.pp

unit bug0140a;

interface

uses bug0140;

procedure Message(var O:TObject);

implementation

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