blob: d1d9651a56bd864b87eb036cb6544571b1947c6d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ Old file: tbs0165.pp }
{ missing range check code for enumerated types. OK 0.99.9 (PFV) }
{$R+}
Program bug0165;
uses
erroru;
{ No range check when -Cr given}
Type Directions = (North, East,South,West);
Var Go : Directions;
begin
Require_Error(201);
Go:=North;
Go:=Pred(Go); { must give run-time error }
end.
|
