blob: ce27078b1ab05e50aaba72ff9467e2dfe8be7c08 (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { 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
|
