no message

tests/tbs/tb0381.pp

@@ -5,7 +5,10 @@ var
 begin
    case w of
       'A' : ;
-      'B' : ;
+      'B' : ;      
       #1234: ;
+      #8888: ;
+      #8889..#9999: ;
+      'Z'..'a': ;
    end;
 end.