Codetools: parse specialization as function result (in function type def) Issue #38970

components/codetools/pascalparsertool.pas

@@ -4965,8 +4965,13 @@ begin
   if IsFunction then begin
     if (CurPos.Flag=cafColon) then begin
       ReadNextAtom;
-      AtomIsIdentifierSaveE(20180411194218);
+      if UpAtomIs('SPECIALIZE') then begin
-      ReadNextAtom;
+        ReadSpecialize(true);
+      end
+      else begin
+        AtomIsIdentifierSaveE(20180411194218);
+        ReadNextAtom;
+      end;
       if CurPos.Flag=cafPoint then begin
         ReadNextAtom;
         AtomIsIdentifierSaveE(20180411194221);

components/codetools/tests/laztests/bug38970.pas

@@ -0,0 +1,26 @@
+program bug38970;
+
+{$mode objfpc}{$H+}
+{$modeswitch nestedprocvars}
+
+uses
+  {$IFDEF UNIX}
+  cthreads,
+  {$ENDIF}
+  Classes
+  { you can add units after this };
+
+type
+  generic TOption<T> = record
+  end;
+
+  generic TIterNestedFunc<T> = function (): specialize TOption{declaration:TOption}<T> is nested;
+
+procedure Test;
+begin
+end;
+
+begin
+end.
+
+