program ch1402

! Simple character i/o

  character (80) :: line

  read '(a)', line
  print *, line
end program ch1402