program ch1402a
implicit none
character(len=:), allocatable:: string
integer:: ssize
   print*,'input length of string'
   read*,ssize
   allocate(character(len=ssize):: string)
   print *,'input string'
   read '(A)',string
   print*,'string is:'
   print*,string
end program ch1402a