      program tstsymdump
!
! use -l db.a
!
      implicit none
      integer :: i
      i = 2
!     call symdump('-B')
      call symdump()
      end program tstsymdump
