mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:07:55 +02:00
10 lines
146 B
ObjectPascal
10 lines
146 B
ObjectPascal
{ %fail }
|
|
{$R+}
|
|
Type Directions = (North, East,South,West);
|
|
|
|
Var Go : Directions;
|
|
|
|
begin
|
|
Go:=Pred(North); { must give compile time error }
|
|
end.
|