From 313beddf2e8e851087ed299ff16fe1e5bdb67cc7 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 2 Feb 2001 23:17:01 +0000
Subject: [PATCH]   * added missing FAIL

---
 tests/tbf/tb0099.pp    | 2 ++
 tests/webtbf/tw1316.pp | 2 ++
 tests/webtbf/tw1365.pp | 2 ++
 3 files changed, 6 insertions(+)

diff --git a/tests/tbf/tb0099.pp b/tests/tbf/tb0099.pp
index 619593983c..f14c822968 100644
--- a/tests/tbf/tb0099.pp
+++ b/tests/tbf/tb0099.pp
@@ -1,3 +1,5 @@
+{ %FAIL }
+
 procedure p(a:array of char);
 begin
 end;
diff --git a/tests/webtbf/tw1316.pp b/tests/webtbf/tw1316.pp
index 77d4529cc5..643b83bead 100644
--- a/tests/webtbf/tw1316.pp
+++ b/tests/webtbf/tw1316.pp
@@ -1,3 +1,5 @@
+{ %FAIL }
+
 unit tw1316;
 interface
 
diff --git a/tests/webtbf/tw1365.pp b/tests/webtbf/tw1365.pp
index f4282af0cb..1718cfc1b9 100644
--- a/tests/webtbf/tw1365.pp
+++ b/tests/webtbf/tw1365.pp
@@ -1,3 +1,5 @@
+{ %FAIL }
+
 {$mode fpc}
 program test_const_objects;