On 09/01/2015 11:18 AM, Steve Kargl wrote: > 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') >
Thanks for the touch up Steve. I suspect other OS's will not work either. I assumed close with Status="delete" would not work on a directory. Jerry