!　学習目的：open文のオプション：status
! ex702.f
      character str*4
      open(20,file='ex701.txt',status='old') !存在していなければ実行時エラーとなる
      read(20,*) str !全角１文字は半角2文字分
      write(*,*) str
      do i=1,5
        read(20,*) j
        write(*,*) j
      end do
      close(20)

      open(10,file='ex701.txt',status='new') !◆１
      write(10,*) 'abc'
      close(10)

      stop
      end

!◆１：ex901.txtは既に存在しているので，実行時にエラーになる．
!　　　既存のファイルが存在する場合，これをoverwriteしたくないときに使う．