freepascal.compiler/bugs/bug0163.pp

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.