+ test that already works (mantis #12151)

git-svn-id: trunk@12358 -

.gitattributes

@@ -8624,6 +8624,7 @@ tests/webtbs/tw12050b.pp svneol=native#text/plain
 tests/webtbs/tw12051.pp svneol=native#text/plain
 tests/webtbs/tw1207.pp svneol=native#text/plain
 tests/webtbs/tw12076.pp svneol=native#text/plain
+tests/webtbs/tw12151.pp svneol=native#text/plain
 tests/webtbs/tw12186.pp svneol=native#text/plain
 tests/webtbs/tw12202.pp svneol=native#text/plain
 tests/webtbs/tw12214.pp svneol=native#text/plain

tests/webtbs/tw12151.pp

@@ -0,0 +1,10 @@
+uses
+  variants;
+var
+  Values: OleVariant;
+  mTempNames: string;
+begin
+  Values := VarArrayCreate([0, 0], varVariant);
+  //this row will cause runtime error
+  Values[0] := VarArrayCreate([0, 1], varByte);
+end.