mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-05 11:23:07 +01:00
8 lines
84 B
ObjectPascal
8 lines
84 B
ObjectPascal
uses
|
|
erroru,uunit1;
|
|
|
|
begin
|
|
if testvar<>1234567 then
|
|
do_error(1000);
|
|
end.
|