From 69b13080642b003922b3f2c83a624a2984c7df3f 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, 11 Oct 2020 11:27:52 +0200
Subject: [PATCH] bug fix #2321

---
 NETGenerator/NETGenerator.cs |  2 +-
 TestSuite/goto2.pas          | 10 ++++++++++
 2 files changed, 11 insertions(+), 1 deletion(-)
 create mode 100644 TestSuite/goto2.pas

diff --git a/NETGenerator/NETGenerator.cs b/NETGenerator/NETGenerator.cs
index 8c8ec2bca..204c6a611 100644
--- a/NETGenerator/NETGenerator.cs
+++ b/NETGenerator/NETGenerator.cs
@@ -5926,7 +5926,7 @@ namespace PascalABCCompiler.NETGenerator
         {
             Label lab = helper.GetLabel(value.label, il);
             il.MarkLabel(lab);
-            value.statement.visit(this);
+            ConvertStatement(value.statement);
         }
 
         public override void visit(IGotoStatementNode value)
diff --git a/TestSuite/goto2.pas b/TestSuite/goto2.pas
new file mode 100644
index 000000000..78b4fe6b9
--- /dev/null
+++ b/TestSuite/goto2.pas
@@ -0,0 +1,10 @@
+label a;
+var i: integer;
+function f: integer;
+begin
+  i := 1;
+end;
+begin
+  a: f();
+  assert(i = 1);
+end.
\ No newline at end of file