! { dg-do run } | |
! PR77707 formatted direct access: nextrec off by one | |
program directaccess_formatted | |
integer nextrec | |
open(10, status='scratch', form='formatted', access='direct', recl=10*4) | |
write(10,'(10i4)',rec=9) 1,2,3,4,5,6,7,8,9,10 | |
inquire(unit=10,nextrec=nextrec) | |
if (nextrec.ne.10) STOP 1 | |
close(10) | |
end |