From a62cfb9ea416a171fede6d744118d6a023cc4cd3 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 22 Mar 1999 23:27:07 +0000
Subject: [PATCH]  + bug from array const

---
 bugs/bug0233.pp | 22 ++++++++++++++++++++++
 bugs/readme.txt |  1 +
 2 files changed, 23 insertions(+)
 create mode 100644 bugs/bug0233.pp

diff --git a/bugs/bug0233.pp b/bugs/bug0233.pp
new file mode 100644
index 0000000000..f198ebf34d
--- /dev/null
+++ b/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.
\ No newline at end of file
diff --git a/bugs/readme.txt b/bugs/readme.txt
index 7c182a8016..24d9c754c6 100644
--- a/bugs/readme.txt
+++ b/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