      subroutine test_fort()

      print *,'In test_fort() -- 1'
      print *,'In test_fort() -- 2'
      print *,'In test_fort() -- 3'

      return
      end

