00100	BEGIN "TEST"
00200	require "
00300	This is same as TSTM2A, but 'LIMT' has been changed to 'FOO'
00400	and we get 'UNDECLARED ID FOO'" message;
00500	INTEGER VAL,NUM;
00600	REQUIRE "⊂⊃<>" DELIMITERS;
00700	DEFINE TSTMAC(TYPE,LIST,DIM)=⊂
00800		REDEFINE FOO=DIM-1;
00900		FORLC N←LIST DOC ⊂
01000		EXTERNAL TYPE ARRAY N[0:1
01100		FORC I←1 STEPC 1 UNTILC FOO DOC ⊂,0:1⊃ ENDC
01200		];
01300		⊃
01400		ENDC
01500	⊃ ;
01600	TSTMAC(INTEGER,<(X,Y,Z)>,3);
01700	TSTMAC(INTEGER,<(E,F,G,H)>,2);
01800	TSTMAC(INTEGER,<(A,B,C,D)>,1);
01900	VAL←A[2];
02000	VAL←B[NUM];
02100	VAL←E[1,NUM];
02200	VAL←X[1,1,1];
02300	END "TEST"