freepascal.compiler/tests/ts010101.pp

{ tests assignements and compare }

var
   o1,o2 : tobject;

begin
   o1:=nil;
   o2:=o1;
   if o2<>nil then
     halt(1);
end.