mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:28:28 +02:00
17 lines
294 B
ObjectPascal
17 lines
294 B
ObjectPascal
{ 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.
|