fcl-passrc: resolver: error message on array of const

git-svn-id: trunk@37405 -

packages/fcl-passrc/src/pasresolver.pp

@@ -3481,6 +3481,8 @@ begin
     else
       RaiseXExpectedButYFound(20170216151609,'range',RangeResolved.IdentEl.ElementTypeName,Expr);
     end;
+  if El.ElType=nil then
+    RaiseNotYetImplemented(20171005235610,El,'array of const');
   FinishSubElementType(El,El.ElType);
 end;
 

packages/fcl-passrc/tests/tcresolver.pas

@@ -576,6 +576,9 @@ type
     Procedure TestArray_ConstOpenArrayWriteFail;
     Procedure TestArray_Static_Const;
 
+    // array of const
+    Procedure TestArrayOfConst;
+
     // static arrays
     Procedure TestArrayIntRange_OutOfRange;
     Procedure TestArrayCharRange_OutOfRange;
@@ -9377,6 +9380,16 @@ begin
   CheckResolverUnexpectedHints;
 end;
 
+procedure TTestResolver.TestArrayOfConst;
+begin
+  StartProgram(false);
+  Add([
+  'procedure DoIt(args: array of const);',
+  'begin end;',
+  'begin']);
+  CheckResolverException('not yet implemented: :TPasArrayType [20171005235610] array of const',nNotYetImplemented);
+end;
+
 procedure TTestResolver.TestArrayIntRange_OutOfRange;
 begin
   StartProgram(false);