[Fortran, committed] XFAIL read_dir.f90 on FreeBSD

Steve Kargl sgk@troutmask.apl.washington.edu
Tue Sep 1 18:18:00 GMT 2015


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



More information about the Gcc-patches mailing list