freepascal.compiler/tests/tbs/tb0329.pp

{$mode objfpc}
var
   o : tobject;

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