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 c56a1d877c1dd77d37965e250486158e4decbd16..9cb3e581dac0a7ae7ad1ee2a24aa9474bf8cead3 100644 (file)
--- 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 5c62a79878750a0bcbb4972a010fc0ee0463eb33..4fb5100c082bfd948bf025e65c5fe81226fe3862 100644 (file)
--- 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 6a6bab1211f2c168f3c43b85c03eb67dc94fd011..916bd6b904e372c8260f1c4e19332b3dcbdc7a98 100644 (file)
--- 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