fpc/tests/test/tunit1.pp

{$ifdef CPUAVR}
{ avr uses instruction based init/finalization of units: this does not work if an error happens during finalization,
  it results in an endless loop, so skip this test for avr }
begin
end.
{$else CPUAVR}
uses
   erroru,uunit1;

begin
   if testvar<>1234567 then
     do_error(1000);
end.
{$endif CPUAVR}