[gcc r16-6410] a68: remove redefined_keyword check and add test

[Jose E. Marchesi]

https://gcc.gnu.org/g:05b35491d31dfe0fd86440f4219000164ad4a701

commit r16-6410-g05b35491d31dfe0fd86440f4219000164ad4a701
Author: Jose E. Marchesi <jose.marchesi@oracle.com>
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 <jemarch@gnu.org>
    
    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