paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 20:09:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added bug #165

Browse Source
This commit is contained in:
michael 1998-09-22 15:04:19 +00:00
parent 87d95bb17c
commit d2204ea2ae
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
bugs/bug0165.pp Normal file
View File

@ -0,0 +1,13 @@
Program bug0165;
{ No range check when -Cr given}
Type Directions = (North, East,South,West);
Var Go : Directions;
begin
Go:=North;
Go:=Pred(Go); { must give run-time error }
Go:=Pred(North); { must give compile time error }
end.

1
bugs/readme.txt
View File

@ -219,3 +219,4 @@ bug0161.pp internal error when trying to create a set with another set as
its element (instead of a syntax error) its element (instead of a syntax error)
bug0162.pp continue in repeat ... until loop doesn't work correct bug0162.pp continue in repeat ... until loop doesn't work correct
bug0163.pp missing <= and >= operators for sets. bug0163.pp missing <= and >= operators for sets.
bug0165.pp missing range check code for enumerated types.