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

no message

Browse Source
This commit is contained in:
florian 2000-11-09 17:49:54 +00:00
parent 1117f793db
commit 34fb0e67f5
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tests/test/testfi1.pp Normal file
View File

@ -0,0 +1,21 @@
{$mode delphi}
var
a,c1,c2 : ansistring;
aa : array[1..10] of ansistring;
i : longint;
begin
c1:='Hello ';
c2:=' world';
a:=c1+c2;
finalize(a);
if length(a)<>0 then
halt(1);
for i:=1 to 10 do
aa[i]:=c1+c2;
finalize(aa[1],10);
for i:=1 to 10 do
if length(aa[i])<>0 then
halt(1);
end.