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