Fix screen section clauses

OCamlPro · Feb 19, 2024 · e7de85a · e7de85a
1 parent 2ff35a3
commit e7de85a
Show file tree

Hide file tree

Showing 4 changed files with 32 additions and 1 deletion.
diff --git a/cobc/ChangeLog b/cobc/ChangeLog
@@ -1,3 +1,7 @@
+2024-02-19	Boris Eng <[email protected]>
+
+	* parser.y: changed basic_literal for literal in screen section
+		clauses
 
 2023-11-29  Fabrice Le Fessant <[email protected]>
 

diff --git a/cobc/parser.y b/cobc/parser.y
@@ -10144,7 +10144,7 @@ screen_option:
 ;
 
 screen_value_clause:
-  _value_is basic_literal
+  _value_is literal
   {
 	/* omitting VALUE is at least allowed in MS-COBOL, MF-COBOL, ACUCOBOL for SCREEN VALUE,
 	   and not according to XOPEN uses 85-std which has no SCREEN SECTION and newer Standards */

diff --git a/tests/ChangeLog b/tests/ChangeLog
@@ -1,3 +1,6 @@
+2024-02-19	Boris Eng <[email protected]>
+
+	* testsuite.src/syn_screen.at: added the test "VALUE ALL in SCREEN SECTION"
 
 2023-07-10  Simon Sobisch <[email protected]>
 

diff --git a/tests/testsuite.src/syn_screen.at b/tests/testsuite.src/syn_screen.at
@@ -882,3 +882,27 @@ AT_CHECK([$COMPILE_ONLY prog.cob], [0], [],
 ])
 
 AT_CLEANUP
+
+
+AT_SETUP([VALUE ALL in SCREEN SECTION])
+AT_KEYWORDS([SCREEN VALUE ALL])
+
+AT_DATA([prog.cob], [
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. SCREEN-VALUE-ALL.
+
+       DATA DIVISION.
+       WORKING-STORAGE SECTION.
+
+       SCREEN SECTION.
+       01 SCREEN001 BLANK SCREEN AUTO-SKIP.
+           03 SCR01 BACKGROUND-COLOR 2 FOREGROUND-COLOR 7.
+             05 LINE 02 COL 001 PIC X(50) VALUE ALL '-'.
+
+       PROCEDURE DIVISION.
+           GOBACK.
+])
+
+AT_CHECK([$COMPILE_ONLY prog.cob], [0], [], [])
+
+AT_CLEANUP