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