Merged revisions 2170 via svnmerge from

svn+ssh://[email protected]/FPC/svn/fpc/trunk

r2170 (jonas)
  + tests for web bugs 3183 and 4403

git-svn-id: branches/fixes_2_0@2171 -

.gitattributes

@@ -5582,6 +5582,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
@@ -6113,6 +6114,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.