mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 12:43:47 +02:00
10 lines
161 B
ObjectPascal
10 lines
161 B
ObjectPascal
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. |