mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:38:29 +02:00
15 lines
181 B
ObjectPascal
15 lines
181 B
ObjectPascal
(*$packset 1 *)
|
|
program test;
|
|
var
|
|
s8: set of 0..7;
|
|
b: byte;
|
|
begin
|
|
b:=17;
|
|
s8:=[];
|
|
if b in (s8+[1]) then
|
|
halt(1);
|
|
b:=5;
|
|
if not(b in (s8+[5])) then
|
|
halt(2);
|
|
end.
|