paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 17:09:10 +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 var
nc : integer; nc : integer;
test_w : word;
procedure array_test(b: integer; parr: array of word; c: integer);cdecl; procedure array_test(b: integer; parr: array of word; c: integer);cdecl;
begin begin
nc:=c; nc:=c;
test_w:=parr[2];
end; end;
begin begin
nc:=5; nc:=5;
test_w:=$abcd;
array_test(0,[1,2,3,4],56); array_test(0,[1,2,3,4],56);
if nc<>56 then if (nc<>56) or (test_w<>3) then
begin begin
Writeln('Wrong code generated'); Writeln('Wrong code generated');
end; end;