C PAT08A.FOR C NAB/1736/SLA 30-JUL-79/31-JUL-79 C RT-11 SOFTWARE DISPATCH JUNE 1979 C FORTRAN IV/RT-11 V2.1 SEQ 9 M C COMPILER C REGISTER ALLOCATION -- PATCH 8. FUNCTION ITEST(A) INTEGER A(3,3),SUM SUM=A(1,1)+A(2,2)+A(3,3) TYPE *,A(1,3),A(2,2),A(3,1) NSUM=SUM+A(1,3) RETURN END