[open-cobol-list] INITIALIZE (Bug Report)

[Peg]

Hello All,
The FILLER item is cleared by INITIALIZE.
I think that it should exclude the FILLER item.

Sample Code
 IDENTIFICATION DIVISION.
 PROGRAM-ID. TESTFILLER.
 DATA DIVISION.
 WORKING-STORAGE SECTION.
 01 X.
    03 A      PIC X(1).
    03 FILLER PIC X(2) VALUE "OK".
    03 B      PIC X(1).
 PROCEDURE DIVISION.
 INITIALIZE X.
 DISPLAY "INITIALIZE(FILLER) TEST [" X "]".

It is likely to be able to evade by the following corrections.

cobc/codegen.c : 1180 (initialize_type Function)
//if ( *f->name == '$' && p->flag_statement && !f->children )
  if ( f->name[4] == '$' && p->flag_statement && !f->children )
    return INITIALIZE_NONE;

Best Regards,

--
Shigeyuki Kanbe
Peg, PegStyle mailto:address@hidden
http://members8.tsukaeru.net/pegstyle/