$ fortran/object=zz sys$input
       PROGRAM TEST
       INTEGER*4 NL,IDL
       CHARACTER*32 N,ID
       CALL IMAGEINFO(N,NL,ID,IDL)
       WRITE(*,*) 'NAME=',N(1:NL)
       WRITE(*,*) 'ID=',ID(1:IDL)
       END
$
$ link zz+z
$ run zz
$ link zz+z+sys$input/opt
name="Test program"
identification="V1.23"
$
$ run zz
$ fortran/object=zz sys$input
CDEC$ IDENT 'V1.23'
       PROGRAM TEST
       INTEGER*4 NL,IDL
       CHARACTER*32 N,ID
       CALL IMAGEINFO(N,NL,ID,IDL)
       WRITE(*,*) 'NAME=',N(1:NL)
       WRITE(*,*) 'ID=',ID(1:IDL)
       END
$
$ link zz+z
$ run zz
$ exit
