From aef90c1d3dd67054bf1f0ca854b14dcdef5745b8 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Tue, 1 Sep 2015 18:06:10 +0000 Subject: [PATCH] read_dir.f90: XFAIL this testcase on FreeBSD. 2015-09-01 Steven G. Kargl * gfortran.dg/read_dir.f90: XFAIL this testcase on FreeBSD. Clean-up a created directory if testcase fails. From-SVN: r227381 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/read_dir.f90 | 9 +++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 887e03f8117..e955e8a79f7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2015-09-01 Steven G. Kargl + + * gfortran.dg/read_dir.f90: XFAIL this testcase on FreeBSD. + Clean-up a created directory if testcase fails. + 2015-09-01 Ilya Enkovich PR target/67405 diff --git a/gcc/testsuite/gfortran.dg/read_dir.f90 b/gcc/testsuite/gfortran.dg/read_dir.f90 index f19740c56bc..0e28f9f497e 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 -- 2.30.2