program ch1402
!
! Simple character i/o
!
character (80) :: line
   read '(a)' , line
   print *,line
end program ch1402