mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 07:58:04 +02:00
14 lines
263 B
ObjectPascal
14 lines
263 B
ObjectPascal
{ 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.
|