bugsuite: EVEN SIMPLER HEX STRING
When this gets fixed, the SIMPLE HEX STRING and the AMBIGUOUS VALUE INITIALIZATION bugs should also go away.
The comments in the program tell the tale:
identification division.
program-id. hex-init.
data division.
working-storage section.
*> Bug number 1:
*> At parser_symbol_add, data.initial is the character string "258.0"
*> data.initial should be the two bytes "\001\002"
01 var-x pic x(2) VALUE X'0102'.
01 as-pointer redefines var-x pointer.
procedure division.
DISPLAY as-pointer
*> Bug number 2:
*> This MOVE causes the compiler to crash
MOVE X'0304' to var-x
DISPLAY as-pointer
stop run.
Edited by rdubner