From 752ed1b05bfeeb8e83b7b5848c20b165ef6ec2af Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sat, 29 Nov 2003 14:57:55 +0000
Subject: [PATCH] * new bug
---
tests/webtbs/tw2809.pp | 10 ++++++++++
1 file changed, 10 insertions(+)
create mode 100644 tests/webtbs/tw2809.pp
diff --git a/tests/webtbs/tw2809.pp b/tests/webtbs/tw2809.pp
new file mode 100644
index 0000000000..bada39d1ac
--- /dev/null
+++ b/tests/webtbs/tw2809.pp
@@ -0,0 +1,10 @@
+{ %version=1.1 }
+
+{$ifdef fpc}{$mode objfpc}{$endif}
+
+var
+ v : variant;
+begin
+ Initialize(v);
+ Finalize(v);
+end.