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;