read_dir.f90: XFAIL this testcase on FreeBSD.

2015-09-01  Steven G. Kargl  <kargl@gcc.gnu.org>

	* gfortran.dg/read_dir.f90: XFAIL this testcase on FreeBSD.
	Clean-up a created directory if testcase fails.

From-SVN: r227381

gcc/testsuite/ChangeLog

+2015-09-01  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+	* gfortran.dg/read_dir.f90: XFAIL this testcase on FreeBSD.
+	Clean-up a created directory if testcase fails.
+
 2015-09-01  Ilya Enkovich  <enkovich.gnu@gmail.com>
 
 	PR target/67405

gcc/testsuite/gfortran.dg/read_dir.f90

-! { 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