From a5f3040da528a76bf21187f647e15c24c82d980b Mon Sep 17 00:00:00 2001
From: Sven/Sarah Barth <pascaldragon@gmail.com>
Date: Thu, 21 Apr 2022 21:57:36 +0200
Subject: [PATCH] * the index of the generic type parameter is not the same
 index of the paras list + added test

---
 compiler/pgenutil.pas        |  2 +-
 tests/test/timpfuncspez36.pp | 21 +++++++++++++++++++++
 2 files changed, 22 insertions(+), 1 deletion(-)
 create mode 100644 tests/test/timpfuncspez36.pp

diff --git a/compiler/pgenutil.pas b/compiler/pgenutil.pas
index bf6fcfe70a..0a6c0ea039 100644
--- a/compiler/pgenutil.pas
+++ b/compiler/pgenutil.pas
@@ -972,7 +972,7 @@ uses
                   { find the generic param name in the generic def parameters }
                   j:=target_proc.genericdef.genericparas.findindexof(paravar.vardef.typesym.name);
 
-                  target_def:=tparavarsym(target_proc.paras[j]).vardef;
+                  target_def:=ttypesym(target_proc.genericparas[j]).typedef;
                   caller_def:=caller_proc_para.vardef;
 
                   if not assigned(caller_def.typesym) then
diff --git a/tests/test/timpfuncspez36.pp b/tests/test/timpfuncspez36.pp
new file mode 100644
index 0000000000..caf5b984fb
--- /dev/null
+++ b/tests/test/timpfuncspez36.pp
@@ -0,0 +1,21 @@
+{ %NORUN }
+
+program timpfuncspez36;
+
+{$mode objfpc}
+{$modeswitch implicitfunctionspecialization}
+
+type
+  generic TTestFunc<T> = procedure(aArg1: String; aArg2: T);
+
+generic procedure DoTest<T>(aArg: specialize TTestFunc<T>);
+begin
+end;
+
+procedure TestFunc(aArg1: String; aArg2: LongInt);
+begin
+end;
+
+begin
+  DoTest(@TestFunc);
+end.