(来学网)有程序：INTEGER A(2，3)
DATA A／1，2，3，4，5，6／
CALL SB(A)
CALL SB(A(1，2))
END
SLIBROUTINE SB(B)
INTEGER B(2，2)
WRITE(*，‘(1X，2I3)')B(1，1)，B(2，2)
END
此程序的运行结果是：