From 393f200056dee28fb3030eee9f53e7872b690057 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 10 Aug 2000 18:20:51 +0000
Subject: [PATCH] *** empty log message ***

---
 tests/webtbs/tbug1096.pp | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 tests/webtbs/tbug1096.pp

diff --git a/tests/webtbs/tbug1096.pp b/tests/webtbs/tbug1096.pp
new file mode 100644
index 0000000000..206c783bae
--- /dev/null
+++ b/tests/webtbs/tbug1096.pp
@@ -0,0 +1,24 @@
+Program Test;
+{$X-}
+
+Function TestFunc : Boolean;
+var b : Boolean;
+begin
+  TestFunc := True;
+  b := True;
+  if b then
+  begin
+    exit;
+  end;
+end;
+
+begin
+  writeln(3 xor 1);
+  if TestFunc then
+  begin
+    writeln('Yo');
+  end;
+end.
+
+
+