포트란 런타임 오류 : gfortran

Question

에서 파일의 끝 내가 gfortran test.f95를 사용하여이 프로그램을 실행, 그것은 오류를 보여줍니다

At line 10 of file test.f95 (unit = 15, file = 'open.dat') 

Fortran runtime error: End of file 

누군가가 여기에 잘못된 무엇인지 말씀해 주시겠습니까? 모든 포트란 질문 : [포트란 태그]

implicit none 
integer:: a,b,c,ios 

open(unit=15,file="open.dat",status='unknown', action='readwrite',iostat=ios) 
open(unit=16,file="open.out",status="unknown",action='write') 

do a=1,100 
    write(15,*)a 
end do 

do c=1,45,1 
    read(15,*) 
    read(15,*)b 
    write(16,*)b 
end do 

stop 
end 

Answer 1

되감기/fseek과

implicit none 
integer :: a, b, c, ios, ierr 

open(unit=15, file="open.dat", action='readwrite', iostat=ios) 
open(unit=16, file="open.out", action='write') 
do a=1,100 
    write(15,*)a 
end do 

! Here we need to get back to beginning of file 
! otherwise, you try to read where you finished writing 
! at the end of file 
! CALL FSEEK(UNIT, OFFSET, WHENCE[, STATUS]) 
! https://gcc.gnu.org/onlinedocs/gfortran/FSEEK.html 
! call fseek(15, 0, 0, ierr) 

! you can also use rewind file 
! https://www.fortran.com/F77_std/rjcnf0001-sh-12.html 
rewind(15) 

do c=1,45,1 
    read(15,*) 
    read(15,*)b 
    write(16,*)b 
end do 

end