* new test

git-svn-id: trunk@5970 -

.gitattributes

@@ -7935,6 +7935,7 @@ tests/webtbs/tw7643.pp svneol=native#text/plain
 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/tw7817a.pp svneol=native#text/plain
 tests/webtbs/tw7817b.pp svneol=native#text/plain
 tests/webtbs/tw7847.pp svneol=native#text/plain

tests/webtbs/tw7803.pp

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