https://gcc.gnu.org/g:05b35491d31dfe0fd86440f4219000164ad4a701
commit r16-6410-g05b35491d31dfe0fd86440f4219000164ad4a701 Author: Jose E. Marchesi <[email protected]> Date: Sat Dec 27 11:22:37 2025 +0100 a68: remove redefined_keyword check and add test This commit removes a spurious call to detect_redefined_keyword that would emit confusing error messages. Signed-off-by: Jose E. Marchesi <[email protected]> gcc/algol68/ChangeLog * a68-parser-extract.cc (a68_extract_indicants): Do not detect_redefined_keyword for accessed modules. gcc/testsuite/ChangeLog * algol68/compile/modules/program-error-multiple-delaration-module-1.a68: New test. Diff: --- gcc/algol68/a68-parser-extract.cc | 1 - .../modules/program-error-multiple-delaration-module-1.a68 | 8 ++++++++ 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/gcc/algol68/a68-parser-extract.cc b/gcc/algol68/a68-parser-extract.cc index da14e1a2cae8..42602daad331 100644 --- a/gcc/algol68/a68-parser-extract.cc +++ b/gcc/algol68/a68-parser-extract.cc @@ -345,7 +345,6 @@ a68_extract_indicants (NODE_T *p) FORWARD (q); if (q != NO_NODE) { - detect_redefined_keyword (q, MODULE_DECLARATION); if (IS (q, BOLD_TAG)) { extract_revelation (q, false /* is_public */); diff --git a/gcc/testsuite/algol68/compile/modules/program-error-multiple-delaration-module-1.a68 b/gcc/testsuite/algol68/compile/modules/program-error-multiple-delaration-module-1.a68 new file mode 100644 index 000000000000..39ce7fe2b0ff --- /dev/null +++ b/gcc/testsuite/algol68/compile/modules/program-error-multiple-delaration-module-1.a68 @@ -0,0 +1,8 @@ +{ dg-modules "module10 module11 module12" } + +access Module10, + Module11, + Module11 { dg-error "multiple declaration.*bar" } +begin assert (foo = 10); + assert (bar = 20) +end
