! { 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") call abort | |
if ((mypos.ne.18).and.(mypos.ne.19)) call abort | |
end do | |
read (50,*, end=10) | |
call abort | |
10 continue | |
close(50,status="delete") | |
end |