! 学習目的:err=,end=,rewind,backspace ! ex703.f character str*4 open(10,file='ex701.txt') read(10,*,err=20) m read(10,*) m 20 write(*,*) 'reading err !' rewind(10) !ファイルの先頭に戻る read(10,*) str write(*,*) str read(10,*) m write(*,*) m backspace(10) !read()を実行すると,読込む行が次に行くが,backspaceをすることにより1行戻る read(10,*) m write(*,*) m rewind(10) read(10,*) str write(*,*) str 30 read(10,*,end=999) m !ファイルに最後にたどり着くと行番号999へ飛ぶ write(*,*) m goto 30 999 stop end