call suba(4hjunk)
      end
      subroutine suba(i)
      write(*,'(a)') i
      end