mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 05:49:14 +02:00
19 lines
360 B
ObjectPascal
19 lines
360 B
ObjectPascal
{ 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.
|