{ %FAIL }

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

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