mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
17 lines
228 B
ObjectPascal
17 lines
228 B
ObjectPascal
type
|
|
Tx = (one,two,three);
|
|
|
|
procedure error(number : longint);
|
|
begin
|
|
writeln('error ', number);
|
|
halt(number);
|
|
end;
|
|
|
|
var
|
|
a : Tx;
|
|
err : word;
|
|
|
|
begin
|
|
val('one', a, err);
|
|
if (err <> 0) or (a <> one) then error(1);
|
|
end. |