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

*** empty log message ***

Browse Source
This commit is contained in:
florian 2003-01-03 01:03:03 +00:00
parent 7f9806390f
commit 5400c36e4f
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/test/testda1.pp Normal file
View File

@ -0,0 +1,18 @@
{ %VERSION=1.1}
var
a1 : array of longint;
i : longint;
begin
setlength(a1,10);
setlength(a1,0);
setlength(a1,10);
setlength(a1,100);
setlength(a1,10);
for i:=0 to 9 do
a1[i]:=i*i;
setlength(a1,1000);
setlength(a1,10);
for i:=0 to 9 do
writeln(a1[i]);
end.