
                                                                28-May-1991 22:23:13	VAX FORTRAN V5.4-79                 Page   1
                                                                28-May-1991 22:22:34	DEPT:[EDMUNDS.SPARE_2]SECOND_2.FOR;2        

0001          SUBROUTINE TestRoutine (TestInteger,ReturnInteger)
0002     
0003    C       *****   Program to Test FORTRAN called SubRoutine   *****
0004    C       *****                           Rev.  28-MAY-1991   *****
0005     
0006     
0007          IMPLICIT NONE
0008          INTEGER*4  TestInteger,ReturnInteger
0009     
0010          ReturnInteger = TestInteger * 2
0011     
0012          RETURN
0013     
0014          END

TESTROUTINE                                                     28-May-1991 22:23:13	VAX FORTRAN V5.4-79                 Page   2
01                                                              28-May-1991 22:22:34	DEPT:[EDMUNDS.SPARE_2]SECOND_2.FOR;2        

		.TITLE	TESTROUTINE
		.IDENT	01

    0000	.PSECT	$CODE
									    ; 0001
    0000  TESTROUTINE::
    0000	.WORD	^M<IV>
									    ; 0010
    0002	MULL3	#2, @TESTINTEGER(AP), @RETURNINTEGER(AP)
									    ; 0012
    0008	RET	
		.END




PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                    9   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG

    Total Space Allocated                    9


ENTRY POINTS

    Address  Type  Name          

  0-00000000       TESTROUTINE   


VARIABLES

    Address  Type  Name              Address  Type  Name          

 AP-00000008@ I*4  RETURNINTEGER  AP-00000004@ I*4  TESTINTEGER   


COMMAND QUALIFIERS

  FORTRAN/LIST/MACHINE_CODE SECOND_2

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /DEBUG=(NOSYMBOLS,TRACEBACK)
  /DESIGN=(NOCOMMENTS,NOPLACEHOLDERS)
  /SHOW=(NODICTIONARY,NOINCLUDE,MAP,NOPREPROCESSOR,SINGLE)
  /STANDARD=(NOSEMANTIC,NOSOURCE_FORM,NOSYNTAX)
  /WARNINGS=(NODECLARATIONS,GENERAL,NOULTRIX,NOVAXELN)
  /CONTINUATIONS=19  /NOCROSS_REFERENCE  /NOD_LINES  /NOEXTEND_SOURCE
  /F77  /NOG_FLOATING  /I4  /MACHINE_CODE  /OPTIMIZE  /NOPARALLEL
  /NOANALYSIS_DATA
  /NODIAGNOSTICS
  /LIST=DEPT:[EDMUNDS.SPARE_2]SECOND_2.LIS;1                                                                
  /OBJECT=DEPT:[EDMUNDS.SPARE_2]SECOND_2.OBJ;1                                                                

TESTROUTINE                                                     28-May-1991 22:23:13	VAX FORTRAN V5.4-79                 Page   3
01                                                              28-May-1991 22:22:34	DEPT:[EDMUNDS.SPARE_2]SECOND_2.FOR;2        

COMPILATION STATISTICS

  Run Time:           0.18 seconds
  Elapsed Time:       0.68 seconds
  Page Faults:        312
  Dynamic Memory:     456 pages
