| ! { 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 |