mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 02:39:40 +01:00
21 lines
380 B
ObjectPascal
21 lines
380 B
ObjectPascal
{ %FAIL }
|
|
{ %OPT=-So -dLOOP }
|
|
{ Test variant showing another failure }
|
|
{ added by Pierre }
|
|
{ Source provided for Free Pascal Bug Report 2853 }
|
|
{ Submitted by "Bj”rn Hendriks" on 2003-12-18 }
|
|
{ e-mail: bjoern.hendriks.ext_ese@ts.siemens.de }
|
|
program test;
|
|
|
|
begin
|
|
WriteLn('abc');
|
|
{$ifdef LOOP}
|
|
WriteLn('def');
|
|
{
|
|
*)
|
|
|
|
WriteLn('ghi');
|
|
{$endif LOOP}
|
|
WriteLn('test');
|
|
end.
|