no message

tests/tbs/tb0347.pp

@@ -0,0 +1,17 @@
+{$mode objfpc}
+{$M+}
+
+type
+   tenum = (te_first,te_second,te_third,te_fourth,te_fifth);
+
+   tenumrange = te_second..te_fourth;
+
+   tc1 = class
+      public
+        fe : tenumrange;
+      published
+        property enumrange : tenumrange read fe write fe;
+   end;
+
+begin
+end.

tests/tbs/tb0348.pp

@@ -0,0 +1,6 @@
+{ $VERSION=1.1}
+  const
+     GUID_NULL : TGUID = '{00000000-0000-0000-0000-000000000000}';
+
+begin
+end.

tests/tbs/tb0349.pp

@@ -0,0 +1,9 @@
+{ %VERSION=1.1}
+var
+   p : pwidechar;
+   c : widechar;
+   i : longint;
+
+begin
+   c:=p[i];
+end.