no message

tests/tbs/tb0476.pp

@@ -0,0 +1,10 @@
+const
+  e = 'as';
+
+procedure p(const p);
+  begin
+  end;
+
+begin
+  p(e[1]);
+end.