* Test for po_arrayrangeexpr

packages/fcl-passrc/tests/tctypeparser.pas

@@ -114,6 +114,7 @@ type
     procedure TestPointerSimpleDeprecated;
     procedure TestPointerSimplePlatform;
     Procedure TestStaticArray;
+    procedure TestStaticArrayAsRange;
     Procedure TestStaticArrayComment;
     procedure TestStaticArrayDeprecated;
     procedure TestStaticArrayPlatform;
@@ -3384,6 +3385,15 @@ begin
   AssertEquals('Packed',True,TPasArrayType(TheType).IsPacked);
 end;
 
+procedure TTestTypeParser.TestStaticArrayAsRange;
+
+begin
+  Parser.Options:=Parser.Options+[po_arrayrangeexpr];
+  DoParseArray('packed array [0..2] of integer','',Nil);
+  AssertEquals('Array has ranges',1,Length(TPasArrayType(TheType).Ranges));
+end;
+
+
 procedure TTestTypeParser.TestStaticArrayTypedIndex;
 begin
   DoParseArray('array [Boolean] of integer','',Nil);