From 82d49bdc453675634b9dbf9a7a2a3f7e3124206e Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 10 Nov 2007 10:10:55 +0000
Subject: [PATCH] + test for previous commit

git-svn-id: trunk@9173 -
---
 .gitattributes         | 1 +
 tests/webtbs/tw9233.pp | 9 +++++++++
 2 files changed, 10 insertions(+)
 create mode 100644 tests/webtbs/tw9233.pp

diff --git a/.gitattributes b/.gitattributes
index e281b7a235..9e857115f7 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -8487,6 +8487,7 @@ tests/webtbs/tw9187.pp svneol=native#text/plain
 tests/webtbs/tw9190.pp svneol=native#text/plain
 tests/webtbs/tw9209.pp svneol=native#text/plain
 tests/webtbs/tw9221.pp svneol=native#text/plain
+tests/webtbs/tw9233.pp svneol=native#text/plain
 tests/webtbs/tw9261.pp svneol=native#text/x-pascal
 tests/webtbs/tw9278.pp svneol=native#text/plain
 tests/webtbs/tw9299.pp -text
diff --git a/tests/webtbs/tw9233.pp b/tests/webtbs/tw9233.pp
new file mode 100644
index 0000000000..02ddd2d817
--- /dev/null
+++ b/tests/webtbs/tw9233.pp
@@ -0,0 +1,9 @@
+{ %norun }
+program ChainBugTest;
+
+var
+  v: Variant;
+
+begin
+  v.GetOtherVariant.SomeProc;
+end.