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

* length(array)

Browse Source
This commit is contained in:
peter 2001-07-09 21:21:57 +00:00
parent db87f86f00
commit f2d3037fd4
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/tbs/tb0363.pp Normal file
View File

@ -0,0 +1,23 @@
{ %VERSION=1.1 }
procedure p1(const a:array of byte);
var
l : longint;
begin
l:=length(a);
writeln('openarray length: ',l);
if l<>9 then
halt(1);
end;
var
a : array[2..10] of byte;
l : longint;
begin
l:=length(a);
writeln('length of a ',l);
if l<>9 then
halt(1);
p1(a);
end.