blob: d73e3db0aa65d6ec5c5bd8177464adc6e3561e22 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{ %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.
|