From 8c334689243b4b5c8dad62984160e48dd3a8c365 Mon Sep 17 00:00:00 2001 From: David Declerck Date: Fri, 19 Jul 2024 10:39:26 +0200 Subject: [PATCH] Merge SVN 4799 --- cobc/parser.y | 2 +- tests/testsuite.src/run_initialize.at | 16 ++++++++-------- 2 files changed, 9 insertions(+), 9 deletions(-) diff --git a/cobc/parser.y b/cobc/parser.y index dac8946d5..1c17a5cf0 100644 --- a/cobc/parser.y +++ b/cobc/parser.y @@ -9271,7 +9271,7 @@ data_varying: cb_tree x; if (CB_WORD_COUNT ($1) == 0) { - x = cb_build_field (cb_build_reference (CB_NAME($1))); + x = cb_build_field (cb_build_reference (CB_NAME ($1))); CB_FIELD (x)->usage = CB_USAGE_INDEX; CB_FIELD (x)->index_type = CB_STATIC_INT_INDEX; CB_FIELD (x)->values = CB_LIST_INIT (cb_zero); diff --git a/tests/testsuite.src/run_initialize.at b/tests/testsuite.src/run_initialize.at index 21e0670a7..514e30bc9 100644 --- a/tests/testsuite.src/run_initialize.at +++ b/tests/testsuite.src/run_initialize.at @@ -614,7 +614,7 @@ AT_DATA([prog.cob], [ 05 T01-REC OCCURS 10. 10 T01-SOMEBER PIC X(500) VALUES SPACES. 10 T01-ENTRY. - 15 T01-TAB OCCURS 3000. + 15 T01-TAB OCCURS 2200. 20 T01-NAME PIC X(020). 20 T01-DETREC. 25 T01-DETTAB OCCURS 47. @@ -624,18 +624,18 @@ AT_DATA([prog.cob], [ 30 T01-CODE2 PIC S999 COMP-5 VALUE 0. 30 T01-CODE3 PIC S999 COMP-5 VALUE 42. 30 T01-PREF PIC X(001). - 30 T01-TXT1 PIC X(050) VALUE ALL ' '. - 30 T01-TXT2 PIC X(050). - 30 T01-TXT3 PIC X(050) VALUE ALL '3'. - 25 T02-DETTAB OCCURS 53. + 30 T01-TXT1 PIC X(020) VALUE ALL ' '. + 30 T01-TXT2 PIC X(020). + 30 T01-TXT3 PIC X(020) VALUE ALL '3'. + 25 T02-DETTAB OCCURS 33. 30 T02-LEN USAGE BINARY-INT SIGNED. 30 T02-CODE1 PIC S999 COMP-5. 30 T02-CODE2 PIC S999 COMP-5 VALUE 0. 30 T02-SHL PIC X(001) value 'B'. 30 T02-PREF PIC X(001). - 30 T02-TXT1 PIC X(050) VALUE SPACES. - 30 T02-TXT2 PIC X(050) VALUE ALL SPACE. - 30 T02-TXT3 PIC X(050) VALUE ALL ZERO. + 30 T02-TXT1 PIC X(030) VALUE SPACES. + 30 T02-TXT2 PIC X(030) VALUE ALL SPACE. + 30 T02-TXT3 PIC X(030) VALUE ALL ZERO. PROCEDURE DIVISION. INIT-RTN. MOVE ALL HIGH-VALUE TO T01-TAB (5,55)