* TestArrayAccess test for bug ID #31735

git-svn-id: trunk@36187 -

packages/fcl-passrc/tests/tcexprparser.pas

@@ -138,6 +138,7 @@ type
     procedure TestChainedPointers;
     Procedure TestNilCaret;
     Procedure TestExpCaret;
+    Procedure TestArrayAccess;
   end;
 
 implementation
@@ -625,6 +626,14 @@ begin
   ParseModule;
 end;
 
+procedure TTestExpressions.TestArrayAccess;
+begin
+  Source.Add('begin');
+  Source.Add('DoSomething((pb + 10)[4]);');
+  Source.Add('end.');
+  ParseModule;
+end;
+
 
 procedure TTestExpressions.TestUnaryMinus;
 begin

packages/fcl-passrc/tests/testpassrc.lpi

@@ -27,7 +27,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <CommandLineParams Value="--suite=TTestGenerics.TestInlineSpecializationInProcedure"/>
+        <CommandLineParams Value="--suite=TTestExpressions.TestArrayAccess"/>
       </local>
     </RunParams>
     <RequiredPackages Count="1">