[gcc r14-9648] PR modula2/114444 trunc float malformed error cause ICE

[Gaius Mulley via Gcc-cvs]

https://gcc.gnu.org/g:a68458187d4c889dc11b2b95f08a61adf087f69d

commit r14-9648-ga68458187d4c889dc11b2b95f08a61adf087f69d
Author: Gaius Mulley <gaiusm...@gmail.com>
Date:   Sat Mar 23 16:04:23 2024 +0000

    PR modula2/114444 trunc float malformed error cause ICE
    
    This patch corrects two error format specifiers.
    
    gcc/m2/ChangeLog:
    
            PR modula2/114444
            * gm2-compiler/M2Quads.mod (BuildTruncFunction): Correct
            error format specifier.
            (BuildFloatFunction): Correct error format specifier.
    
    Signed-off-by: Gaius Mulley <gaiusm...@gmail.com>

Diff:
---
 gcc/m2/gm2-compiler/M2Quads.mod | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcc/m2/gm2-compiler/M2Quads.mod b/gcc/m2/gm2-compiler/M2Quads.mod
index 52d72f6cd62..891a76b4660 100644
--- a/gcc/m2/gm2-compiler/M2Quads.mod
+++ b/gcc/m2/gm2-compiler/M2Quads.mod
@@ -9840,12 +9840,12 @@ BEGIN
                BuildConvertFunction
             ELSE
                MetaErrorT1 (functok,
-                            'argument to {%1E%ad} must be a float point type', 
Sym) ;
+                            'argument to {%1Ead} must be a float point type', 
Sym) ;
                PushTFtok (MakeConstLit (functok, MakeKey('0'), Type), Type, 
functok)
             END
          ELSE
             MetaErrorT2 (vartok,
-                         'argument to {%1E%ad} must be a variable or constant, 
seen {%2ad}',
+                         'argument to {%1Ead} must be a variable or constant, 
seen {%2ad}',
                          Sym, Var) ;
             PushTFtok (MakeConstLit (functok, MakeKey('0'), Type), Type, 
functok)
          END
@@ -9924,7 +9924,7 @@ BEGIN
             BuildConvertFunction
          ELSE
             MetaErrorT1 (vartok,
-                         'argument to {%1E%ad} must be a variable or 
constant', ProcSym) ;
+                         'argument to {%1Ead} must be a variable or constant', 
ProcSym) ;
             PushTFtok (MakeConstLit (functok, MakeKey('0.0'), Type), Type, 
functok)
          END
       ELSE