From 08bd9c7ad6acfcef822747dfbb6b56e3b92f34a1 Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Sat, 29 Aug 2015 15:52:43 +0000 Subject: [PATCH] 2015-08-29 Jerry DeLisle PR fortran/67367 * gfortran.dg/read_dir.f90: New test. May fail on some platforms. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@227321 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/read_dir.f90 | 14 ++++++++++++++ 2 files changed, 19 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/read_dir.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 08e408312386..1d8373d78766 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2015-08-29 Jerry DeLisle + + PR fortran/67367 + * gfortran.dg/read_dir.f90: New test. May fail on some platforms. + 2015-08-29 Tom de Vries PR tree-optimization/46193 diff --git a/gcc/testsuite/gfortran.dg/read_dir.f90 b/gcc/testsuite/gfortran.dg/read_dir.f90 new file mode 100644 index 000000000000..f19740c56bc9 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/read_dir.f90 @@ -0,0 +1,14 @@ +! { dg-do run } +! PR67367 +program bug + implicit none + character(len=1) :: c + character(len=256) :: message + integer ios + call system('[ -d junko.dir ] || mkdir junko.dir') + 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 + call system('rmdir junko.dir') +end program bug -- 2.47.3