blob: 5f94f2eb7fac07b42e38f8f1e990ca9e7bfd0f41 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ Source provided for Free Pascal Bug Report 3953 }
{ Submitted by "Jesus Reyes A." on 2005-05-08 }
{ e-mail: jesusrmx@yahoo.com.mx }
program CompareNULLVars;
uses variants;
var
A,B: Variant;
begin
A := NULL;
B := NULL;
if A=B then
WriteLn('A and B are equal')
else
begin
WriteLn('A and B are NOT equal');
halt(1);
end;
end.
|
