2 ! PR34876 can
't read/write zero length array sections
3 ! Test case from PR by Dick Hendrikson
10 inquire(iolength = j_len) bda1
22 if (istat /= 0) call abort
26 write (48,iostat = istat, rec = 10) bda1(4:3)
27 if ( istat .ne. 0) then
32 read (48,iostat = istat, rec=10) bda(4:3)
33 if ( istat .ne. 0) then
36 if (any(bda1.ne.'yyyyyyyyy
')) call abort
37 if (any(bda.ne.'xxxxxxxxx
')) call abort