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