diff --git a/tests/webtbf/tw3480.pp b/tests/webtbf/tw3480.pp
index 12bee507e5..c900f9fa35 100644
--- a/tests/webtbf/tw3480.pp
+++ b/tests/webtbf/tw3480.pp
@@ -5,11 +5,11 @@
 { e-mail: danny_milo@yahoo.com }
 program z;
 
-{$mode delphi}
+{$ifdef fpc}{$mode delphi}{$endif}
 
 type
   IBla = interface
-  class function X: Boolean;
+  function X: Boolean;
   end;
 
   TBla = class(TInterfacedObject, IBla, IInterface)
@@ -17,6 +17,11 @@ type
   class function X: Boolean;
   end;
 
+class function TBLA.X: Boolean;
+begin
+  
+end;
+
 begin
   TBla.X;
 end.
diff --git a/tests/webtbf/tw3480a.pp b/tests/webtbf/tw3480a.pp
new file mode 100644
index 0000000000..95228179d8
--- /dev/null
+++ b/tests/webtbf/tw3480a.pp
@@ -0,0 +1,20 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 3480 }
+{ Submitted by "Danny Milosavljevic" on  2004-12-26 }
+{ e-mail: danny_milo@yahoo.com }
+program z;
+
+{$ifdef fpc}{$mode delphi}{$endif}
+
+type
+  IBla = interface
+  { This is not allowed }
+  class function X: Boolean;
+  end;
+
+end;
+
+begin
+end.
+