Test suite results for test file tbs/tb0413.pp

Test run data :

Test file "tbs/tb0413.pp" information:

t_id 629
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 948265.

Source:

var
   s : ansistring;
   ss : shortstring;
   as : ansistring;
   c : char;

begin
   as:='ansistring';
   ss:='shortstring';
   c:='C';
   s:=s+as;
   s:=s+c;
   s:=s+ss;
   s:=s+s;
   if s<>'ansistringCshortstringansistringCshortstring' then
     begin
        writeln('Problem with ansistring appending');
        halt(1);
     end;
end.

Link to SVN view of tbs/tb0413.pp source.