Fortran文件读写--查找内容

program ex
implicit none
character(len=) A(),B(),C()  !A异常、B已开挖、C需标记
integer i,j,N1,N2,count   !N1是10号文件行数,N2是11号文件行数，count是计数器
 
open(unit=,file="10异常焊口编号列表.txt")   !异常焊口编号列表
open(unit=,file="11以开挖焊口列表.txt")     !以开挖焊口列表
open(unit=,file="12异常焊口中已开挖焊口编号.txt")
 
read(,*)N1   !读取10号文件
DO i=,N1,
read(,*) A(i)
end do
 
read(,*)N2    !读取11号文件
DO i=,N2,
read(,*) B(i)
end do
 
!开始比对（从异常到全部开挖去比对）
DO i=,N1,
  DO j=,N2,
     if ( trim(A(i))==trim(B(j)) ) then
     write(*,*)A(i),"   以开挖"
     write(,*)A(i)
     exit
     end if
  end do
end do
 
write(*,*)"按任意键结束"
read(*,*)
 
end program