[½»Á÷] ¡¾ÇóÖú¡¿ÇëÎÊÈçºÎɾ³ýÎļþµÄÖظ´ÐÐ

program test
   character(len=80) :: line1, line2
   integer :: ios

   read(*,'(a)', iostat=ios) line1
   do
      read(*,'(a)', iostat=ios) line2
      if (ios < 0) exit
      if (index(line1, line2) /= 0) then
         line1 = line2
         cycle
      else
         write (*,'(a)') line1
         line1 = line2
      end if
   end do
   write (*,'(a)') line2

end program test