+ add test for already fixed #37380

tests/webtbs/tw37380.pp

@@ -0,0 +1,19 @@
+{ %NORUN }
+
+program tw37380;
+{$mode delphi}
+function GTest<T>(a: T; b: T = T(1)): T;
+begin
+  Result := a + b;
+end;
+
+function Foobar(a: Single; b: Single = Single(1)): Single;
+begin
+  Result := a + b;
+end;
+
+begin
+  WriteLn(GTest<Single>(2, 1));
+  WriteLn(Foobar(2));
+end.
+