paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-22 18:18:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* VarArrayRedim should accept new HighBound if it is LowBound-1. It clears the array.

Browse Source 
* Updated test.

git-svn-id: trunk@7739 -
This commit is contained in:
yury 2007-06-20 09:25:35 +00:00
parent a7a0e9a307
commit 63965406c4
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/webtbs/tw9098.pp
View File

@ -8,9 +8,16 @@ begin
for i:=VarArrayLowBound(v, 1) to VarArrayHighBound(v, 1) do for i:=VarArrayLowBound(v, 1) to VarArrayHighBound(v, 1) do
Writeln(v[i]); Writeln(v[i]);
VarArrayRedim(v, -1);
v:=VarArrayOf([]); v:=VarArrayOf([]);
if VarType(v) <> 8204 then begin if VarType(v) <> 8204 then begin
writeln('Wrong vartype: ', VarType(v)); writeln('Wrong vartype: ', VarType(v));
Halt(1); Halt(1);
end; end;
if VarArrayHighBound(v, 1) <> -1 then begin
writeln('Wrong high bound: ', VarArrayHighBound(v, 1));
Halt(2);
end;
end. end.