SSS/SUPERSOFT Z80 FORTRAN IV VER 3.2 CPM             PAGE 0001


0001        LOGICAL A(5)
0002  #     TEST.LIB
0003        DATA A/1,2,3,4,5/
0004        CALL     XXX(A,5)
0005        STOP
0006        END

>>> STMT MAP >>>


>>> VAR  MAP >>>
A     -000E,.DATA. B A     D     XXX   -0000,XXX    R     E       

>>> PRGM LEN = 000C    >>> DATA LEN = 0014

END SEGMENT

0001        SUBROUTINE XXX(B,N)
0002        LOGICAL B(N)
0003        WRITE(1,100)B
0004  100   FORMAT(1X,5I5)
0005        RETURN
0006        END

>>> STMT MAP >>>
000100-001B     

>>> VAR  MAP >>>
N     -0002,.DATA. I    P V      B     -0015,.DATA. B A    VD     

>>> PRGM LEN = 0021    >>> DATA LEN = 0021

END SEGMENT

END COMPILATION