no message

tests/tbs/tb0462.pp

@@ -0,0 +1,16 @@
+{ %version=1.1 }
+type
+  RR = record
+    RA : WideString;
+  end;
+
+const
+  Z : RR = (RA: 'B');
+  
+begin
+  if z.ra<>'B' then
+    begin
+      writeln('error');
+      halt(1);
+    end; 
+end.