+ bug from array const

bugs/bug0233.pp

@@ -0,0 +1,22 @@
+program except_test;
+
+type byteset = set of byte;
+     enumset = set of (zero,one,two,three);
+     
+procedure test(s : byteset);
+begin
+  if 0 in s then
+    Writeln('Contains zero !');
+end;
+
+procedure testenum(s : enumset);
+begin
+  if zero in s then
+    Writeln('Contains zero !');
+end;
+
+begin
+  test([1..5,8]);
+  test([0,8,15]);
+  testenum([zero,two]);
+end.

bugs/readme.txt

@@ -316,3 +316,4 @@ bug0230.pp   several strange happen on the ln function: ln(0): no
 bug0231.pp   Problem with comments
 bug0232.pp   const. procedure variables need a special syntax
              if they use calling specification modifiers
+bug0233.pp   Problem with enum sets in args