IDENTIFICATION DIVISION.
       PROGRAM-ID. TABBUG2.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
      *
      * cobc -std mf -save-temps TABBUG2.cob --> generates the following error:
      *
      * Segmentation fault (signal 11) at runtime  because:
      *
      *      the size of TABLE-1 is only 1 Byte (see TABBUG2.c.h !)
      *      (as OCCURS 1 )
      *
      *  (with  cvs snapshot 0.30 from cobc = 20040815) 
      *    
      * (OCCURS CLAUSE ON 01 LEVEL :  --> cb_top_level_occurs_clause )
         01 TABLE-1 
            OCCURS 10000.
      *     INDEXED BY TABLE-1-IND.
          05 TABLE-ROW-1.
              10 X-FIELD-1               PIC X VALUE "1".

      *  ANSI - 1985 conform, ISO/2002 (ANSI/2003) conform
         01 TABLE-2.
          02 TABLE-2-02-LEVEL 
             OCCURS 50
             INDEXED BY TABLE-2-IND.
           05 TABLE-ROW-2.
              10 X-FIELD-2               PIC X VALUE "2".
       PROCEDURE DIVISION.
        S-01.
      *  with the generated table size 1 the following generates sigsegv :
            MOVE "Z" TO X-FIELD-1(10000).
            STOP RUN.