From 0debc54f6963d01e64061f7fbec228ae8c44b785 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 26 May 2004 20:32:25 +0000
Subject: [PATCH]   * aded { %fail }

---
 tests/tbf/tb0166.pp    | 1 +
 tests/webtbf/tw3047.pp | 5 +++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests/tbf/tb0166.pp b/tests/tbf/tb0166.pp
index c3e0463b67..25efdd907c 100644
--- a/tests/tbf/tb0166.pp
+++ b/tests/tbf/tb0166.pp
@@ -1,3 +1,4 @@
+{ %fail }
 procedure p1(const v);
 
   begin
diff --git a/tests/webtbf/tw3047.pp b/tests/webtbf/tw3047.pp
index 960e63083b..ebc05ca879 100644
--- a/tests/webtbf/tw3047.pp
+++ b/tests/webtbf/tw3047.pp
@@ -1,7 +1,8 @@
+{ %fail }
 { Source provided for Free Pascal Bug Report 3047 }
 { Submitted by "GBD" on  2004-04-12 }
 { e-mail:  }
-{ $mode delphi}
+{$mode delphi}
 
 function JenkinsHashBuffer(const buffer; length : Integer; initVal : Integer) : longword;
 begin
@@ -13,4 +14,4 @@ begin
 end;
 
 begin
-end.
\ No newline at end of file
+end.