From 24450a1fb7df34ea58bc4b3663d2f5c7d1a3614e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=91=D0=BE=D0=BD=D0=B4=D0=B0=D1=80=D0=B5=D0=B2=20=D0=98?=
 =?UTF-8?q?=D0=B2=D0=B0=D0=BD?= <ibond84@googlemail.com>
Date: Sun, 26 Apr 2020 12:33:15 +0200
Subject: [PATCH] fix #2226

---
 NETGenerator/NETGenerator.cs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/NETGenerator/NETGenerator.cs b/NETGenerator/NETGenerator.cs
index 2a277bfa0..d419091b2 100644
--- a/NETGenerator/NETGenerator.cs
+++ b/NETGenerator/NETGenerator.cs
@@ -3283,13 +3283,13 @@ namespace PascalABCCompiler.NETGenerator
                     lb = il.DeclareLocal(ti.arr_fld.FieldType);
                     il.Emit(OpCodes.Ldloc, fb);
                     il.Emit(OpCodes.Ldfld, ti.arr_fld);
+                    il.Emit(OpCodes.Stloc, lb);
                 }
                 else
                 {
-                    lb = il.DeclareLocal(ti.tp);
-                    il.Emit(OpCodes.Ldloc, fb);
+                    lb = fb;
                 }
-                il.Emit(OpCodes.Stloc, lb);
+                
                 if (rank == 1)
                     GenerateArrayInitCode(il, lb, InitalValue, ArrayType);
                 else