mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 15:14:54 +02:00
8 lines
84 B
ObjectPascal
8 lines
84 B
ObjectPascal
uses
|
|
erroru,uunit1;
|
|
|
|
begin
|
|
if testvar<>1234567 then
|
|
do_error(1000);
|
|
end.
|