* new bug

tests/webtbf/tw3631.pp

@@ -0,0 +1,13 @@
+{ %fail }
+{ %opt=-Sew }
+
+var
+  a : array[0..32] of byte;
+
+procedure p(const a:array of byte);
+begin
+end;
+
+begin
+  p(a);
+end.