Commit aef90c1d by Steven G. Kargl

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
parent 53f30316
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
......
! { 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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment