program main
  implicit none

  character,allocatable :: a(:)
  character(:),allocatable :: b
  integer :: nb, i
  character(100) :: c

  read( *, '(A6)' )  c
  b=trim(c)
  nb = len(b)   ! 文字列の長さ                                                                             

  allocate(a(nb))             ! 文字の配列を割り付け                                                       
  do i=1,nb
     a(i)='x'
  enddo

  b = transfer(a(1:nb),b)  ! 逆順に参照した文字の配列を文字列に戻す                                        


  print *, b

end program