paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 04:09:30 +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;
begin
nc:=c;
end;
begin
array_test(0,[1,2,3,4],0);
end.
nc:=5;
array_test(0,[1,2,3,4],56);
if nc<>56 then
begin
Writeln('Wrong code generated');
end;
end.