mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 12:03:45 +02:00
32 lines
553 B
ObjectPascal
32 lines
553 B
ObjectPascal
program except_test;
|
|
|
|
type byteset = set of byte;
|
|
enumset = set of (zero,one,two,three);
|
|
|
|
function test(s : byteset) : boolean;
|
|
begin
|
|
test:=false;
|
|
if 0 in s then
|
|
begin
|
|
Writeln('Contains zero !');
|
|
test:=true;
|
|
end;
|
|
end;
|
|
|
|
function testenum(s : enumset) : boolean;
|
|
begin
|
|
testenum:=false;
|
|
|
|
if zero in s then
|
|
begin
|
|
Writeln('Contains zero !');
|
|
testenum:=true;
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
if test([1..5,8]) then halt(1);
|
|
if not test([0,8,15]) then halt(1);
|
|
if not testenum([zero,two]) then halt(1);
|
|
end.
|