+ initial version from Peter

tests/tbf/tb0100.pp

@@ -0,0 +1,11 @@
+type
+  enum1 = (one,two,three);
+  enum2 = (four,five,six);
+  
+  enumset1 = set of enum1;
+
+var
+  s1 : enumset1;
+begin
+  s1:=[one,two]+[four];
+end.