Subroutine tst(ExternalName)
  character*(*) ExternalName
end
