1! { dg-do run }
2! PR38291 Rejects I/O with POS= if FMT=*
3character(15) :: sAccess
4character(1) :: instr
5integer :: mypos, i
6mypos = 0
7open(50, access="stream", form="formatted")
8write(50, *, pos=1) "Just something "
9do i=1,17
10  read( 50, *,pos=i)
11  inquire(50, access=sAccess, pos=mypos)
12  if (sAccess.ne."STREAM") STOP 1
13  if ((mypos.ne.18).and.(mypos.ne.19)) STOP 2
14end do
15read (50,*, end=10)
16STOP 3
17 10 continue
18close(50,status="delete")
19end
20