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