mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 07:19:29 +01:00
14 lines
155 B
ObjectPascal
14 lines
155 B
ObjectPascal
{ %FAIL }
|
|
|
|
type
|
|
enum1 = (one,two,three);
|
|
enum2 = (four,five,six);
|
|
|
|
enumset1 = set of enum1;
|
|
|
|
var
|
|
s1 : enumset1;
|
|
begin
|
|
s1:=[one,two]+[four];
|
|
end.
|