https://gcc.gnu.org/bugzilla/show_bug.cgi?id=93234
Bug ID: 93234
Summary: INQUIRE on pre-assigned files of ROUND and SIGN
properties fails
Product: gcc
Version: 8.3.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: urbanjost at comcast dot net
Target Milestone: ---
Cannot call INQUIRE() on pre-assigned files for properties ROUND and SIGN fails
with an internal error.
The simplest case is
program showit
implicit none
character(len=20) :: round
character(len=20) :: sign
inquire(unit=5,round=round)
inquire(unit=5,sign=sign)
! Internal Error: inquire_via_unit(): Bad sign
write(*,*)'UNITS=',units(i),' ROUND=',round,' sign=',sign
end program showit
If you do an open on the units and specify the round and sign values it is then
OK.
