+ add test for already fixed #39677

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.
+

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.
+

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.
+