[gcc r16-6013] a68: fix `int * char' lowerer

[Jose E. Marchesi]

https://gcc.gnu.org/g:1769647617c3f523e275cf9a768c3826ac47c634

commit r16-6013-g1769647617c3f523e275cf9a768c3826ac47c634
Author: Jose E. Marchesi <jose.marchesi@oracle.com>
Date:   Tue Dec 9 23:53:24 2025 +0100

    a68: fix `int * char' lowerer
    
    This commit fixes the asserts in a68_loer_char_mult3 so it expects
    either int*char or char*int.  It also expands the mult-char-1.a68
    testcase to cover this case.
    
    Signed-off-by: Jose E. Marchesi <jemarch@gnu.org>
    
    gcc/algol68/ChangeLog
    
            * a68-low-prelude.cc (a68_lower_char_mult3): Fix asserts.
    
    gcc/testsuite/ChangeLog
    
            * algol68/execute/mult-char-1.a68: Cover int*char cases.

Diff:
---
 gcc/algol68/a68-low-prelude.cc                | 2 +-
 gcc/testsuite/algol68/execute/mult-char-1.a68 | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/gcc/algol68/a68-low-prelude.cc b/gcc/algol68/a68-low-prelude.cc
index 55c0895bec52..bd54b207fbe2 100644
--- a/gcc/algol68/a68-low-prelude.cc
+++ b/gcc/algol68/a68-low-prelude.cc
@@ -944,7 +944,7 @@ a68_lower_char_mult3 (NODE_T *p, LOW_CTX_T ctx)
 
   if (MOID (n1) == M_INT)
     {
-      gcc_assert (MOID (n2) == M_STRING || MOID (n2) == M_ROW_CHAR);
+      gcc_assert (MOID (n2) == M_CHAR);
       return a68_string_mult (a68_string_from_char (a68_lower_tree (n2, ctx)),
 			      a68_lower_tree (n1, ctx));
     }
diff --git a/gcc/testsuite/algol68/execute/mult-char-1.a68 b/gcc/testsuite/algol68/execute/mult-char-1.a68
index 0e3c1f4b93f0..67af07323b4a 100644
--- a/gcc/testsuite/algol68/execute/mult-char-1.a68
+++ b/gcc/testsuite/algol68/execute/mult-char-1.a68
@@ -1,5 +1,8 @@
 # { dg-options "-fstropping=upper" }  #
 BEGIN ASSERT ("a" * 3 = "aaa");
       ASSERT ("" * 1 = "");
-      ASSERT ("x" * 0 = "x")
+      ASSERT ("x" * 0 = "x");
+      ASSERT (3 * "a" = "aaa");
+      ASSERT (1 * "" = "");
+      ASSERT (0 * "x" = "x")
 END