Fortranのランタイムエラー：のgfortran

Question

でファイルの終わり、私はのgfortran test.f95を使用して、このプログラムを実行し、それがエラーを示している

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

Fortran runtime error: End of file 

誰かがここで間違っているものを私に伝えることができますか？すべてのFortranの質問のために：[FORTRANタグ]

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