https://gcc.gnu.org/bugzilla/show_bug.cgi?id=119770
Bug ID: 119770
Summary: FLOAT-DECIMAL support + "cannot MOVE '_stack1'"
Product: gcc
Version: 15.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: cobol
Assignee: unassigned at gcc dot gnu.org
Reporter: simonsobisch at gnu dot org
Target Milestone: ---
Sample program showing these issues this:
IDENTIFICATION DIVISION.
PROGRAM-ID. floating.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 D-FLOAT-DECIMAL-16 USAGE FLOAT-DECIMAL-16.
01 D-FLOAT-DECIMAL-34 USAGE FLOAT-DECIMAL-34.
PROCEDURE DIVISION.
MOVE FUNCTION PI TO D-FLOAT-DECIMAL-16 D-FLOAT-DECIMAL-34
*
DISPLAY D-FLOAT-DECIMAL-16
DISPLAY D-FLOAT-DECIMAL-34
*
goback.
floating.cbl:6:38: sorry, unimplemented: USAGE type: FLOAT_DECIMAL
6 | 01 D-FLOAT-DECIMAL-16 USAGE FLOAT-DECIMAL-16.
| ^
floating.cbl:6:38: error: syntax error, unexpected FLOAT-DECIMAL
floating.cbl:7:38: sorry, unimplemented: USAGE type: FLOAT_DECIMAL
7 | 01 D-FLOAT-DECIMAL-34 USAGE FLOAT-DECIMAL-34.
| ^
floating.cbl: error: cannot MOVE '_stack1' (FldFloat) to 'D-FLOAT-DECIMAL-16'
(Fld)
cobol1: error: failed compiling floating.cbl
Note: other types (FLOAT-BINARY-..., FLOAT-...) seem to be supported, at least
they don't raise an error.
I consider this a less important issue, but would suggest to:
* now: fix that MOVE '_stack1' part
* now/soon: change "sorry, unimplemented: USAGE type: FLOAT_DECIMAL" to "sorry,
unimplemented: USAGE type FLOAT-DECIMAL" (or just a plain error)
* someday: implement them
