From f206a9c2b1ae1d8727ca27a96d448b61fdb4c766 Mon Sep 17 00:00:00 2001
From: fpc <fpc@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Mon, 16 May 2005 18:37:41 +0000
Subject: initial import

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@1 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 tests/webtbf/tw2853.pp | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 tests/webtbf/tw2853.pp

(limited to 'tests/webtbf/tw2853.pp')

diff --git a/tests/webtbf/tw2853.pp b/tests/webtbf/tw2853.pp
new file mode 100644
index 0000000000..d671c296ee
--- /dev/null
+++ b/tests/webtbf/tw2853.pp
@@ -0,0 +1,20 @@
+{ %FAIL }
+{ Test variant showing another failure }
+{ 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.
+
-- 
cgit v1.2.1