fpcsrc/tests/tbs/tb0331.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

{$mode objfpc}

{ tests assignements and compare }

var
   o1,o2 : tobject;

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