Does not correctly parse a quoted formatted numeric value containing a decimal point

[neopragma]

This test case:

TestCase "Equality of numeric edited field with literal"
move -4567.203 to ws-packed-1
perform 4000-FormatNumber
expect ws-formatted-alpha to be " $4,567.203-"

results in this invalid generated test code:

MOVE " $4,567
TO UT-EXPECTED

It is interpreting the decimal point in the quoted value as the Cobol statement terminator. It ignores the remainder of the quoted value.