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