bugsuite "REFMOD should take FUNCTION LENGTH(var) as start"
The following
MOVE 'X' to var(FUNCTION LENGTH(var):1)
results in
cobol1: syntax error, playpen.cbl line 7 at ':'
cobol1: error: failed compiling playpen.cbl
Since the leftmost-position is an arithmetic expression, the function should be allowed.