blob: 7d01b6b56ce1c2a86566af551d8e1c67883cd694 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { 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
|
