+ tests for web bugs 3183 and 4403

git-svn-id: trunk@2170 -

.gitattributes

@@ -5884,6 +5884,7 @@ tests/webtbf/tw3116.pp svneol=native#text/plain
 tests/webtbf/tw3126.pp svneol=native#text/plain
 tests/webtbf/tw3145.pp svneol=native#text/plain
 tests/webtbf/tw3183.pp svneol=native#text/plain
+tests/webtbf/tw3183b.pp svneol=native#text/plain
 tests/webtbf/tw3186.pp svneol=native#text/plain
 tests/webtbf/tw3218.pp svneol=native#text/plain
 tests/webtbf/tw3241.pp svneol=native#text/plain
@@ -6423,6 +6424,7 @@ tests/webtbs/tw3176.pp svneol=native#text/plain
 tests/webtbs/tw3179.pp svneol=native#text/plain
 tests/webtbs/tw3182.pp svneol=native#text/plain
 tests/webtbs/tw3183.pp svneol=native#text/plain
+tests/webtbs/tw3183a.pp svneol=native#text/plain
 tests/webtbs/tw3184.pp svneol=native#text/plain
 tests/webtbs/tw3185.pp svneol=native#text/plain
 tests/webtbs/tw3190.pp svneol=native#text/plain

tests/webtbf/tw3183b.pp

@@ -0,0 +1,14 @@
+{ %fail }
+{$mode objfpc}
+
+type
+  ta = interface
+    function a: longint;
+  end;
+
+  tb = interface(ta)
+    function a: ansistring;
+  end;
+
+begin
+end.

tests/webtbs/tw3183a.pp

@@ -0,0 +1,12 @@
+{$mode delphi}
+type
+  ta = interface
+    function a: longint;
+  end;
+
+  tb = interface(ta)
+    function a: ansistring;
+  end;
+
+begin
+end.