mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:58:31 +02:00
17 lines
235 B
ObjectPascal
17 lines
235 B
ObjectPascal
program fail;
|
|
|
|
var
|
|
i : int64;
|
|
err : word;
|
|
begin
|
|
if paramstr(1)<>'' then
|
|
begin
|
|
val(paramstr(1),i,err);
|
|
if err<>0 then
|
|
writeln('Error with ',paramstr(1))
|
|
else
|
|
halt(i);
|
|
end;
|
|
halt(1);
|
|
end.
|