paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 11:39:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* test for array of word passing

Browse Source
This commit is contained in:
peter 2001-07-30 21:00:20 +00:00
parent c4b84ce276
commit c43aeba013
1 changed files with 12 additions and 0 deletions

12
tests/webtbs/tw1567.pp Normal file
View File

@ -0,0 +1,12 @@
procedure hallo(a:array of word);
begin
writeln(a[0],' ',a[1],' ',a[2]);
if (a[0]<>999) or
(a[1]<>999) or
(a[2]<>999) then
halt(1);
end;
begin
hallo([999,999,999]);
end.