character c(20,10)
      data c /'1'/
      call suba(c)
      end
      subroutine suba(c)
      character c(100)
      print *,c
      end