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