[gcc r16-6450] a68: use a68_error specific tag in diagnostic message

[Jose E. Marchesi]

https://gcc.gnu.org/g:1a6a3ce5acd755c1f99a5263d9fb72bd1e3116ea

commit r16-6450-g1a6a3ce5acd755c1f99a5263d9fb72bd1e3116ea
Author: Jose E. Marchesi <jose.marchesi@oracle.com>
Date:   Wed Dec 31 23:02:45 2025 +0100

    a68: use a68_error specific tag in diagnostic message
    
    a68_error and friends still use their own upper-letter based tag
    format.  We will be switching these to use the GCC standard %-based
    tags for diagnostics, hopefully soonish, but in the meanwhile do not
    pass a %s tag to a68_error because bad things happen.
    
    Signed-off-by: Jose E. Marchesi <jemarch@gnu.org>
    
    gcc/algol68/ChangeLog
    
            * a68-imports.cc (a68_open_packet): Use right tag format in
            a68_error.

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

diff --git a/gcc/algol68/a68-imports.cc b/gcc/algol68/a68-imports.cc
index b2297a144953..8d9bfb3985a1 100644
--- a/gcc/algol68/a68-imports.cc
+++ b/gcc/algol68/a68-imports.cc
@@ -1405,7 +1405,7 @@ a68_open_packet (const char *module)
       const char *errstr = NULL;
       if (!a68_decode_moifs (exports_data, exports_data_size, &errstr))
 	{
-	  a68_error (NO_NODE, "%s", errstr);
+	  a68_error (NO_NODE, "Y", errstr);
 	  return NULL;
 	}