fpcsrc/tests/tbs/tb0381.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ %VERSION=1.1 }
var
   w : widechar;

begin
   case w of
      'A' : ;
      'B' : ;
      #1234: ;
      #8888: ;
      #8889..#9999: ;
      'Z'..'a': ;
   end;
end.