[gcc r16-6423] a68: add new test program-24.a68

[Jose E. Marchesi]

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

commit r16-6423-gb276de7be7b363b1951ae24b89b48ea98ba2b6bd
Author: Jose E. Marchesi <jose.marchesi@oracle.com>
Date:   Sun Dec 28 20:41:09 2025 +0100

    a68: add new test program-24.a68
    
    This commit adds a new simple testcase that checks whether publicized
    operator priority declarations work as expected.
    
    Signed-off-by: Jose E. Marchesi <jemarch@gnu.org>
    
    gcc/testsuite/ChangeLog
    
            * algol68/execute/modules/module24.a68: New file.
            * algol68/execute/modules/program-24.a68: New test.

Diff:
---
 gcc/testsuite/algol68/execute/modules/module24.a68   | 4 ++++
 gcc/testsuite/algol68/execute/modules/program-24.a68 | 2 ++
 2 files changed, 6 insertions(+)

diff --git a/gcc/testsuite/algol68/execute/modules/module24.a68 b/gcc/testsuite/algol68/execute/modules/module24.a68
new file mode 100644
index 000000000000..4b042bd1037c
--- /dev/null
+++ b/gcc/testsuite/algol68/execute/modules/module24.a68
@@ -0,0 +1,4 @@
+module Module_24 =
+def pub prio + = 7, * = 6;
+    skip
+fed
diff --git a/gcc/testsuite/algol68/execute/modules/program-24.a68 b/gcc/testsuite/algol68/execute/modules/program-24.a68
new file mode 100644
index 000000000000..e4376b18807c
--- /dev/null
+++ b/gcc/testsuite/algol68/execute/modules/program-24.a68
@@ -0,0 +1,2 @@
+{ dg-modules module24 }
+access Module_24 (assert (2+3 * 4+1 = 25))