michael 27 years ago
parent
commit
8d64e21dac
2 changed files with 17 additions and 0 deletions
  1. 16 0
      bugs/bug0163.pp
  2. 1 0
      bugs/readme.txt

+ 16 - 0
bugs/bug0163.pp

@@ -0,0 +1,16 @@
+Program test;
+
+{ shows missing <= and >= for sets }
+
+Type
+     Days = (Monday,tuesday,wednesday,thursday,friday,saturday,sunday);
+          
+Var  
+     FreeDays,Weekend : set of days;
+                  
+begin
+   Weekend := [saturday, sunday];
+   FreeDays := [friday, saturday, sunday];
+   If (Weekend <= Freedays) then
+       Writeln ('Free in weekend !');
+end.

+ 1 - 0
bugs/readme.txt

@@ -217,3 +217,4 @@ bug0152.pp   End value of loop variable must be calculated before loop
 bug0161.pp   internal error when trying to create a set with another set as
              its element (instead of a syntax error)
 bug0162.pp   continue in repeat ... until loop doesn't work correct
+bug0163.pp   missing <= and >= operators for sets.