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.0.0 / tests / webtbf / tw4359.pp
Size: Mime:
{ %fail }
{ %opt=-S2 }

{ Source provided for Free Pascal Bug Report 4359 }
{ Submitted by "Wolfgang Ehrhardt (via News, submitted by Marco)" on  2005-09-12 }
{ e-mail: Wolfgang.Ehrhardt@munich.netsurf.de }
{. mode objfpc}
program test;

{$ifdef FPC_OBJFPC}
{$fatal Correctly stopped at position 1}      // not triggered by -S2, but is triggered by mode objfpc
{$endif}

var
  bug: integer;

begin
end.