+ new test

git-svn-id: trunk@6260 -

.gitattributes

@@ -7979,6 +7979,7 @@ tests/webtbs/tw7679.pp svneol=native#text/plain
 tests/webtbs/tw7719.pp svneol=native#text/plain
 tests/webtbs/tw7756.pp svneol=native#text/plain
 tests/webtbs/tw7803.pp svneol=native#text/plain
+tests/webtbs/tw7806.pp svneol=native#text/plain
 tests/webtbs/tw7817a.pp svneol=native#text/plain
 tests/webtbs/tw7817b.pp svneol=native#text/plain
 tests/webtbs/tw7847.pp svneol=native#text/plain

tests/webtbs/tw7806.pp

@@ -0,0 +1,22 @@
+{$mode objfpc}
+program project1;
+{$H+}
+uses variants;
+
+function MyFunc(aVar : Variant) : Boolean;
+begin
+  WriteLn(VarToStr(aVar[0]));
+  Result := False;
+end;
+
+var
+  aVar : Variant;
+  I : Integer;
+begin
+  for I := 0 to 10 do
+  begin
+    aVar := VarArrayOf(['Test', 0]);
+    MyFunc(aVar);
+  end;
+  writeln('ok');
+end.