no message

tests/tbf/tb0170.pp

@@ -0,0 +1,10 @@
+{ %fail }
+{$mode objfpc}
+uses
+  sysutils;
+
+resourcestring sMyNewErrorMessage = 'Illegal value: %d';
+
+begin
+  sMyNewErrorMessage:='';
+end.

tests/tbs/tb0482.pp

@@ -0,0 +1,9 @@
+{$mode objfpc}
+uses
+  sysutils;
+
+resourcestring sMyNewErrorMessage = 'Illegal value: %d';
+
+begin
+  raise Exception.CreateResFmt(@sMyNewErrorMessage, [-1]);
+end.