4.4BSD/usr/src/usr.bin/f77/tests/tests/fs058.f

c
c     comment section
c
c     fs058
c
c          this subroutine is called by subroutine fs057.  the two
c     arguments passed from fs057 along with a third parameter created
c     in fs058 are then passed to function ff059 where they are used in
c     an arithmetic operation.  fs058 then saves the result of this
c     operation in the first argument and returns control to fs057
c     without any additional processing.
c
c          the values of the arguments that are passed from fs057 to
c     fs058 and returned are saved in an integer array for later
c     verification by the main program.
c
c      references
c        american national standard programming language fortran,
c              x3.9-1978
c
c        section 15.5.2, referencing external functions
c        section 15.6, subroutines
c        section 15.8, return statement
c
c     test section
c
c         subroutine subprogram
c
      subroutine fs058 (ivon01,ivon02)
      common iacn11 (12)
      integer ff059
      ivon03 = 3
      iacn11 (3) = ivon01
      iacn11 (4) = ivon02
      iacn11 (5) = ivon03
      ivon01 = ff059 (ivon01,ivon02,ivon03)
      iacn11 (10) = ivon01
      return
      end