blob: 26b94ab5bcd8c009e71b1b14ace40e2dbacc0bb9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ OPT= -dloop }
{ 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.
|
