no message

tests/tbs/tb0438.pas

@@ -0,0 +1,13 @@
+{ %version=1.1 }
+{$mode objfpc}
+procedure p(a : array of const);
+
+  begin
+  end;
+
+var
+   a : array[0..25] of char;
+
+begin
+   p([a]);
+end.