[open-cobol-list] Re: Bug Report (Matt Young)

[Roger While]

Fix coming up. I will update the prerelease tonight.
Parser needs an extra check (relative to 0.33 prerelease) -
parser.y at ca. line 3702 :

  for (l = using_list; l; l = CB_CHAIN (l))
    {
      cb_tree x = CB_VALUE (l);
      if (x != cb_error_node && cb_ref (x) != cb_error_node)
        {
          struct cb_field *f = CB_FIELD (cb_ref (x));
          if (f->level != 01 && f->level != 77)
            cb_error_x (x, _("'%s' not level 01 or 77"), cb_name (x));
          if (f->storage != CB_STORAGE_LINKAGE)
            cb_error_x (x, _("'%s' is not in LINKAGE SECTION"), cb_name (x));
        }
    }

The last "if" and following "cb_error" are new.

Roger


> Hi all.
> Trying to compile  the following program:
>
>        identification division.
>        program-id. t4.
>         environment division.
>         data division.
>         working-storage section.
>         77 ax pic 9(4).
>         procedure division using ax.
> proc.
>           display "x"
>            stop run.
>
> I'm geting the following error:
>
> $ cobc -m t4.cob
> In file included from /tmp/cob2780_0.c:50:
> /tmp/cob2780_0.c.h: In function `t4_':
> /tmp/cob2780_0.c.h:5: error: 'b_5' redeclared as different kind of symbol
> /tmp/cob2780_0.c:44: error: previous definition of 'b_5' was here