I've committed the patch that follows my .sig.
2015-09-01 Steven G. Kargl <ka...@gcc.gnu.org>
* gfortran.dg/read_dir.f90: XFAIL this testcase on FreeBSD.
Clean-up a created directory if testcase fails.
I suspect that this testcase will fail on all *BSD OS's.
--
Steve
Index: gfortran.dg/read_dir.f90
===================================================================
--- gfortran.dg/read_dir.f90 (revision 227380)
+++ gfortran.dg/read_dir.f90 (working copy)
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { xfail *-*-freebsd* } }
! PR67367
program bug
implicit none
@@ -9,6 +9,11 @@ program bug
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)
+ call system('rmdir junko.dir')
+ call abort
+ end if
+ close(10)
call system('rmdir junko.dir')
end program bug
