From c495f10b2935646aec714733e891cf82c33278c5 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Fri, 15 Jun 2018 13:49:33 +0000
Subject: [PATCH] + added tests for Mantis #33839 which is now fixed with the
 recent changes

git-svn-id: trunk@39234 -
---
 .gitattributes           |  3 +++
 tests/webtbs/tw33839a.pp | 10 ++++++++++
 tests/webtbs/tw33839b.pp | 10 ++++++++++
 tests/webtbs/uw33839.pp  | 28 ++++++++++++++++++++++++++++
 4 files changed, 51 insertions(+)
 create mode 100644 tests/webtbs/tw33839a.pp
 create mode 100644 tests/webtbs/tw33839b.pp
 create mode 100644 tests/webtbs/uw33839.pp

diff --git a/.gitattributes b/.gitattributes
index 8948099d58..6c25935aba 100644
--- a/.gitattributes
+++ b/.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
diff --git a/tests/webtbs/tw33839a.pp b/tests/webtbs/tw33839a.pp
new file mode 100644
index 0000000000..d81fb0dd2c
--- /dev/null
+++ b/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.
diff --git a/tests/webtbs/tw33839b.pp b/tests/webtbs/tw33839b.pp
new file mode 100644
index 0000000000..2fbbd321b9
--- /dev/null
+++ b/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.
diff --git a/tests/webtbs/uw33839.pp b/tests/webtbs/uw33839.pp
new file mode 100644
index 0000000000..edac7afb58
--- /dev/null
+++ b/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.