mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 23:19:29 +02:00
14 lines
267 B
ObjectPascal
14 lines
267 B
ObjectPascal
{ 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.
|