fpc/tests/webtbs/tw4700.pp
peter 79ec67806d * remove svn:executable
git-svn-id: trunk@3050 -
2006-03-27 07:20:35 +00:00

13 lines
147 B
ObjectPascal

var
a: Boolean;
b,c,d : Variant;
e : Integer;
begin
b := 'abc';
c := null;
a := b = c;
a := b <> c;
d := e - c;
d := e + c;
end.