* separate tests

tests/webtbf/tw3480.pp

@@ -5,11 +5,11 @@
 { e-mail: [email protected] }
 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.

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: [email protected] }
+program z;
+
+{$ifdef fpc}{$mode delphi}{$endif}
+
+type
+  IBla = interface
+  { This is not allowed }
+  class function X: Boolean;
+  end;
+
+end;
+
+begin
+end.
+