From: Jose E. Marchesi <jemarch@gnu.org>
Date: Sun, 5 Jul 2026 13:24:33 +0000 (+0200)
Subject: a68: avoid non-unique test names in the Algol 68 testsuite
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0fe05c3034c1218b9de3a4e2708a0a30fd352f68;p=thirdparty%2Fgcc.git

a68: avoid non-unique test names in the Algol 68 testsuite

The contrib/compare_tests script was reporting a few duplicated test
names in the Algol 68 testsuite.  These were all genuine mistakes in
the test cases.

Signed-off-by: Jose E. Marchesi <jemarch@gnu.org>

gcc/testsuite/ChangeLog

	* algol68/compile/module-extracts-1.a68: Fix expected regexp for
	priority extract.
	* algol68/compile/module-pub-mangling-7.a68: Fix expected regexp
	for mangled operator name.
	* algol68/compile/module-pub-mangling-9.a68: Likewise.
---

diff --git a/gcc/testsuite/algol68/compile/module-extracts-1.a68 b/gcc/testsuite/algol68/compile/module-extracts-1.a68
index c56a1d877c1..9cb3e581dac 100644
--- a/gcc/testsuite/algol68/compile/module-extracts-1.a68
+++ b/gcc/testsuite/algol68/compile/module-extracts-1.a68
@@ -22,7 +22,7 @@ def pub mode JURL = union (void,int,real);
     int k = 10;
     { dg-final { scan-assembler-not "identifier extract FOO_k" } }
     pub prio // = 8;
-    { dg-final { scan-assembler "operator extract FOO_s_s_\[0-9\]+" } }
+    { dg-final { scan-assembler "prio extract FOO_s_s_" } }
     pub op // = (int a, b) int: a % b;
     { dg-final { scan-assembler "operator extract FOO_s_s_\[0-9\]+" } }
     skip
diff --git a/gcc/testsuite/algol68/compile/module-pub-mangling-7.a68 b/gcc/testsuite/algol68/compile/module-pub-mangling-7.a68
index 5c62a798787..4fb5100c082 100644
--- a/gcc/testsuite/algol68/compile/module-pub-mangling-7.a68
+++ b/gcc/testsuite/algol68/compile/module-pub-mangling-7.a68
@@ -11,7 +11,7 @@ def prio // = 8;
     pub op(int,int)int JORL = lala;
     { dg-final { scan-assembler "FOO_JORL" } }
     op(int,int)int JURL = (int a, b) int: a - b;
-    { dg-final { scan-assembler "FOO_JORL" } }
+    { dg-final { scan-assembler "FOO_JURL" } }
     skip
 fed
 
diff --git a/gcc/testsuite/algol68/compile/module-pub-mangling-9.a68 b/gcc/testsuite/algol68/compile/module-pub-mangling-9.a68
index 6a6bab1211f..916bd6b904e 100644
--- a/gcc/testsuite/algol68/compile/module-pub-mangling-9.a68
+++ b/gcc/testsuite/algol68/compile/module-pub-mangling-9.a68
@@ -5,8 +5,9 @@
 
 module Foo =
 def prio // =9;
-    op // = (int a, b) int: a + b;    { dg-final { scan-assembler "FOO_s_s_\[0-9\]+" } }
-    op // = (real a, b) real: a + b;  { dg-final { scan-assembler "FOO_s_s_\[0-9\]+" } }
+    op // = (int a, b) int: a + b;
+    op // = (real a, b) real: a + b;
+    { dg-final { scan-assembler "FOO_s_s_\[0-9\]+" } }
     skip
 fed