re PR fortran/34876 (Can't read/write array sections with negative stride not specified)
2008-01-25 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libfortran/34876 * gfortran.dg/direct_io_9.f: New test. From-SVN: r131850
This commit is contained in:
parent
12d9e9beff
commit
c6a4852ec6
|
@ -1,3 +1,8 @@
|
|||
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
|
||||
|
|
|
@ -0,0 +1,39 @@
|
|||
! { 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
|
||||
|
Loading…
Reference in New Issue