[Fortran, committed] XFAIL read_dir.f90 on FreeBSD

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


I've committed the patch that follows my .sig.

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.

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



More information about the Gcc-patches mailing list