paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also check that array can be accessed correctly

Browse Source
This commit is contained in:
pierre 2003-01-22 00:36:40 +00:00
parent ba308b65b3
commit b230154c32
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/tbs/tb0419.pp
View File

@ -1,17 +1,20 @@
var
nc : integer;
test_w : word;
procedure array_test(b: integer; parr: array of word; c: integer);cdecl;
begin
nc:=c;
test_w:=parr[2];
end;
begin
nc:=5;
test_w:=$abcd;
array_test(0,[1,2,3,4],56);
if nc<>56 then
if (nc<>56) or (test_w<>3) then
begin
Writeln('Wrong code generated');
end;