$ fortran/object=z sys$input
      PROGRAM Z
      CHARACTER*4 C1,C2
      CHARACTER*4 F1
      C1=F1()
      WRITE(*,*) C1
      CALL F2(C2)
      WRITE(*,*) C2
      END
$
$ fortran/object=zz sys$input
      PROGRAM ZZ
      CHARACTER*4 C1,C2
      CHARACTER*4 F2
      C1=F2()
      WRITE(*,*) C1
      CALL F1(C2)
      WRITE(*,*) C2
      END
$
$ macro/object=zzz sys$input
        .title  zzz
        .psect  $PDATA quad,pic,con,lcl,shr,noexe,nowrt
str1:   .ascii  "ABCD"
str2:   .ascii  "1234"
        .psect  $CODE quad,pic,con,lcl,shr,exe,nowrt
        .entry  f1,^m<>
        movl    4(ap),r0
        movl    str1,@4(r0)
        ret
        .entry  f2,^m<>
        movl    4(ap),r0
        movl    str2,@4(r0)
        ret
        .end
$
$ link z+zzz
$ link zz+zzz
$ run z
$ run zz
$ exit
