[gcc/devel/modula-2] Add missing procedure name to the range error message.

[gcc/devel/modula-2] Add missing procedure name to the range error message.

[Gaius Mulley]

https://gcc.gnu.org/g:14e295ecf043c7bdf26cca3aa6af104382324aeb

commit 14e295ecf043c7bdf26cca3aa6af104382324aeb
Author: Gaius Mulley <gaiusmod2@gmail.com>
Date:   Mon Dec 5 14:18:19 2022 +0000

    Add missing procedure name to the range error message.
    
    Bugfix.  Runtime range errors generated via CodeErrorCheckLoc omit the
    procedure name.
    
    gcc/m2/ChangeLog:
    
            * gm2-compiler/M2Range.mod (CodeErrorCheckLoc): Concat function
            string to range error.
    
    Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>

Diff:
---
 gcc/m2/gm2-compiler/M2Range.mod | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gcc/m2/gm2-compiler/M2Range.mod b/gcc/m2/gm2-compiler/M2Range.mod
index 255250c3128..fa84515a73e 100644
--- a/gcc/m2/gm2-compiler/M2Range.mod
+++ b/gcc/m2/gm2-compiler/M2Range.mod
@@ -2323,6 +2323,7 @@ BEGIN
             scope := GetAnnounceScope (filename, NIL)
          ELSE
             scope := quoteOpen (InitString ('')) ;
+            scope := ConCat (scope, Mark (InitStringCharStar (function))) ;
             scope := ConCat (InitString ("procedure "), quoteClose (scope))
          END ;
          BuildStringParamLoc (location, scope) ;