fpc/tests/webtbs/tw2853e.pp
fpc 790a4fe2d3 * log and id tags removed
git-svn-id: trunk@42 -
2005-05-21 09:42:41 +00:00

21 lines
442 B
ObjectPascal

{ 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');
{ {}
{$endif, this endif should be ignored,
as it is inside a comment}
(* *)
}
WriteLn('ghi');
{$endif LOOP}
WriteLn('test');
end.