On Tue, Sep 01, 2015 at 11:16:27AM -0700, Steve Kargl wrote: > open(unit=10, file='junko.dir',iostat=ios,action='read',access='stream') > if (ios.ne.0) call abort > read(10, iostat=ios) c > - if (ios.ne.21) call abort > + if (ios.ne.21) then > + close(10)
I forgot to mention that 'close(10, status="delete')' does not
work on a directory. Should it?
> + call system('rmdir junko.dir')
> + call abort
> + end if
> + close(10)
> call system('rmdir junko.dir')
--
Steve
