20 lines
437 B
Fortran
20 lines
437 B
Fortran
! { 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) call abort
|
|
end do
|
|
read (50,*, end=10)
|
|
call abort
|
|
10 continue
|
|
close(50,status="delete")
|
|
end
|