$ fortran/object=z sys$input
      PROGRAM TEST
      INTEGER*4 MSGLEN
      CHARACTER*80 MSG
      EXTERNAL TEST__ERROR,TEST__INFO
      CALL LIB$SIGNAL(TEST__INFO)
      CALL SYS$GETMSG(TEST__ERROR,MSGLEN,MSG,,)
      WRITE(*,*) MSG(1:MSGLEN)
      CALL LIB$SIGNAL(TEST__ERROR)
      END
$
$ message/object=zz sys$input
.title test
.facility TEST,1001/prefix=TEST__
.severity informational
INFO <This is just informative>
.severity error
ERROR <This is an error>
.end
$ link z+zz
$ run z
$ exit
