diff --git a/config/ChangeLog b/config/ChangeLog index cd1a4744f..a23c513bb 100644 --- a/config/ChangeLog +++ b/config/ChangeLog @@ -44,11 +44,19 @@ * rm-strict.conf: enable indirect-redefines as this was added with later RM-COBOL versions +2023-02-20 Nicolas Berthier + + * general: add ebcdic-symbolic-characters + 2023-02-16 Fabrice Le Fessant * gcos.words: remove alias VALUES=VALUE, to correctly parse "VALUES ARE" +2023-01-28 Fabrice Le Fessant + + * default.conf: change default source reference-format to 'auto' + 2023-01-25 Simon Sobisch * ibm.words, mvs.words: re-add BINARY diff --git a/tests/testsuite.src/syn_definition.at b/tests/testsuite.src/syn_definition.at index 33889dd69..dcb230406 100644 --- a/tests/testsuite.src/syn_definition.at +++ b/tests/testsuite.src/syn_definition.at @@ -2878,3 +2878,39 @@ prog.cob:6: error: 'DEPTHDR' is not defined AT_CLEANUP + +AT_SETUP([POINTER/PROGRAM-POINTER/FUNCTION-POINTER TO]) +AT_KEYWORDS([POINTER PROGRAM-POINTER FUNCTION-POINTER TYPEDEF PROTOTYPE]) + +AT_DATA([prog.cob], [ + IDENTIFICATION DIVISION. + + PROGRAM-ID. prog-proto IS PROTOTYPE. + PROCEDURE DIVISION. + END PROGRAM prog-proto. + + PROGRAM-ID. prog. + ENVIRONMENT DIVISION. + CONFIGURATION SECTION. + REPOSITORY. + PROGRAM prog-proto. + DATA DIVISION. + WORKING-STORAGE SECTION. + 01 prog-ptr1 USAGE PROGRAM-POINTER prog-proto. + 01 prog-ptr2 USAGE PROGRAM-POINTER TO prog-proto. + 01 fun-ptr1 USAGE FUNCTION-POINTER FUNCTION random. + 01 fun-ptr2 USAGE FUNCTION-POINTER TO FUNCTION random. + 01 data-type PIC X(10) USAGE DISPLAY IS TYPEDEF. + 01 data-ptr1 USAGE POINTER data-type. + 01 data-ptr2 USAGE POINTER TO data-type. + PROCEDURE DIVISION. + STOP RUN. + END PROGRAM prog. +]) + +AT_CHECK([$COMPILE_ONLY -std=default -Wno-unfinished -Wno-pending prog.cob ], [1], [], +[prog.cob:15: error: syntax error, unexpected Identifier +prog.cob:16: error: syntax error, unexpected Identifier, expecting program name +]) + +AT_CLEANUP