From 65ea20e9e0d8489ed3d247964b9b628cf41ad2f3 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 8 Oct 2016 18:22:35 +0000
Subject: [PATCH] * More range type parsing errors

git-svn-id: trunk@34675 -
---
 packages/fcl-passrc/src/pparser.pp         | 2 +-
 packages/fcl-passrc/tests/tctypeparser.pas | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-passrc/src/pparser.pp b/packages/fcl-passrc/src/pparser.pp
index b2526a5446..f383abc0f6 100644
--- a/packages/fcl-passrc/src/pparser.pp
+++ b/packages/fcl-passrc/src/pparser.pp
@@ -1057,7 +1057,7 @@ begin
       else
         ParseExcSyntaxError;
       end
-    else if CurToken=tkDotDot then // Type A = A..B;
+    else if (CurToken in [tkBraceOpen,tkDotDot]) then // Type A = B..C;
       K:=stkRange
     else
       ParseExcTokenError(';');
diff --git a/packages/fcl-passrc/tests/tctypeparser.pas b/packages/fcl-passrc/tests/tctypeparser.pas
index e3338531b0..388bc64657 100644
--- a/packages/fcl-passrc/tests/tctypeparser.pas
+++ b/packages/fcl-passrc/tests/tctypeparser.pas
@@ -3099,6 +3099,8 @@ end;
 procedure TTestTypeParser.TestRangeLowHigh;
 
 begin
+   TShortCut = Low(Word)..High(Word);
+
   DoParseRangeSet('low(TRange)..high(TRange)','');
 end;