Test suite results for test file webtbf/tw2383.pp

Test run data :

Test file "webtbf/tw2383.pp" information:

t_id 1123
t_adddate 2003/10/14
t_result 0
Flag t_fail set
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{ %fail }

{ Source provided for Free Pascal Bug Report 2383 }
{ Submitted by "Anton Roolaid" on  2003-02-18 }
{ e-mail: Anton.Roolaid@mail.ee }
program VarParameterLoop;

const
  Elements = 3; { Array size }
  Arr: array [0 .. Elements - 1] of char = ('B', 'U', 'G');

function FindIndex(chElement: char; var iIndex: integer): boolean;
begin
  FindIndex := false; { Not found }
  { Using a variable parameter should not be allowed }
  for iIndex := 0 to Elements - 1 do
    if Arr[iIndex] = chElement then exit(true) { Found }
end;

var
 i: integer;
begin
  if FindIndex('U', i) then
    writeln('The index is ', i)
  else
    writeln('Not found')
end.

Link to SVN view of webtbf/tw2383.pp source.