diff --git a/TestSuite/generics62.pas b/TestSuite/generics62.pas
new file mode 100644
index 000000000..1d60825c1
--- /dev/null
+++ b/TestSuite/generics62.pas
@@ -0,0 +1,12 @@
+var i: integer;
+procedure p1<T1>(d: T1->()) := exit;
+procedure p1<T1,T2>(d: T1->T2);
+begin
+  i := 1;
+end;
+
+function f(b: byte) := 0;
+begin
+  p1(f);
+  assert(i = 1);
+end.