gcc/testsuite/gfortran.dg/read_dir.f90

   1 ! { dg-do run }
   2 ! PR67367
   3 program bug
   4    implicit none
   5    character(len=1) :: c
   6    character(len=256) :: message
   7    integer ios
   8    call system('[ -d junko.dir ] || mkdir junko.dir')
   9    open(unit=10, file='junko.dir',iostat=ios,action='read',access='stream')
  10    if (ios.ne.0) then
  11       call system('rmdir junko.dir')
  12       call abort
  13    end if
  14    read(10, iostat=ios) c
  15    if (ios.ne.21.and.ios.ne.0) then
  16       close(10, status='delete')
  17       call abort
  18    end if
  19    close(10, status='delete')
  20 end program bug