Denis HUGONNARD-ROCHE

Hi Ralph in fact the first + of the ++ expression is the addition operation . The second plus is interpreted as the sign of the field ie positive here a little program to illustrate that . IDENTIFICATION DIVISION. PROGRAM-ID . testplus . *>---------------------------------------------------------------- *> ENVIRONMENT DIVISION. DATA DIVISION . WORKING-STORAGE SECTION. 01 I PIC S9(04) BINARY . 01 J PIC S9(04) BINARY . 01 K PIC S9(04) BINARY . 01 Z PIC S9(04) BINARY . PROCEDURE DIVISION . *> MOVE 1...

Code coverage error on Ubuntu 24.04

Constant folding does not handle big numbers

Hi Simon Found another case IF NOT (NOT () ) THEN Denis

Here is another test that fail and the generated C program What is strange is that in the File initialization code the assign field ie f0 is the same than the move statement field h_SYSUT2_FILE->assign = COB_SET_FLD (f0, 4095, b_64, &a_1); / Line: 68 : MOVE : test_5.cbl / cob_set_packed_int (COB_SET_FLD (f0, 3, b_54 + 650, &a_2), 3); Denis IDENTIFICATION DIVISION. PROGRAM-ID. test_5. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-PC. OBJECT-COMPUTER. IBM-PC. SPECIAL-NAMES. INPUT-OUTPUT...

Hi Simon I digged a little Please find here a test program the prgramm is executed without error But if you uncomment one of the move that are marked with "Generate Error" if will produce the 31 bad file status on open Denis IDENTIFICATION DIVISION. PROGRAM-ID. AVARYSEQ4. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-PC. OBJECT-COMPUTER. IBM-PC. SPECIAL-NAMES. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT SYSUT2-FILE ASSIGN TO SYSUT2 ORGANIZATION IS SEQUENTIAL FILE STATUS IS SYSUT2-STATUS....

Hi Ralph By modifying the SELECT CLAUSE the program is working fine. just change ASSIGN TO SYSUT2 to ASSIGN TO "SYSUT2" It may be a bug regarding the different ways GnuCobol assign clause is handled following the used dialect (ibm , mf or default) Denis

Hi Ralph , Hi Simon I have tested avaryseq4.cbl program : When i used this compilation command line cobc -x avaryseq4.cbl Running the program produces SYSUT2 OPEN 2 FAILED STATUS=:31 When compile with cobc -x -std=mf avaryseq4.cbl SYSUT2 OPEN 2 FAILED STATUS=:35 When compile with cobc -x -std=ibm avaryseq4.cbl no error the SYSUT2 file is populated Denis