{$mode objfpc}
var
   o : tobject;

begin
   if assigned(o) then
     halt(1);
end.