Test suite results for test file test/tstring2.pp

Test run data :

Test file "test/tstring2.pp" information:

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

Detailed test run results:

Record count: 1

No log of 497919.

Source:

uses
   erroru;

procedure chararray2stringtest;

  var
     a : array[1..10,1..10,1..5] of char;
     i,j,k,l : integer;

  begin
     for i:=1 to 10 do
       a[i,i]:='Hello';
     i:=1;
     j:=2;
     k:=3;
     l:=4;
     { test register allocation }
     if (a[i,i]<>'Hello') or
       (a[j,j]<>'Hello') or
       (a[k,k]<>'Hello') or
       (a[l,l]<>'Hello') then
       do_error(1000);
   end;

begin
   writeln('Misc. shortstring tests');
   chararray2stringtest;
   writeln('Misc. shortstring tests successfully passed');
   halt(0);
end.

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