Test suite results for test file webtbs/tw2473.pp

Test run data :

Test file "webtbs/tw2473.pp" information:

t_id 1151
t_adddate 2003/10/22
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 936930.

Source:

{ Source provided for Free Pascal Bug Report 2473 }
{ Submitted by "julien" on  2003-04-25 }
{ e-mail: jfiiz@aol.com }

function afunc (line : ansistring; var i : qword)  : qword;
begin
  if (i>length(line[i])) then
    writeln('hello');
  afunc:=0;
end;

begin
end.

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