freepascal.compiler/tests/test/tunit1.pp

uses
   erroru,tunit2;

begin
   if testvar<>1234567 then
     do_error(1000);
end.