paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 05:59:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ test that already works (mantis #12151)

Browse Source 
git-svn-id: trunk@12358 -
This commit is contained in:
Jonas Maebe 2008-12-12 19:45:07 +00:00
parent 57d0d3a3c5
commit c1bc1cd94d
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -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

10
tests/webtbs/tw12151.pp Normal file
View File

@ -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.