* extra test for tw3395

tests/webtbf/tw3395a.pp

@@ -0,0 +1,29 @@
+{ %fail }
+
+{$mode delphi}
+
+type
+   texec1 = class
+     protected
+       procedure execute;
+     public
+       constructor create;
+   end;
+
+   procedure t(p: pointer);
+     begin
+     end;
+
+   constructor texec1.Create;
+     begin
+       // This should give an invalid typecast, because a methodpointer are 2 pointers
+       t(pointer(execute));
+     end;
+
+   procedure texec1.execute;
+     begin
+     end;
+
+begin
+end.
+

tests/webtbs/tw3395.pp

@@ -1,29 +0,0 @@
-program bug3395;
-
-{$MODE DELPHI}
-{$THREADING ON}
-
-type
-  texec1 = class
-    protected
-      procedure execute;
-    public
-      constructor create;
-  end;
-
-  procedure t(p: pointer);
-    begin
-    end;
-
-  constructor texec1.Create;
-    begin
-      t(@execute);
-    end;
-  
-  procedure texec1.execute;
-    begin
-    end;
-  
-begin
-end.
-