$title test for bad assignment with .fx (ASSIGN2,SEQ=402)

$onText
Contributor: Alex
$offText

SET NUM /1*3/;
VARIABLE X(NUM);
X.L(NUM) = ORD(NUM);
DISPLAY X.LO,X.L,X.UP;
option sys1=1;
X.fx('2')$(X.LO('2') eq X.UP('2')) = 234;
DISPLAY X.LO,X.L,X.UP;
X.l('1')$(X.LO('1') eq X.UP('1')) = 567;
DISPLAY X.LO,X.L,X.UP;
abort$sum(num, x.l(num)<> ord(num)) 'bad assignments';
$debug dmpins