[Bug-GnuCOBOL] segfault

[folkert]

Hi,

I have the following two sources. When run, it runs fine under micro
focus but segfaults under opencobol 1.1.0.
I'm not 100% sure this is valid cobol code, only a beginner :-)

test3.cob
---------
       IDENTIFICATION DIVISION.
       PROGRAM-ID. TESTD.

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.

       PROCEDURE DIVISION.
       MAIN.
           CALL 'SOMEFUNC' USING 5, 'TESTD'
           GOBACK.
       END PROGRAM TESTD.


SOMEFUNC.cbl
------------
       IDENTIFICATION DIVISION.
       PROGRAM-ID. SOMEFUNC.

       ENVIRONMENT DIVISION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.

       LINKAGE SECTION.
       01 ARG-LEN      PIC S9(09) COMP.
       01 PGM-NAME     PIC X(20).

       PROCEDURE DIVISION USING ARG-LEN, PGM-NAME.
           DISPLAY '==> Starting ', PGM-NAME(1:ARG-LEN)
           GOBACK.

       END PROGRAM SOMEFUNC.



Folkert van Heusden

-- 
----------------------------------------------------------------------
Phone: +31-6-41278122, PGP-key: 1F28D8AE, www.vanheusden.com