diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-09-01 18:06:10 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-09-01 18:06:10 +0000 |
| commit | aef90c1d3dd67054bf1f0ca854b14dcdef5745b8 (patch) | |
| tree | f75b139a397c195f35cdc0dc48335b8ae6cb48d2 /gcc | |
| parent | 53f303165e21a7e87de1346929e82c0626600e61 (diff) | |
| download | gcc-aef90c1d3dd67054bf1f0ca854b14dcdef5745b8.zip gcc-aef90c1d3dd67054bf1f0ca854b14dcdef5745b8.tar.gz gcc-aef90c1d3dd67054bf1f0ca854b14dcdef5745b8.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 887e03f..e955e8a 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 f19740c..0e28f9f 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 |