2 ! pr35699 run-time abort writing zero sized section to direct access file
4 call qi0010 ( 10, 1, 2, 3, 4, 9, 2)
7 subroutine qi0010 (nf10, nf1, nf2, nf3, nf4,nf9, np2)
8 character(10) bda(nf10)
9 character(10) bda1(nf10), bval
14 bda1(i) = 'x'//bda1(i-1)
18 inquire(iolength = j_len) bda1(nf1:nf10:nf2), bda1(nf4:nf3),
29 write (48,iostat = istat, rec = 3) bda1(nf1:nf10:nf2),
30 $ bda1(nf4:nf3), bda1(nf2:nf10:nf2)
31 if ( istat .ne. 0) then
36 read (48,iostat = istat, rec = np2+1) bda(nf1:nf9:nf2),
37 $ bda(nf4:nf3), bda(nf2:nf10:nf2)
38 if ( istat .ne. 0) then
44 if (bda(j1) .ne. bval) call abort