* new test

tests/tbs/tb0352.pp

@@ -0,0 +1,9 @@
+procedure p(var w:word);
+begin
+end;
+
+var
+  i : smallint;
+begin
+  p(word(i));
+end.