Environment
For GnuCOBOL version 3.2:
Windows Server 2019 Standard Version 1809
$ cobc -version
cobc (GnuCOBOL) 3.2-dev.0
Built Jan 04 2022 00:15:34
For GnuCOBOL version 3.3:
Windows Server 2022 Standard Version 21H2
cobc -version
cobc (GnuCOBOL) 3.3-dev.0
Built Jun 24 2024 00:47:54
Steps to repeat
Compile the attached programs TST06.cbl and TST07.cbl using GnuCOBOL 3.2 with:
cobc -C -free -std=ibm-strict TST006.cbl -t TST006_33.lis
cobc -C -free -std=ibm-strict TST007.cbl -t TST007_33.lis
Compile the attached programs TST06.cbl and TST07.cbl using GnuCOBOL 3.3 with:
cobc -C -free -std=ibm-strict TST006.cbl -t TST006_33.lis
cobc -C -free -std=ibm-strict TST007.cbl -t TST007_33.lis
Expected results
The compile is successful without warnings or errors as the program syntax follows IBM standard, see attached syntax diagram.
Actual result
GnuCOBOL 3.2: as expected, see attached list files TST006_32.lis and TST007_32.lis
GnuCOBOL 3.3: syntax error reported, see attached list files TST006_33.lis TST007_33.lis
Note
The code compiles successfully on IBM using IBM Enterprise COBOL for z/OS 6.4.0 P24062
There is a possibility that also CALL [BY] REFERENCE and CALL [BY] VALUE are affected.
As this is maybe a generic bug for CALL, I have not pursued that path.
Missing attachment
Missing
Missing
Missing