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 --git a/gcc/testsuite/algol68/execute/modules/module24.a68 b/gcc/testsuite/algol68/execute/modules/module24.a68
new file mode 100644 (file)
index 0000000..4b042bd
--- /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 (file)
index 0000000..e4376b1
--- /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))