program Trim_p

  ! Trim stdin to 71 characters.

  character(71) :: Line

  do
    read ( *, '(a)', end=9 ) line
    write ( *, '(a)' ) trim(line)
  end do

9 continue

end program Trim_p
