https://gcc.gnu.org/bugzilla/show_bug.cgi?id=120796
Bug ID: 120796
Summary: FR support non-standard REDEFINES position
Product: gcc
Version: 16.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: cobol
Assignee: unassigned at gcc dot gnu.org
Reporter: simonsobisch at gnu dot org
Target Milestone: ---
program-id.t.
data Division.
WORKING-STORAGE Section.
01 T01-TAB.
05 T01-OCC OCCURS 40.
10 T01-LFZB PIC X(10).
01 Z01-UMTEXT PIC X(400) REDEFINES T01-TAB.
PROCEDURE Division.
goback.
../t.cob:7:34: error: REDEFINES must appear immediately after LEVEL and NAME
7 | 01 Z01-UMTEXT PIC X(400) REDEFINES T01-TAB.
According to ISO that is correct, but many compilers don't enforce (or even
check) this.
To ease porting it would be good to have this supported (for example with
dialect mf) or a ready-to-use awk-preprocessor script.
