perm filename MYPROC.SAI[CMU,AIL] blob
sn#126738 filedate 1974-10-25 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 BEGIN "ERROR"
C00003 ENDMK
C⊗;
BEGIN "ERROR"
EXTERNAL INTEGER PROCEDURE CR(ITEMVAR TAGID);
INTEGER DUM;
ITEMVAR IDUM;
EXTERNAL ITEMVAR PROCEDURE MP;
DUM←CR(MP)+CR(MP);
DUM←CR(MYPROC) + CR(MYPROC); COMMENT ITEM TYPE MISMATCH HERE TWICE ;
DUM←CR(MYPROC); COMMENT OK HERE ;
DUM←(DUM←CR(MYPROC)) + (DUM←CR(MYPROC)); COMMENT OK HERE ;
DUM←(DUM←CR(MYPROC)) + (DUM←CR(MYPROC)) +(DUM←CR(MYPROC)); COMMENT 2 (!!) ERRORS HERE ;
DUM←CR(IDUM←MYPROC) + CR(IDUM←MYPROC); COMMENT ITEM TYPE MISMATCH HERE TWICE ;
DUM←(DUM←CR(IDUM←MYPROC)) + (DUM←CR(IDUM←MYPROC));
END "ERROR"