[Bug cobol/126390] ICE: in encode_numeric, at cobol/util.cc:1509

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=126390

Robert Dubner <rdubner at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |rdubner at gcc dot gnu.org
   Last reconfirmed|                            |2026-07-26
     Ever confirmed|0                           |1
             Status|UNCONFIRMED                 |ASSIGNED
           Assignee|unassigned at gcc dot gnu.org      |jklowden at gcc dot gnu.org

--- Comment #1 from Robert Dubner <rdubner at gcc dot gnu.org> ---
Reproducers.  Compile with `-fdialect mf`
~~~~~~~~~~
identification division.
        program-id. maker.
        data division.
        working-storage section.
        01  genx pic x(80).
        78  rlen             value length of genx.
        procedure division.
        display rlen
        end program maker.

playpen.cbl:6:46: error: cannot define genx via self-reference
    6 |         78  rlen             value length of genx.
      |                                              ^~~~~
(null):0: confused by earlier errors, bailing out

~~~~~~~~~~
~~~~~~~~~~
identification division.
        program-id. maker.
        data division.
        working-storage section.
        01  genx pic x(80).
        01  bob pic x(12).
        78  rlen             value length of genx.
        procedure division.
        display rlen
        end program maker.
cobol1: internal compiler error: in encode_numeric, at cobol/util.cc:1508
0x390c5c6 internal_error(char const*, ...)
        ../../gcc/diagnostic-global-context.cc:787
0x39159ff fancy_abort(char const*, int, char const*)
        ../../gcc/diagnostics/context.cc:1813
0x132c4ab cbl_field_t::encode_numeric(char const*, cbl_loc_t)
        ../../gcc/cobol/util.cc:1508
0x1301a9b new_literal_float(cbl_loc_t const&, char const*)
        ../../gcc/cobol/symbols.cc:4133
0x1237e0c yyparse()
        ../../gcc/cobol/parse.y:8209
0x13319d7 parse_file
        ../../gcc/cobol/util.cc:3829
0x1331b45 cobol_parse_files(int, char const**)
        ../../gcc/cobol/util.cc:3884
0x1136bfa cobol_langhook_parse_file
        ../../gcc/cobol/cobol1.cc:812
~~~~~~~~~~