+ test for previous commit

git-svn-id: trunk@9173 -

.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

tests/webtbs/tw9233.pp

@@ -0,0 +1,9 @@
+{ %norun }
+program ChainBugTest;
+
+var
+  v: Variant;
+
+begin
+  v.GetOtherVariant.SomeProc;
+end.