Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.2.0 / tests / test / tunit1.pp
Size: Mime:
{$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}