Fix context-sensitivity of keyword aliases in configuration

cobc/reserved.c (get_user_specified_reserved_word): add check for context sensitivity in aliases

On behalf of Emilien Lemaire <[email protected]>

cobc/ChangeLog

@@ -1,4 +1,9 @@
 
+2023-03-08  Emilien Lemaire <[email protected]>
+
+	* reserved.c (get_user_specified_reserved_word): add check for
+	  context sensitivity in aliases
+
 2023-03-03  Simon Sobisch <[email protected]>
 
 	* typeck.c (cb_build_cond_fields): optimize comparison between field and

cobc/reserved.c

@@ -4234,6 +4234,11 @@ get_user_specified_reserved_word (struct amendment_list user_reserved)
 		p = find_default_reserved_word (user_reserved.alias_for, 0);
 		if (p) {
 			cobc_reserved.token = p->token;
+            if (user_reserved.is_context_sensitive) {
+                cobc_reserved.context_sens =
+                    !!user_reserved.is_context_sensitive;
+                cobc_reserved.context_test = p->context_test;
+            }
 		} else {
 			/* FIXME: can we point to the fname originally defining the word? */
 			configuration_error (NULL, 0, 1,

tests/testsuite.src/syn_misc.at

@@ -8178,3 +8178,25 @@ AT_CHECK([$COMPILE_ONLY -fformat=fixed fixed2.cob], [0], [], [])
 AT_CHECK([$COMPILE_ONLY -fformat=fixed domfixed.cob], [0], [], [])
 
 AT_CLEANUP
+
+AT_SETUP([context sensitive alias])
+AT_KEYWORDS([misc context alias])
+
+AT_DATA([prog.cob], [
+       IDENTIFICATION   DIVISION.
+       PROGRAM-ID.      prog.
+       DATA             DIVISION.
+       WORKING-STORAGE  SECTION.
+       01  XX  PIC 9.
+       01  X            CONSTANT AS XX OF XX.
+       PROCEDURE        DIVISION.
+           MOVE X TO XX.
+           DISPLAY XX NO ADVANCING
+           END-DISPLAY.
+           STOP RUN.
+])
+
+AT_CHECK([$COMPILE -freserved="XX*=BYTE-LENGTH" prog.cob], [0], [], [])
+AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [1])
+
+AT_CLEANUP