[Fortran, committed] XFAIL read_dir.f90 on FreeBSD
Jerry DeLisle
jvdelisle@charter.net
Tue Sep 1 22:28:00 GMT 2015
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
More information about the Gcc-patches
mailing list