2 ! PR38291 Rejects I/O with POS= if FMT=*
3 character(15) :: sAccess
7 open(50, access="stream", form="formatted")
8 write(50, *, pos=1) "Just something "
11 inquire(50, access=sAccess, pos=mypos)
12 if (sAccess.ne."STREAM") call abort
13 if (mypos.ne.18) call abort
18 close(50,status="delete")