re PR fortran/61933 (Inquire on internal units)
authorJerry DeLisle <jvdelisle@gcc.gnu.org>
Fri, 23 Jan 2015 02:01:10 +0000 (02:01 +0000)
committerJerry DeLisle <jvdelisle@gcc.gnu.org>
Fri, 23 Jan 2015 02:01:10 +0000 (02:01 +0000)
commitbb295963d4099db5c2822140430e950ac7f78894
tree256f68a04ba24948b248589c8686f27ea8f05fd4
parente344505cec510fe08af6c3263fc10619295ccd45
re PR fortran/61933 (Inquire on internal units)

2015-01-22  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

PR libgfortran/61933
* io/inquire.c (inquire_via_unit): Set existing to true for
any negative unit that is currently connected and any positive
units within range of KIND=4 value.  The unit value for any out
of range case that may occur if the user is using a KIND=8 will
have been set to -2 which is reserved and can never be opened,
and therefore the unit does not exist.

From-SVN: r220024
libgfortran/ChangeLog
libgfortran/io/inquire.c