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

+ add check that args after are found

Browse Source
This commit is contained in:
pierre 2002-11-18 01:33:33 +00:00
parent c3771d3813
commit 9a8c771280
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
tests/tbs/tb0419.pp
View File

@ -1,9 +1,18 @@
var
nc : integer;
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;
end; end;
begin begin
array_test(0,[1,2,3,4],0); nc:=5;
end. array_test(0,[1,2,3,4],56);
if nc<>56 then
begin
Writeln('Wrong code generated');
end;
end.