[open-cobol-list] Bug report

[Takao Kouji]

Hi,

The program(SEGV1.COB) that attached to this mail has segumentation
fault when that is compiled. SEGV1.DAT is use in SEGV1.COB.

$ cobc -free SEGV1.COB
Unexpected tree tag 1447511379
Aborting compile of SEGV1.COB at line 28
codegen.c:802: internal compiler error
zsh: abort (core dumped)  cobc -free SEGV1.COB

$ cobc --version
cobc (OpenCOBOL) 0.32

$ gcc --version
gcc (GCC) 4.0.2 (Debian 4.0.2-2)

(gdb) bt
#0  0xb7e769e7 in raise () from /lib/tls/libc.so.6
#1  0xb7e7831b in abort () from /lib/tls/libc.so.6
#2  0x08062c49 in output_param (x=0x8093118, id=-1) at codegen.c:762
#3  0x0806680a in output_internal_function (prog=0x8093128, parameter_list=0x0)
    at codegen.c:1926
#4  0x0806826f in codegen (prog=0x8093128) at codegen.c:2545
#5  0x0804a5c3 in main (argc=3, argv=0xbfba95e4) at cobc.c:687

(gdb) up
#2  0x08062c49 in output_param (x=0x8093118, id=-1) at codegen.c:762
762                 for (l = r->check; l; l = CB_CHAIN (l))
(gdb) l
757
758             if (r->check)
759               {
760                 cb_tree l;
761                 output_indent (" ({");
762                 for (l = r->check; l; l = CB_CHAIN (l))
763                   output_stmt (CB_VALUE (l));
764               }
765
766             if (!r->subs && !r->offset && !f->flag_local && f->count > 0

Best Regards,

--
  .''`.  Takao Kouji <address@hidden>
 : :'  : OSS - GPass, security-keeper
 `. `'`  URL - http://www.j96.org/~kouji/
   `-    GPG - 1024D/5E991919

SEGV1.COB
Description: Binary data

SEGV1.DAT
Description: Binary data