freepascal.compiler/tests/tbf/tb0102.pp

{ %FAIL }

procedure p(var c:cardinal);
begin
end;

var
  l : longint;
begin
  p(l);
end.