call suba(5hjunky)
      end
      subroutine suba(i)
      write(*,'(a)') i
      end