paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 11:29:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Added bug #0163

Browse Source
This commit is contained in:
michael 1998-09-18 20:09:02 +00:00
parent 784d8a9335
commit 8d64e21dac
2 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
bugs/bug0163.pp Normal file
View File

@ -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
bugs/readme.txt
View File

@ -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.