bug fix #2321

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)

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.