https://gcc.gnu.org/bugzilla/show_bug.cgi?id=119520
James K. Lowden <jklowden at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Assignee|unassigned at gcc dot gnu.org |jklowden at gcc dot
gnu.org
CC| |jklowden at gcc dot gnu.org
Resolution|--- |WORKSFORME
Status|UNCONFIRMED |RESOLVED
--- Comment #1 from James K. Lowden <jklowden at gcc dot gnu.org> ---
"This program uses several typedefs", did you intend to provide this program?
:-)
typedef is barely tested, lacking examples. But perhaps this PR is actually
solved because it's rooted in CDF >>DEFINE, which (I hope) has been corrected.
This small program works,
PROGRAM-ID. "TYPEDEF".
DATA DIVISION.
WORKING-STORAGE SECTION.
77 INT PIC 9(8) is typedef.
01 SOME-GID USAGE INT VALUE ZERO.
PROCEDURE DIVISION.
move 77 to some-gid.
if SOME-GID = 77 then
display "the GID is 77"
else
display "the GID is " some-gid ", boo!".
$ gcobol -dialect mf typedef.cbl && ./a.out
the GID is 77
Marking resolved until further notice.
