[gcc r17-1547] a68: escape %< and %> in call to sprintf

[Jose E. Marchesi]

https://gcc.gnu.org/g:5956ba140692c42efe0365271004689bd84194d1

commit r17-1547-g5956ba140692c42efe0365271004689bd84194d1
Author: Jose E. Marchesi <jemarch@gnu.org>
Date:   Sun Jun 14 10:27:04 2026 +0200

    a68: escape %< and %> in call to sprintf
    
    Signed-off-by: Jose E. Marchesi <jemarch@gnu.org>
    
    gcc/algol68/ChangeLog
    
            * a68-parser-brackets.cc (bracket_check_error): Escape %< and
            %> in call to printf.

Diff:
---
 gcc/algol68/a68-parser-brackets.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/algol68/a68-parser-brackets.cc b/gcc/algol68/a68-parser-brackets.cc
index 70efb4cad087..38aa9f3c8202 100644
--- a/gcc/algol68/a68-parser-brackets.cc
+++ b/gcc/algol68/a68-parser-brackets.cc
@@ -51,7 +51,7 @@ bracket_check_error (char *txt, int n, const char *bra, const char *ket,
   const char *strop_bra = a68_strop_keyword (bra);
 
   BUFCLR (buf);
-  if (snprintf (buf, SNPRINTF_SIZE, "missing matching %<%s%>",
+  if (snprintf (buf, SNPRINTF_SIZE, "missing matching %%<%s%%>",
 		(n > 0 ? strop_ket : strop_bra)) < 0)
     gcc_unreachable ();