mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 14:33:41 +02:00
14 lines
240 B
ObjectPascal
14 lines
240 B
ObjectPascal
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.
|