* aded { %fail }

tests/tbf/tb0166.pp

@@ -1,3 +1,4 @@
+{ %fail }
 procedure p1(const v);
 
   begin

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.
+end.