From 0e8c2c83fa3a22bc887696d4a4c391da9b9dd2af Mon Sep 17 00:00:00 2001
From: fpc <fpc@idefix.freepascal.org>
Date: Thu, 19 May 2005 22:19:57 +0000
Subject: [PATCH] Merged revisions 35 via svnmerge from /trunk

git-svn-id: branches/fixes_2_0@36 -
---
 .gitattributes          |  2 ++
 tests/webtbs/tw3953a.pp | 18 ++++++++++++++++++
 tests/webtbs/tw3953b.pp | 18 ++++++++++++++++++
 3 files changed, 38 insertions(+)
 create mode 100644 tests/webtbs/tw3953a.pp
 create mode 100644 tests/webtbs/tw3953b.pp

diff --git a/.gitattributes b/.gitattributes
index b8afdad248..08c15be06b 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -6128,6 +6128,8 @@ tests/webtbs/tw3893.pp svneol=native#text/plain
 tests/webtbs/tw3898.pp svneol=native#text/plain
 tests/webtbs/tw3899.pp svneol=native#text/plain
 tests/webtbs/tw3900.pp svneol=native#text/plain
+tests/webtbs/tw3953a.pp svneol=native#text/plain
+tests/webtbs/tw3953b.pp svneol=native#text/plain
 tests/webtbs/tw3973.pp svneol=native#text/plain
 tests/webtbs/tw3977.pp svneol=native#text/plain
 tests/webtbs/tw3977.txt svneol=native#text/plain
diff --git a/tests/webtbs/tw3953a.pp b/tests/webtbs/tw3953a.pp
new file mode 100644
index 0000000000..6026942e48
--- /dev/null
+++ b/tests/webtbs/tw3953a.pp
@@ -0,0 +1,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.
diff --git a/tests/webtbs/tw3953b.pp b/tests/webtbs/tw3953b.pp
new file mode 100644
index 0000000000..5f94f2eb7f
--- /dev/null
+++ b/tests/webtbs/tw3953b.pp
@@ -0,0 +1,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.