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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 887e03f8117d9545517142a164560da0336eaf91..e955e8a79f77c22c5207a07b25ed6a275c907de5 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/read_dir.f90 b/gcc/testsuite/gfortran.dg/read_dir.f90
index f19740c56bc978d99d7215a6866725d165951d9d..0e28f9f497e8f406207f4e9910fbc14d300a1555 100644 (file)
--- a/gcc/testsuite/gfortran.dg/read_dir.f90
+++ b/gcc/testsuite/gfortran.dg/read_dir.f90
@@ -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