gcc/testsuite/gfortran.dg/inquire_19.f90

   1 ! { dg-do run }
   2 ! PR84506  INQUIRE(pos=) always sets pos=0 with -fdefault-integer-8
   3 program 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
  13 end program TestInquire