[Bug cobol/119809] FE internal_error internal compiler error: in digits_from_float128, at cobol/genapi.cc:15293 (bit data items)

[jklowden at gcc dot gnu.org via Gcc-bugs]

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

James K. Lowden <jklowden at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         Resolution|---                         |FIXED
             Status|ASSIGNED                    |RESOLVED

--- Comment #3 from James K. Lowden <jklowden at gcc dot gnu.org> ---
Fixed as of a3f5aac402a7ef721e1e832f96ed77ec21f5a25c

The repro syntax is now rejected as unimplemented. 

$ cat  d128.cbl
       identification division.
       program-id. fbug.
       data division.
       working-storage section.
       01 fld1.
          05 fxx     pic 1(1) value 0.
       procedure division.
           goback
           .

$ gcobol d128.cbl 
d128.cbl:6:26: sorry, unimplemented: Boolean type not implemented
    6 |           05 fxx     pic 1(1) value 0.
      |                          ^
d128.cbl:6:27: error: syntax error, unexpected '('
    6 |           05 fxx     pic 1(1) value 0.
      |                           ^
cobol1: error: failed compiling d128.cbl