fpcsrc/tests/webtbf/tw2383.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

{ %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.