paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 10:59:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* moe tests

Browse Source
This commit is contained in:
pierre 2004-03-01 03:31:37 +00:00
parent 831a8a275f
commit d2e73e010e
2 changed files with 43 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
tests/webtbs/tw2853d.pp Normal file
View File

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

21
tests/webtbs/tw2853e.pp Normal file
View File

@ -0,0 +1,21 @@
{ 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.