bugsuite CDF FALSE comparison + ENDIF causes spectacular failure
This is a juicy one.
The code is
>>DEFINE FOO AS 1
*> Note the ENDIF. It should be END-IF
id division.
program-id. prog.
procedure division.
>>IF FOO = 2
DISPLAY "FOO is 1".
>>ENDIF
goback.
When the result of the comparison is false, combined with the >>ENDIF, which should be >>END-IF (and that took me a good ten minutes of "What in the name of Pete is going on here?" to notice), the compilation fails in style:
malloc(): unsorted double linked list corrupted
malloc(): unsorted double linked list corrupted
gcobol: internal compiler error: Aborted signal terminated program cobol1