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 <[email protected]> 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. --- gcc/testsuite/algol68/compile/module-extracts-1.a68 | 2 +- gcc/testsuite/algol68/compile/module-pub-mangling-7.a68 | 2 +- gcc/testsuite/algol68/compile/module-pub-mangling-9.a68 | 5 +++-- 3 files changed, 5 insertions(+), 4 deletions(-) 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 -- 2.39.5
