      subroutine test_fort()

      print *,'In test_fort()'

      return
      end

