From: kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 1 Sep 2015 18:06:10 +0000 (+0000)
Subject: 2015-09-01  Steven G. Kargl  <kargl@gcc.gnu.org>
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=b1078e57231fb1e4b77bc5adb117db1d0d5ec814;p=thirdparty%2Fgcc.git

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.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@227381 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 887e03f8117d..e955e8a79f77 100644
--- 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 f19740c56bc9..0e28f9f497e8 100644
--- 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