[Fortran, committed] XFAIL read_dir.f90 on FreeBSD

[Jerry DeLisle]

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