https://gcc.gnu.org/bugzilla/show_bug.cgi?id=119682
Robert Dubner <rdubner at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Resolution|--- |FIXED
Status|ASSIGNED |RESOLVED
--- Comment #3 from Robert Dubner <rdubner at gcc dot gnu.org> ---
The problem came from treating the refmod on the numeric-display value as a
number, rather than as a string.
That's been rectified. This program works as expected, and all other tests
pass:
identification division.
program-id. prog.
data division.
working-storage section.
01 n pic 9(9).
01 i pic 99.
procedure division.
perform varying i from 1 by 1 until i > 8
move 88888888 to n
move "12" to n(i:2)
display n
if n(i:2) not equal to "12"
display "Equality is flawed"
end-if
end-perform.
goback.
