fpc/tests/webtbs/tw24129.pp

27 lines
260 B
ObjectPascal

{%norun}
program tw24129;
{$mode delphi}
procedure Test;
function Next: integer;
function Next: integer;
function Next: integer;
var
Next: integer;
begin
end;
begin
end;
begin
end;
begin
end;
begin
end.