Test suite results for test file webtbs/tw2540.pp

Test run data :

Test file "webtbs/tw2540.pp" information:

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

Detailed test run results:

Record count: 1

No log of 939748.

Source:

var
  C : Char;
  S : AnsiString;
begin
  S := '';
  SetLength(S,1);
  S[1] := '?';
  SetLength(S,2);
  S[2] := '?';
  if (s <> '??') then
    halt(1);

  S := '';
  S := S + '?';
  S := S + '?';
  if (s <> '??') then
    halt(1);
end.

Link to SVN view of webtbs/tw2540.pp source.