Test suite results for test file webtbs/tw3111.pp

Test run data :

Test file "webtbs/tw3111.pp" information:

t_id 1294
t_adddate 2004/05/22
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940707.

Source:

var
  Start : Cardinal;
  Run,Text: PWideChar;
  RunLen: Cardinal;

begin
  Start:=100;
  Run:=nil;
  Text:=Run+10;
  Start:=Start+Run-Text;
  if Start<>90 then
    begin
      writeln('error');
      halt(1);
    end;
end.

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