mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-16 03:30:34 +01:00
18 lines
295 B
ObjectPascal
18 lines
295 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.
|
|
|