Skip to content

Commit

Permalink
ChangeLog and testsuite adjustments
Browse files Browse the repository at this point in the history
  • Loading branch information
ddeclerck committed Sep 19, 2024
1 parent f36f150 commit cdf66c6
Show file tree
Hide file tree
Showing 2 changed files with 44 additions and 0 deletions.
8 changes: 8 additions & 0 deletions config/ChangeLog
Original file line number Diff line number Diff line change
Expand Up @@ -44,11 +44,19 @@
* rm-strict.conf: enable indirect-redefines as this was added
with later RM-COBOL versions

2023-02-20 Nicolas Berthier <[email protected]>

* general: add ebcdic-symbolic-characters

2023-02-16 Fabrice Le Fessant <[email protected]>

* gcos.words: remove alias VALUES=VALUE, to correctly parse
"VALUES ARE"

2023-01-28 Fabrice Le Fessant <[email protected]>

* default.conf: change default source reference-format to 'auto'

2023-01-25 Simon Sobisch <[email protected]>

* ibm.words, mvs.words: re-add BINARY
Expand Down
36 changes: 36 additions & 0 deletions tests/testsuite.src/syn_definition.at
Original file line number Diff line number Diff line change
Expand Up @@ -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

0 comments on commit cdf66c6

Please sign in to comment.