[Bug-GnuCOBOL] Cobc: Unallocated memory (signal SIGSEGV) - GnuCobol Version 3 Release 1 aunder MinGW

[Bruce Zupek]

attempt to reference unallocated memory (signal SIGSEGV)
abnormal termination - file contents may be incorrect

I was in the process of creating the Micro Focus and Fujitsu CBL_XXXXX_VFILE subroutines in GNUCobol.
Issuing a GOBACK in VFILE.COB (after doing the Windows API's successfully execute) results in a signal SIGSEGV interrupt.
I added DISPLAYS to isolate the offending Cobol statement - it is the GOBACK.
The stack must be corrupt. I have no visibility to what component is issuing the interrupt.
I have attached the .DLL and the .EXE as well as the source code.
Rename VFILE.DLX to VFILE.DLL
Rename TESTVFX.xex to TESTVFX.EXE
TESTVFX is the command line to invoke the program.

C:\GNUCOBOL\LOADLIB>TESTVFX
ENTERING VFILE
RETURN FROM VFILE
IN OPEN V
AFTER ALLOC RC =:0013500448
AFTER ALLOC RC =:+0010000000
AFTER UNLOCK
GOBACK FROM CBL_OPEN_VFILE ===> The last statement executed before the GOBACK

These are the compile / link parameters.
For TESTVFX.EXE:
C:\FUJCBL>\GNUCOBOL\BIN\cobc C:\GEDIT\COBOL\TESTVFX.COB -tC:\GEDIT\COBOL\TESTVFX
.LST -oC:\GNUCOBOL\LOADLIB\TESTVFX  -L\GNUCOBOL\LIB -x -fbinary-size=2-4-8  --ts
ymbols -Xref -fsign=ebcdic -fcomplex-odo -fimplicit-init -fsticky-linkage -fperf
orm-osvs -fmove-ibm -fhostsign -fnotrunc -fno-recursive-check -fdefaultbyte=00

For VFILE1.DLL:
C:\FUJCBL>\GNUCOBOL\BIN\cobc C:\GEDIT\COBOL\VFILE1.COB -tC:\GEDIT\COBOL\VFILE1.L
ST -oC:\GNUCOBOL\LOADLIB\VFILE1 -fbinary-size=2-4-8 -fbinary-byteorder=native -f
source-location -Xref --tsymbols  -fsign=ebcdic -fcomplex-odo -fimplicit-init -f
perform-osvs -fmove-ibm -fhostsign -fnotrunc -fno-recursive-check -fdefaultbyte=
00


attempt to reference unallocated memory (signal SIGSEGV)
abnormal termination - file contents may be incorrect

VFILE1.dlx
Description: Binary data

VFILE1.COB
Description: Text document

TESTVFX.xex
Description: application/msdownload

TESTVFX.COB
Description: Text document