re PR fortran/67367 (Program crashes on READ(IOSTAT=IOS, ...) on directory OPEN()ed without error)

2015-08-29 Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR fortran/67367
	* gfortran.dg/read_dir.f90: New test. May fail on some platforms.

From-SVN: r227321

gcc/testsuite/ChangeLog

+2015-08-29 Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR fortran/67367
+	* gfortran.dg/read_dir.f90: New test. May fail on some platforms.
+
 2015-08-29  Tom de Vries  <tom@codesourcery.com>
 
 	PR tree-optimization/46193

gcc/testsuite/gfortran.dg/read_dir.f90

+! { 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