[Bug fortran/61933] [5 Regression] Inquire on internal units

[jvdelisle at gcc dot gnu.org]

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

--- Comment #16 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> ---
Author: jvdelisle
Date: Fri Jan 23 02:01:10 2015
New Revision: 220024

URL: https://gcc.gnu.org/viewcvs?rev=220024&root=gcc&view=rev
Log:
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.

Modified:
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/io/inquire.c