path: root/fpcsrc/tests/tbs/tb0352.pp

procedure p(var w:word);
begin
end;

var
  i : smallint;
begin
  p(word(i));
end.