several tests related to webbug 2853

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: [email protected] }
+program test;
+
+begin
+   WriteLn('abc');
+{$ifdef LOOP}
+   WriteLn('def');
+{
+ *)
+
+   WriteLn('ghi');
+{$endif LOOP}
+   WriteLn('test');
+end.
+

tests/webtbf/tw2853a.pp

@@ -0,0 +1,21 @@
+{ %FAIL }
+{ %OPT=-dLOOP }
+{ 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: [email protected] }
+program test;
+
+begin
+   WriteLn('abc');
+{$ifdef LOOP}
+   WriteLn('def');
+{
+ *)
+
+   WriteLn('ghi');
+{$endif LOOP}
+   WriteLn('test');
+end.
+

tests/webtbf/tw2853b.pp

@@ -0,0 +1,21 @@
+{ %FAIL }
+{ %OPT=-So }
+{ 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: [email protected] }
+program test;
+
+begin
+   WriteLn('abc');
+{$ifdef LOOP}
+   WriteLn('def');
+{
+ *)
+
+   WriteLn('ghi');
+{$endif LOOP}
+   WriteLn('test');
+end.
+

tests/webtbf/tw2853c.pp

@@ -0,0 +1,21 @@
+{ %FAIL }
+{ %OPT=-So -dLOOP }
+{ 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: [email protected] }
+program test;
+
+begin
+   WriteLn('abc');
+{$ifdef LOOP}
+   WriteLn('def');
+{
+ *)
+
+   WriteLn('ghi');
+{$endif LOOP}
+   WriteLn('test');
+end.
+

tests/webtbs/tw2853.pp

@@ -0,0 +1,17 @@
+{ Source provided for Free Pascal Bug Report 2853 }
+{ Submitted by "Bj”rn Hendriks" on  2003-12-18 }
+{ e-mail: [email protected] }
+program test;
+
+begin
+   WriteLn('abc');
+{$ifdef LOOP}
+   WriteLn('def');
+{
+  (* *)
+}
+   WriteLn('ghi');
+{$endif LOOP}
+   WriteLn('test');
+end.
+

tests/webtbs/tw2853a.pp

@@ -0,0 +1,20 @@
+{ OPT=-So }
+{ 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: [email protected] }
+program test;
+
+begin
+   WriteLn('abc');
+{$ifdef LOOP}
+   WriteLn('def');
+{
+  (* *)
+}
+   WriteLn('ghi');
+{$endif LOOP}
+   WriteLn('test');
+end.
+

tests/webtbs/tw2853b.pp

@@ -0,0 +1,20 @@
+{ OPT=-So -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: [email protected] }
+program test;
+
+begin
+   WriteLn('abc');
+{$ifdef LOOP}
+   WriteLn('def');
+{
+  (* *)
+}
+   WriteLn('ghi');
+{$endif LOOP}
+   WriteLn('test');
+end.
+

tests/webtbs/tw2853c.pp

@@ -0,0 +1,20 @@
+{ 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: [email protected] }
+program test;
+
+begin
+   WriteLn('abc');
+{$ifdef LOOP}
+   WriteLn('def');
+{
+  (* *)
+}
+   WriteLn('ghi');
+{$endif LOOP}
+   WriteLn('test');
+end.
+