\$Title 'Tests simple lag and lead operations' (LAGS1,SEQ=166) set i /i1*i5/; parameter A(i) /i1=1,i2=2,i3=3,i4=4,i5=5/; parameter X1(i),X2(i),X3(i),X4(i); parameter RX1(i) /i1=2, i2=3,i3=4,i4=5/; parameter RX2(i) /i1=2, i2=3,i3=4,i4=5,i5=1/; parameter RX3(i) /i2=1,i3=2,i4=3,i5=4/; parameter RX4(i) /i1=5,i2=1,i3=2,i4=3,i5=4/; X1(i) = A(i+1); X2(i) = A(i++1); X3(i) = A(i-1); X4(i) = A(i--1); set Err(i); Err(i)\$(X1(i) <> RX1(i)) = Yes; Abort\$card(Err) 'X1 is different',X1,Rx1; Err(i)\$(X2(i) <> RX2(i)) = Yes; Abort\$card(Err) 'X2 is different',X2,Rx2; Err(i)\$(X3(i) <> RX3(i)) = Yes; Abort\$card(Err) 'X3 is different',X3,Rx3; Err(i)\$(X4(i) <> RX4(i)) = Yes; Abort\$card(Err) 'X4 is different',X4,Rx4; parameter Y1(i),Y2(i),Y3(i),Y4(i); parameter RY1(i) /i2=1,i3=2,i4=3,i5=4/; parameter RY2(i) /i1=5,i2=1,i3=2,i4=3,i5=4/; parameter RY3(i) /i1=2,i2=3,i3=4,i4=5/; parameter RY4(i) /i1=2,i2=3,i3=4,i4=5,i5=1/; Y1(i+1)=A(i); Y2(i++1)=A(i); Y3(i-1)=A(i); Y4(i--1)=A(i); Err(i)\$(Y1(i) <> RY1(i)) = Yes; Abort\$card(Err) 'Y1 is different',Y1,RY1; Err(i)\$(Y2(i) <> RY2(i)) = Yes; Abort\$card(Err) 'Y2 is different',Y2,RY2; Err(i)\$(Y3(i) <> RY3(i)) = Yes; Abort\$card(Err) 'Y3 is different',Y3,RY3; Err(i)\$(Y4(i) <> RY4(i)) = Yes; Abort\$card(Err) 'Y4 is different',Y4,RY4;