* Fixed bug #21252 (range type with identifiers)

git-svn-id: trunk@20864 -

packages/fcl-passrc/src/pparser.pp

@@ -783,7 +783,7 @@ begin
     stkRange:
       begin
       UnGetToken;
-      Result:=ParseRangeType(Parent,TypeName);
+      Result:=ParseRangeType(Parent,TypeName,False);
       end;
     stkAlias:
       begin