diff --git a/components/codetools/pascalparsertool.pas b/components/codetools/pascalparsertool.pas
index f3c6dd8829..3160373190 100644
--- a/components/codetools/pascalparsertool.pas
+++ b/components/codetools/pascalparsertool.pas
@@ -4569,6 +4569,7 @@ begin
   CreateChildNode;
   // first set the type to open array (an array type without brackets)
   CurNode.Desc:=ctnOpenArrayType;
+  ReadNextAtom;
   if (CurPos.Flag=cafEdgedBracketOpen) then begin
     CurNode.Desc:=ctnRangedArrayType;
     Result:=ReadIndexType;