+ added tests for Mantis #33839 which is now fixed with the recent changes

git-svn-id: trunk@39234 -

.gitattributes

@@ -16153,6 +16153,8 @@ tests/webtbs/tw33635.pp svneol=native#text/pascal
 tests/webtbs/tw3364.pp svneol=native#text/plain
 tests/webtbs/tw3366.pp svneol=native#text/plain
 tests/webtbs/tw33818.pp svneol=native#text/pascal
+tests/webtbs/tw33839a.pp -text svneol=native#text/pascal
+tests/webtbs/tw33839b.pp -text svneol=native#text/pascal
 tests/webtbs/tw3402.pp svneol=native#text/plain
 tests/webtbs/tw3411.pp svneol=native#text/plain
 tests/webtbs/tw3418.pp svneol=native#text/plain
@@ -16766,6 +16768,7 @@ tests/webtbs/uw3292a.pp svneol=native#text/plain
 tests/webtbs/uw3340.pp svneol=native#text/plain
 tests/webtbs/uw3353.pp svneol=native#text/plain
 tests/webtbs/uw3356.pp svneol=native#text/plain
+tests/webtbs/uw33839.pp -text svneol=native#text/pascal
 tests/webtbs/uw3429.pp svneol=native#text/plain
 tests/webtbs/uw3474a.pp svneol=native#text/plain
 tests/webtbs/uw3474b.pp svneol=native#text/plain

tests/webtbs/tw33839a.pp

@@ -0,0 +1,10 @@
+{ %NORUN }
+
+program tw33839a;
+{$mode objfpc} // change to mode Delphi and it works
+uses uw33839;
+begin
+  testme(100);
+  testme(1.0);
+  specialize testme<String>('Test');
+end.

tests/webtbs/tw33839b.pp

@@ -0,0 +1,10 @@
+{ %NORUN }
+
+program tw33839b;
+{$mode delphi}
+uses uw33839;
+begin
+  testme(100);
+  testme(1.0);
+  testme<String>('Test');
+end.

tests/webtbs/uw33839.pp

@@ -0,0 +1,28 @@
+unit uw33839;
+{$mode delphi} // mode does not matter!
+interface
+  procedure testme(const a:integer);overload;
+  procedure testme(const a:cardinal);overload;
+  procedure testme(const a:double);overload;
+  procedure testme<T>(const a:T);overload;
+implementation
+  procedure testme(const a:integer);overload;
+  begin
+    //
+  end;
+
+  procedure testme(const a:cardinal);overload;
+  begin
+    //
+  end;
+
+  procedure testme(const a:double);overload;
+  begin
+    //
+  end;
+
+  procedure testme<T>(const a:T);overload;
+  begin
+    //
+  end;
+end.