From 43f21dc033ce46d88d1df8c2696a5cfeb56f9f8b Mon Sep 17 00:00:00 2001
From: Ivan Bondarev <ibond84@googlemail.com>
Date: Sun, 3 Apr 2022 14:08:36 +0200
Subject: [PATCH] test for #2644

---
 TestSuite/generics62.pas | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 TestSuite/generics62.pas

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.