diff --git a/tests/webtbs/tw39677.pp b/tests/webtbs/tw39677.pp
new file mode 100644
index 0000000000..a3d4de1ba7
--- /dev/null
+++ b/tests/webtbs/tw39677.pp
@@ -0,0 +1,15 @@
+{ %NORUN }
+
+program tw39677;
+
+{$mode Delphi}
+
+uses uw39677b, uw39677a;
+
+var
+  S: Rawbytestring;
+  I: Integer;
+begin
+  I := Test(S);
+end.
+
diff --git a/tests/webtbs/uw39677a.pp b/tests/webtbs/uw39677a.pp
new file mode 100644
index 0000000000..8b25152953
--- /dev/null
+++ b/tests/webtbs/uw39677a.pp
@@ -0,0 +1,11 @@
+unit uw39677a;
+{$mode Delphi}
+interface
+function Test(const A: Rawbytestring): Integer; overload;
+implementation
+function Test(const A: Rawbytestring): Integer;
+begin
+  Writeln('a');
+end;
+end.
+
diff --git a/tests/webtbs/uw39677b.pp b/tests/webtbs/uw39677b.pp
new file mode 100644
index 0000000000..5252acd9c4
--- /dev/null
+++ b/tests/webtbs/uw39677b.pp
@@ -0,0 +1,11 @@
+unit uw39677b;
+{$mode Delphi}
+interface
+function Test<T>(const A: TArray<T>): Integer; overload;
+implementation
+function Test<T>(const A: TArray<T>): Integer;
+begin
+  Writeln('b');
+end;
+end.
+