fix #2575

Parsers/PascalABCParserNewSaushkin/ABCPascal.cs

@@ -1,9 +1,9 @@
 //
 //  This CSharp output file generated by Gardens Point LEX
 //  Version:  1.1.3.301
-//  Machine:  DESKTOP-G8V08V4
-//  DateTime: 24.12.2021 11:23:25
-//  UserName: ?????????
+//  Machine:  DESKTOP-2BJCJ7I
+//  DateTime: 24.12.2021 14:49:33
+//  UserName: ibond
 //  GPLEX input file <ABCPascal.lex>
 //  GPLEX frame file <embedded resource>
 //

Parsers/PascalABCParserNewSaushkin/ABCPascal.y

@@ -4320,6 +4320,8 @@ variable
 		}
     | variable tkRoundOpen optional_expr_list tkRoundClose                
         {
+			if ($1 is index)
+				parsertools.AddErrorFromResource("UNEXPECTED_SYMBOL{0}", @1, "^");
 			$$ = new method_call($1 as addressed_value,$3 as expression_list, @$);
         }
     | variable tkPoint identifier_keyword_operatorname

Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs

@@ -1,9 +1,9 @@
 // (see accompanying GPPGcopyright.rtf)
 
 // GPPG version 1.3.6
-// Machine:  DESKTOP-G8V08V4
-// DateTime: 24.12.2021 11:23:26
-// UserName: ?????????
+// Machine:  DESKTOP-2BJCJ7I
+// DateTime: 24.12.2021 14:49:34
+// UserName: ibond
 // Input file <ABCPascal.y>
 
 // options: no-lines gplex
@@ -6789,6 +6789,8 @@ public partial class GPPGParser: ShiftReduceParser<PascalABCSavParser.Union, Lex
         break;
       case 789: // variable -> variable, tkRoundOpen, optional_expr_list, tkRoundClose
 {
+			if (ValueStack[ValueStack.Depth-4].ex is index)
+				parsertools.AddErrorFromResource("UNEXPECTED_SYMBOL{0}", LocationStack[LocationStack.Depth-4], "^");
 			CurrentSemanticValue.ex = new method_call(ValueStack[ValueStack.Depth-4].ex as addressed_value,ValueStack[ValueStack.Depth-2].stn as expression_list, CurrentLocationSpan);
         }
         break;

TestSuite/errors/err0449.pas

@@ -0,0 +1,5 @@
+//!Неожиданный символ '^'
+begin
+  var p: pointer;
+  (^integer)(p)^.print;
+end.