blob: 57a0fee2b1ce60c3d47c9d97085db3072b115ff8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
{ Old file: tbs0206.pp }
{ sets with variable ranges doesn't work OK 0.99.11 (PFV) }
PROGRAM SetRange_Bug;
CONST a:char='A';z:char='Z';
VAR s:set of char;c:char;
BEGIN
s:=[a..z];
for c:=#0 to #255 do
if c in s then
write(c);
writeln;
END.
|
