mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 19:28:13 +02:00
19 lines
363 B
ObjectPascal
19 lines
363 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 CompareBooleanVars;
|
|
uses variants;
|
|
var
|
|
A,B: Variant;
|
|
begin
|
|
A := True;
|
|
B := True;
|
|
if A=B then
|
|
WriteLn('A and B are equal')
|
|
else
|
|
begin
|
|
WriteLn('A and B are NOT equal');
|
|
halt(1);
|
|
end;
|
|
end.
|