paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 07:11:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed multi dimensional dyn. array to variant array

Browse Source 
git-svn-id: trunk@1605 -
This commit is contained in:
florian 2005-10-30 20:48:27 +00:00
parent f5f196c547
commit 08d0ea156b
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/test/testv9.pp
View File

@ -6,7 +6,7 @@ var
a : array of longint; a : array of longint;
a2 : array of array of longint; a2 : array of array of longint;
v : variant; v : variant;
i : longint; i,j : longint;
begin begin
setlength(a,1000); setlength(a,1000);
for i:=0 to high(a) do for i:=0 to high(a) do
@ -21,4 +21,16 @@ begin
writeln('simple test ok'); writeln('simple test ok');
setlength(a2,10,30); setlength(a2,10,30);
for i:=0 to high(a2) do
for j:=0 to high(a2[i]) do
a2[i,j]:=i*j;
v:=a2;
for i:=0 to high(a2) do
for j:=0 to high(a2[i]) do
if v[i,j]<>i*j then
begin
writeln('v[',i,',',j,']=',v[i,j]);
halt(1);
end;
writeln('complex test ok');
end. end.