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