program main
  implicit none
  character(len=16) :: c

  print*,'Type something and push Enter key.'
  read *,c
  print*,trim(c)
  stop
end program main