fortran案例中的文本输入？

program text_input_example
  implicit none
  
  character(100) :: input_line
  integer :: input_value
  
  ! 打开输入文件
  open(unit=10, file='input.txt', status='old', action='read')
  
  ! 读取文本行并处理
  do while (.true.)
    read(10, '(A)', iostat=input_value) input_line
    if (input_value /= 0) exit  ! 读取到文件末尾时退出循环
    
    ! 在这里对读取到的文本行进行处理
    ! ...
    
    ! 输出处理结果
    write(*, '(A)') input_line
  end do
  
  ! 关闭输入文件
  close(10)
  
end program text_input_example