diff --git a/tests/tbs/tb0184.pp b/tests/tbs/tb0184.pp
index 1bdee473be..7ffa199abb 100644
--- a/tests/tbs/tb0184.pp
+++ b/tests/tbs/tb0184.pp
@@ -2,6 +2,7 @@
 { in tp mode can't use the procvar in writeln          OK 0.99.11 (PFV) }
 
 {$ifdef fpc}{$mode tp}{$endif}
+{$F+}
 
 type tmpproc=function:longint;
 
diff --git a/tests/tbs/tb0218.pp b/tests/tbs/tb0218.pp
index 4ef475c9fa..1ab6b87eac 100644
--- a/tests/tbs/tb0218.pp
+++ b/tests/tbs/tb0218.pp
@@ -2,6 +2,7 @@
 { problem with procvars in tp mode                     OK 0.99.11 (PM) }
 
 {$mode tp}
+{$F+}
 
 type proc = procedure(a : longint);
 procedure test(b : longint);
diff --git a/tests/tbs/tb0251.pp b/tests/tbs/tb0251.pp
index 1d4ffb782c..d13f0f5391 100644
--- a/tests/tbs/tb0251.pp
+++ b/tests/tbs/tb0251.pp
@@ -2,6 +2,7 @@
 { @procvar in tp mode bugss                             OK 0.99.13 (PFV) }
 
 {$ifdef fpc}{$mode tp}{$endif}
+{$F+}
 
 function ReturnString: string;
 begin
diff --git a/tests/tbs/tb0433.pp b/tests/tbs/tb0433.pp
index 32a939837d..9f1be83c86 100644
--- a/tests/tbs/tb0433.pp
+++ b/tests/tbs/tb0433.pp
@@ -4,6 +4,7 @@
 type
   codepointer = pointer;
 {$endif fpc}
+{$F+}
 
 function times2(x : longint) : longint;
 
diff --git a/tests/test/cg/taddr2.pp b/tests/test/cg/taddr2.pp
index eedf7e72cc..da6cc2d4a8 100644
--- a/tests/test/cg/taddr2.pp
+++ b/tests/test/cg/taddr2.pp
@@ -16,6 +16,7 @@ program taddr;
 {$ifdef fpc}
   {$mode tp}
 {$endif}
+{$F+}
 
    procedure testprocvar;
      begin
diff --git a/tests/test/tprocvar2.pp b/tests/test/tprocvar2.pp
index 4962a3d636..a63318887d 100644
--- a/tests/test/tprocvar2.pp
+++ b/tests/test/tprocvar2.pp
@@ -1,7 +1,7 @@
-{$F+}
 {$ifdef fpc}
 {$mode tp}
 {$endif fpc}
+{$F+}
 
 type
   tproc = procedure;
diff --git a/tests/webtbs/tw2059.pp b/tests/webtbs/tw2059.pp
index 727ea29288..045b416f20 100644
--- a/tests/webtbs/tw2059.pp
+++ b/tests/webtbs/tw2059.pp
@@ -1,4 +1,5 @@
 {$mode tp}
+{$F+}
 type ProcType    = procedure(s:string);
      GetProcType = function(s:string;var Proc:ProcType):boolean;
 
diff --git a/tests/webtbs/tw2268.pp b/tests/webtbs/tw2268.pp
index f512c5f1ea..4b82c295e9 100644
--- a/tests/webtbs/tw2268.pp
+++ b/tests/webtbs/tw2268.pp
@@ -2,6 +2,7 @@
 { Submitted by "marco" on  2002-12-19 }
 { e-mail: marco@freepascal.org }
 {$ifdef fpc}{$mode TP}{$endif}
+{$F+}
 
 function P1:longint; begin end;
 function P2:longint; begin end;