no message

tests/tbs/tb0476.pp

@@ -3,8 +3,13 @@ const
 
 procedure p(const p);
   begin
+    if pchar(@p)^<>'a' then
+      begin
+        writeln('error');
+        halt(1);
+      end;
   end;
 
 begin
   p(e[1]);
-end.
+end.