| ! { dg-do run } | |
| ! PR84506 INQUIRE(pos=) always sets pos=0 with -fdefault-integer-8 | |
| program TestInquire | |
| implicit none | |
| integer(8) :: iUnit | |
| integer(8) :: iPos | |
| open(newunit=iunit, file='output.txt', access='stream', status='replace') | |
| write(iUnit) 'TEXT' | |
| inquire(iUnit, pos=iPos) | |
| close(iUnit, status='delete') | |
| !print *, iPos | |
| if (iPos.ne.5) stop 1 | |
| end program TestInquire |