$ fortran/object=z sys$input
      PROGRAM Z
      INTEGER*4 I1,I2,I3
      INTEGER*4 ZZ,ZZZ
      I1=11
      I3=ZZ(I1,I2)
      WRITE(*,*) I1,I2,I3
      I1=11
      I3=ZZZ(I1,I2)
      WRITE(*,*) I1,I2,I3
      END
C
      INTEGER*4 FUNCTION ZZZ(I,J)
      INTEGER*4 I,J
      J=4*I
      ZZZ=2*I
      RETURN
      END
$
$ macro/object=zz sys$input
        .title  zz
        .psect  $CODE quad,pic,con,lcl,shr,exe,nowrt
        .entry  zz,^m<>
        mull3   #4,@4(ap),@8(ap)
        mull3   #2,@4(ap),r0
        ret
        .end
$
$ link z+zz
$ run z
$ exit
