blob: 6026942e483715d758a3fc6ee4d6255f6ee0b6c4 (
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 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.
|
