1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! { dg-do run }
! PR91200
program foo
implicit none
integer fd
open(newunit=fd, file='test.dat', access='stream', form='formatted')
write(fd,'(A)') '$MeshFormat'
write(fd,'(A)') 'aabbccdd'
close(fd)
call readfile ! Read test.dat
contains
subroutine readfile
character(len=20) buf1, buf2
integer fd, m, n
open(newunit=fd, file='test.dat', access='stream', form='formatted')
inquire(fd, pos=m)
if (m /= 1) stop 'm /= 1'
read(fd, *) buf1
read(fd, *, pos=m) buf2 ! Reread by using pos=1
close(fd, status='delete')
if (buf1 /= buf2) stop 'wrong'
end subroutine readfile
end program
|
