[Bug-GnuCOBOL] cobc compiler error on CALL with SPACES

[Christian Garbs]

Hi there,

cobc told me to report this as a bug, so I'll do that :-)

When compiling this small example program:


       IDENTIFICATION DIVISION.
       PROGRAM-ID. EXAMPLE.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 SOME-FIELD             PIC XXX  VALUE 'FOO'.

       PROCEDURE DIVISION.
           CALL "MODULE" USING SOME-FIELD
                               SPACE
           END-CALL
       EXIT.

       END PROGRAM EXAMPLE.
       

cobc throws this error:


  $ cobc EXAMPLE.CBL
  cobc: unexpected tree tag: 0
  cobc: codegen.c: 1124: internal compiler error

  cobc: aborting codegen for EXAMPLE.CBL (PROGRAM-ID: EXAMPLE)
  cobc: Please report this!


When I change the SPACES argument to CALL to '' like this


       PROCEDURE DIVISION.
           CALL "MODULE" USING SOME-FIELD
                               ''
           END-CALL
       EXIT.


I get this result instead:


  $ cobc EXAMPLE.CBL
  EXAMPLE.CBL:10: warning: alphanumeric literal has zero length; a SPACE will 
be assumed


The warning looks reasonable, but applying the suggested fix results
in the original error.


I use this version (self-compiled) under Ubuntu 18.04 LTS:

  cobc --version
  cobc (GnuCOBOL) 3.0-rc1.0
  Copyright (C) 2018 Free Software Foundation, Inc.
  License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
  This is free software; see the source for copying conditions.  There is NO
  warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  Written by Keisuke Nishida, Roger While, Ron Norman, Simon Sobisch, Edward 
Hart
  Built     Mar 25 2019 15:37:10
  Packaged  Apr 22 2018 22:26:54 UTC
  C version "7.3.0"


Regards
Christian
-- 
....Christian.Garbs....................................https://www.cgarbs.de

First rule of hardware acquisition:   If you have it, never give it back.
Second rule of hardware acquisition:  If asked, you always require more.
Third rule of hardware acquisition:   If not asked, complain.