[Bug fortran/83458] New: F2008: inquire fails on units opened with newunit=

daanvanvugt at gmail dot com gcc-bugzilla@gcc.gnu.org
Mon Dec 18 10:05:00 GMT 2017


https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83458

            Bug ID: 83458
           Summary: F2008: inquire fails on units opened with newunit=
           Product: gcc
           Version: 7.2.1
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: daanvanvugt at gmail dot com
  Target Milestone: ---

Whens trying to find information an a unit number this fails if the unit number
is opened with newunit=

I expect the program below to return a unit number < 0, ierr=0, T and the
filename.

program inquire_newunit
  integer :: un, ierr
  character(len=80) :: name_of_file
  logical :: openedq

  open(newunit=un, file="/dev/urandom", access="stream", &
      form="unformatted", action="read", status="old", iostat=ierr)
  inquire(number=un, opened=openedq, file=name_of_file)
  write(*,*) un, ierr, openedq
  write(*,*) name_of_file
  if (ierr == 0) then
    close(un)
  end if
end program inquire_newunit


More information about the Gcc-bugs mailing list