Test suite results for test file tbs/tb0438.pp

Test run data :

Test file "tbs/tb0438.pp" information:

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

Detailed test run results:

Record count: 1

No log of 847486.

Source:

{$ifdef fpc}{$mode objfpc}{$endif}

procedure p(a : array of const);
  var
    i : integer;
  begin
    for i:=low(a) to high(a) do
     begin
       write(i,': ');
       if (a[i].vtype=vtpchar) then
        begin
          writeln('"',a[i].vpchar,'"');
          if (a[i].vpchar<>'test') then
           begin
             writeln('Wrong string content');
             halt(1);
           end;
        end
       else
        begin
          writeln('No string type (',a[i].vtype,')');
          halt(1);
        end;
     end;
  end;

var
   a : array[0..25] of char;

begin
   a:='test';
   p([a,a]);
end.

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