3 ! Segfaulted on second set of writes. We weren't handling partial records
4 ! properly when calculating the file position.
10 real, allocatable :: p(:)
12 nt = 2049 ! if nt < 2049, then everything works.
17 inquire(iolength=mt) (p(m), m=1, nt)
19 open(unit=12, file='syn.sax', access='direct', recl=mt)
21 write(12, rec=n) mt, nt
22 write(12, rec=n+1) (p(m), m=1, nt)
25 inquire(iolength=mt) (p(m), m=1, nt)
27 open(unit=12, file='syn.sax', access='direct', recl=mt)
29 write(12, rec=n) mt, nt
30 write(12, rec=n+1) (p(m), m=1, nt)
31 close(12, status='delete')