***A
JOB
ELR 001/0000TEST/FAULTY ON IMP
COMPILER IMP

%BEGIN 
%BEGIN 
1:%REPEAT 
1:%CYCLE I=1,1,0
->2;%RETURN 
%END 
%BEGIN 
%SWITCH B(0:3),C(4:0)
B(4):B(1):B(1):%COMMENT SWITCHVECTORS
->C(4);->A(1)
%END 
%BEGIN 
%INTEGER X,Y,Y2Z
%BYTEINTEGER X,Z
%INTEGERARRAY M(1:5)
%BYTEINTEGERARRAY P(1:4),Q(1:5,6:7)
%INTEGERFNSPEC FRED(%INTEGERMAP JIM)
%BYTEINTEGERFNSPEC JANE
%INTEGERMAPSPEC MAP(%INTEGERARRAYNAME WILLIAM)
%BYTEINTEGERMAPSPEC REALMAP(%BYTEINTEGERNAME ALFRED)
%ROUTINE ERROR(%ROUTINE MISTAKE)
%RESULT =ADDR(Z)
%RETURNIF FRED(MAP(M))=REALMAP(REALMAP(JANE))
B(2):%CYCLE M(1)=MAP(M),Z,1
MISTAKE(ERROR)
%ROUTINESPEC MISTAKE
MISTAKE
%STOPIF MISTAKE=0
%END 
REALMAP(Z)
ERROR(MAP,7)
JANE=X'FFFF'
Y=B(1)+I+REALMAP(Z)
Z=REALMAP(REALMAP(REALMAP(Z)))?
Z=REALMAP(Z*Z)
M(1)=ERROR
*EXIT
%BYTEINTEGERMAP REALMAP(%BYTEINTEGERNAME ALFRED)
%RESULT =ADDR(M(0))
%RETURNIFRESULT =0
%RETURN 
%RESULT =0
%END 
%INTEGERMAP MAP(%INTEGERNAME I,%INTEGERARRAYNAME WILLIAM)
%RESULT =ADDR(WILLIAM(I))
%END 
%BYTEINTEGERFN JANE
ERROR(JANE);READ(JANE)
%BYTEINTEGER X
Z=X^X
%END 
M(1,6)=JANE
B(1)=MAP(Y,M)
%END 
%END 
%END 
%ENDOFPROGRAM 

***Z