From 334c8815402944f69f25e17939bbeaa096b51b5a Mon Sep 17 00:00:00 2001
From: Mikhalkovich Stanislav <miks@math.sfedu.ru>
Date: Wed, 5 Dec 2018 20:47:38 +0300
Subject: [PATCH] =?UTF-8?q?=D0=A0=D0=B0=D0=B1=D0=BE=D1=87=D0=B8=D0=B5=20?=
 =?UTF-8?q?=D0=B8=D0=B7=D0=BC=D0=B5=D0=BD=D0=B5=D0=BD=D0=B8=D1=8F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs | 7 +++++--
 TestSuite/errors/err0301.pas                        | 4 ++++
 2 files changed, 9 insertions(+), 2 deletions(-)
 create mode 100644 TestSuite/errors/err0301.pas

diff --git a/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs b/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs
index 97bd08e5e..35df5b7c1 100644
--- a/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs
+++ b/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs
@@ -3009,8 +3009,11 @@ public partial class GPPGParser: ShiftReduceParser<PascalABCSavParser.Union, Lex
         }
         break;
       case 103: // var_decl_sect -> var_decl_sect, var_decl
-{ 
-			CurrentSemanticValue.stn = (ValueStack[ValueStack.Depth-2].stn as variable_definitions).Add(ValueStack[ValueStack.Depth-1].stn as var_def_statement, CurrentLocationSpan);
+{
+                        var vdn = ValueStack[ValueStack.Depth - 2].stn as variable_definitions;
+                        var vds = ValueStack[ValueStack.Depth - 1].stn as var_def_statement;
+
+            CurrentSemanticValue.stn = vdn.Add(vds, CurrentLocationSpan);
 		}
         break;
       case 104: // var_decl_sect -> tkVar, tkRoundOpen, identifier, tkComma, ident_list, 
diff --git a/TestSuite/errors/err0301.pas b/TestSuite/errors/err0301.pas
new file mode 100644
index 000000000..fcc94c901
--- /dev/null
+++ b/TestSuite/errors/err0301.pas
@@ -0,0 +1,4 @@
+var f: integer->integer := x->2*Result;
+
+begin
+end.
\ No newline at end of file