Test suite results for test file test/trtti3.pp

Test run data :

Test file "test/trtti3.pp" information:

t_id 81
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 734839.

Source:

{ %VERSION=1.1 }

{$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.

Link to SVN view of test/trtti3.pp source.