freepascal.compiler/tests/ts/ts010100.pp

{ $OPT= -S2
}
var
   o : tobject;

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