diff --git a/components/codetools/keywordfunclists.pas b/components/codetools/keywordfunclists.pas
index 67480b1eb3..d0500e16af 100644
--- a/components/codetools/keywordfunclists.pas
+++ b/components/codetools/keywordfunclists.pas
@@ -929,6 +929,7 @@ begin
     Add('FAR'          ,{$ifdef FPC}@{$endif}AllwaysTrue);
     Add('FORWARD'      ,{$ifdef FPC}@{$endif}AllwaysTrue);
     Add('INLINE'       ,{$ifdef FPC}@{$endif}AllwaysTrue);
+    Add('INTERNPROC'   ,{$ifdef FPC}@{$endif}AllwaysTrue);
     Add('INTERRUPT'    ,{$ifdef FPC}@{$endif}AllwaysTrue);
     Add('IOCHECK'      ,{$ifdef FPC}@{$endif}AllwaysTrue);
     Add('LIBRARY'      ,{$ifdef FPC}@{$endif}AllwaysTrue);
diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index 4a8adb97ba..7e5b7da56a 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -1908,6 +1908,11 @@ begin
         SaveRaiseCharExpectedButAtomFound(20170421195502,':');
       ReadNextAtom;
       ReadConstant(true,false,[]);
+    end else if UpAtomIs('INTERNPROC') then begin
+      if not ReadNextAtomIsChar(':') then
+        SaveRaiseCharExpectedButAtomFound(20210616075400,':');
+      ReadNextAtom;
+      ReadConstant(true,false,[]);
     end else if UpAtomIs('INTERRUPT') then begin
       ReadNextAtom;
     end else if UpAtomIs('SYSCALL') then begin