+2008-01-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libfortran/34876
+ * gfortran.dg/direct_io_9.f: New test.
+
2008-01-25 Daniel Franke <franke.daniel@gmail.com>
PR fortran/34661
--- /dev/null
+! { dg-do run }
+! PR34876 can't read/write zero length array sections
+! Test case from PR by Dick Hendrikson
+ program qi0011
+ character(9) bda(10)
+ character(9) bda1(10)
+ integer j_len
+ istat = -314
+
+ inquire(iolength = j_len) bda1
+
+ istat = -314
+ open (unit=48,
+ $ status='scratch',
+ $ access='direct',
+ $ recl = j_len,
+ $ iostat = istat,
+ $ form='unformatted',
+ $ action='readwrite')
+
+
+ if (istat /= 0) call abort
+
+ bda = 'xxxxxxxxx'
+ bda1 = 'yyyyyyyyy'
+ write (48,iostat = istat, rec = 10) bda1(4:3)
+ if ( istat .ne. 0) then
+ call abort
+ endif
+
+ istat = -314
+ read (48,iostat = istat, rec=10) bda(4:3)
+ if ( istat .ne. 0) then
+ call abort
+ endif
+ if (any(bda1.ne.'yyyyyyyyy')) call abort
+ if (any(bda.ne.'xxxxxxxxx')) call abort
+ end
+