From 61d44bba17591fa9fdf8eb65f3c1beae4092aef0 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 12 Aug 2020 19:07:23 +0000
Subject: [PATCH]   * allow iso gotos within a procedure

git-svn-id: trunk@46396 -
---
 compiler/nflw.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/nflw.pas b/compiler/nflw.pas
index 9edc45599c..715bc7a783 100644
--- a/compiler/nflw.pas
+++ b/compiler/nflw.pas
@@ -2179,7 +2179,7 @@ implementation
               { nested exits don't need the non local goto switch }
               (labelsym.realname='$nestedexit') then
               begin
-                if current_procinfo.procdef.parast.symtablelevel>labelsym.owner.symtablelevel then
+                if current_procinfo.procdef.parast.symtablelevel>=labelsym.owner.symtablelevel then
                   begin
                     { don't mess with the exception blocks, global gotos in/out side exception blocks are not allowed }
                     if exceptionblock>0 then
@@ -2212,7 +2212,7 @@ implementation
                       CGMessage1(cg_e_goto_label_not_found,labelsym.realname);
                   end
                 else
-                  CGMessage(cg_e_interprocedural_goto_only_to_outer_scope_allowed);
+                  CGMessagePos(self.fileinfo,cg_e_interprocedural_goto_only_to_outer_scope_allowed);
               end
             else
               CGMessage1(cg_e_goto_label_not_found,labelsym.realname);