bug fix #499

NETGenerator/NETGenerator.cs

@@ -5655,7 +5655,10 @@ namespace PascalABCCompiler.NETGenerator
         public override void visit(IGotoStatementNode value)
         {
             Label lab = helper.GetLabel(value.label, il);
-            il.Emit(OpCodes.Br, lab);
+            if (safe_block)
+                il.Emit(OpCodes.Leave, lab);
+            else
+                il.Emit(OpCodes.Br, lab);
         }
 
         private Stack<Label> if_stack = new Stack<Label>();

TestSuite/goto1.pas

@@ -0,0 +1,10 @@
+label c1;
+begin
+  var s := 0;
+  foreach var i in range(0, 2) do
+  begin
+    goto c1;
+    s := 2;
+  end;  
+  c1: assert(s=0);
+end.