|
|
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
program main
implicit none
character(256) :: line
open(30, file = "unknown_length.txt", form="formatted", action = "read", status = "OLD"
do while (.true.)
read(30, '(a256)', end = 100) line
print *, trim(line)
end do
goto 200
100 continue
print *, "File eof"
200 continue
close(30)
stop "Program stopped"
end program main |
|
回复此楼
