[gcc r17-2907] cobol: Allow ASSIGN OTHER under dialect ibm.

https://gcc.gnu.org/g:5387cfde66ca111d6b364ab7c2790422198d30fe

commit r17-2907-g5387cfde66ca111d6b364ab7c2790422198d30fe
Author: James K. Lowden <[email protected]>
Date:   Mon Aug 3 16:43:33 2026 -0400

    cobol: Allow ASSIGN OTHER under dialect ibm.
    
    Credit George Neill for the patch.
    
    gcc/cobol/ChangeLog:
    
            * parse.y: Add OTHER as assign target.

Diff:
---
 gcc/cobol/parse.y | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/gcc/cobol/parse.y b/gcc/cobol/parse.y
index 4dfe92b10c08..dfd109cee87f 100644
--- a/gcc/cobol/parse.y
+++ b/gcc/cobol/parse.y
@@ -2182,6 +2182,18 @@ selected_name:  external NAME {
                   field.codeset.set();
                   $$ = field_add(@name, &field);
                 }
+        |       external OTHER
+                {
+                  if( !dialect_ibm() ) {
+                    error_msg(@2, "ASSIGN OTHER requires -dialect ibm");
+                    YYERROR;
+                  }
+
+                  enum { parent = 0 };
+                  auto e = symbol_field_forward_add(PROGRAM, parent,
+                                                    "OTHER", @$.first_line);
+                  $$ = cbl_field_of(e);
+                }
                 ;
 external:       %empty /* GnuCOBOL uses EXTERNAL to control name resolution.  */
         |       EXTERNAL {