mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
20 lines
381 B
ObjectPascal
20 lines
381 B
ObjectPascal
{ OPT=-So }
|
|
{ bug report variant, check that it works in
|
|
TP mode , 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.
|