TP3/shell/tests/fixtures/t107_forward.pas

program t107_forward;

{ t107 -- a forward definition may repeat only the name; the formal parameter
  symbols from the forward declaration remain visible in the body. }

function AddOne (var C : char; N : integer) : integer; forward;

function AddOne{(var C : char; N : integer):integer;forward}: integer;
begin
  AddOne := N + 1
end;

var
  Ch : char;
begin
  Ch := 'x';
  writeln (AddOne (Ch, 41))
end.