[Bug-GnuCOBOL] Abortion error in EVALUATE VAR > 0 > 0

[Harald Cordes | ITGAIN]

Hi,

 

I’ve found an abortion error in a syntactically wrong program.

Please have a look if a better error msg can be printed.

 

 

       identification division.

       program-id. crash.

       data division.

       working-storage section.

       01 Wert  PIC S999 value 123.

       procedure division.

       main.

            evaluate Wert

                     greater zero

                     greater zero

            when true

                display "what is it?"

            end-evaluate.

 

cobc: unexpected operation: > (62)

cobc: typeck.c: 3318: internal compiler error

cobc: aborting compile of crash.cbl at line 13

 

cobc -version

---------------------------------------------

cobc (GnuCOBOL) 2.0.0

Copyright (C) 2016 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     Apr 12 2017 11:00:55

Packaged  Nov 06 2016 22:36:19 UTC

C version "4.3.2 [gcc-4_3-branch revision 141291]"

 

Regards

   Harald Cordes