#938 EVALUATE [...] WHEN - ]...] crashes GC3.2

[Robert Dubner]

identification division.
program-id. prog.
data division.
working-storage section.
77 num pic s9.
procedure division.
move -1  to num
evaluate num
when -
    display "negative"
end-evaluate.
end program prog.

Results in

$cobc -x -free -o gc playpen.cbl

unknown (signal)

cobc: aborting compile of playpen.cbl at line 10 (PROGRAM-ID: prog)
cobc: Please report this!
make: *** [../Makefile.inc:69: gc] Segmentation fault (core dumped)

[Simon Sobisch]

Thank you for the report and the example. That's 95% a duplicate of [bugs:#933] (I think you did expected a nice error message there).

[Simon Sobisch]

fixed with [r5247]